COMMON/ENERGY/edep,sedep,sedep2

      COMMON/NBSTEP/stpch,sstpch,sstpch2,
     +              stpne,sstpne,sstpne2
           
      COMMON/TRKLEN/trkch,strkch,strkch2,
     +              trkne,strkne,strkne2
 
      logical kill     
      COMMON/SECOND/ngamma,nelect,nposit,kill
      
      COMMON/TRANSM/nbtransm(2),itransmi,
     +              nbreflec(2),ireflect