|
subroutine mfdonv |
( |
integer*8 |
fid, |
|
|
character*(*) |
fname, |
|
|
integer |
numdt, |
|
|
integer |
numit, |
|
|
integer |
etype, |
|
|
integer |
gtype, |
|
|
character*(*) |
mname, |
|
|
integer |
pit, |
|
|
integer |
stm, |
|
|
character*(*) |
pname, |
|
|
integer |
psize, |
|
|
character*(*) |
lname, |
|
|
integer |
nip, |
|
|
integer |
n, |
|
|
integer |
cret |
|
) |
| |
|