%N pgbin %F $MIR/src/pgbin.f
%D Histogram of binned data
%B
      SUBROUTINE PGBIN (NBIN, X, DATA, CENTER)
      INTEGER NBIN
      REAL X(*), DATA(*)
      LOGICAL CENTER

 Plot a histogram of NBIN values with X(1..NBIN) values along
 the ordinate, and DATA(1...NBIN) along the abscissa. Bin width is
 spacing between X values.

 Arguments:
  NBIN   (input)  : number of values.
  X      (input)  : abscissae of bins.
  DATA   (input)  : data values of bins.
  CENTER (input)  : if .TRUE., the X values denote the center of the
                    bin; if .FALSE., the X values denote the lower
                    edge (in X) of the bin.
