18       subroutine msdjcr(fid,lmname,jname,des,dom,  argument
26       character*(*) lmname
33       print *,lmname
38       cret = msdfjcr(fid,lmname,len(lmname),
48       subroutine msdcrw(fid,lmname,jname,numdt,numit,  argument
56       character *(*) lmname, jname
61       cret = msdfcrw(fid,lmname,len(lmname),jname,len(jname),
93       subroutine msdjni(fid,lmname,ind,jname,des,dom,  argument
100       character *(*) lmname,jname,des,rmname
105       cret = msdfjni(fid,lmname,len(lmname),ind,
168       subroutine msdcrr(fid,lmname,jname,numdt,numit,  argument
176       character *(*) lmname, jname
182       cret = msdfcrr(fid,lmname,len(lmname),jname,len(jname),