Sources Esope | Cast3M

scrgcc
C SCRGCC    SOURCE    CHAT      06/03/29    21:33:09     5360
      SUBROUTINE SCRGCC(IT,IREGIO,IDE,ITRTRI,NBCMAX,NBE,
     >                 ITVL,IMAT,NBEMAT,iarr)
C     **********************************************************************
C     OBJET : ASSOCIE REGION A LA COMPOSANTE CONNEXE A IT
C        IREGIO : DOIT ETRE NON-NUL
C        ITVL : TABLEAU DE TRAVAIL = NBE + PILE (APPEL TMA1CC)
C     EN SORTIE :
C        IMAT   : SI I CONNEXE A IT ALORS IMAT(I) = IREGIO
C        NBEMAT : NOMBRE D'ELEMENTS AFFECTE DU REGION
C     **********************************************************************
      IMPLICIT INTEGER(I-N)
      INTEGER IT,IREGIO,IDE,ITRTRI(*),NBCMAX,NBE
      INTEGER ITVL(*),IMAT(*),NBEMAT,iarr
C
      INTEGER ICON,ITRAV,NBTRAV,IND,I
C
      iarr   = 0
      NBEMAT = 0
      ICON   = 1
C     --- ON A AU MAXIMUM NBE ELEMENTS CONNEXES AVEC IT ---
      ITRAV  = NBE + ICON
      NBTRAV = NBE
      IND    = 1
      CALL TMA1CC(IDE,ITRTRI,NBCMAX,IND,NBE,
     >      IT,ITVL(ITRAV),IMAT,NBTRAV,
     >      ITVL(ICON),NBEMAT,iarr)
      IF( iarr.NE. 0 )GOTO 999
C      PRINT *,NBEMAT,' DE IREGIO = ',IREGIO
      DO 10 I=1,NBEMAT
        IMAT(ITVL(I-1+ICON)) = IREGIO
C        PRINT *,ITVL(I-1+ICON)
   10 CONTINUE
  999 END