Sources Esope | Cast3M

coupen
C COUPEN    SOURCE    PV        20/03/24    21:16:18     10554          
      SUBROUTINE COUPEN(NUM,NBNN,NBELEM,XCOOR,IDIMP1,NBPTS,
     >                  LECT,LECT1,LECT2)
C
C     Esclave de COUPE: detection des doublons d'elements
C
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
C
      DIMENSION NUM(NBNN,NBELEM),XCOOR(IDIMP1,NBPTS)
      DIMENSION LECT(NBELEM),LECT1(NBELEM),LECT2(NBELEM)
      LOGICAL GENTST
C
      IDIM=IDIMP1-1
C
      IFI=LECT(1)
      DO IE1=2,NBELEM
        IFF=LECT(IE1)
        IF(IFI.EQ.IFF)THEN
          JE1=LECT1(IE1-1)
          IF(LECT2(JE1).EQ.JE1)THEN
            DO IE2=IE1,NBELEM
              IFFF=LECT(IE2)
              IF(IFI.NE.IFFF)GOTO 1
              JE2=LECT1(IE2)
              IF(LECT2(JE2).EQ.JE2)THEN
                IF(GENTST(NUM(1,JE1),NUM(1,JE2),NBNN))THEN
                  LECT2(JE1)=JE2
                  LECT2(JE2)=JE1
                ENDIF
              ENDIF
            ENDDO
          ENDIF
        ENDIF
 1      IFI=IFF
      ENDDO
C
      RETURN
      END