SUBROUTINE READ_CWN_SETUP
*********************************************************
*                                                       *
* This file was generated by HUWFUN.                    *
*                                                       *
*********************************************************
*
*     Ntuple Id:      1    
*     Ntuple Title:   p1(3), p2(3), p3(3)
*     Creation:       12/12/1999 17.43.17
*
*********************************************************
*
      REAL p1,p2,p3
      COMMON /EVTBLK/ p1(3),p2(3),p3(3)
*
      CALL HBNAME(1,' ',0,'$CLEAR')
      CALL HBNAME(1,'EVTBLK',p1,'$SET')
*

*
*--   Enter user code here
*

*
      END