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    GOUNAND   24/11/06    21:15:17     12073          
  2.       SUBROUTINE REGMAI(IPT1,IPT2)
  3.       IMPLICIT INTEGER(I-N)
  4.       IMPLICIT REAL*8 (A-H,O-Z)
  5. C***********************************************************************
  6. C NOM         : REGMAI
  7. C DESCRIPTION : On transforme un maillage partitionné ou non en maillage
  8. C               partitionné.
  9. C               Le chapeau est neuf.
  10. C
  11. C
  12. C LANGAGE     : ESOPE
  13. C AUTEUR      : Stéphane GOUNAND (CEA/DRN/DMT/SEMT/LTMF)
  14. C               mél : gounand@semt2.smts.cea.fr
  15. C***********************************************************************
  16. C VERSION    : v1, 21/08/2024, version initiale
  17. C HISTORIQUE : v1, 21/08/2024, création
  18. C HISTORIQUE :
  19. C HISTORIQUE :
  20. C***********************************************************************
  21.  
  22. -INC SMELEME
  23. *
  24. * Executable statements
  25. *
  26.       SEGACT IPT1
  27.       NSOUS=IPT1.LISOUS(/1)
  28. * Nouveau chapeau
  29.       NBNN=0
  30.       NBELEM=0
  31.       NBSOUS=MAX(1,NSOUS)
  32.       NBREF=0
  33.       SEGINI IPT2
  34.       IF (NSOUS.EQ.0) THEN
  35.          IPT2.LISOUS(1)=IPT1
  36.       ELSE
  37.          DO ISOUS=1,NSOUS
  38.             IPT2.LISOUS(ISOUS)=IPT1.LISOUS(ISOUS)
  39.          ENDDO
  40.       ENDIF
  41. *
  42. * End of subroutine REGMAI
  43. *
  44.       END
  45.  
  46.  

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