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