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