18 subroutine msdjcr(fid,lmname,jname,des,dom,
38 cret = msdfjcr(fid,lmname,len(lmname),
41 & dom, rmname, len(rmname))
48 subroutine msdcrw(fid,lmname,jname,numdt,numit,
49 & entlcl,geolcl,entdst,geodst,
56 character *(*) lmname, jname
57 integer n, fid, cret, corrtab(*)
58 integer entlcl, entdst, geolcl, geodst, numdt,numit
61 cret = msdfcrw(fid,lmname,len(lmname),jname,len(jname),
62 & numdt, numit, entlcl, geolcl, entdst, geodst,
70 subroutine msdnjn(fid,maa,n,cret)
80 n = msdfnjn(fid,maa,len(maa))
93 subroutine msdjni(fid,lmname,ind,jname,des,dom,
94 & rmname,nstep,ncor,cret)
100 character *(*) lmname,jname,des,rmname
102 integer ind,dom,cret,nstep,ncor
105 cret = msdfjni(fid,lmname,len(lmname),ind,
106 & jname,des,dom,rmname,nstep,ncor)
113 subroutine msdszi(fid,mname,jname,
123 character*(*) mname,jname
125 integer cret,numdt,numit
126 integer it,letype,lgtype,retype,rgtype,ncor
129 cret = msdfszi(fid,mname,len(mname),
133 & retype,rgtype,ncor)
140 subroutine msdcsz(fid,mname,jname,
150 character*(*) mname,jname
152 integer cret,numdt,numit
153 integer letype,lgtype,retype,rgtype,ncor
156 cret = msdfcsz(fid,mname,len(mname),
168 subroutine msdcrr(fid,lmname,jname,numdt,numit,
169 & entlcl,geolcl,entdst,geodst,
176 character *(*) lmname, jname
178 integer cret, corrtab(*)
179 integer entlcl, entdst, geolcl, geodst, numdt,numit
182 cret = msdfcrr(fid,lmname,len(lmname),jname,len(jname),
183 & numdt, numit, entlcl, geolcl, entdst, geodst,
191 subroutine msdcsi(fid,mname,jname,ind,
192 & numdt,numit,ncor,cret)
198 character *(*) mname,jname
200 integer ind,ncor,numdt,numit,cret
203 cret = msdfcsi(fid,mname,len(mname),
204 & jname,len(jname),ind,