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