fichf.f

Aller à la documentation de ce fichier.
00001 C*  This file is part of MED.
00002 C*
00003 C*  COPYRIGHT (C) 1999 - 2015  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

Généré le Thu Oct 8 14:26:16 2015 pour MED fichier par  doxygen 1.6.1