calo/unpacking/cneg.for

      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
1	REAL FUNCTION cneg()
2	*********************************************************
3	* *
4	* This file was generated by HUWFUN. *
5	* *
6	*********************************************************
7	*
8	* Ntuple Id: 2
9	* Ntuple Title: Pamela data
10	* Creation: 12/07/2004 17.17.45
11	*
12	*********************************************************
13	*
14	LOGICAL CHAIN
15	CHARACTER*128 CFILE
16	INTEGER IDNEVT,NCHEVT,ICHEVT
17	REAL OBS(13)
18	*
19	COMMON /PAWIDN/ IDNEVT,OBS
20	COMMON /PAWCHN/ CHAIN, NCHEVT, ICHEVT
21	COMMON /PAWCHC/ CFILE
22	*
23	*-- Ntuple Variable Declarations
24	*
25	REAL dexy(2,22,96),dexyc(2,22,96),base(2,22,96),calselftrig(4,7)
26	+ ,calIItrig(4),calthr(4,11,6),calstripshit(4),calDSPtaberr(4)
27	+ ,calevnum(4)
28	INTEGER iev
29	*
30	COMMON /PAWCR4/ iev,dexy,dexyc,base,calselftrig,calIItrig,calthr
31	+ ,calstripshit,calDSPtaberr,calevnum
32	*
33
34	*
35	*-- Enter user code here
36	*
37	do i = 1, 2
38	do j = 1, 22
39	do k = 1, 96
40	if (dexyc(i,j,k).lt.0) print *,'i,j,k<0,iev ',i,j,k,iev
41	if (dexyc(i,j,k).gt.8000) print *,'i,j,k>8000 ',i,j,k
42	enddo
43	enddo
44	enddo
45	cneg = 1.
46	*
47	END