00001 
00002 
00003 
00004 
00005 
00006 
00007 
00008 
00009 
00010 
00011 
00012 
00013 
00014 
00015 
00016 
00017 
00018       subroutine msdjcr(fid,lmname,jname,des,dom,
00019      &                  rmname,cret)
00020 
00021 
00022       implicit none
00023       save
00024 
00025       character*(*) jname
00026       character*(*) lmname
00027       character*(*) des
00028       character*(*) rmname
00029       integer fid, dom, cret
00030       integer msdfjcr
00031 
00032       print *,lmname
00033       print *,jname
00034       print *,des
00035       print *,dom
00036       print *,rmname
00037       cret = msdfjcr(fid,lmname,len(lmname),
00038      &               jname,len(jname),
00039      &               des, len(des),
00040      &               dom, rmname, len(rmname))
00041 
00042       return
00043       end
00044 
00045 
00046 
00047       subroutine msdcrw(fid,lmname,jname,numdt,numit,
00048      &                  entlcl,geolcl,entdst,geodst,
00049      &                  n,corrtab,cret)
00050 
00051 
00052       implicit none
00053       save
00054 
00055       character *(*) lmname, jname
00056       integer n, fid, cret, corrtab(*)
00057       integer entlcl, entdst, geolcl, geodst, numdt,numit
00058       integer msdfcrw
00059 
00060       cret = msdfcrw(fid,lmname,len(lmname),jname,len(jname),
00061      &               numdt, numit,  entlcl, geolcl, entdst, geodst,          
00062      &               n,corrtab)
00063 
00064       return
00065       end
00066 
00067 
00068 
00069       subroutine msdnjn(fid,maa,n,cret)
00070 
00071 
00072       implicit none
00073       save
00074 
00075       character *(*) maa
00076       integer n, fid,  cret
00077       integer msdfnjn
00078 
00079       n = msdfnjn(fid,maa,len(maa))
00080 
00081       if (n.lt.0) then
00082          cret = -1
00083       else
00084          cret = 0
00085       endif
00086 
00087       return
00088       end
00089 
00090 
00091 
00092       subroutine msdjni(fid,lmname,ind,jname,des,dom,
00093      &                  rmname,nstep,ncor,cret)
00094 
00095 
00096       implicit none
00097       save
00098 
00099       character *(*) lmname,jname,des,rmname
00100       integer fid, ind,dom,cret,nstep,ncor
00101       integer msdfjni
00102 
00103       cret = msdfjni(fid,lmname,len(lmname),ind,
00104      &              jname,des,dom,rmname,nstep,ncor)
00105 
00106       return
00107       end
00108 
00109 
00110 
00111       subroutine msdszi(fid,mname,jname,
00112      &                  numdt,numit,
00113      &                  it,letype,lgtype,
00114      &                  retype,rgtype,
00115      &                  ncor,cret)
00116 
00117 
00118       implicit none
00119       save
00120 
00121       character*(*) mname,jname
00122       integer fid,cret,numdt,numit
00123       integer it,letype,lgtype,retype,rgtype,ncor
00124       integer msdfszi
00125 
00126       cret = msdfszi(fid,mname,len(mname),
00127      &               jname,len(jname),
00128      &               numdt,numit,it,
00129      &               letype,lgtype,
00130      &               retype,rgtype,ncor)
00131 
00132       return
00133       end
00134 
00135 
00136 
00137       subroutine msdcsz(fid,mname,jname,
00138      &                  numdt,numit,
00139      &                  letype,lgtype,
00140      &                  retype,rgtype,
00141      &                  ncor,cret)
00142 
00143 
00144       implicit none
00145       save
00146 
00147       character*(*) mname,jname
00148       integer fid,cret,numdt,numit
00149       integer letype,lgtype,retype,rgtype,ncor
00150       integer msdfcsz
00151 
00152       cret = msdfcsz(fid,mname,len(mname),
00153      &               jname,len(jname),
00154      &               numdt,numit,
00155      &               letype,lgtype,
00156      &               retype,rgtype,
00157      &               ncor)
00158 
00159       return
00160       end
00161 
00162 
00163 
00164       subroutine msdcrr(fid,lmname,jname,numdt,numit,
00165      &                  entlcl,geolcl,entdst,geodst,
00166      &                  corrtab,cret)
00167 
00168 
00169       implicit none
00170       save
00171 
00172       character *(*) lmname, jname
00173       integer fid, cret, corrtab(*)
00174       integer entlcl, entdst, geolcl, geodst, numdt,numit
00175       integer msdfcrr
00176 
00177       cret = msdfcrr(fid,lmname,len(lmname),jname,len(jname),
00178      &               numdt, numit,  entlcl, geolcl, entdst, geodst,          
00179      &               corrtab)
00180 
00181       return
00182       end
00183 
00184 
00185 
00186       subroutine msdcsi(fid,mname,jname,ind,
00187      &                  numdt,numit,ncor,cret)
00188 
00189 
00190       implicit none
00191       save
00192 
00193       character *(*) mname,jname
00194       integer fid, ind,ncor,numdt,numit,cret
00195       integer msdfcsi
00196 
00197       cret = msdfcsi(fid,mname,len(mname),
00198      &               jname,len(jname),ind,
00199      &               numdt,numit,ncor)
00200 
00201       return
00202       end