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