Télécharger nbdel.eso

Retour à la liste

Numérotation des lignes :

  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