Esope source files

   1 : C TNOFRT    SOURCE    CHAT      05/01/13    03:42:15     5004           
   2 :       SUBROUTINE TNOFRT(IDE,ITRNOE,NBNMAX,IT,IFAC,IFR)
   3 : C     **************************************************************
   4 : C     OBJET :  
   5 : C        RENVOI LES NOEUDS DE LA FRONTIERE D'UN ELEMENT
   6 : C     EN ENTREE:
   7 : C      IDE    :  (1..3) DIMENSION DES ELEMENTS 
   8 : C      ITRNOE:  LES NOEUDS DES ELEMENTS
   9 : C      NBNMAX :  (2..8) NOMBRE DE NOEUDS MAXIMUM DES ELEMENTS 
  10 : C      IT     :  INDICE DE L'ELEMENT
  11 : C      IFAC   :  INDICE DE LA FACE
  12 : C
  13 : C      NCFMAX:  NOMBRE MAXIMUM DE SOMMETS DES ELEMENTS FRONTIERE
  14 : C                =IDE SAUF EN 3D POUR LES PRISMES,PYRAMIDES,HEXA
  15 : C     EN SORTIE: 
  16 : C      IFR   :  LISTE DES NOEUDS DE LA FRONTIERE
  17 : C      IERR  :  CODE D'ERREUR 0 => OK, -2 => NCFMAX TROP PETIT
  18 : C     CONDITION D'APPLICATION : MAILLAGE MIXTE 1D,2D ET 
  19 : C                               ET TETRAEDRES
  20 : C     ************************************************************
  21 :       IMPLICIT INTEGER(I-N)
  22 :       INTEGER    IDE,ITRNOE(*),NBNMAX,IT,IFAC,IFR(*),NBIFR
  23 : C
  24 :       INTEGER    K,NBRN,NBNF,INDNF(4) 
  25 :       EXTERNAL   STRKSF, STRNBN
  26 :       INTEGER    STRKSF, STRNBN
  27 : C
  28 :       INTEGER IT1
  29 : C
  30 :       IT1 = IT 
  31 :       NBRN = STRNBN(IT1,ITRNOE,NBNMAX)
  32 :       NBNF = STRKSF(IDE,NBRN,ABS(IFAC),INDNF) 
  33 :       DO 10 K=1,NBNF
  34 :         IFR(K) = ITRNOE((IT1-1)*NBNMAX+INDNF(K)) 
  35 :    10 CONTINUE 
  36 :       NBIFR = NBNF   
  37 :   999 END
  38 :  
  39 :