# 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