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. -INC CCOPTIO
  37. -INC SMELEME
  38. INTEGER NBNN,NBELEM,NBSOUS,NBREF
  39. POINTEUR MYMELE.MELEME
  40. POINTEUR MYMEL2.MELEME
  41. LOGICAL LPART
  42. *
  43. INTEGER IMPR,IRET
  44. INTEGER NSOUS
  45. *
  46. * Executable statements
  47. *
  48. IF (IMPR.GT.1) WRITE(IOIMP,*) 'Entrée dans regmai'
  49. SEGACT MYMEL2
  50. NSOUS=MYMEL2.LISOUS(/1)
  51. IF (NSOUS.EQ.0) THEN
  52. NBNN=0
  53. NBELEM=0
  54. NBSOUS=1
  55. NBREF=0
  56. SEGINI MYMELE
  57. MYMELE.LISOUS(1)=MYMEL2
  58. SEGDES MYMELE
  59. LPART=.FALSE.
  60. ELSE
  61. MYMELE=MYMEL2
  62. LPART=.TRUE.
  63. ENDIF
  64. SEGDES MYMEL2
  65. *
  66. * Normal termination
  67. *
  68. IRET=0
  69. RETURN
  70. *
  71. * Format handling
  72. *
  73. *
  74. * Error handling
  75. *
  76. 9999 CONTINUE
  77. IRET=1
  78. WRITE(IOIMP,*) 'An error was detected in subroutine regmai'
  79. RETURN
  80. *
  81. * End of subroutine REGMAI
  82. *
  83. END
  84.  
  85.  
  86.  
  87.  

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