00001 
00002 
00003 
00004 
00005 
00006 
00007 
00008 
00009 
00010 
00011 
00012 
00013 
00014 
00015 
00016 
00017 
00018       subroutine efchac(fid,cha,type,comp,unit,ncomp,cret)
00019 
00020 
00021       implicit none
00022       save
00023 
00024       character *(*) cha,comp,unit
00025       integer fid, ncomp, cret, type
00026       integer edfchac
00027 
00028       cret = edfchac (fid, cha,len(cha),type, comp,16*ncomp,
00029      1     unit, 16*ncomp, ncomp)
00030 
00031       return
00032       end
00033 
00034 
00035 
00036       subroutine efchae(fid,maa,cha,val,interlace,n,locname,numco,
00037      1                  profil,pflmod,typent,typgeo,numdt,dtunit,
00038      1                  dt,numo,cret)
00039 
00040       implicit none
00041       save
00042 
00043       character *(*) cha,maa,profil,locname
00044       character*(*) dtunit
00045       integer fid,val(*)
00046       integer n,pflmod,typent,typgeo,cret
00047       integer interlace,numco,numdt,numo
00048       real*8 dt
00049       integer edfchae
00050 
00051       cret = edfchae(fid,maa,len(maa),cha,len(cha),val,
00052      1     interlace,n,locname,len(locname),numco,
00053      1     profil,len(profil),pflmod,
00054      1     typent,typgeo,numdt,dtunit,len(dtunit),
00055      1     dt,numo)
00056 
00057       return
00058       end
00059 
00060 
00061 
00062       subroutine efchie(fid,maa,cha,val,interlace,n,locname,numco,
00063      1                  profil,pflmod,typent,typgeo,numdt,dtunit,
00064      1                  dt,numo,cret)
00065 
00066 
00067       implicit none
00068       save
00069 
00070       character *(*) cha,maa,profil,locname
00071       character*(*) dtunit
00072       integer fid,val(*),n,pflmod,typent,typgeo,cret
00073       integer interlace,numco,numdt,numo
00074       real*8 dt
00075       integer edfchae
00076 
00077       cret = edfchae(fid,maa,len(maa),cha,len(cha),val,
00078      1     interlace,n,locname,len(locname),numco,
00079      1     profil,len(profil),pflmod,
00080      1     typent,typgeo,numdt,dtunit,len(dtunit),
00081      1     dt,numo)
00082 
00083       return
00084       end
00085 
00086 
00087 
00088 
00089       subroutine efchal(fid,maa,cha,val,
00090      1                  interlace,numco,locname,
00091      1                  profil,pflmod,
00092      1                  typent,typgeo,
00093      1                  numdt, numo,cret)
00094 
00095 
00096       implicit none
00097       save
00098 
00099       character *(*) cha,maa,locname,profil
00100       integer fid,val(*),pflmod,typent,typgeo,cret
00101       integer interlace,numco,numdt,numo
00102       integer edfchal
00103 
00104       cret = edfchal(fid,maa,len(maa),cha,len(cha),val,
00105      1     interlace,numco,locname,profil,pflmod,
00106      1     typent,typgeo,numdt,numo)
00107 
00108       return
00109       end
00110 
00111 
00112 
00113 
00114       subroutine efchil(fid,maa,cha,val,
00115      1                  interlace,numco,locname,
00116      1                  profil,pflmod,
00117      1                  typent,typgeo,
00118      1                  numdt, numo,cret)
00119 
00120 
00121       implicit none
00122       save
00123 
00124       character *(*) cha,maa,locname,profil
00125       integer fid,val(*),typent,typgeo,cret,pflmod
00126       integer interlace,numco,numdt,numo
00127       integer edfchal
00128 
00129       cret = edfchal(fid,maa,len(maa),cha,len(cha),val,
00130      1     interlace,numco,locname,profil,pflmod,
00131      1     typent,typgeo,numdt,numo)
00132 
00133       return
00134       end
00135 
00136 
00137 
00138       subroutine efchai(fid,ind,cha,type,comp,unit,ncomp,cret)
00139 
00140 
00141       implicit none
00142       save
00143 
00144       character *(*) cha,comp,unit
00145       integer fid,ind,type,ncomp,cret
00146       integer edfchai
00147 
00148       cret = edfchai(fid,ind,cha,type,
00149      1     comp,unit,ncomp)
00150 
00151       return
00152       end
00153 
00154       subroutine efncha(fid,ind,n,cret)
00155 
00156 
00157       implicit none
00158       save
00159 
00160       integer fid,ind,cret,n
00161       integer edfncha
00162 
00163       n = edfncha(fid,ind)
00164       if (n.lt.0) then
00165          cret = -1
00166       else
00167          cret = 0
00168       endif
00169 
00170       return
00171       end
00172 
00173 
00174       subroutine efnval(fid,cha,typent,typgeo,numdt,numo,maa,pflmod,
00175      1     n,cret)
00176 
00177 
00178       implicit none
00179       save
00180 
00181       integer fid,typent,typgeo,n,cret
00182       integer numdt, numo, pflmod
00183       character *(*) cha, maa
00184       integer edfnval
00185 
00186       n = edfnval(fid,cha,len(cha),typent,typgeo,
00187      1            numdt,numo,maa,len(maa),pflmod)
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 
00200 
00201       subroutine efnpdt(fid,cha,type,geo,n,cret)
00202 
00203 
00204       implicit none
00205       save
00206 
00207       integer fid,type,geo,n,cret
00208       character*32 cha
00209       integer edfnpdt
00210 
00211       n = edfnpdt(fid,cha,len(cha),type,geo)
00212 
00213       if (n.lt.0) then
00214          cret = -1
00215       else
00216          cret = 0
00217       endif
00218 
00219       return
00220       end
00221 
00222 
00223       subroutine efpdti(fid,cha,typent,typgeo,ind,ngauss,
00224      1                  numdt,numo,dtunit,dt,maa,local,nmaa,cret)
00225 
00226 
00227       implicit none
00228       save
00229 
00230       integer fid,typent,typgeo,ind,ngauss,numdt,numo,nmaa,cret
00231       character*32 cha,maa
00232       character*16 dtunit
00233       real*8 dt
00234       logical local
00235       integer edfpdti
00236 
00237       cret = edfpdti(fid,cha,len(cha),typent,typgeo,ind,
00238      1               ngauss,numdt,numo,dtunit,dt,maa,local,nmaa)     
00239 
00240       return
00241       end
00242 
00243 
00244 
00245       subroutine efnref(fid,cha,typent,typgeo,numdt,numo,n,cret)
00246 
00247 
00248       implicit none
00249       save
00250 
00251       integer fid,typent,typgeo,n,cret
00252       integer numdt, numo
00253       character *(*) cha
00254       integer edfnref
00255 
00256       n = edfnref(fid,cha,len(cha),typent,typgeo,
00257      1            numdt,numo)
00258 
00259       if (n.lt.0) then
00260          cret = -1
00261       else
00262          cret = 0
00263       endif
00264 
00265       return
00266       end
00267 
00268 
00269       subroutine efrefi(fid,cha, typent, typgeo, indice, numdt, numo,
00270      1                  maa, local, ngauss, cret)
00271 
00272 
00273       implicit none
00274       save
00275 
00276       integer fid,typent,typgeo,indice,n,cret
00277       integer numdt, numo, ngauss
00278       character *(*) cha, maa
00279       logical local
00280       integer edfrefi
00281 
00282       n = edfrefi(fid,cha,len(cha),typent,typgeo,indice,
00283      1            numdt,numo,maa,local,ngauss)
00284 
00285       if (n.lt.0) then
00286          cret = -1
00287       else
00288          cret = 0
00289       endif
00290 
00291       return
00292       end
00293 
00294 
00295       subroutine efliee(fid,lienval,maa,cret)
00296 
00297       integer fid,cret
00298       character *(*) lienval, maa
00299       integer   edfliee
00300 
00301 
00302       cret = edfliee(fid,lienval,len(lienval),maa,len(maa))
00303 
00304       return
00305       end
00306 
00307 
00308 
00309       subroutine efnlie(fid,n,cret)
00310 
00311 
00312       implicit none
00313       save
00314 
00315       integer fid,cret,n
00316       integer edfnlie
00317 
00318       n = edfnlie(fid)
00319 
00320       if (n.lt.0) then
00321          cret = -1
00322       else
00323          cret = 0
00324       endif
00325 
00326       return
00327       end
00328 
00329       subroutine efliei( fid , indice , maa , n , cret)
00330 
00331 
00332       implicit none
00333       save
00334 
00335       integer fid,n,cret,indice
00336       character *(*) maa
00337       integer edfliei
00338 
00339       maa = ' ' 
00340 
00341       cret = edfliei (fid,indice,maa,n)
00342 
00343       return
00344       end
00345 
00346       subroutine efnvli(fid,maa,n,cret)
00347 
00348 
00349       implicit none
00350       save
00351 
00352       integer fid,cret,n
00353       character *(*) maa
00354       integer edfnvli
00355 
00356       n = edfnvli(fid,maa,len(maa))
00357 
00358       if (n.lt.0) then
00359          cret = -1
00360       else
00361          cret = 0
00362       endif
00363 
00364       return
00365       end
00366 
00367 
00368       subroutine efliel(fid,lienval,n,maa,cret)
00369 
00370 
00371       implicit none
00372       save
00373 
00374       integer fid,n,cret
00375       character *(*) maa,lienval
00376       integer edfliel
00377 
00378       cret = edfliel(fid,lienval,n,maa,len(maa))
00379 
00380       return
00381       end
00382 
00383