Télécharger part5i.eso

Retour à la liste

Numérotation des lignes :

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

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