Esope source files

   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************************************************************************       
   8 :       CALL ECROBJ('MAILLAGE',MELEME)
   8 :       CALL NBEL
   8 :       CALL LIRENT(NEL,1,IRET)
   9 :       RETURN
  10 :       END
  11 :