program TEST_HBOOK

c  Glen Cowan
c  5 October, 1999
c  Test program for using HBOOK

       implicit        NONE

c  Needed for HBOOK routines

       integer         hsize
       parameter       (hsize = 100000)
       integer         hmemor (hsize)
       common  /pawc/  hmemor

c  Local variables

       character*80    outfile
       integer         i, icycle, istat, num_values
       real            x

c  Initialize HBOOK, open histogram file, book histograms.

       call HLIMIT (hsize)
       outfile = 'test_hbook.his'
       call HROPEN (20, 'histog', outfile, 'N', 1024, istat)
       call HBOOK1 (17, 'x values', 50, 0., 10., 0.)

c  Get x values and enter into histogram.

       write (*, *) 'enter number of x values to get'
       read (*, *) num_values
       do i = 1, num_values
         call GET_ANOTHER_X_VALUE (x)      ! subroutine supplied by user...
         call HF1 (17, x, 1.)
       end do

c  Store histogram and close.
     
       call HROUT (0, icycle, ' ')
       call HREND ('histog')

       stop
       END