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