REAL FUNCTION qhsec(XDUMMY)
      REAL
     +T       ,Q       ,X       ,Y       ,Z       ,VX      ,
     +VY      ,VZ      ,E       ,PRODE   ,PRODT   ,PRODP   ,
     +PRODX   ,PRODY   ,PRODSARC,VZSEC   ,ESEC    ,TOF     ,
     +ELFLAG  ,ICOUNT  ,ICOUNT2  
*
      LOGICAL         CHAIN
      CHARACTER*128   CFILE
*
      COMMON /PAWCHN/ CHAIN, NCHEVT, ICHEVT
      COMMON /PAWCHC/ CFILE
*
      COMMON/PAWIDN/IDNEVT,OBS(13),
     +T       ,Q       ,X       ,Y       ,Z       ,VX      ,
     +VY      ,VZ      ,E       ,PRODE   ,PRODT   ,PRODP   ,
     +PRODX   ,PRODY   ,PRODSARC,VZSEC   ,ESEC    ,TOF     ,
     +ELFLAG  ,ICOUNT  ,ICOUNT2  
*
      qhsec=0
      if(icount2.lt.0)qhsec=-q

      END