# resf_i.f

Aller à la documentation de ce fichier.

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