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

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