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