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

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