Sources Esope | Cast3M

s2elt3
C S2ELT3    SOURCE    CB215821  26/08/24    21:18:22     12622          
      SUBROUTINE S2ELT3(NBNN,NUMI,IEL,NUMJ,JEL,TOUCH,SELF)
C=======================================================================
C
C     DETERMINE SI DEUX TRI3 ONT UN SOMMET COMMUN
C    ENTREES
C      NBNN  =NOMBRE DE NOEUDS DE L ELEMENT
C      IEL   =NUMERO DE L ELEMENT DANS NUMI
C      JEL   =NUMERO DE L ELEMENT DANS NUMJ
C    SORTIES
C      TOUCH = .TRUE. SI IL Y A UN SOMMET COMMUN
C
C=======================================================================
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
      DIMENSION NUMI(NBNN,*),NUMJ(NBNN,*)
      LOGICAL TOUCH,SELF
C
      TOUCH=.FALSE.
      SELF=.FALSE.
      NB=0
      DO 2 IN=1,NBNN
        DO 1 JN=1,NBNN
          IF(NUMI(IN,IEL).EQ.NUMJ(JN,JEL)) NB=NB+1
    1 CONTINUE
    2 CONTINUE
      IF(NB.NE.0) TOUCH=.TRUE.
      IF(NB.EQ.NBNN) SELF=.TRUE.
 
      RETURN
      END