Index | Rundeck: E6F40 | Created: Fri May 17 03:30:27 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