Esope source files

   1 : C S2ELT3    SOURCE    CHAT      05/01/13    03:10:05     5004           
   2 :       SUBROUTINE S2ELT3(NBNN,NUMI,IEL,NUMJ,JEL,TOUCH,SELF)
   3 : C=======================================================================
   4 : C
   5 : C     DETERMINE SI DEUX TRI3 ONT UN SOMMET COMMUN
   6 : C    ENTREES
   7 : C      NBNN  =NOMBRE DE NOEUDS DE L ELEMENT
   8 : C      IEL   =NUMERO DE L ELEMENT DANS NUMI
   9 : C      JEL   =NUMERO DE L ELEMENT DANS NUMJ
  10 : C    SORTIES
  11 : C      TOUCH = .TRUE. SI IL Y A UN SOMMET COMMUN 
  12 : C
  13 : C=======================================================================
  14 :       IMPLICIT INTEGER(I-N)
  15 :       IMPLICIT REAL*8(A-H,O-Z)
  16 :       DIMENSION NUMI(NBNN,*),NUMJ(NBNN,*)
  17 :       LOGICAL TOUCH,SELF
  18 : C
  19 :       TOUCH=.FALSE.
  20 :       SELF=.FALSE.
  21 :       NB=0
  22 :       DO 1 IN=1,NBNN
  23 :         DO 1 JN=1,NBNN
  24 :           IF(NUMI(IN,IEL).EQ.NUMJ(JN,JEL)) NB=NB+1
  25 :     1 CONTINUE
  26 :       IF(NB.NE.0) TOUCH=.TRUE.
  27 :       IF(NB.EQ.NBNN) SELF=.TRUE.
  28 : 
  29 :       RETURN
  30 :       END
  31 :  
  32 :  
  33 :