# medfile.f

Aller à la documentation de ce fichier.

    00001 C*  This file is part of MED.
    00002 C*
    00003 C*  COPYRIGHT (C) 1999 - 2012  EDF R&D, CEA/DEN
    00004 C*  MED is free software: you can redistribute it and/or modify
    00005 C*  it under the terms of the GNU Lesser General Public License as published by
    00006 C*  the Free Software Foundation, either version 3 of the License, or
    00007 C*  (at your option) any later version.
    00008 C*
    00009 C*  MED is distributed in the hope that it will be useful,
    00010 C*  but WITHOUT ANY WARRANTY; without even the implied warranty of
    00011 C*  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    00012 C*  GNU Lesser General Public License for more details.
    00013 C*
    00014 C*  You should have received a copy of the GNU Lesser General Public License
    00015 C*  along with MED.  If not, see <http://www.gnu.org/licenses/>.
    00016 C*
    00017
    00018
    00019       subroutine mfiope(fid, name, access, cret)
    00020 c     DEC$ ATTRIBUTES DLLEXPORT :: mfiope
    00021 c
    00022       implicit none
    00023       save
    00024       character *(*) name
    00025       integer fid
    00026       integer access,cret
    00027       integer mfifope
    00028 c
    00029       fid = mfifope(name, access, len(name))
    00030       if (fid.lt.0) then
    00031          cret=-1
    00032       else
    00033          cret=0
    00034       endif
    00035 c
    00036       return
    00037       end
    00038
    00039
    00040
    00041       subroutine mficlo(fid, cret)
    00042 c     DEC$ ATTRIBUTES DLLEXPORT :: mficlo
    00043 c
    00044       implicit none
    00045       save
    00046 c
    00047       integer fid,cret
    00048       integer mfifclo
    00049 c
    00050       cret = mfifclo(fid)
    00051 c
    00052       return
    00053       end
    00054
    00055
    00056
    00057       subroutine mficow(fid,cmt,cret)
    00058 c     DEC$ ATTRIBUTES DLLEXPORT :: mficow
    00059 c
    00060       implicit none
    00061       save
    00062 c
    00063       integer fid,cret
    00064       character*(*) cmt
    00065       integer mfifcow
    00066 c
    00067       cret = mfifcow(fid,cmt,len(cmt),cret)
    00068 c
    00069       return
    00070       end
    00071
    00072
    00073       subroutine mficor(fid,cmt,cret)
    00074 c     DEC$ ATTRIBUTES DLLEXPORT :: mficor
    00075 c
    00076       implicit none
    00077       save
    00078 c
    00079       integer fid,cret
    00080       character*(*) cmt
    00081       integer mfifcor
    00082 c
    00083       cret = mfifcor(fid,cmt,len(cmt),cret)
    00084 c
    00085       return
    00086       end
    00087
    00088
    00089
    00090       subroutine  mfinvr(fid,major,minor,rel,cret)
    00091 c     DEC$ ATTRIBUTES DLLEXPORT :: mfinvr
    00092 c
    00093       implicit none
    00094       save
    00095 c
    00096       integer fid,major, minor,rel
    00097       integer cret
    00098       integer mfifnvr
    00099 c
    00100       cret = mfifnvr(fid,major,minor,rel)
    00101 c
    00102       return
    00103       end
    00104
    00105
    00106       subroutine mfisvr(fid,version,cret)
    00107 c     DEC$ ATTRIBUTES DLLEXPORT :: mfisvr
    00108 c
    00109       implicit none
    00110       save
    00111 c
    00112       character*(*) version
    00113       integer cret,fid
    00114       integer mfifsvr
    00115 c
    00116       cret =  mfifsvr(fid,version,len(version))
    00117 c
    00118       return
    00119       end
    00120
    00121 c
    00122 c
    00123 c
    00124       subroutine mficom(fname,hdfok,medok,cret)
    00125 c     DEC$ ATTRIBUTES DLLEXPORT :: mficom
    00126 c
    00127       implicit none
    00128       save
    00129 c
    00130       integer cret
    00131       character *(*) fname
    00132       integer hdfok,medok
    00133       integer mfifcom
    00134 c
    00135       cret =  mfifcom(fname,len(fname),hdfok,medok)
    00136 c
    00137       return
    00138       end
    00139
    00140
    00141       subroutine mfiomn(fid, fname, class, mid, cret)
    00142 c     DEC$ ATTRIBUTES DLLEXPORT :: mfiomn
    00143 c
    00144       implicit none
    00145       save
    00146 c
    00147       character *(*) fname
    00148       integer class, fid, mid , cret
    00149       integer mfifomn
    00150 c
    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 c
    00158       return
    00159       end
    00160
    00161 c
    00162 c
    00163 c
    00164       subroutine mfioun(fid, mid, class, cret)
    00165 c     DEC$ ATTRIBUTES DLLEXPORT :: mfioun
    00166 c
    00167       implicit none
    00168       save
    00169 c
    00170       integer mid, fid, class, cret
    00171       integer mfifoun
    00172 c
    00173       cret = mfifoun(fid, mid, class)
    00174 c
    00175       return
    00176       end