Télécharger la plaquette Cast3M


fr en

Télécharger regmai.eso

Retour à la liste

Numérotation des lignes : 

regmai

  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