|
subroutine mmhphw |
( |
integer*8 |
fid, |
|
|
character *(*) |
name, |
|
|
integer |
numdt, |
|
|
integer |
numit, |
|
|
real*8 |
dt, |
|
|
integer |
entype, |
|
|
integer |
cmode, |
|
|
integer |
fisize, |
|
|
integer:dimension(*) |
findex, |
|
|
integer |
nisize, |
|
|
integer:dimension(*) |
nindex, |
|
|
integer:dimension(*) |
con, |
|
|
integer |
cret |
|
) |
| |
|