calo/unpacking/pedesc.for

      REAL FUNCTION pedesc(m)
*********************************************************
*                                                       *
* This file was generated by HUWFUN.                    *
*                                                       *
*********************************************************
*
*     Ntuple Id:      1    
*     Ntuple Title:   Pamela Calo
*     Creation:       14/07/2004 17.49.44
*
*********************************************************
*
      INCLUDE 'comchkp.txt'      
*
      VECTOR pede(2,22,96)
*
*--   Enter user code here
*      
      do i =1, 11
         pre = 0
         do j = 1, 96
            if (mod(j+15,16).eq.0) pre = pre + 1
c            print *,'pre ',pre
            if (m.eq.3.and.calbase(1,i,pre).lt.10000.)
     &           pede(2,2*i-1,j) = calped(1,i,j)
            if (m.eq.2.and.calbase(2,i,pre).lt.10000.)
     &           pede(1,2*i-1,j) = calped(2,i,j)
            if (m.eq.4.and.calbase(3,i,pre).lt.10000.)
     &           pede(2,2*i,j) = calped(3,i,j)
            if (m.eq.1.and.calbase(4,i,pre).lt.10000.)
     &           pede(1,2*i,j) = calped(4,i,j)
         enddo
      enddo


*      pedes = 1.
*
      return
      END
1	REAL FUNCTION pedesc(m)
2	*********************************************************
3	* *
4	* This file was generated by HUWFUN. *
5	* *
6	*********************************************************
7	*
8	* Ntuple Id: 1
9	* Ntuple Title: Pamela Calo
10	* Creation: 14/07/2004 17.49.44
11	*
12	*********************************************************
13	*
14	INCLUDE 'comchkp.txt'
15	*
16	VECTOR pede(2,22,96)
17	*
18	*-- Enter user code here
19	*
20	do i =1, 11
21	pre = 0
22	do j = 1, 96
23	if (mod(j+15,16).eq.0) pre = pre + 1
24	c print *,'pre ',pre
25	if (m.eq.3.and.calbase(1,i,pre).lt.10000.)
26	& pede(2,2*i-1,j) = calped(1,i,j)
27	if (m.eq.2.and.calbase(2,i,pre).lt.10000.)
28	& pede(1,2*i-1,j) = calped(2,i,j)
29	if (m.eq.4.and.calbase(3,i,pre).lt.10000.)
30	& pede(2,2*i,j) = calped(3,i,j)
31	if (m.eq.1.and.calbase(4,i,pre).lt.10000.)
32	& pede(1,2*i,j) = calped(4,i,j)
33	enddo
34	enddo
35
36
37	* pedes = 1.
38	*
39	return
40	END