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