Télécharger la plaquette Cast3M


fr en

Télécharger nbdel.eso

Retour à la liste

Numérotation des lignes : 

nbdel

  1. C NBDEL     SOURCE    CB215821  18/09/27    21:15:31     9936           
  2.       SUBROUTINE NBDEL(MAIL,
  3.      $     NBDELM,
  4.      $     IMPR,IRET)
  5.       IMPLICIT INTEGER(I-N)
  6.       IMPLICIT REAL*8 (A-H,O-Z)
  7. C***********************************************************************
  8. C NOM         : NBDEL
  9. C DESCRIPTION : Compte le nombre d'éléments d'un maillage.
  10. C LANGAGE     : ESOPE
  11. C AUTEUR      : Stéphane GOUNAND (CEA/DRN/DMT/SEMT/TTMF)
  12. C               mél : gounand@semt2.smts.cea.fr
  13. C***********************************************************************
  14. C APPELES          : -
  15. C APPELES (UTIL)   : OOOETA
  16. C APPELE PAR       : RPELEN
  17. C***********************************************************************
  18. C ENTREES            : MAIL
  19. C SORTIES            : NBDELM
  20. C CODE RETOUR (IRET) : = 0 si tout s'est bien passé
  21. C***********************************************************************
  22. C VERSION    : v1, 12/05/99, version initiale
  23. C HISTORIQUE : v1, 12/05/99, création
  24. C HISTORIQUE :
  25. C HISTORIQUE :
  26. C***********************************************************************
  27. C Prière de PRENDRE LE TEMPS de compléter les commentaires
  28. C en cas de modification de ce sous-programme afin de faciliter
  29. C la maintenance !
  30. C***********************************************************************
  31.  
  32. -INC PPARAM
  33. -INC CCOPTIO
  34. -INC SMELEME
  35.       POINTEUR MAIL.MELEME
  36.       POINTEUR SOUMAI.MELEME
  37. *
  38.       INTEGER MAETA,SMETA
  39.       INTEGER NBDELM
  40.       INTEGER IMPR,IRET
  41. *
  42.       INTEGER NBSOUS,INBSOU
  43. *
  44. * Executable statements
  45. *
  46.       IF (IMPR.GT.1) THEN
  47.          WRITE(IOIMP,*) 'Entrée dans nbdel.eso'
  48.       ENDIF
  49.       NBDELM=0
  50.       CALL OOOETA(MAIL,MAETA,IMOD)
  51.       IF (MAETA.NE.1) SEGACT MAIL
  52.       NBSOUS=MAIL.LISOUS(/1)
  53.       IF (NBSOUS.EQ.0) THEN
  54.          NBDELM=MAIL.NUM(/2)
  55.       ELSE
  56.          DO 1 INBSOU=1,NBSOUS
  57.             SOUMAI=MAIL.LISOUS(INBSOU)
  58.             CALL OOOETA(SOUMAI,SMETA,IMOD)
  59.             IF (SMETA.NE.1) SEGACT SOUMAI
  60.             NBDELM=NBDELM+SOUMAI.NUM(/2)
  61.             IF (SMETA.NE.1) SEGDES SOUMAI
  62.  1       CONTINUE
  63.       ENDIF
  64.       IF (MAETA.NE.1) SEGDES MAIL
  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 nbdel'
  79.       RETURN
  80. *
  81. * End of subroutine NBDEL
  82. *
  83.       END
  84.  
  85.  
  86.  
  87.  
  88.  

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