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