# jntf.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 C**************************************************************************
    00019 C     creation d'un joint
    00020 C**************************************************************************
    00021       subroutine efjntc ( fid , maalcl , jn , des , dom, maadst, cret)
    00022 c     DEC$ ATTRIBUTES DLLEXPORT :: efjntc
    00023 c
    00024       implicit none
    00025       save
    00026 c
    00027       character *(*) maalcl, jn, des, maadst
    00028       integer fid, dom, cret
    00029       integer edfjntc
    00030 c
    00031       cret = edfjntc(fid, maalcl, len(maalcl), jn, len(jn),
    00032      $     des, len(des),
    00033      $     dom, maadst,len(maadst))
    00034 c
    00035       return
    00036       end
    00037
    00038 C**************************************************************************
    00039 c     Lecture du nombre de joints
    00040 C**************************************************************************
    00041       subroutine efnjnt ( fid , maalcl , n , cret)
    00042 c     DEC$ ATTRIBUTES DLLEXPORT :: efnjnt
    00043 c
    00044       implicit none
    00045       save
    00046 c
    00047       character *(*) maalcl
    00048       integer n, fid,  cret
    00049       integer edfnjnt
    00050 c
    00051       cret = edfnjnt(fid, maalcl, len(maalcl), n)
    00052 c
    00053       if (n.lt.0) then
    00054          cret = -1
    00055       else
    00056          cret = 0
    00057       endif
    00058
    00059       return
    00060       end
    00061 c
    00062
    00063
    00064
    00065
    00066 C**************************************************************************
    00067 C     Lecture des informations relatives a un joint
    00068 C**************************************************************************
    00069       subroutine efjnti ( fid , maalcl , ind, jn , des , dom,
    00070      $     maadst, cret)
    00071 c     DEC$ ATTRIBUTES DLLEXPORT :: efjnti
    00072 c
    00073       implicit none
    00074       save
    00075 c
    00076       character *(*) maalcl, jn, des, maadst
    00077       integer fid, ind, dom, cret
    00078       integer edfjnti
    00079 c
    00080       cret = edfjnti(fid, maalcl, len(maalcl), ind,
    00081      $     jn, des, dom, maadst)
    00082 c
    00083       return
    00084       end
    00085 c
    00086
    00087
    00088
    00089 c
    00090 C**************************************************************************
    00091 c    ecriture du contenu d'une correspondance
    00092 C**************************************************************************
    00093       subroutine efjnte ( fid , maalcl , jn , corrtab, n,
    00094      $                    entlcl, geolcl, entdst, geodst,
    00095      $                    cret)
    00096 c     DEC$ ATTRIBUTES DLLEXPORT :: efjnte
    00097 c
    00098       implicit none
    00099       save
    00100 c
    00101       character *(*) maalcl, jn
    00102       integer n, fid, cret, corrtab(*)
    00103       integer entlcl, entdst, geolcl, geodst
    00104       integer edfjnte
    00105 c
    00106       cret = edfjnte(fid, maalcl, len(maalcl), jn, len(jn),
    00107      $     corrtab, n,
    00108      $     entlcl, geolcl, entdst, geodst)
    00109 c
    00110       return
    00111       end
    00112
    00113 C**************************************************************************
    00114 c    lecture du contenu d'une correspondance
    00115 C**************************************************************************
    00116       subroutine efjntl ( fid , maalcl , jn , corrtab, n,
    00117      $                    entlcl, geolcl, entdst, geodst,
    00118      $                    cret)
    00119 c     DEC$ ATTRIBUTES DLLEXPORT :: efjntl
    00120 c
    00121       implicit none
    00122       save
    00123 c
    00124       character *(*) maalcl, jn
    00125       integer n, fid, cret, corrtab(*)
    00126       integer entlcl, entdst, geolcl, geodst
    00127       integer edfjntl
    00128 c
    00129       cret = edfjntl(fid, maalcl, len(maalcl), jn, len(jn),
    00130      $     corrtab, n,
    00131      $     entlcl, geolcl, entdst, geodst)
    00132 c
    00133       return
    00134       end
    00135 c
    00136
    00137 C**************************************************************************
    00138 C     Lecture du nombre d'entités pur deux type en regard dans un joint
    00139 C**************************************************************************
    00140       subroutine efjnco ( fid , maalcl , jn,
    00141      $     entlcl, geolcl, entdst, geodst,
    00142      $     nent, cret)
    00143 c     DEC$ ATTRIBUTES DLLEXPORT :: efjnco
    00144 c
    00145       implicit none
    00146       save
    00147 c
    00148       character *(*) maalcl, jn
    00149       integer fid, entlcl, entdst, geolcl, geodst, nent, cret
    00150       integer edfjnco
    00151 c
    00152       nent = edfjnco(fid,
    00153      $     maalcl, len(maalcl),
    00154      $     jn, len(jn),
    00155      $     entlcl, geolcl, entdst, geodst)
    00156 c
    00157       if (nent.lt.0) then
    00158          cret = -1
    00159       else
    00160          cret = 0
    00161       endif
    00162
    00163       return
    00164       end
    00165
    00166
    00167
    00168 C**************************************************************************
    00169 C     Lecture du type des elements en regard dans un joint
    00170 C**************************************************************************
    00171       subroutine efjtco ( fid , maalcl , jn, ind,
    00172      $     entlcl, geolcl, entdst, geodst,
    00173      $     cret)
    00174 c     DEC$ ATTRIBUTES DLLEXPORT :: efjtco
    00175 c
    00176       implicit none
    00177       save
    00178 c
    00179       character *(*) maalcl, jn
    00180       integer fid, entlcl, entdst, geolcl, geodst, nent, cret, ind
    00181       integer edfjtco
    00182 c
    00183       nent = edfjtco(fid,
    00184      $     maalcl, len(maalcl),
    00185      $     jn, len(jn),
    00186      $     ind,
    00187      $     entlcl, geolcl, entdst, geodst)
    00188 c
    00189       if (nent.lt.0) then
    00190          cret = -1
    00191       else
    00192          cret = 0
    00193       endif
    00194
    00195       return
    00196       end
    00197
    00198
    00199
    00200
    00201
    00202 C**************************************************************************
    00203 c    ecriture d'une numerotation globale
    00204 C**************************************************************************
    00205       subroutine efgnme ( fid , maa , numtab, n,
    00206      $                    ent, geo, cret)
    00207 c     DEC$ ATTRIBUTES DLLEXPORT :: efgnme
    00208 c
    00209       implicit none
    00210       save
    00211 c
    00212       character *(*) maa
    00213       integer n, fid,  cret, numtab(*)
    00214       integer ent, geo
    00215       integer edfgnme
    00216 c
    00217       cret = edfgnme(fid, maa, len(maa), numtab, n, ent, geo)
    00218 c
    00219       return
    00220       end
    00221 c
    00222
    00223
    00224 C**************************************************************************
    00225 c    lecture d'une numerotation globale
    00226 C**************************************************************************
    00227       subroutine efgnml ( fid , maa , numtab, n,
    00228      $                    ent, geo, cret)
    00229 c     DEC$ ATTRIBUTES DLLEXPORT :: efgnml
    00230 c
    00231       implicit none
    00232       save
    00233 c
    00234       character *(*) maa
    00235       integer n, fid, cret, numtab(*)
    00236       integer ent, geo
    00237       integer edfgnml
    00238 c
    00239       cret = edfgnml(fid, maa, len(maa), numtab, n, ent, geo)
    00240 c
    00241       return
    00242       end
    00243 c
    00244
    00245