# fichf.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 c
    00019 c     Nom : efouvr
    00020 c     Fonction : appelle edfouvr pour ouvrir un fichier
    00021 c     In : nom - nom du fichier a ouvrir
    00022 c           acces - mode d'acces 1 (lecture),
    00023 c          2 (lecture et ecriture), 3 (lecture et ecriture,
    00024 c          si le fichier existe deja il est detruit)
    00025 c     Out : cret 0 reussite, -1 echec
    00026 c
    00027       subroutine efouvr(fid, nom, acces, cret)
    00028 c
    00029       implicit none
    00030       save
    00031 c
    00032       character *(*) nom
    00033       integer acces, fid, cret
    00034       integer edfouvr
    00035 c
    00036       fid = edfouvr(nom, acces, len(nom))
    00037       if (fid.eq.-1) then
    00038          cret=-1
    00039       else
    00040          cret=0
    00041       endif
    00042 c
    00043       return
    00044       end
    00045
    00046
    00047       subroutine efferm(fid, cret)
    00048 c
    00049       implicit none
    00050       save
    00051 c
    00052       integer fid,cret
    00053       integer edfferm
    00054 c
    00055       cret = edfferm(fid)
    00056 c
    00057       return
    00058       end
    00059 c
    00060 c
    00061       subroutine eflfde (fid,lon,cret)
    00062 c
    00063       implicit none
    00064       save
    00065 c
    00066       integer fid,cret,lon
    00067       integer edflfde
    00068 c
    00069       lon = edflfde(fid)
    00070 c
    00071       if (lon .lt. 0) then
    00072          cret = -1
    00073       else
    00074          cret = 0
    00075       endif
    00076 c
    00077       end
    00078 c
    00079 c
    00080       subroutine effien (fid,quoi,str,cret)
    00081 c
    00082       implicit none
    00083       save
    00084 c
    00085       integer fid,quoi,cret
    00086       integer edffien
    00087       character*(*) str
    00088 c
    00089       cret = edffien(fid,quoi,str)
    00090 c
    00091       end
    00092
    00093 c
    00094 c
    00095       subroutine effide (fid,des,cret)
    00096 c
    00097       implicit none
    00098       save
    00099       integer fid,cret
    00100       character*(*) des
    00101       integer edffide
    00102 c
    00103       cret = edffide(fid,des,len(des))
    00104 c
    00105       end
    00106
    00107       subroutine effoco (nom,cret)
    00108 c
    00109       implicit none
    00110       save
    00111 C
    00112       integer cret
    00113       character*(*) nom
    00114       integer edffoco
    00115 c
    00116       cret = edffoco(nom,len(nom))
    00117 c
    00118       return
    00119       end
    00120 c
    00121 c
    00122       subroutine efveco (nom,cret)
    00123 c
    00124       implicit none
    00125       save
    00126 C
    00127       integer cret
    00128       character*(*) nom
    00129       integer edfveco
    00130 c
    00131       cret = edfveco(nom,len(nom))
    00132 c
    00133       return
    00134       end
    00135 c
    00136 c
    00137 c
    00138       subroutine efveli (fid,maj,min,rel,cret)
    00139 c
    00140       implicit none
    00141       save
    00142 C
    00143       integer fid, maj, min, rel
    00144       integer cret
    00145       integer edfveli
    00146 c
    00147       cret = edfveli(fid,maj,min,rel)
    00148 c
    00149       return
    00150       end
    00151 c
    00152 c
    00153       subroutine efvedo (maj,min,rel,cret)
    00154 c
    00155       implicit none
    00156       save
    00157 C
    00158       integer maj, min, rel
    00159       integer cret
    00160       integer edfvedo
    00161 c
    00162       cret = edfvedo(maj,min,rel)
    00163 c
    00164       return
    00165       end
    00166
    00167
    00168 c
    00169 c
    00170       subroutine efmont(fid, acces, type, mid, cret)
    00171 c
    00172       implicit none
    00173       save
    00174 c
    00175       character *(*) acces
    00176       integer mid, fid, type, cret
    00177       integer edfmont
    00178 c
    00179       mid = edfmont(fid, acces, len(acces), type)
    00180       if (mid .eq.-1) then
    00181          cret=-1
    00182       else
    00183          cret=0
    00184       endif
    00185 c
    00186       return
    00187       end
    00188
    00189 c
    00190 c
    00191       subroutine efdemo(fid, mid, type, cret)
    00192 c
    00193       implicit none
    00194       save
    00195 c
    00196       integer mid, fid, type, cret
    00197       integer edfdemo
    00198 c
    00199       cret = edfdemo(fid, mid, type)
    00200 c
    00201       return
    00202       end