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))
subroutine msmsni(fid, name, sdim, mdim, desc, atype, aname, aunit, cret)
subroutine msmcre(fid, maa, sdim, mdim, des, atype, aname, aunit, cret)
subroutine msmnsm(fid, n, cret)
subroutine msmsmi(fid, it, name, sdim, mdim, desc, atype, aname, aunit, cret)
subroutine msmnax(fid, it, naxis, cret)
subroutine msmnan(fid, name, naxis, cret)