Télécharger nbdel.eso

Retour à la liste

Numérotation des lignes :

  1. C NBDEL SOURCE CHAT 05/01/13 01:56:08 5004
  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. -INC CCOPTIO
  32. -INC SMELEME
  33. POINTEUR MAIL.MELEME
  34. POINTEUR SOUMAI.MELEME
  35. *
  36. INTEGER MAETA,SMETA
  37. INTEGER NBDELM
  38. INTEGER IMPR,IRET
  39. *
  40. INTEGER NBSOUS,INBSOU
  41. *
  42. * Executable statements
  43. *
  44. IF (IMPR.GT.1) THEN
  45. WRITE(IOIMP,*) 'Entrée dans nbdel.eso'
  46. ENDIF
  47. NBDELM=0
  48. CALL OOOETA(MAIL,MAETA)
  49. IF (MAETA.NE.1) SEGACT MAIL
  50. NBSOUS=MAIL.LISOUS(/1)
  51. IF (NBSOUS.EQ.0) THEN
  52. NBDELM=MAIL.NUM(/2)
  53. ELSE
  54. DO 1 INBSOU=1,NBSOUS
  55. SOUMAI=MAIL.LISOUS(INBSOU)
  56. CALL OOOETA(SOUMAI,SMETA)
  57. IF (SMETA.NE.1) SEGACT SOUMAI
  58. NBDELM=NBDELM+SOUMAI.NUM(/2)
  59. IF (SMETA.NE.1) SEGDES SOUMAI
  60. 1 CONTINUE
  61. ENDIF
  62. IF (MAETA.NE.1) SEGDES MAIL
  63. *
  64. * Normal termination
  65. *
  66. IRET=0
  67. RETURN
  68. *
  69. * Format handling
  70. *
  71. *
  72. * Error handling
  73. *
  74. 9999 CONTINUE
  75. IRET=1
  76. WRITE(IOIMP,*) 'An error was detected in subroutine nbdel'
  77. RETURN
  78. *
  79. * End of subroutine NBDEL
  80. *
  81. END
  82.  
  83.  
  84.  
  85.  

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