maaf.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       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

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