00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018 subroutine mprcre(fid , name , type , des , dtunit, cret)
00019
00020
00021 implicit none
00022 save
00023
00024 character *(*) name, des, dtunit
00025 integer fid, cret, type
00026 integer mprfcre
00027
00028 cret = mprfcre(fid,name,len(name),type,des,len(des),
00029 & dtunit,len(dtunit))
00030
00031 return
00032 end
00033
00034
00035
00036 subroutine mprrvw(fid,name,numdt,numit,dt,val,cret)
00037
00038
00039 implicit none
00040 save
00041 character*(*) name
00042 integer fid,numdt,numit,cret
00043 real*8 dt,val
00044 integer mprfrvw
00045
00046 cret = mprfrvw(fid,name,len(name),numdt,numit,dt,val)
00047
00048 return
00049 end
00050
00051
00052
00053 subroutine mprivw(fid,name,numdt,numit,dt,val,cret)
00054
00055
00056 implicit none
00057 save
00058 character*(*) name
00059 integer fid,numdt,numit,cret
00060 real*8 dt
00061 integer val
00062 integer mprfivw
00063
00064 cret = mprfivw(fid,name,len(name),numdt,numit,dt,val)
00065
00066 return
00067 end
00068
00069
00070
00071 subroutine mprrvr(fid,name,numdt,numit,val,cret)
00072
00073
00074 implicit none
00075 save
00076 character*(*) name
00077 integer fid,numdt,numit,cret
00078 real*8 val
00079 integer mprfrvr
00080
00081 cret = mprfrvr(fid,name,len(name),numdt,numit,val)
00082
00083 return
00084 end
00085
00086
00087
00088 subroutine mprivr(fid,name,numdt,numit,val,cret)
00089
00090
00091 implicit none
00092 save
00093 character*(*) name
00094 integer fid,numdt,numit,cret
00095 integer val
00096 integer mprfivr
00097
00098 cret = mprfivr(fid,name,len(name),numdt,numit,val)
00099
00100 return
00101 end
00102
00103
00104
00105 subroutine mprnpr(fid,n,cret)
00106
00107
00108 implicit none
00109 save
00110 integer fid,n,cret
00111 integer mprfnpr
00112
00113 n = mprfnpr(fid)
00114
00115 if (n.lt.0) then
00116 cret = -1
00117 else
00118 cret = 0
00119 endif
00120
00121 return
00122 end
00123
00124
00125
00126 subroutine mprpri(fid, it, name, type, desc,
00127 & dtunit, nstep, cret)
00128
00129
00130 implicit none
00131 save
00132
00133 character *(*) name, dtunit, desc
00134 integer fid, it, cret, type, nstep
00135 integer mprfpri
00136
00137 cret = mprfpri(fid, it, name, type,
00138 & desc, dtunit, nstep)
00139
00140 return
00141 end
00142
00143
00144
00145 subroutine mprpin(fid, name, type, desc,
00146 & dtunit, nstep, cret)
00147
00148
00149 implicit none
00150 save
00151
00152 character *(*) name, dtunit, desc
00153 integer fid, cret, type, nstep
00154 integer mprfpin
00155
00156 cret = mprfpin(fid, name, len(name), type,
00157 & desc, dtunit, nstep)
00158
00159 return
00160 end
00161
00162
00163
00164 subroutine mprcsi(fid, name, it, numdt, numit,
00165 & dt, cret)
00166
00167
00168 implicit none
00169 save
00170
00171 character *(*) name
00172 integer fid, it, cret, numdt, numit
00173 real*8 dt
00174 integer mprfcsi
00175
00176 cret = mprfcsi(fid, name, len(name), it,
00177 & numdt,numit,dt)
00178
00179 return
00180 end