00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018 subroutine mfiope(fid, name, access, cret)
00019
00020 implicit none
00021 save
00022 character *(*) name
00023 integer fid
00024 integer access,cret
00025 integer mfifope
00026
00027 fid = mfifope(name, access, len(name))
00028 if (fid.lt.0) then
00029 cret=-1
00030 else
00031 cret=0
00032 endif
00033
00034 return
00035 end
00036
00037
00038
00039 subroutine mficlo(fid, cret)
00040
00041 implicit none
00042 save
00043
00044 integer fid,cret
00045 integer mfifclo
00046
00047 cret = mfifclo(fid)
00048
00049 return
00050 end
00051
00052
00053
00054 subroutine mficow(fid,cmt,cret)
00055
00056 implicit none
00057 save
00058
00059 integer fid,cret
00060 character*(*) cmt
00061 integer mfifcow
00062
00063 cret = mfifcow(fid,cmt,len(cmt),cret)
00064
00065 return
00066 end
00067
00068
00069 subroutine mficor(fid,cmt,cret)
00070
00071 implicit none
00072 save
00073
00074 integer fid,cret
00075 character*(*) cmt
00076 integer mfifcor
00077
00078 cret = mfifcor(fid,cmt,len(cmt),cret)
00079
00080 return
00081 end
00082
00083
00084
00085 subroutine mfinvr(fid,major,minor,rel,cret)
00086
00087 implicit none
00088 save
00089
00090 integer fid,major, minor,rel
00091 integer cret
00092 integer mfifnvr
00093
00094 cret = mfifnvr(fid,major,minor,rel)
00095
00096 return
00097 end
00098
00099
00100 subroutine mfisvr(fid,version,cret)
00101
00102 implicit none
00103 save
00104
00105 character*(*) version
00106 integer cret,fid
00107 integer mfifsvr
00108
00109 cret = mfifsvr(fid,version,len(version))
00110
00111 return
00112 end
00113
00114
00115
00116
00117 subroutine mficom(fname,hdfok,medok,cret)
00118
00119 implicit none
00120 save
00121
00122 integer cret
00123 character *(*) fname
00124 integer hdfok,medok
00125 integer mfifcom
00126
00127 cret = mfifcom(fname,len(fname),hdfok,medok)
00128
00129 return
00130 end
00131
00132
00133 subroutine mfiomn(fid, fname, class, mid, cret)
00134
00135 implicit none
00136 save
00137
00138 character *(*) fname
00139 integer class, fid, mid , cret
00140 integer mfifomn
00141
00142 mid = mfifomn(fid, fname, len(fname), class)
00143 if (mid .eq.-1) then
00144 cret=-1
00145 else
00146 cret=0
00147 endif
00148
00149 return
00150 end
00151
00152
00153
00154
00155 subroutine mfioun(fid, mid, class, cret)
00156
00157 implicit none
00158 save
00159
00160 integer mid, fid, class, cret
00161 integer mfifoun
00162
00163 cret = mfifoun(fid, mid, class)
00164
00165 return
00166 end