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