medequivalence.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 meqcre(fid , maa , eq , des , cret)
00019 c
00020       implicit none
00021       save
00022 c     
00023       character *(*) maa, des, eq
00024       integer fid, cret
00025       integer meqfcre
00026 c
00027       cret = meqfcre(fid, maa, len(maa), eq, len(eq), des, len(des))
00028 c
00029       return
00030       end
00031 c
00032 c
00033 c
00034       subroutine meqcow(fid,maa,eq,numdt,numit,typent,typgeo,
00035      &                  n,corr,cret)
00036 c
00037       implicit none
00038       save
00039 c
00040       character *(*) maa, eq
00041       integer numit, numdt
00042       integer fid, cret, n, typent, typgeo
00043       integer corr(*)
00044       integer meqfcow
00045 c
00046       cret = meqfcow(fid,maa,len(maa),eq,len(eq),
00047      &               numdt,numit,typent,typgeo,
00048      &               n,corr)
00049 c
00050       return
00051       end  
00052 c
00053 c
00054 c
00055       subroutine meqneq(fid,maa,n,cret)
00056 c
00057       implicit none
00058       save
00059 c
00060       character *(*) maa
00061       integer fid, cret, n
00062       integer meqfneq
00063 c
00064       n = meqfneq(fid, maa, len(maa))
00065       if (n.lt.0) then
00066          cret = -1
00067       else
00068          cret =0
00069       endif
00070 c
00071       return
00072       end
00073 c
00074 c
00075 c
00076       subroutine meqeqi(fid,maa,ind,eq,des,nstep,nctcor,cret)
00077 c
00078       implicit none
00079       save
00080 c
00081       character *(*) maa,eq,des
00082       integer fid, cret,ind,nstep,nctcor
00083       integer meqfeqi
00084 c
00085       cret = meqfeqi(fid,maa,len(maa),ind,eq,des,
00086      &               nstep,nctcor)
00087 c
00088       return
00089       end
00090 c
00091 c
00092 c
00093       subroutine meqcsz(fid,maa,eq,numdt,numit,
00094      &                   typent,typgeo,n,cret)
00095 c
00096       implicit none
00097       save
00098 c
00099       character *(*) maa, eq
00100       integer fid,cret,n,typent,typgeo,numit,numdt
00101       integer meqfcsz
00102 c
00103       n = meqfcsz(fid,maa,len(maa),eq,len(eq),
00104      &            numdt,numit,typent,typgeo)
00105 c
00106       if (n.lt.0) then
00107          cret = -1
00108       else
00109          cret =0
00110       endif
00111 c
00112       return
00113       end     
00114 c
00115 c
00116 c
00117       subroutine meqszi(fid,maa,eq,numdt,numit,
00118      &                  corit,typent,typgeo,n,cret)
00119 c
00120       implicit none
00121       save
00122 c
00123       character *(*) maa, eq
00124       integer fid,cret,n,typent,typgeo,numit,numdt
00125       integer corit
00126       integer meqfszi
00127 c
00128       cret = meqfszi(fid,maa,len(maa),eq,len(eq),
00129      &               numdt,numit,corit,typent,typgeo,n)
00130 c
00131       return
00132       end     
00133 c
00134 c
00135 c
00136       subroutine meqcor(fid,maa,eq,numdt,mumit,typent,typgeo,
00137      &                  corr,cret)
00138 c
00139       implicit none
00140       save
00141 c
00142       character *(*) maa, eq
00143       integer fid, cret, corr(*), typent, typgeo,numdt,mumit
00144       integer meqfcor
00145 c
00146       cret = meqfcor(fid, maa, len(maa), eq, len(eq), 
00147      &               numdt,mumit,typent,typgeo,corr)
00148 c
00149       return
00150       end
00151 c
00152 c
00153 c
00154       subroutine meqcsi(fid,maa,eq,ind,numdt,numit,ncor,cret)
00155 c
00156       implicit none
00157       save
00158 c
00159       character *(*) maa,eq
00160       integer fid,cret,ind,numdt,numit,ncor
00161       integer meqfcsi
00162 c
00163       cret = meqfcsi(fid,maa,len(maa),eq,len(eq),
00164      &               numdt,numit,ncor)
00165 c
00166       return
00167       end

Généré le Mon May 16 17:10:23 2011 pour MED fichier par  doxygen 1.6.1