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