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
58 integer n, cret, corrtab(*)
59 integer entlcl, entdst, geolcl, geodst, numdt,numit
62 cret = msdfcrw(fid,lmname,len(lmname),jname,len(jname),
63 & numdt, numit, entlcl, geolcl, entdst, geodst,
71 subroutine msdnjn(fid,maa,n,cret)
82 n = msdfnjn(fid,maa,len(maa))
95 subroutine msdjni(fid,lmname,ind,jname,des,dom,
96 & rmname,nstep,ncor,cret)
102 character *(*) lmname,jname,des,rmname
104 integer ind,dom,cret,nstep,ncor
107 cret = msdfjni(fid,lmname,len(lmname),ind,
108 & jname,des,dom,rmname,nstep,ncor)
115 subroutine msdszi(fid,mname,jname,
125 character*(*) mname,jname
127 integer cret,numdt,numit
128 integer it,letype,lgtype,retype,rgtype,ncor
131 cret = msdfszi(fid,mname,len(mname),
135 & retype,rgtype,ncor)
142 subroutine msdcsz(fid,mname,jname,
152 character*(*) mname,jname
154 integer cret,numdt,numit
155 integer letype,lgtype,retype,rgtype,ncor
158 cret = msdfcsz(fid,mname,len(mname),
170 subroutine msdcrr(fid,lmname,jname,numdt,numit,
171 & entlcl,geolcl,entdst,geodst,
178 character *(*) lmname, jname
180 integer cret, corrtab(*)
181 integer entlcl, entdst, geolcl, geodst, numdt,numit
184 cret = msdfcrr(fid,lmname,len(lmname),jname,len(jname),
185 & numdt, numit, entlcl, geolcl, entdst, geodst,
193 subroutine msdcsi(fid,mname,jname,ind,
194 & numdt,numit,ncor,cret)
200 character *(*) mname,jname
202 integer ind,ncor,numdt,numit,cret
205 cret = msdfcsi(fid,mname,len(mname),
206 & jname,len(jname),ind,