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