# medfile.f

Aller à la documentation de ce fichier.

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