      BLOCK DATA BAR_HSTBKD
 
C     * AUG 23/07 - B.MIVILLE

      COMMON /HSTGC1/ HORZNT, PERCNT, MIDVAL, SHADE, MEDIAN, PERIM,
     1       HFRAME, LISTOP, WINDOW, COLORS, HSTFOR, TITLE, LABEL,
     2       FREQNC, HWIND(4), COLSHA, COLREC, COLAXI, COLMED, COLTEX,
     3       COLTIT, COLPER, DRAWL, SPACE, LABMAX, CHARL, HEIGHT,
     4       ORIENT, COLSH2, SETSPA, SETSP2, MVALU, SETMVA, SETEPS,
     5       NMVAL, PMVAL, PERTIT
      LOGICAL HORZNT, PERCNT, MIDVAL, SHADE, MEDIAN, PERIM, HFRAME,
     1        LISTOP, WINDOW, COLORS, HSTFOR, TITLE, LABEL, FREQNC,
     2        DRAWL, SPACE, CHARL, MVALU, NMVAL, PMVAL, PERTIT
      COMMON /HSTGC2/ STRFOR, STRTIT, STRLAB, STRFRE, STRPER, LABTEX
      CHARACTER*96  STRTIT
      CHARACTER*55  STRFOR, STRLAB, STRFRE, STRPER
      CHARACTER*15 LABTEX(40)
      INTEGER  COLSHA, COLREC, COLAXI, COLMED, COLTEX
      INTEGER  COLTIT, COLPER, COLSH2, HEIGHT, ORIENT
C
      DATA HORZNT /.FALSE./
      DATA PERCNT /.TRUE./
      DATA MIDVAL /.TRUE./
      DATA SPACE  /.TRUE./
      DATA SHADE  /.TRUE./
      DATA DRAWL  /.FALSE./
      DATA MEDIAN /.FALSE./
      DATA PERIM  /.FALSE./
      DATA HFRAME /.TRUE./
      DATA LISTOP /.FALSE./
      DATA WINDOW /.FALSE./
      DATA COLORS /.FALSE./
      DATA HSTFOR /.FALSE./
      DATA TITLE  /.FALSE./
      DATA LABEL  /.FALSE./
      DATA FREQNC /.FALSE./
      DATA PERTIT /.FALSE./
      DATA CHARL  /.FALSE./
      DATA MVALU  /.FALSE./
      DATA NMVAL  /.TRUE./
      DATA PMVAL  /.TRUE./
      DATA HWIND  /0.,1.,0.,1./
      DATA COLSHA /1/
      DATA COLSH2 /1/
      DATA COLREC /1/
      DATA COLAXI /1/
      DATA COLMED /1/
      DATA COLTEX /1/
      DATA COLTIT /1/
      DATA COLPER /1/
      DATA HEIGHT /2/
      DATA ORIENT /0/
      DATA SETSPA /2./
      DATA SETSP2 /0./
      DATA SETMVA /-9999./
      DATA SETEPS /1.E-10/
      DATA STRFOR / '(G10.3)' /
      END
