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

Généré le Mon May 16 17:10:22 2011 pour MED fichier par  doxygen 1.6.1