|
◆ mmhnow()
subroutine mmhnow |
( |
integer*8 |
fid, |
|
|
character *(*) |
name, |
|
|
integer |
numdt, |
|
|
integer |
numit, |
|
|
real*8 |
dt, |
|
|
integer |
swm, |
|
|
integer |
n, |
|
|
real*8, dimension(*) |
coo, |
|
|
integer |
iname, |
|
|
character *(*) |
nname, |
|
|
integer |
inum, |
|
|
integer, dimension(*) |
num, |
|
|
integer |
ifam, |
|
|
integer, dimension(*) |
fam, |
|
|
integer |
cret |
|
) |
| |
|