Index | Rundeck: E6TomaF40 | Created: Sat May 18 03:30:40 EDT 2024 |
hugh_make_supi | Module: MO_BULK2M_DRIVER_GCM | File: BLK_DRV.f |
Author :
Version:
Declaration:
function hugh_make_supi(p, t, q) result (ra)
- iu6 :
integer, parameter
- Initial Value
= 6
- p :
real*8, intent(in), dimension(:)
- t :
real*8, intent(in), dimension(:)
- q :
real*8, intent(in), dimension(:)
- ra :
real*8, dimension(size(p, 1))
- k :
integer
- kl :
integer
- sw :
real*8, dimension(size(p, 1))
- si :
real*8, dimension(size(p, 1))
- dum :
real*8
- dumw :
real*8
- dumi :
real*8
- tk :
real*8
- qk :
real*8
- pk :
real*8
- sname :
character*16
- Initial Value
= 'hugh_make_supi: '