      REAL FUNCTION cneg()
*********************************************************
*                                                       *
* This file was generated by HUWFUN.                    *
*                                                       *
*********************************************************
*
*     Ntuple Id:      2    
*     Ntuple Title:   Pamela data
*     Creation:       12/07/2004 17.17.45
*
*********************************************************
*
      LOGICAL         CHAIN
      CHARACTER*128   CFILE
      INTEGER         IDNEVT,NCHEVT,ICHEVT
      REAL            OBS(13)
*
      COMMON /PAWIDN/ IDNEVT,OBS
      COMMON /PAWCHN/ CHAIN, NCHEVT, ICHEVT
      COMMON /PAWCHC/ CFILE
*
*--   Ntuple Variable Declarations
*
      REAL dexy(2,22,96),dexyc(2,22,96),base(2,22,96),calselftrig(4,7)
     + ,calIItrig(4),calthr(4,11,6),calstripshit(4),calDSPtaberr(4)
     + ,calevnum(4)
      INTEGER iev
*
      COMMON /PAWCR4/ iev,dexy,dexyc,base,calselftrig,calIItrig,calthr
     + ,calstripshit,calDSPtaberr,calevnum
*

*
*--   Enter user code here
*
      do i = 1, 2
         do j = 1, 22
            do k = 1, 96
               if (dexyc(i,j,k).lt.0) print *,'i,j,k<0,iev ',i,j,k,iev
               if (dexyc(i,j,k).gt.8000) print *,'i,j,k>8000 ',i,j,k
            enddo
         enddo
      enddo
      cneg = 1.
*
      END
