Télécharger regmai.eso

Retour à la liste

Numérotation des lignes :

  1. C REGMAI SOURCE CHAT 05/01/13 02:48:27 5004
  2. SUBROUTINE REGMAI(MYMEL2,
  3. $ MYMELE,LPART,
  4. $ IMPR,IRET)
  5. IMPLICIT INTEGER(I-N)
  6. IMPLICIT REAL*8 (A-H,O-Z)
  7. C***********************************************************************
  8. C NOM : REGMAI
  9. C DESCRIPTION : On transforme un maillage partitionné ou non en maillage
  10. C partitionné.
  11. C
  12. C On transforme un MELEME partitionné ou non (MYMEL2) en
  13. C MELEME partitionné (MYMELE). LPART indique si le MELEME
  14. C était partitionné.
  15. C
  16. C LANGAGE : ESOPE
  17. C AUTEUR : Stéphane GOUNAND (CEA/DRN/DMT/SEMT/LTMF)
  18. C mél : gounand@semt2.smts.cea.fr
  19. C***********************************************************************
  20. C APPELE PAR : MKIZA
  21. C***********************************************************************
  22. C ENTREES : MYMEL2
  23. C SORTIES : MYMELE, LPART
  24. C Attention ! On peut avoir MYMELE=MYMEL2
  25. C CODE RETOUR (IRET) : = 0 si tout s'est bien passé
  26. C***********************************************************************
  27. C VERSION : v1, 31/08/99, version initiale
  28. C HISTORIQUE : v1, 31/08/99, création
  29. C HISTORIQUE :
  30. C HISTORIQUE :
  31. C***********************************************************************
  32. C Prière de PRENDRE LE TEMPS de compléter les commentaires
  33. C en cas de modification de ce sous-programme afin de faciliter
  34. C la maintenance !
  35. C***********************************************************************
  36.  
  37. -INC PPARAM
  38. -INC CCOPTIO
  39. -INC SMELEME
  40. INTEGER NBNN,NBELEM,NBSOUS,NBREF
  41. POINTEUR MYMELE.MELEME
  42. POINTEUR MYMEL2.MELEME
  43. LOGICAL LPART
  44. *
  45. INTEGER IMPR,IRET
  46. INTEGER NSOUS
  47. *
  48. * Executable statements
  49. *
  50. IF (IMPR.GT.1) WRITE(IOIMP,*) 'Entrée dans regmai'
  51. SEGACT MYMEL2
  52. NSOUS=MYMEL2.LISOUS(/1)
  53. IF (NSOUS.EQ.0) THEN
  54. NBNN=0
  55. NBELEM=0
  56. NBSOUS=1
  57. NBREF=0
  58. SEGINI MYMELE
  59. MYMELE.LISOUS(1)=MYMEL2
  60. SEGDES MYMELE
  61. LPART=.FALSE.
  62. ELSE
  63. MYMELE=MYMEL2
  64. LPART=.TRUE.
  65. ENDIF
  66. SEGDES MYMEL2
  67. *
  68. * Normal termination
  69. *
  70. IRET=0
  71. RETURN
  72. *
  73. * Format handling
  74. *
  75. *
  76. * Error handling
  77. *
  78. 9999 CONTINUE
  79. IRET=1
  80. WRITE(IOIMP,*) 'An error was detected in subroutine regmai'
  81. RETURN
  82. *
  83. * End of subroutine REGMAI
  84. *
  85. END
  86.  
  87.  
  88.  
  89.  

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