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

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