Index | Rundeck: P1SoM40 | Created: Thu May 9 03:30:17 EDT 2024 |
xstep | Module: | File: QUS3D.f |
Author : J. Lerner and M. Kelley
Version:
Declaration:
subroutine xstep(jprt, lprt, ierr, m, mu, nstep, am, mi)
- im : used from quscom
- jprt :
integer
- lprt :
integer
- ierr :
integer
- m :
real*8, dimension(im)
- mu :
real*8, dimension(im)
- am :
real*8, dimension(im)
- mi :
real*8, dimension(im)
- nstep :
integer
- i :
integer
- ns :
integer
- courmax :
real*8
- nstepmax :
integer, parameter
- Initial Value
= 60