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