*-- Author :    John V. Morris
      SUBROUTINE FLK2HB(NHISTS,IERR)
        CALL GTEXT(LFG,4,NCHAR,TITLE)                                                                  
        CALL GHBINS(DTP(JL),LFG,INR,NX,XA,XB,NY,YA,YB)                                                 
        CALL GHSTAT(DTP(JL),LFG,INR,NENT(JL),SUMW(JL),RNEFF(JL),                                       
           CALL FDATA(DTP(JL),LFG,INR,0,NR,STORE,LEN)
           CALL HPAK(IDH,STORE)                                                                        
              CALL FQEND
              CALL FDATA(DTP(JL),LFG,INR,0,NR,STORE,LEN)
              CALL HPAK(IDH,STOR2)          ! ... I hope! ..?                                          
              CALL FDATA(DTP(JL),LFG,INR,0,NR,STORE,LEN)
 1001           CALL HPAK(IDSTO,STORE(LOC+1))                                                          
*