18 subroutine mprcre(fid , name , type , des , dtunit, cret)
24 character *(*) name, des, dtunit
29 cret = mprfcre(fid,name,len(name),
type,des,len(des),
37 subroutine mprrvw(fid,name,numdt,numit,dt,val,cret)
44 integer numdt,numit,cret
48 cret = mprfrvw(fid,name,len(name),numdt,numit,dt,val)
55 subroutine mprivw(fid,name,numdt,numit,dt,val,cret)
62 integer numdt,numit,cret
67 cret = mprfivw(fid,name,len(name),numdt,numit,dt,val)
74 subroutine mprrvr(fid,name,numdt,numit,val,cret)
81 integer numdt,numit,cret
85 cret = mprfrvr(fid,name,len(name),numdt,numit,val)
92 subroutine mprivr(fid,name,numdt,numit,val,cret)
99 integer numdt,numit,cret
103 cret = mprfivr(fid,name,len(name),numdt,numit,val)
110 subroutine mprnpr(fid,n,cret)
132 subroutine mprpri(fid, it, name, type, desc,
133 & dtunit, nstep, cret)
139 character *(*) name, dtunit, desc
141 integer it, cret,
type, nstep
144 cret = mprfpri(fid, it, name,
type,
145 & desc, dtunit, nstep)
152 subroutine mprpin(fid, name, type, desc,
153 & dtunit, nstep, cret)
159 character *(*) name, dtunit, desc
161 integer cret,
type, nstep
164 cret = mprfpin(fid, name, len(name),
type,
165 & desc, dtunit, nstep)
172 subroutine mprcsi(fid, name, it, numdt, numit,
181 integer it, cret, numdt, numit
185 cret = mprfcsi(fid, name, len(name), it,