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,
subroutine msdcsi(fid, mname, jname, ind, numdt, numit, ncor, cret)
subroutine msdjcr(fid, lmname, jname, des, dom, rmname, cret)
subroutine msdcrw(fid, lmname, jname, numdt, numit, entlcl, geolcl, entdst, geodst, n, corrtab, cret)
subroutine msdszi(fid, mname, jname, numdt, numit, it, letype, lgtype, retype, rgtype, ncor, cret)
subroutine msdnjn(fid, maa, n, cret)
subroutine msdjni(fid, lmname, ind, jname, des, dom, rmname, nstep, ncor, cret)
subroutine msdcsz(fid, mname, jname, numdt, numit, letype, lgtype, retype, rgtype, ncor, cret)
subroutine msdcrr(fid, lmname, jname, numdt, numit, entlcl, geolcl, entdst, geodst, corrtab, cret)