00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018 subroutine msmcre(fid , maa , sdim , mdim , des,
00019 & atype, aname, aunit, cret)
00020
00021
00022 implicit none
00023 save
00024
00025 character *(*) maa, des, aname, aunit
00026 integer fid, cret, atype, sdim, mdim
00027 integer msmfcre
00028
00029 cret = msmfcre(fid, maa, len(maa), sdim, mdim,
00030 & des, len(des), atype, aname, 16*sdim,
00031 & aunit, 16*sdim)
00032
00033 return
00034 end
00035
00036
00037
00038 subroutine msmnsm( fid , n , cret)
00039
00040
00041 implicit none
00042 save
00043
00044 integer fid, n, cret
00045 integer msmfnsm
00046
00047 n = msmfnsm(fid)
00048
00049 if (n.lt.0) then
00050 cret = -1
00051 else
00052 cret = 0
00053 endif
00054
00055 return
00056 end
00057
00058
00059
00060 subroutine msmsni(fid, name, sdim, mdim, desc,
00061 & atype, aname, aunit, cret)
00062
00063
00064 implicit none
00065 save
00066
00067 character *(*) name, desc, aname, aunit
00068 integer fid, sdim, mdim, atype, cret
00069 integer msmfsni
00070
00071 cret = msmfsni(fid, name, len(name), sdim, mdim, desc,
00072 & atype, aname, aunit)
00073
00074 return
00075 end
00076
00077
00078
00079 subroutine msmsmi(fid, it, name, sdim, mdim, desc,
00080 & atype, aname, aunit, cret)
00081
00082
00083 implicit none
00084 save
00085
00086 character *(*) name, desc, aname, aunit
00087 integer fid, sdim, mdim, atype, it, cret
00088 integer msmfsmi
00089
00090 cret = msmfsmi(fid, it, name, sdim, mdim, desc,
00091 & atype, aname, aunit)
00092
00093 return
00094 end
00095
00096
00097
00098 subroutine msmnax( fid , it, naxis, cret)
00099
00100
00101 implicit none
00102 save
00103
00104 integer fid,it,naxis,cret
00105 integer msmfnax
00106
00107 naxis = msmfnax(fid,it)
00108
00109 if (naxis.lt.0) then
00110 cret = -1
00111 else
00112 cret = 0
00113 endif
00114 return
00115 end
00116
00117
00118
00119 subroutine msmnan( fid , name, naxis, cret)
00120
00121
00122 implicit none
00123 save
00124
00125 integer fid,naxis,cret
00126 character *(*) name
00127 integer msmfnan
00128
00129 naxis = msmfnan(fid,name,len(name))
00130
00131 if (naxis.lt.0) then
00132 cret = -1
00133 else
00134 cret = 0
00135 endif
00136 return
00137 end