Esope source files

   1 : C SCRGCC    SOURCE    CHAT      06/03/29    21:33:09     5360           
   2 :       SUBROUTINE SCRGCC(IT,IREGIO,IDE,ITRTRI,NBCMAX,NBE,
   3 :      >                 ITVL,IMAT,NBEMAT,iarr)
   4 : C     **********************************************************************
   5 : C     OBJET : ASSOCIE REGION A LA COMPOSANTE CONNEXE A IT
   6 : C        IREGIO : DOIT ETRE NON-NUL
   7 : C        ITVL : TABLEAU DE TRAVAIL = NBE + PILE (APPEL TMA1CC)
   8 : C     EN SORTIE :
   9 : C        IMAT   : SI I CONNEXE A IT ALORS IMAT(I) = IREGIO 
  10 : C        NBEMAT : NOMBRE D'ELEMENTS AFFECTE DU REGION 
  11 : C     **********************************************************************
  12 :       IMPLICIT INTEGER(I-N)
  13 :       INTEGER IT,IREGIO,IDE,ITRTRI(*),NBCMAX,NBE
  14 :       INTEGER ITVL(*),IMAT(*),NBEMAT,iarr
  15 : C
  16 :       INTEGER ICON,ITRAV,NBTRAV,IND,I
  17 : C
  18 :       iarr   = 0
  19 :       NBEMAT = 0
  20 :       ICON   = 1
  21 : C     --- ON A AU MAXIMUM NBE ELEMENTS CONNEXES AVEC IT ---
  22 :       ITRAV  = NBE + ICON
  23 :       NBTRAV = NBE
  24 :       IND    = 1
  24 :       CALL TMA1CC(IDE,ITRTRI,NBCMAX,IND,NBE,
  25 :      >      IT,ITVL(ITRAV),IMAT,NBTRAV,
  26 :      >      ITVL(ICON),NBEMAT,iarr)
  27 :       IF( iarr.NE. 0 )GOTO 999
  28 : C      PRINT *,NBEMAT,' DE IREGIO = ',IREGIO
  29 :       DO 10 I=1,NBEMAT
  30 :         IMAT(ITVL(I-1+ICON)) = IREGIO
  31 : C        PRINT *,ITVL(I-1+ICON)
  32 :    10 CONTINUE   
  33 :   999 END
  34 :  
  35 :  
  36 :