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. -INC CCOPTIO
  18. -INC SMELEME
  19.  
  20. SEGMENT SSREF
  21. C ISREF : Tableau indiquant si la sous-zone contient ou non des elements
  22. C IMELE : Tableau avec les references des MELEME COMPLEXES de chaque ZONE
  23. INTEGER ISREF(NBZON,NBSM)
  24. INTEGER IMELE(NBZON)
  25. INTEGER NBELE(NBZON)
  26. ENDSEGMENT
  27.  
  28. C Declaration du COMMON pour le travail en parallele
  29. COMMON/part5c/NBTHR,SSREF,JA,IPT2,NBNN,NBELEM,ISOUS,NBZONE
  30.  
  31. DO J = ithr,NBELEM,NBTHR
  32. C Determination de la Zone d'appartenance
  33. IZ=MOD(J+JA,NBZONE)
  34. IF (IZ .EQ. 0) THEN
  35. IZ = NBZONE
  36. ENDIF
  37.  
  38. C Determination du numero d'element dans la Zone d'appartenance
  39. JF = ((J - 1) / NBZONE) + 1
  40.  
  41. C Chargement du bon MELEME SIMPLE dans la bonne Zone
  42. IPT4 = IMELE(IZ)
  43. IPT5 = IPT4.LISOUS(ISOUS)
  44. IPT5.ICOLOR(JF)=IPT2.ICOLOR(J)
  45.  
  46. C Boucle sur la connectivite des elements
  47. DO II=1,NBNN
  48. IPT5.NUM(II,JF)=IPT2.NUM(II,J)
  49. ENDDO
  50.  
  51. C Enregistrement du nombre maximum d'element de la Sous Ref pour toutes les Zones
  52. IF (J .GT. (NBELEM - NBZONE)) THEN
  53. NBELE(IZ) = JF
  54. ENDIF
  55. ENDDO
  56.  
  57.  
  58. RETURN
  59. END
  60.  
  61.  
  62.  
  63.  

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