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