REAL FUNCTION bassuc()
*********************************************************
*                                                       *
* This file was generated by HUWFUN.                    *
*                                                       *
*********************************************************
*
*     Ntuple Id:      1    
*     Ntuple Title:   Pamela Calo
*     Creation:       23/06/2004 17.40.26
*
*********************************************************
*
      LOGICAL         CHAIN
      CHARACTER*128   CFILE
      INTEGER         IDNEVT,NCHEVT,ICHEVT
      integer i,j,k,pre
      REAL            OBS(13)
      real calbase
*
      COMMON /PAWIDN/ IDNEVT,OBS
      COMMON /PAWCHN/ CHAIN, NCHEVT, ICHEVT
      COMMON /PAWCHC/ CFILE
*
*--   Ntuple Variable Declarations
*
      REAL cal_ped(4,11,96),cal_good(4,11,6),cal_thr(4,11,6)
     + ,cal_rms(4,11,96),cal_base(4,11,6),cal_var(4,11,6)
     + ,cal_pulse(4,11,96)
      INTEGER iev
*
      COMMON /PAWCR4/ iev,cal_ped,cal_good,cal_thr,cal_rms,cal_base
     + ,cal_var,cal_pulse
*

*
*--   Enter user code here
*      
      do i=1,4 
         do j=1,11
            pre = 0
            do k=1,96
               if (mod(k+15,16).eq.0) pre = pre + 1
c               print *,k, pre               
               calbase=cal_base(i,j,pre)
               call hf1(100+i*10+pre,cal_ped(i,j,k)-calbase,1.)
               call hf1(200+i*10+pre,cal_ped(i,j,k),1.)
               if (cal_rms(i,j,k).ne.0.) 
     &         print *,'rms ',cal_rms(i,j,k),' i=',i,' j=',j,' k=',k
            enddo
         enddo
      enddo
      bassuc = 1.
*
      END