# medequivalence.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 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