subroutine myhbook(pmin,pmax,nchannel)
*     ===================
c
      implicit none
c
*     - My code starts here -
*
      integer nchannel
      real pmin,pmax
      integer ich1/50/
      logical first/.true./
      if (first) then
         call hbook1(1,'Geometry of CLAS++',
     .        1001,0.001,5.01,0.)
         call hbook1(2,'B?X!-field of CLAS++',
     .        1001,0.001,5.01,0.)
         call hbook1(3,'B?Y!-field of CLAS++',
     .        1001,0.001,5.01,0.)
         call hbook1(4,'B?Z!-field of CLAS++',
     .        1001,0.001,5.01,0.)
         
         call hbook1(40,'dP/P sum ',nchannel,pmin,pmax,0.)

         call hbook1(10,'dP/P sum ',nchannel,pmin,pmax,0.)
         call hbook1(11,'dP/P pos ',nchannel,pmin,pmax,0.)
         call hbook1(12,'dP/P scat',nchannel,pmin,pmax,0.)
         call hbook1(20,'d[Q] sum ',nchannel,pmin,pmax,0.)
         call hbook1(21,'d[Q] pos ',nchannel,pmin,pmax,0.)
         call hbook1(22,'d[Q] scat',nchannel,pmin,pmax,0.)
         call hbook1(30,'dX  sum ', nchannel,pmin,pmax,0.)
         call hbook1(31,'dX  pos ', nchannel,pmin,pmax,0.)
         call hbook1(32,'dX  scat', nchannel,pmin,pmax,0.)

         first=.FALSE.
      endif
      
      return
      end