Télécharger knbel.eso

Retour à la liste

Numérotation des lignes :

  1. C KNBEL SOURCE CHAT 05/01/13 00:58:11 5004
  2. SUBROUTINE KNBEL(MELEME,NEL)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8 (A-H,O-Z)
  5. C************************************************************************
  6. C Ce sous-programme renvoie le nombre d'elements d'un objet maillage
  7. C
  8. C************************************************************************
  9. CALL ECROBJ('MAILLAGE',MELEME)
  10. CALL NBEL
  11. CALL LIRENT(NEL,1,IRET)
  12. RETURN
  13. END
  14.  
  15.  

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