entmaaf.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 efcone (fid, maa, mdim,conn, switch, n, 
00019      1typent,typgeo,typcon,cret)
00020 c
00021       implicit none
00022       save
00023 c
00024       character *(*) maa
00025       integer fid, conn(*),typent,typgeo,typcon,cret
00026       integer edfcone,n,mdim, switch
00027 c
00028       cret = edfcone (fid, maa ,len(maa),mdim,conn,switch,n, 
00029      1typent,typgeo,typcon)
00030 c      
00031       return
00032       end
00033 c
00034 c
00035       subroutine efconl(fid, maa, mdim,conn,switch,
00036      1                  pfltab,psize,
00037      1                  typent,typgeo,typcon,cret)
00038 c
00039       implicit none
00040       save
00041 c
00042       character *(*) maa
00043       integer mdim
00044       integer fid, conn(*),typent,typgeo,typcon,cret
00045       integer pfltab(*), psize
00046       integer edfconl,switch
00047 c
00048       cret = edfconl (fid, maa ,len(maa),mdim,conn,switch,
00049      1                pfltab,psize, 
00050      1                typent,typgeo,typcon)
00051 c      
00052       return
00053       end
00054 c
00055       subroutine efcooe(fid, maa, mdim, coo, modcoo,
00056      &                  n,typrep, 
00057      &                  nom,unit,cret)
00058 c
00059       implicit none
00060       save
00061 c
00062       character *(*) maa
00063       real*8 coo(*)
00064       integer fid,typrep,mdim
00065       integer edfcooe,n,cret,modcoo
00066       character *(*) nom, unit
00067 c
00068 c      
00069          cret = edfcooe (fid, maa ,len(maa),mdim,coo,modcoo,
00070      &                   n, typrep,nom, 16*mdim, unit, 16*mdim )
00071 c 
00072       return
00073       end
00074 c
00075       subroutine efcool(fid, maa, mdim,coo,modcoo,
00076      1                  numco,pfltab,psize, 
00077      1                  typrep,nom,unit,cret)
00078 c
00079       implicit none
00080       save
00081 c
00082       character *(*) maa
00083       real*8 coo(*)
00084       integer mdim
00085       integer fid,typrep,cret,modcoo
00086       integer pfltab(*),psize, numco
00087       integer edfcool
00088       character *(*) nom, unit
00089 c
00090       cret = edfcool (fid, maa ,len(maa),mdim,coo,modcoo,
00091      1                numco,pfltab,psize,
00092      1                typrep,nom, unit)
00093 c      
00094       return
00095       end
00096 c
00097       subroutine efnome(fid, maa, nom, n, 
00098      1typent, typgeo,cret)
00099 c
00100       implicit none
00101       save
00102 c
00103       character *(*) maa
00104       character*(*) nom
00105       integer fid,typent, typgeo,cret
00106       integer edfnome,n
00107 c
00108       cret = edfnome (fid, maa ,len(maa),nom, 16*n, n,
00109      1typent, typgeo)
00110 c      
00111       return
00112       end
00113 c
00114       subroutine efnoml(fid, maa, nom, n,  
00115      1typent, typgeo,cret)
00116 c
00117       implicit none
00118       save
00119 c
00120       character *(*) maa
00121       character*(*) nom
00122       integer fid,typent, typgeo,cret
00123       integer edfnoml,n
00124 c
00125       cret = edfnoml (fid, maa ,len(maa),nom,n,
00126      1typent, typgeo)
00127 c      
00128       return
00129       end
00130 c
00131       subroutine efnume(fid, maa, num, n, 
00132      1typent, typgeo,cret)
00133 c
00134       implicit none
00135       save
00136 c
00137       character *(*) maa
00138       integer num(*)
00139       integer fid,typent, typgeo,cret
00140       integer edfnume, n
00141 c
00142       cret = edfnume (fid, maa ,len(maa),num, n,
00143      1 typent, typgeo)
00144 c      
00145       return
00146       end
00147 c
00148 
00149       subroutine efnuml(fid, maa, num, n, 
00150      1typent, typgeo,cret)
00151 c
00152       implicit none
00153       save
00154 c
00155       character *(*) maa
00156       integer num(*)
00157       integer fid,typent, typgeo,cret
00158       integer edfnuml,n
00159 c
00160       cret = edfnuml (fid, maa ,len(maa),num, n,
00161      1typent, typgeo)
00162 c      
00163       return
00164       end
00165 c
00166       subroutine efnema(fid, maa, quoi,  
00167      1typent, typgeo,typcon,n,cret)
00168 c
00169       implicit none
00170       save
00171 c
00172       character *(*) maa
00173       integer fid,typent, typgeo,cret,typcon,n,quoi
00174       integer edfnema
00175 c
00176       n = edfnema(fid, maa ,len(maa),quoi, 
00177      1typent, typgeo,typcon)
00178 
00179       if (n.lt.0) then
00180          cret = -1
00181       else
00182          cret =0
00183       endif
00184 c      
00185       return
00186       end
00187 c
00188 c
00189 c
00190       subroutine efpgce(fid,maa,index,ni,conn,typent,typcon,cret)
00191 c
00192       implicit none
00193       save
00194 c
00195       character *32 maa
00196       integer fid, conn(*),typent,typcon,cret,index(*)
00197       integer edfpgce,ni
00198 c
00199       cret = edfpgce(fid,maa,len(maa),index,ni,conn,typent,typcon)
00200 c      
00201       return
00202       end
00203 c
00204 c
00205 c
00206       subroutine efpgcl(fid,maa,index,ni,conn,typent,typcon,cret)
00207 c
00208       implicit none
00209       save
00210 c
00211       character*32 maa
00212       integer fid, conn(*),typent,typcon,cret,index(*)
00213       integer edfpgcl,ni
00214 c
00215       cret = edfpgcl(fid,maa,len(maa),index,ni,conn,typent,typcon)
00216 c      
00217       return
00218       end
00219 c
00220       subroutine efpygi(fid,maa,typent,typcon,consiz,cret)
00221 c
00222       implicit none
00223       save
00224 c
00225       character*32  maa
00226       integer fid,typent,typcon,cret
00227       integer edfpygi,consiz
00228 c
00229       cret = edfpygi(fid,maa,len(maa),typent,typcon,consiz)
00230 c      
00231       return
00232       end
00233 c
00234 c
00235 c
00236       subroutine efpece(fid,maa,indexp,np,indexf,nf,conn,typcon,cret)
00237 c
00238       implicit none
00239       save
00240 c
00241       character *32 maa
00242       integer fid, conn(*),typcon,cret,indexp(*),indexf(*)
00243       integer edfpece,np,nf
00244 c
00245       cret = edfpece(fid,maa,len(maa),indexp,np,indexf,nf,conn,typcon)
00246 c      
00247       return
00248       end
00249 c
00250 c
00251 c
00252       subroutine efpecl(fid,maa,indexp,np,indexf,nf,conn,typcon,cret)
00253 c
00254       implicit none
00255       save
00256 c
00257       character*32 maa
00258       integer fid, conn(*),typcon,cret,indexp(*),indexf(*)
00259       integer edfpecl,np,nf
00260 c
00261       cret = edfpecl(fid,maa,len(maa),indexp,np,indexf,nf,conn,typcon)
00262 c      
00263       return
00264       end
00265 c
00266       subroutine efpyei(fid,maa,typcon,nf,consiz,cret)
00267 c
00268       implicit none
00269       save
00270 c
00271       character*32 maa
00272       integer fid,typcon,cret
00273       integer edfpyei,consiz,nf
00274 c
00275       cret = edfpyei(fid,maa,len(maa),typcon,nf,consiz)
00276 c      
00277       return
00278       end
00279 C
00280 C
00281 c
00282       subroutine eficoe(fid,maa,mdim,indices, 
00283      &                  n,axe,comp,unit,cret)
00284 c
00285       implicit none
00286       save
00287 c
00288       character*32 maa
00289       real*8 indices(*)
00290       integer fid,mdim,axe
00291       integer edficoe,n,cret
00292       character*(*) comp, unit
00293 c
00294 c      
00295          cret = edficoe (fid,maa,len(maa),mdim,indices,
00296      &                   n,axe,comp,len(comp),unit,len(unit))
00297 c 
00298       return
00299       end
00300 C
00301 c
00302       subroutine eficol(fid,maa,mdim,indices, 
00303      &                  n,axe,comp,unit,cret)
00304 c
00305       implicit none
00306       save
00307 c
00308       character*32 maa
00309       real*8 indices(*)
00310       integer fid,mdim,axe
00311       integer edficol,n,cret
00312       character*16 comp, unit
00313 c
00314 c      
00315          cret = edficol (fid,maa,len(maa),mdim,indices,
00316      &                   n,axe,comp,len(comp),unit,len(unit))
00317 c 
00318       return
00319       end
00320 
00321 c
00322       subroutine efscoe(fid,maa,mdim,struct,cret)
00323 c
00324       implicit none
00325       save
00326 c
00327       character*32  maa
00328       integer struct(*)
00329       integer fid,cret,mdim
00330       integer edfscoe
00331 c
00332       cret = edfscoe (fid, maa ,len(maa),mdim,struct)
00333 c      
00334       return
00335       end
00336 
00337 c
00338       subroutine efscol(fid,maa,mdim,struct,cret)
00339 c
00340       implicit none
00341       save
00342 c
00343       character*32  maa
00344       integer struct(*)
00345       integer fid,cret,mdim
00346       integer edfscol
00347 c
00348       cret = edfscol (fid, maa ,len(maa),mdim,struct)
00349 c      
00350       print *,mdim,struct(1),struct(2)
00351       return
00352       end

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