# resf_i.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 efchac(fid,cha,type,comp,unit,ncomp,cret)
    00019 c     DEC$ ATTRIBUTES DLLEXPORT :: efchac
    00020 c
    00021       implicit none
    00022       save
    00023 c
    00024       character *(*) cha,comp,unit
    00025       integer fid, ncomp, cret, type
    00026       integer edfchac
    00027 c
    00028       cret = edfchac (fid, cha,len(cha),type, comp,16*ncomp,
    00029      1     unit, 16*ncomp, ncomp)
    00030 c
    00031       return
    00032       end
    00033 c
    00034 c
    00035 c
    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 c
    00040       implicit none
    00041       save
    00042 c
    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 c
    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 c
    00057       return
    00058       end
    00059 c
    00060 c     Ecriture des champs en differenciant ENTIERS et REELS
    00061 c
    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 c     DEC$ ATTRIBUTES DLLEXPORT :: efchie
    00066 c
    00067       implicit none
    00068       save
    00069 c
    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 c
    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 c
    00083       return
    00084       end
    00085 c
    00086 c
    00087 c
    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 c     DEC$ ATTRIBUTES DLLEXPORT :: efchal
    00095 c
    00096       implicit none
    00097       save
    00098 c
    00099       character *(*) cha,maa,locname,profil
    00100       integer fid,val(*),pflmod,typent,typgeo,cret
    00101       integer interlace,numco,numdt,numo
    00102       integer edfchal
    00103 c
    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 c
    00108       return
    00109       end
    00110 c
    00111 c
    00112 c     Lecture des champs en distinguant les reels et les entiers
    00113 c
    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 c     DEC$ ATTRIBUTES DLLEXPORT :: efchil
    00120 c
    00121       implicit none
    00122       save
    00123 c
    00124       character *(*) cha,maa,locname,profil
    00125       integer fid,val(*),typent,typgeo,cret,pflmod
    00126       integer interlace,numco,numdt,numo
    00127       integer edfchal
    00128 c
    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 c
    00133       return
    00134       end
    00135 c
    00136 c
    00137 c
    00138       subroutine efchai(fid,ind,cha,type,comp,unit,ncomp,cret)
    00139 c     DEC$ ATTRIBUTES DLLEXPORT :: efchai
    00140 c
    00141       implicit none
    00142       save
    00143 c
    00144       character *(*) cha,comp,unit
    00145       integer fid,ind,type,ncomp,cret
    00146       integer edfchai
    00147 c
    00148       cret = edfchai(fid,ind,cha,type,
    00149      1     comp,unit,ncomp)
    00150 c
    00151       return
    00152       end
    00153 c
    00154       subroutine efncha(fid,ind,n,cret)
    00155 c     DEC$ ATTRIBUTES DLLEXPORT :: efncha
    00156 c
    00157       implicit none
    00158       save
    00159 c
    00160       integer fid,ind,cret,n
    00161       integer edfncha
    00162 c
    00163       n = edfncha(fid,ind)
    00164       if (n.lt.0) then
    00165          cret = -1
    00166       else
    00167          cret = 0
    00168       endif
    00169 c
    00170       return
    00171       end
    00172 c
    00173
    00174       subroutine efnval(fid,cha,typent,typgeo,numdt,numo,maa,pflmod,
    00175      1     n,cret)
    00176 c     DEC$ ATTRIBUTES DLLEXPORT :: efnval
    00177 c
    00178       implicit none
    00179       save
    00180 c
    00181       integer fid,typent,typgeo,n,cret
    00182       integer numdt, numo, pflmod
    00183       character *(*) cha, maa
    00184       integer edfnval
    00185 c
    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 c
    00194       return
    00195       end
    00196 c
    00197
    00198 C Nouvelles routines pour MED V2.1
    00199
    00200
    00201       subroutine efnpdt(fid,cha,type,geo,n,cret)
    00202 c     DEC$ ATTRIBUTES DLLEXPORT :: efnpdt
    00203 c
    00204       implicit none
    00205       save
    00206 c
    00207       integer fid,type,geo,n,cret
    00208       character*32 cha
    00209       integer edfnpdt
    00210 c
    00211       n = edfnpdt(fid,cha,len(cha),type,geo)
    00212 c
    00213       if (n.lt.0) then
    00214          cret = -1
    00215       else
    00216          cret = 0
    00217       endif
    00218 c
    00219       return
    00220       end
    00221 c
    00222
    00223       subroutine efpdti(fid,cha,typent,typgeo,ind,ngauss,
    00224      1                  numdt,numo,dtunit,dt,maa,local,nmaa,cret)
    00225 c     DEC$ ATTRIBUTES DLLEXPORT :: efpdti
    00226 c
    00227       implicit none
    00228       save
    00229 c
    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 c
    00237       cret = edfpdti(fid,cha,len(cha),typent,typgeo,ind,
    00238      1               ngauss,numdt,numo,dtunit,dt,maa,local,nmaa)
    00239 c
    00240       return
    00241       end
    00242 c
    00243 c     NOUVELLE ROUTINE MED2.2
    00244
    00245       subroutine efnref(fid,cha,typent,typgeo,numdt,numo,n,cret)
    00246 c     DEC$ ATTRIBUTES DLLEXPORT :: efnref
    00247 c
    00248       implicit none
    00249       save
    00250 c
    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 c
    00265       return
    00266       end
    00267 c
    00268
    00269       subroutine efrefi(fid,cha, typent, typgeo, indice, numdt, numo,
    00270      1                  maa, local, ngauss, cret)
    00271 c     DEC$ ATTRIBUTES DLLEXPORT :: efrefi
    00272 c
    00273       implicit none
    00274       save
    00275 c
    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 c
    00291       return
    00292       end
    00293 c
    00294
    00295       subroutine efliee(fid,lienval,maa,cret)
    00296 c     DEC$ ATTRIBUTES DLLEXPORT :: efliee
    00297       integer fid,cret
    00298       character *(*) lienval, maa
    00299       integer   edfliee
    00300
    00301 c
    00302       cret = edfliee(fid,lienval,len(lienval),maa,len(maa))
    00303 c
    00304       return
    00305       end
    00306 c
    00307
    00308
    00309       subroutine efnlie(fid,n,cret)
    00310 c     DEC$ ATTRIBUTES DLLEXPORT :: efnlie
    00311 c
    00312       implicit none
    00313       save
    00314 c
    00315       integer fid,cret,n
    00316       integer edfnlie
    00317 c
    00318       n = edfnlie(fid)
    00319 c
    00320       if (n.lt.0) then
    00321          cret = -1
    00322       else
    00323          cret = 0
    00324       endif
    00325 c
    00326       return
    00327       end
    00328
    00329       subroutine efliei( fid , indice , maa , n , cret)
    00330 c     DEC$ ATTRIBUTES DLLEXPORT :: efliei
    00331 c
    00332       implicit none
    00333       save
    00334 c
    00335       integer fid,n,cret,indice
    00336       character *(*) maa
    00337       integer edfliei
    00338 c
    00339       maa = ' '
    00340 c
    00341       cret = edfliei (fid,indice,maa,n)
    00342 c
    00343       return
    00344       end
    00345
    00346       subroutine efnvli(fid,maa,n,cret)
    00347 c     DEC$ ATTRIBUTES DLLEXPORT :: efnvli
    00348 c
    00349       implicit none
    00350       save
    00351 c
    00352       integer fid,cret,n
    00353       character *(*) maa
    00354       integer edfnvli
    00355 c
    00356       n = edfnvli(fid,maa,len(maa))
    00357 c
    00358       if (n.lt.0) then
    00359          cret = -1
    00360       else
    00361          cret = 0
    00362       endif
    00363 c
    00364       return
    00365       end
    00366 c
    00367
    00368       subroutine efliel(fid,lienval,n,maa,cret)
    00369 c     DEC$ ATTRIBUTES DLLEXPORT :: efliel
    00370 c
    00371       implicit none
    00372       save
    00373 c
    00374       integer fid,n,cret
    00375       character *(*) maa,lienval
    00376       integer edfliel
    00377 c
    00378       cret = edfliel(fid,lienval,n,maa,len(maa))
    00379 c
    00380       return
    00381       end
    00382 c
    00383