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 implicit none
00022 save
00023
00024 character *(*) maa, des, aname, aunit
00025 integer fid, cret, atype, sdim, mdim
00026 integer msmfcre
00027
00028 cret = msmfcre(fid, maa, len(maa), sdim, mdim,
00029 & des, len(des), atype, aname, len(aname),
00030 & aunit, len(aunit))
00031
00032 return
00033 end
00034
00035
00036
00037 subroutine msmnsm( fid , n , cret)
00038
00039 implicit none
00040 save
00041
00042 integer fid, n, cret
00043 integer msmfnsm
00044
00045 n = msmfnsm(fid)
00046
00047 if (n.lt.0) then
00048 cret = -1
00049 else
00050 cret = 0
00051 endif
00052
00053 return
00054 end
00055
00056
00057
00058 subroutine msmsni(fid, name, sdim, mdim, desc,
00059 & atype, aname, aunit, cret)
00060
00061 implicit none
00062 save
00063
00064 character *(*) name, desc, aname, aunit
00065 integer fid, sdim, mdim, atype, cret
00066 integer msmfsni
00067
00068 cret = msmfsni(fid, name, len(name), sdim, mdim, desc,
00069 & atype, aname, aunit)
00070
00071 return
00072 end
00073
00074
00075
00076 subroutine msmsmi(fid, it, name, sdim, mdim, desc,
00077 & atype, aname, aunit, cret)
00078
00079 implicit none
00080 save
00081
00082 character *(*) name, desc, aname, aunit
00083 integer fid, sdim, mdim, atype, it, cret
00084 integer msmfsmi
00085
00086 cret = msmfsmi(fid, it, name, sdim, mdim, desc,
00087 & atype, aname, aunit)
00088
00089 return
00090 end