
      INTEGER ICAsca , NEVent
 
 
      COMMON /DTEVNO/ NEVent , ICAsca
