Index | Rundeck: E6TomaF40 | Created: Fri May 17 03:30:39 EDT 2024 |
make_crys_dist | Module: MO_BULK2M_DRIVER_GCM | File: BLK_DRV.f |
Author :
Version:
Declaration:
logical function make_crys_dist(dt, ci, di, pi, qsmall, mx0) result(la)
- dt :
real*8, intent(in)
- ci :
real*8, intent(in)
- di :
real*8, intent(in)
- pi :
real*8, intent(in)
- qsmall :
real*8, intent(in)
- mx0 :
integer, intent(in)
- lammax :
real*8
- lammin :
real*8
- dum :
real*8
- i :
integer
- j :
integer
- k :
integer
- sname :
character*16
- Initial Value
= 'make_crys_dist: '