|
◆ 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 ) |
|