maaf.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 efmaac ( fid , nom , dim , type, desc, cret )
00019 c
00020       implicit none
00021       save
00022 c
00023       character *(*) nom
00024       character *(*) desc
00025       integer fid, dim, type, cret
00026       integer edfmaac
00027 c
00028       cret = edfmaac (fid, nom , len(nom), dim, type, desc, len(desc))
00029 c      
00030       return
00031       end
00032 c
00033 c
00034       subroutine efnmaa( fid , n , cret)
00035 c
00036       implicit none
00037       save
00038 c
00039       integer fid, n, cret
00040       integer edfnmaa
00041 c
00042       n = edfnmaa(fid)
00043 
00044       if (n.lt.0) then
00045          cret = -1
00046       else
00047          cret = 0
00048       endif
00049 c
00050       return
00051       end
00052 c
00053 c
00054 c
00055       subroutine efmaai( fid, indice, maa, dim, type, desc, cret)
00056 c
00057       implicit none
00058       save
00059 c
00060       integer fid,dim,cret,indice,type
00061       character *(*) maa
00062       character *(*) desc
00063       integer edfmaai
00064 c
00065       maa = ' ' 
00066 c
00067       cret = edfmaai (fid,indice,maa,dim,type,desc)
00068 c     
00069       return
00070       end
00071 c
00072       subroutine efdiml( fid , maa, dim, cret)
00073 c
00074       implicit none
00075       save
00076 c
00077       integer fid,dim,cret
00078       character *(*) maa
00079       integer edfdiml
00080 c
00081       dim = edfdiml (fid,maa,len(maa))
00082 c     
00083       if (dim.lt.0) then
00084          cret = -1
00085       else
00086          cret = 0
00087       endif
00088       return
00089       end
00090 c
00091 c
00092       subroutine efnnsl (fid,maa,n,cret)
00093 c
00094       implicit none
00095       save
00096 c
00097       integer fid,n,cret
00098       character*(*) maa
00099       integer edfnnsl
00100 c
00101       n = edfnnsl(fid,maa,len(maa))
00102 c
00103       if (n .lt. 0) then
00104          cret = -1
00105       else
00106          cret = 0
00107       endif
00108 c
00109       end
00110 c
00111 c
00112       subroutine efnnse (fid,maa,n,cret)
00113 c
00114       implicit none
00115       save
00116 c
00117       integer fid,n,cret
00118       character*(*) maa
00119       integer edfnnse
00120 c
00121       cret = edfnnse(fid,maa,len(maa),n)
00122 c
00123       end
00124 c
00125 c
00126       subroutine efnnil (fid,maa,n,cret)
00127 c
00128       implicit none
00129       save
00130 c
00131       integer fid,n,cret
00132       character*(*) maa
00133       integer edfnnil
00134 c
00135       n = edfnnil(fid,maa,len(maa))
00136 c
00137       if (n .lt. 0) then
00138          cret = -1
00139       else
00140          cret = 0
00141       endif
00142 c
00143       end
00144 c
00145 c
00146       subroutine efnnie (fid,maa,n,cret)
00147 c
00148       implicit none
00149       save
00150 c
00151       integer fid,n,cret
00152       character*(*) maa
00153       integer edfnnie
00154 c
00155       cret = edfnnie(fid,maa,len(maa),n)
00156 c
00157       end
00158 c
00159 c
00160       subroutine efnnml (fid,maa,n,cret)
00161 c
00162       implicit none
00163       save
00164 c
00165       integer fid,n,cret
00166       character*(*) maa
00167       integer edfnnml
00168 c
00169       n = edfnnml(fid,maa,len(maa))
00170 c
00171       if (n .lt. 0) then
00172          cret = -1
00173       else
00174          cret = 0
00175       endif
00176 c
00177       end
00178 c
00179 c
00180       subroutine efnnme (fid,maa,n,cret)
00181 c
00182       implicit none
00183       save
00184 c
00185       integer fid,n,cret
00186       character*(*) maa
00187       integer edfnnme
00188 c
00189       cret = edfnnme(fid,maa,len(maa),n)
00190 c
00191       end
00192 
00193 
00194       subroutine efunvc ( fid , nom , cret )
00195 c
00196       implicit none
00197       save
00198 c
00199       character *(*) nom
00200       integer fid, cret
00201       integer edfunvc
00202 c
00203       cret = edfunvc (fid, nom , len(nom))
00204 c
00205       return
00206       end
00207 
00208       subroutine efunvl( fid , nom , nomu , cret)
00209 c
00210       implicit none
00211       save
00212 c
00213       integer fid,cret
00214       character *(*) nom,nomu
00215       integer edfunvl
00216 c  
00217       cret = edfunvl (fid,nom,len(nom),nomu,len(nomu))
00218 c
00219       return
00220       end
00221 c
00222 c
00223       subroutine efespc(fid, nom, dim, cret )
00224 c
00225       implicit none
00226       save
00227 c
00228       character *(*) nom
00229       integer fid, dim, cret
00230       integer edfespc
00231 c
00232       cret = edfespc (fid, nom , len(nom), dim)
00233 c      
00234       return
00235       end
00236 c
00237 c
00238       subroutine efespl( fid , maa, dim, cret)
00239 c
00240       implicit none
00241       save
00242 c
00243       integer fid,dim,cret
00244       character *(*) maa
00245       integer edfespl
00246 c
00247       dim = edfespl (fid,maa,len(maa))
00248 c     
00249       if (dim.lt.0) then
00250          cret = -1
00251       else
00252          cret = 0
00253       endif
00254       return
00255       end
00256 
00257 c
00258 c
00259       subroutine efnage(fid,maa,typ,cret)
00260 c
00261       implicit none
00262       save
00263 c
00264       integer fid,typ,cret
00265       character*(*) maa
00266       integer edfnage
00267 c
00268       cret = edfnage(fid,maa,len(maa),typ)
00269 c
00270       end
00271 
00272 c
00273 c
00274       subroutine efnagl(fid,maa,typ,cret)
00275 c
00276       implicit none
00277       save
00278 c
00279       integer fid,typ,cret
00280       character*(*) maa
00281       integer edfnagl
00282 c
00283       cret = edfnagl(fid,maa,len(maa),typ)
00284 c
00285       end

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