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

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