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 mficlo(fid, cret)
00042
00043
00044 implicit none
00045 save
00046
00047 integer fid,cret
00048 integer mfifclo
00049
00050 cret = mfifclo(fid)
00051
00052 return
00053 end
00054
00055
00056
00057 subroutine mficow(fid,cmt,cret)
00058
00059
00060 implicit none
00061 save
00062
00063 integer fid,cret
00064 character*(*) cmt
00065 integer mfifcow
00066
00067 cret = mfifcow(fid,cmt,len(cmt),cret)
00068
00069 return
00070 end
00071
00072
00073 subroutine mficor(fid,cmt,cret)
00074
00075
00076 implicit none
00077 save
00078
00079 integer fid,cret
00080 character*(*) cmt
00081 integer mfifcor
00082
00083 cret = mfifcor(fid,cmt,len(cmt),cret)
00084
00085 return
00086 end
00087
00088
00089
00090 subroutine mfinvr(fid,major,minor,rel,cret)
00091
00092
00093 implicit none
00094 save
00095
00096 integer fid,major, minor,rel
00097 integer cret
00098 integer mfifnvr
00099
00100 cret = mfifnvr(fid,major,minor,rel)
00101
00102 return
00103 end
00104
00105
00106 subroutine mfisvr(fid,version,cret)
00107
00108
00109 implicit none
00110 save
00111
00112 character*(*) version
00113 integer cret,fid
00114 integer mfifsvr
00115
00116 cret = mfifsvr(fid,version,len(version))
00117
00118 return
00119 end
00120
00121
00122
00123
00124 subroutine mficom(fname,hdfok,medok,cret)
00125
00126
00127 implicit none
00128 save
00129
00130 integer cret
00131 character *(*) fname
00132 integer hdfok,medok
00133 integer mfifcom
00134
00135 cret = mfifcom(fname,len(fname),hdfok,medok)
00136
00137 return
00138 end
00139
00140
00141 subroutine mfiomn(fid, fname, class, mid, cret)
00142
00143
00144 implicit none
00145 save
00146
00147 character *(*) fname
00148 integer class, fid, mid , cret
00149 integer mfifomn
00150
00151 mid = mfifomn(fid, fname, len(fname), class)
00152 if (mid .eq.-1) then
00153 cret=-1
00154 else
00155 cret=0
00156 endif
00157
00158 return
00159 end
00160
00161
00162
00163
00164 subroutine mfioun(fid, mid, class, cret)
00165
00166
00167 implicit none
00168 save
00169
00170 integer mid, fid, class, cret
00171 integer mfifoun
00172
00173 cret = mfifoun(fid, mid, class)
00174
00175 return
00176 end