C
C     Global 
C
      INTEGER NPLOTS
      PARAMETER ( NPLOTS=20000 )

      REAL*8 HIST(NPLOTS,100),XHIS(NPLOTS,100),HDEL(NPLOTS),HMIN(NPLOTS)
     &      ,HMAX(NPLOTS),USCORE(NPLOTS),OSCORE(NPLOTS)
     &      ,HAVG(NPLOTS),HINT(NPLOTS),HSIG(NPLOTS)
      INTEGER NBIN(NPLOTS),IHIS(NPLOTS,100),IUSCORE(NPLOTS),IOSCORE(NPLOTS)
     &       ,IENT(NPLOTS),NHIST
      CHARACTER*3  BOOK(NPLOTS)
      CHARACTER*40 TITLE(NPLOTS)
c    
      COMMON/HISTO/HIST,XHIS,HDEL,HMIN,HMAX,USCORE,OSCORE
     &            ,HAVG,HINT,HSIG,NBIN,IHIS,IUSCORE,IOSCORE,IENT,NHIST
     &            ,BOOK,TITLE