REAL FUNCTION pedes(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