|
◆ mfdipw()
subroutine mfdipw |
( |
integer*8 |
fid, |
|
|
character*(*) |
fname, |
|
|
integer |
numdt, |
|
|
integer |
numit, |
|
|
real*8 |
dt, |
|
|
integer |
etype, |
|
|
integer |
gtype, |
|
|
integer |
stm, |
|
|
character*(*) |
pname, |
|
|
character*(*) |
lname, |
|
|
integer |
swm, |
|
|
integer |
cs, |
|
|
integer |
n, |
|
|
integer, dimension(*) |
val, |
|
|
integer |
cret |
|
) |
| |
|