Télécharger part6i.eso

Retour à la liste

Numérotation des lignes :

  1. C PART6I SOURCE CB215821 16/04/11 12:39:59 8899
  2. SUBROUTINE PART6I(ithr)
  3. C Cette subroutine est l'interface de PART6 et peut etre appelee en
  4. C parallele pour le partitionnement ARLEQUIN d'un MMODEL
  5.  
  6. C Creation 18/09/2015
  7. C Createur CB215821
  8. C Historique des Corrections apportees :
  9. C -
  10. C -
  11. C -
  12.  
  13. IMPLICIT INTEGER(I-N)
  14. IMPLICIT REAL*8 (A-H,O-Z)
  15.  
  16.  
  17. -INC PPARAM
  18. -INC CCOPTIO
  19. -INC SMELEME
  20.  
  21. SEGMENT SSREF
  22. C NBZON : Nombre de ZONES demandees
  23. C NBSM : Nombre de IMODEL du MMODEL
  24. C ISREF : Tableau indiquant si la sous-zone contient ou non des elements
  25. C IMELE : Tableau avec les references des MELEME SIMPLES de chaque ZONE
  26. C IMODE : Tableau avec les references des IMODEL ELEMENTAIRES de chaque ZONE
  27. C NBELE : Tableau indiquant le nombre d'elements reellement present dans le MELEME SIMPLE en COURS
  28. C MTA : Tableau avec les references des MMODEL de chaque ZONE
  29. C IPOS : Tableau indiquant le nombre de IMODEL contenus dans les MMODEL de chaque ZONE
  30. INTEGER ISREF(NBZON,NBSM)
  31. INTEGER IMELE(NBZON,NBSM)
  32. INTEGER IMODE(NBZON,NBSM)
  33. INTEGER NBELE(NBZON)
  34. INTEGER MTA (NBZON)
  35. INTEGER IPOS (NBZON)
  36. ENDSEGMENT
  37.  
  38. C Declaration du COMMON pour le travail en parallele
  39. COMMON/part6c/NBTHR,SSREF,JA,IPT2,NBNN,NBELEM,ISOUS,NBZONE
  40.  
  41. DO 40 J = ithr,NBELEM,NBTHR
  42. C Boucle sur les elements du MELEME a partitionner par pas de SOUS-ZONES
  43. C Determination de la ZONE d'appartenance
  44. IZ=MOD(J+JA,NBZONE)
  45. IF (IZ .EQ. 0) THEN
  46. IZ = NBZONE
  47. ENDIF
  48.  
  49. C Determination du numero d'element dans la ZONE d'appartenance
  50. JF = ((J - 1) / NBZONE) + 1
  51.  
  52. C Chargement du bon MELEME SIMPLE dans la bonne ZONE
  53. IPT5 = IMELE(IZ,ISOUS)
  54. IPT5.ICOLOR(JF)=IPT2.ICOLOR(J)
  55.  
  56. C Boucle sur la connectivite des elements
  57. DO 50 II=1,IPT2.NUM(/1)
  58. IPT5.NUM(II,JF)=IPT2.NUM(II,J)
  59. 50 CONTINUE
  60.  
  61. C Enregistrement du nombre maximum d'element de la Sous Ref pour toutes les Zones
  62. IF (J .GT. (NBELEM - NBZONE)) THEN
  63. NBELE(IZ) = JF
  64. ENDIF
  65. 40 CONTINUE
  66.  
  67. RETURN
  68. END
  69.  
  70.  
  71.  
  72.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales