18 subroutine msmcre(fid , maa , sdim , mdim , des,
19 & atype, aname, aunit, cret)
25 character *(*) maa, des, aname, aunit
27 integer cret, atype, sdim, mdim
30 cret = msmfcre(fid, maa, len(maa), sdim, mdim,
31 & des, len(des), atype, aname, 16*sdim,
39 subroutine msmnsm( fid , n , cret)
62 subroutine msmsni(fid, name, sdim, mdim, desc,
63 & atype, aname, aunit, cret)
69 character *(*) name, desc, aname, aunit
71 integer sdim, mdim, atype, cret
74 cret = msmfsni(fid, name, len(name), sdim, mdim, desc,
75 & atype, aname, aunit)
82 subroutine msmsmi(fid, it, name, sdim, mdim, desc,
83 & atype, aname, aunit, cret)
89 character *(*) name, desc, aname, aunit
91 integer sdim, mdim, atype, it, cret
94 cret = msmfsmi(fid, it, name, sdim, mdim, desc,
95 & atype, aname, aunit)
102 subroutine msmnax( fid , it, naxis, cret)
109 integer it,naxis,cret
112 naxis = msmfnax(fid,it)
124 subroutine msmnan( fid , name, naxis, cret)
135 naxis = msmfnan(fid,name,len(name))