*CMZ :          18/08/94  17.07.20  by  S.Ravndal
*CMZ :  3.21/02 29/03/94  15.41.35  by  S.Giani
*-- Author :
      SUBROUTINE UHINIT
C
C To book the user's histograms
C

*KEEP,PVOLUM.
      COMMON/PVOLUM/ NL,NR,IMAT,X0
*KEND.

C
C Histograms for shower development
C
      NBINZ=NL+1
      NBINR=NR+1
      ZMAX=NBINZ+1
      RMAX=NBINR+1
C
*      CALL HBOOK1(1,'Energy deposited in Air',500, 0.,30., 0.0)
*      CALL HBOOK1(2,'Energy deposited in Pb',500, 0.,70., 0.0)
*      CALL HBOOK1(3,'Energy deposited in Cal',500, 0.,2500., 0.0)
*      CALL HBOOK1(4,'Energy deposited in Veto',500, 0.,100., 0.0)
*      CALL HBOOK2(5,'Energy Deposited dE vs E',50,0.,100.,50,0.,2000.,0.0)
C
C Rescale bin size
C
      CALL HBIGBI(0,4)
C
      END