# 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