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