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