      REAL FUNCTION dump(XDUMMY)
*********************************************************
*                                                       *
* This file was generated by HUWFUN.                    *
*                                                       *
*********************************************************
*
*     Ntuple Id:      10   
*     Ntuple Title:   Event
*     Creation:       19/08/95 02.10.43
*
*********************************************************
*
      LOGICAL         CHAIN
      CHARACTER*128   CFILE
      INTEGER         IDNEVT,NCHEVT,ICHEVT
      REAL            VIDN1,VIDN2,VIDN3,VIDN(10)
*
      COMMON /PAWIDN/ IDNEVT,VIDN1,VIDN2,VIDN3,VIDN
      COMMON /PAWCHN/ CHAIN, NCHEVT, ICHEVT
      COMMON /PAWCHC/ CFILE
*
*--   Ntuple Variable Declarations
*
      REAL TDC(8),HSIG(40),HETA(40),HXLO(40),FKEYDA(32),VIGADA(128)
      INTEGER NRUN,IEVT,TIME,DATE,TIMREL,NUMSOB,NUMEVT,NEVTB,ITDC(8),NH
     + ,ICOD(40),INUM(40),ICHA(40),IXYF(40),AKEYRAW(256,1),AKEYBIN(3,1)
*
      COMMON /PAWCR4/ NRUN,IEVT,TIME,DATE,TIMREL,NUMSOB,NUMEVT,NEVTB
     + ,ITDC,TDC,NH,ICOD,INUM,ICHA,IXYF,HSIG,HETA,HXLO,FKEYDA,AKEYRAW
     + ,AKEYBIN,VIGADA
*

*
*--   Enter user code here
*
C  event dump program
      INTEGER NHZ,IPRNT

      DATA NHZ/0/
      IPRNT=1
      IF(NH.LE.0) THEN
         NHZ=NHZ+1
         IF(NHZ.GT.2) IPRNT=0
         IF(NHZ.EQ.3) THEN 
            WRITE(6,6009)
            WRITE(6,6008)
            WRITE(6,6009)
 6008       FORMAT(1H ,'     ... NH=0 ...')
 6009       FORMAT(1H ,'     ...')
         ENDIF
      ELSE
         NHZ=0
      ENDIF

      IF(IPRNT.LE.0) GOTO 9999

      WRITE(6,6100)
 6100 FORMAT(1H ,'>== NRUN    IEVT    TIME    DATE  TIMREL  NUMSOB',
     X           '  NUMEVT   NEVTB ')
      WRITE(6,6101) NRUN,IEVT,TIME,DATE,TIMREL,NUMSOB,NUMEVT,NEVTB
 6101 FORMAT(1H ,I8,I8,I8,I8,I8,I8,I8,I8)
      WRITE(6,6102)
 6102 FORMAT(1H ,'TDC    1       2       3       4       5       6',
     X           '       7       8')
      WRITE(6,6103) (ITDC(I),I=1,8)
 6103 FORMAT(1H ,8I8)
      WRITE(6,6104) (TDC(I),I=1,8)
 6104 FORMAT(1H ,8F8.2)
      WRITE(6,6105) NH
 6105 FORMAT(1H ,'NH=',I5)

      IF(NH.GT.0) THEN
         WRITE(6,6110)
C...+....1....+....2....+....3....+....4....+....5....+....6....+....7..
 6110    FORMAT(1H ,'    ICOD    INUM    ICHA    IXYF    HSIG    HETA',
     x              '    HXLO')

         DO 100 N=1,NH
            WRITE(6,6111) ICOD(N),INUM(N),ICHA(N),IXYF(N),HSIG(N),
     X                    HETA(N),HXLO(N)
 6111       FORMAT(1H ,4I8,4F8.2)

 100     CONTINUE
      ENDIF

 9999 CONTINUE
      dump = 1.
*
      END
