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