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

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