Sources Esope | Cast3M

part5i
C PART5I    SOURCE    CB215821  16/04/11    12:39:58     8899
 
      SUBROUTINE PART5I(ithr)
C     Cette subroutine est l'interface de PART5 et peut etre appelee en
C     parallele pour le partitionnement ARLEQUIN d'un MAILLAGE
 
C Creation 01/09/2015
C Createur CB215821
C Historique des Corrections apportees :
C      -
C      -
C      -
 
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)
 
 
-INC PPARAM
-INC CCOPTIO
-INC SMELEME
 
        SEGMENT SSREF
C         ISREF   : Tableau indiquant si la sous-zone contient ou non des elements
C         IMELE   : Tableau avec les references des MELEME COMPLEXES de chaque ZONE
          INTEGER ISREF(NBZON,NBSM)
          INTEGER IMELE(NBZON)
          INTEGER NBELE(NBZON)
        ENDSEGMENT
 
C     Declaration du COMMON pour le travail en parallele
      COMMON/part5c/NBTHR,SSREF,JA,IPT2,NBNN,NBELEM,ISOUS,NBZONE
 
      DO J = ithr,NBELEM,NBTHR
C       Determination de la Zone d'appartenance
        IZ=MOD(J+JA,NBZONE)
        IF (IZ .EQ. 0) THEN
          IZ = NBZONE
        ENDIF
 
C       Determination du numero d'element dans la Zone d'appartenance
        JF = ((J - 1) / NBZONE) + 1
 
C       Chargement du bon MELEME SIMPLE dans la bonne Zone
        IPT4 = IMELE(IZ)
        IPT5 = IPT4.LISOUS(ISOUS)
        IPT5.ICOLOR(JF)=IPT2.ICOLOR(J)
 
C       Boucle sur la connectivite des elements
        DO II=1,NBNN
          IPT5.NUM(II,JF)=IPT2.NUM(II,J)
        ENDDO
 
C       Enregistrement du nombre maximum d'element de la Sous Ref pour toutes les Zones
        IF (J .GT. (NBELEM - NBZONE)) THEN
          NBELE(IZ) = JF
        ENDIF
      ENDDO
 
 
      RETURN
      END