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