SUBROUTINE FBOOKQ
*-- Author :    John V. Morris
      SUBROUTINE FBOOKQ
      PARAMETER( NBINR=40 )           ! number of radius bins           
      PARAMETER(LENST=66)                                               
      COMMON/FTOTST/ ISTSUM(LENST)                                      
      PARAMETER( MAXL=300 )                                             
      CHARACTER*30 TL1, TL4                                             
      CHARACTER*4  DTP                                                  
      COMMON/FFARML/ NLK, NSQ(MAXL), DTP(MAXL), TL1(MAXL), TL4(MAXL),   
     &               NBX(MAXL), NBY(MAXL),                              
     &               XBA(MAXL), XBB(MAXL), YBA(MAXL), YBB(MAXL),        
     &               NHB(MAXL), LHB(MAXL)                               
                                                                        
      LOGICAL PLANAR,RADIAL                                             
      COMMON /FTQRUN/  NRUN,NRUN0,NRUN1,MAXEV,PLANAR,RADIAL             
      COMMON/FHLUN/ LUNH, LUNS, LMES, IL4L5                             
                                                                        
      LOGICAL L5                                                        
                                                                        
      L5 = .FALSE.                                                      
      IF(IL4L5.EQ.2) L5 = .TRUE.                                        
      IF(PLANAR) THEN                                                   
                                                                        
      CALL HTABLE(1,'Cell No. (0-31) vs Wire Plane (1-36)$',                                           
     &     32,-0.5,31.5,36,0.5,36.5,0.)                                 
      CALL HBOOK1(2,'HIT MULTIPLICITY/CELL$',50,-0.5,49.5,0.)                                          
                                                                        
      CALL HBOOK1(3,'RAW D-TIME ALL HITS  $',100,0.,2000.,0.)                                          
      CALL HBOOK1(7,'INTER-HIT TIME;ALL HITS$',100,0.,1000.,0.)                                        
      CALL HBOOK1(8,'INTER-HIT TIME;SM0     $',100,0.,1000.,0.)                                        
      CALL HBOOK1(9,'INTER-HIT TIME;SM1     $',100,0.,1000.,0.)                                        
      CALL HBOOK1(10,'INTER-HIT TIME;SM2     $',100,0.,1000.,0.)                                       
      CALL HBOOK2(11,'LN(Q) V T FOR ALL HITS$',                                                        
     &            32,0.,1600.,30,4.,10.,0.)                             
      CALL HBOOK1(13,'Ln(Q) for all hits$',  30,4.,10.  ,0.)                                           
      CALL HBOOK1(14,'Ln(Q) for   WIRE 1$',  30,4.,10.  ,0.)                                           
      CALL HBOOK1(15,'Ln(Q) for   WIRE 2$',  30,4.,10.  ,0.)                                           
      CALL HBOOK1(16,'Ln(Q) for   WIRE 3$',  30,4.,10.  ,0.)                                           
      CALL HBOOK1(17,'Ln(Q) for   WIRE 4$',  30,4.,10.  ,0.)                                           
                                                                        
      CALL HBOOK1(18,'Ln(Q) FOR ID=5011$', 30,4.,10.,0.)                                               
      CALL HBOOK1(19,'Ln(Q) FOR SM0    $', 30,4.,10.,0.)                                               
      CALL HBOOK1(20,'Ln(Q) FOR SM1    $', 30,4.,10.,0.)                                               
      CALL HBOOK1(21,'Ln(Q) FOR SM2    $', 30,4.,10.,0.)                                               
                                                                        
      CALL HBOOK1(22,'CLASS I 4-hit twin peaks TOTAL$', 34,-51.,51.,0.)                                
      CALL HBOOK1(23,'CLASS I 4-hit twin peaks MOD 0$', 34,-51.,51.,0.)                                
      CALL HBOOK1(24,'CLASS I 4-hit twin peaks MOD 1$', 34,-51.,51.,0.)                                
      CALL HBOOK1(25,'CLASS I 4-hit twin peaks MOD 2$', 34,-51.,51.,0.)                                
      CALL HBOOK1(26,'CLASS I 4-hit twin peaks LAY 0$', 34,-51.,51.,0.)                                
      CALL HBOOK1(27,'CLASS I 4-hit twin peaks LAY 1$', 34,-51.,51.,0.)                                
      CALL HBOOK1(28,'CLASS I 4-hit twin peaks LAY 2$', 34,-51.,51.,0.)                                
      CALL HBOOK1(29,'CLASS I 4-hit twin peaks LAY 3$', 34,-51.,51.,0.)                                
      CALL HBOOK1(30,'CLASS I 4-hit twin peaks LAY 4$', 34,-51.,51.,0.)                                
      CALL HBOOK1(31,'CLASS I 4-hit twin peaks LAY 5$', 34,-51.,51.,0.)                                
      CALL HBOOK1(32,'CLASS I 4-hit twin peaks LAY 6$', 34,-51.,51.,0.)                                
      CALL HBOOK1(33,'CLASS I 4-hit twin peaks LAY 7$', 34,-51.,51.,0.)                                
      CALL HBOOK1(34,'CLASS I 4-hit twin peaks LAY 8$', 34,-51.,51.,0.)                                
                                                                        
      CALL HBOOK1(1022,'MULTI 1 3-hit twin peaks TOTAL$',34,-51.,51.,0.)                               
      CALL HBOOK1(1023,'MULTI 1 3-hit twin peaks MOD 0$',34,-51.,51.,0.)                               
      CALL HBOOK1(1024,'MULTI 1 3-hit twin peaks MOD 1$',34,-51.,51.,0.)                               
      CALL HBOOK1(1025,'MULTI 1 3-hit twin peaks MOD 2$',34,-51.,51.,0.)                               
      CALL HBOOK1(1026,'MULTI 1 3-hit twin peaks LAY 0$',34,-51.,51.,0.)                               
      CALL HBOOK1(1027,'MULTI 1 3-hit twin peaks LAY 1$',34,-51.,51.,0.)                               
      CALL HBOOK1(1028,'MULTI 1 3-hit twin peaks LAY 2$',34,-51.,51.,0.)                               
      CALL HBOOK1(1029,'MULTI 1 3-hit twin peaks LAY 3$',34,-51.,51.,0.)                               
      CALL HBOOK1(1030,'MULTI 1 3-hit twin peaks LAY 4$',34,-51.,51.,0.)                               
      CALL HBOOK1(1031,'MULTI 1 3-hit twin peaks LAY 5$',34,-51.,51.,0.)                               
      CALL HBOOK1(1032,'MULTI 1 3-hit twin peaks LAY 6$',34,-51.,51.,0.)                               
      CALL HBOOK1(1033,'MULTI 1 3-hit twin peaks LAY 7$',34,-51.,51.,0.)                               
      CALL HBOOK1(1034,'MULTI 1 3-hit twin peaks LAY 8$',34,-51.,51.,0.)                               
                                                                        
      CALL HBOOK1(2022,'MULTI 0 3-hit twin peaks TOTAL$',34,-51.,51.,0.)                               
      CALL HBOOK1(2023,'MULTI 0 3-hit twin peaks MOD 0$',34,-51.,51.,0.)                               
      CALL HBOOK1(2024,'MULTI 0 3-hit twin peaks MOD 1$',34,-51.,51.,0.)                               
      CALL HBOOK1(2025,'MULTI 0 3-hit twin peaks MOD 2$',34,-51.,51.,0.)                               
      CALL HBOOK1(2026,'MULTI 0 3-hit twin peaks LAY 0$',34,-51.,51.,0.)                               
      CALL HBOOK1(2027,'MULTI 0 3-hit twin peaks LAY 1$',34,-51.,51.,0.)                               
      CALL HBOOK1(2028,'MULTI 0 3-hit twin peaks LAY 2$',34,-51.,51.,0.)                               
      CALL HBOOK1(2029,'MULTI 0 3-hit twin peaks LAY 3$',34,-51.,51.,0.)                               
      CALL HBOOK1(2030,'MULTI 0 3-hit twin peaks LAY 4$',34,-51.,51.,0.)                               
      CALL HBOOK1(2031,'MULTI 0 3-hit twin peaks LAY 5$',34,-51.,51.,0.)                               
      CALL HBOOK1(2032,'MULTI 0 3-hit twin peaks LAY 6$',34,-51.,51.,0.)                               
      CALL HBOOK1(2033,'MULTI 0 3-hit twin peaks LAY 7$',34,-51.,51.,0.)                               
      CALL HBOOK1(2034,'MULTI 0 3-hit twin peaks LAY 8$',34,-51.,51.,0.)                               
                                                                        
      CALL HBOOK2(38,'RAW D-TIME DOS/BACK  $', 40,800.,1200.                                           
     &                                         ,13,0.,13.,0.)           
      CALL HBSLIX(38,13,0.0)                                                                           
      CALL HBOOK2(39,'RAW D-TIME DOS/FRONT $', 40, 80., 280.                                           
     &                                         ,13,0.,13.,0.)           
      CALL HBSLIX(39,13,0.0)                                                                           
                                                                        
      CALL HBOOK1(138,'RAW D-TIME DOS/BACK  $', 40,800.,1200.,0.)                                      
      CALL HBOOK1(139,'RAW D-TIME DOS/BACK  $', 40,800.,1200.,0.)                                      
      CALL HBOOK1(140,'RAW D-TIME DOS/BACK  $', 40,800.,1200.,0.)                                      
      CALL HBOOK1(141,'RAW D-TIME DOS/BACK  $', 40,800.,1200.,0.)                                      
      CALL HBOOK1(142,'RAW D-TIME DOS/BACK  $', 40,800.,1200.,0.)                                      
      CALL HBOOK1(143,'RAW D-TIME DOS/BACK  $', 40,800.,1200.,0.)                                      
      CALL HBOOK1(144,'RAW D-TIME DOS/BACK  $', 40,800.,1200.,0.)                                      
      CALL HBOOK1(145,'RAW D-TIME DOS/BACK  $', 40,800.,1200.,0.)                                      
      CALL HBOOK1(146,'RAW D-TIME DOS/BACK  $', 40,800.,1200.,0.)                                      
      CALL HBOOK1(147,'RAW D-TIME DOS/BACK  $', 40,800.,1200.,0.)                                      
      CALL HBOOK1(148,'RAW D-TIME DOS/BACK  $', 40,800.,1200.,0.)                                      
      CALL HBOOK1(149,'RAW D-TIME DOS/BACK  $', 40,800.,1200.,0.)                                      
      CALL HBOOK1(150,'RAW D-TIME DOS/BACK  $', 40,800.,1200.,0.)                                      
                                                                        
      CALL HBOOK1(151,'RAW D-TIME DOS/FRONT $', 40, 80., 280.,0.)                                      
      CALL HBOOK1(152,'RAW D-TIME DOS/FRONT $', 40, 80., 280.,0.)                                      
      CALL HBOOK1(153,'RAW D-TIME DOS/FRONT $', 40, 80., 280.,0.)                                      
      CALL HBOOK1(154,'RAW D-TIME DOS/FRONT $', 40, 80., 280.,0.)                                      
      CALL HBOOK1(155,'RAW D-TIME DOS/FRONT $', 40, 80., 280.,0.)                                      
      CALL HBOOK1(156,'RAW D-TIME DOS/FRONT $', 40, 80., 280.,0.)                                      
      CALL HBOOK1(157,'RAW D-TIME DOS/FRONT $', 40, 80., 280.,0.)                                      
      CALL HBOOK1(158,'RAW D-TIME DOS/FRONT $', 40, 80., 280.,0.)                                      
      CALL HBOOK1(159,'RAW D-TIME DOS/FRONT $', 40, 80., 280.,0.)                                      
      CALL HBOOK1(160,'RAW D-TIME DOS/FRONT $', 40, 80., 280.,0.)                                      
      CALL HBOOK1(161,'RAW D-TIME DOS/FRONT $', 40, 80., 280.,0.)                                      
      CALL HBOOK1(162,'RAW D-TIME DOS/FRONT $', 40, 80., 280.,0.)                                      
      CALL HBOOK1(163,'RAW D-TIME DOS/FRONT $', 40, 80., 280.,0.)                                      
                                                                        
      NLK = 0                ! zero histogram counter                   
          NLK = NLK + 1                                                 
          NSQ(NLK) = 1                                                  
          DTP(NLK) = 'HD'                                               
          TL1(NLK) = 'FT Planar'                                        
          TL4(NLK) = 'Cell No vs Wire Plane'                            
          NBX(NLK) = 32                                                 
          NBY(NLK) = 36                                                 
          XBA(NLK) = -0.5                                               
          XBB(NLK) = 31.5                                               
          YBA(NLK) = 0.5                                                
          YBB(NLK) = 36.5                                               
          NHB(NLK) = 1                                                  
          LHB(NLK) = 1                                                  
                                                                        
                                                                        
          NLK = NLK + 1                                                 
          NSQ(NLK) = 2                                                  
          DTP(NLK) = 'HS'                                               
          TL1(NLK) = 'FT Planar'                                        
          TL4(NLK) = 'Hit Multiplicity/Cell'                            
          NBX(NLK) = 50                                                 
          NBY(NLK) =  0                                                 
          XBA(NLK) = -0.5                                               
          XBB(NLK) = 49.5                                               
          YBA(NLK) = 0.0                                                
          YBB(NLK) = 0.0                                                
          NHB(NLK) = 1                                                  
          LHB(NLK) = 2                                                  
                                                                        
                                                                        
          NLK = NLK + 1                                                 
          NSQ(NLK) = 3                                                  
          DTP(NLK) = 'HS'                                               
          TL1(NLK) = 'FT Planar'                                        
          TL4(NLK) = 'Raw D-Time ALL Hits'                              
          NBX(NLK) = 100                                                
          NBY(NLK) = 0                                                  
          XBA(NLK) = 0.0                                                
          XBB(NLK) = 2000.0                                             
          YBA(NLK) = 0.0                                                
          YBB(NLK) = 0.0                                                
          NHB(NLK) = 1                                                  
          LHB(NLK) = 3                                                  
                                                                        
          NLK = NLK + 1                                                 
          NSQ(NLK) = 4                                                  
          DTP(NLK) = 'HD'                                               
          TL1(NLK) = 'FT Planar'                                        
          TL4(NLK) = 'Inter-Hit Time, ALL + per SM'                     
          NBX(NLK) = 100                                                
          NBY(NLK) = 4                                                  
          XBA(NLK) = 0.0                                                
          XBB(NLK) = 1000.0                                             
          YBA(NLK) = 0.0                                                
          YBB(NLK) = 4.0                                                
          NHB(NLK) = 4                                                  
          LHB(NLK) = 7                                                  
                                                                        
          NLK = NLK + 1                                                 
          NSQ(NLK) = 5                                                  
          DTP(NLK) = 'HD'                                               
          TL1(NLK) = 'FT Planar'                                        
          TL4(NLK) = 'Ln(Q) vs T, ALL Hits'                             
          NBX(NLK) = 32                                                 
          NBY(NLK) = 30                                                 
          XBA(NLK) = 0.0                                                
          XBB(NLK) = 1600.0                                             
          YBA(NLK) = 4.0                                                
          YBB(NLK) = 10.0                                               
          NHB(NLK) = 1                                                  
          LHB(NLK) = 11                                                 
                                                                        
          NLK = NLK + 1                                                 
          NSQ(NLK) = 6                                                  
          DTP(NLK) = 'HD'                                               
          TL1(NLK) = 'FT Planar'                                        
          TL4(NLK) = 'Ln(Q) ALL Hits + per wire'                        
          NBX(NLK) = 30                                                 
          NBY(NLK) = 5                                                  
          XBA(NLK) = 4.0                                                
          XBB(NLK) = 10.0                                               
          YBA(NLK) = 0.0                                                
          YBB(NLK) = 5.0                                                
          NHB(NLK) = 5                                                  
          LHB(NLK) = 13                                                 
                                                                        
          NLK = NLK + 1                                                 
          NSQ(NLK) = 7                                                  
          DTP(NLK) = 'HD'                                               
          TL1(NLK) = 'FT Planar'                                        
          TL4(NLK) = 'Ln(Q) for Cluster hits + per SM'                  
          NBX(NLK) = 30                                                 
          NBY(NLK) = 4                                                  
          XBA(NLK) = 4.0                                                
          XBB(NLK) = 10.0                                               
          YBA(NLK) = 0.0                                                
          YBB(NLK) = 4.0                                                
          NHB(NLK) = 4                                                  
          LHB(NLK) = 18                                                 
                                                                        
          NLK = NLK + 1                                                 
          NSQ(NLK) = 8                                                  
          DTP(NLK) = 'HD'                                               
          TL1(NLK) = 'FT Planar'                                        
          TL4(NLK) = '+/-2S/V All+SM+Layer'                             
          NBX(NLK) = 34                                                 
          NBY(NLK) = 39                                                 
          XBA(NLK) = -51.                                               
          XBB(NLK) = 51.                                                
          YBA(NLK) = 0.                                                 
          YBB(NLK) = 39.                                                
          NHB(NLK) = 39                                                 
          LHB(NLK) = 22                                                 
                                                                        
          NLK = NLK + 1                                                 
          NSQ(NLK) = 9                                                  
          DTP(NLK) = 'HD'                                               
          IF(L5) DTP(NLK) = 'HDW'                                       
          TL1(NLK) = 'FT Planar'                                        
          TL4(NLK) = 'Raw D-Time DOS/Back'                              
          NBX(NLK) = 40                                                 
          NBY(NLK) = 13                                                 
          XBA(NLK) = 800.                                               
          XBB(NLK) = 1200.                                              
          YBA(NLK) = 0.                                                 
          YBB(NLK) = 13.                                                
          NHB(NLK) = 13                                                 
          LHB(NLK) = 138                                                
                                                                        
          NLK = NLK + 1                                                 
          NSQ(NLK) = 10                                                 
          DTP(NLK) = 'HD'                                               
          IF(L5) DTP(NLK) = 'HDW'                                       
          TL1(NLK) = 'FT Planar'                                        
          TL4(NLK) = 'Raw D-Time DOS/Front'                             
          NBX(NLK) = 40                                                 
          NBY(NLK) = 13                                                 
          XBA(NLK) = 80.                                                
          XBB(NLK) = 280.                                               
          YBA(NLK) = 0.                                                 
          YBB(NLK) = 13.                                                
          NHB(NLK) = 13                                                 
          LHB(NLK) = 151                                                
                                                                        
      ENDIF                                                             
                                                                        
                                                                        
                                                                        
      IF(RADIAL) THEN                                                   
      CALL HTABLE(40,'Wedge Pair No*2+- (0-47) vs Wire Plane (1-36)$',                                 
     &     48,-0.5,47.5,36,0.5,36.5,0.)                                 
      CALL HBOOK1(41,'HIT MULTIPLICITY/CELL$',30,-0.5,29.5,0.)                                         
                                                                        
      CALL HBOOK1(42,'RAW D-TIME ALL HITS  $',100,0.,2000.,0.)                                         
      CALL HBOOK1(44,'Radius     ALL HITS  $',80,-80.0,80.0,0.)                                        
      CALL HBOOK1(45,'ABS(Radius) ALL HITS  $',80,0.0,80.0,0.)                                         
      CALL HBOOK2(46,' Drift T vs Radius ALL HITS$',                                                   
     &            50,0.,2500.,40,0.0,80.0,0.)                           
                                                                        
      CALL HBOOK1(49,'INTER-HIT TIME;ALL HITS$',100,0.,1000.,0.)                                       
      CALL HBOOK1(50,'INTER-HIT TIME;SM0     $',100,0.,1000.,0.)                                       
      CALL HBOOK1(51,'INTER-HIT TIME;SM1     $',100,0.,1000.,0.)                                       
      CALL HBOOK1(52,'INTER-HIT TIME;SM2     $',100,0.,1000.,0.)                                       
                                                                        
      CALL HBOOK2(53,'LN(Q) V T FOR ALL HITS$',                                                        
     &            50,0.,2500.,30,4.,10.,0.)                             
      CALL HBOOK1(54,'LN(Q) FOR ALL HITS$',30,4.,10.,0.)                                               
                                                                        
      CALL HBOOK1(55,'Ln(Q) for all hits$',   30,4.,10.  ,0.)                                          
      CALL HBOOK1(56,'Ln(Q)       WIRE  1$',  30,4.,10.  ,0.)                                          
      CALL HBOOK1(57,'Ln(Q)       WIRE  2$',  30,4.,10.  ,0.)                                          
      CALL HBOOK1(58,'Ln(Q)       WIRE  3$',  30,4.,10.  ,0.)                                          
      CALL HBOOK1(59,'Ln(Q)       WIRE  4$',  30,4.,10.  ,0.)                                          
      CALL HBOOK1(60,'Ln(Q)       WIRE  5$',  30,4.,10.  ,0.)                                          
      CALL HBOOK1(61,'Ln(Q)       WIRE  6$',  30,4.,10.  ,0.)                                          
      CALL HBOOK1(62,'Ln(Q)       WIRE  7$',  30,4.,10.  ,0.)                                          
      CALL HBOOK1(63,'Ln(Q)       WIRE  8$',  30,4.,10.  ,0.)                                          
      CALL HBOOK1(64,'Ln(Q)       WIRE  9$',  30,4.,10.  ,0.)                                          
      CALL HBOOK1(65,'Ln(Q)       WIRE 10$',  30,4.,10.  ,0.)                                          
      CALL HBOOK1(66,'Ln(Q)       WIRE 11$',  30,4.,10.  ,0.)                                          
      CALL HBOOK1(67,'Ln(Q)       WIRE 12$',  30,4.,10.  ,0.)                                          
                                                                        
      CALL HBOOK1(68,'Q FOR ID=  72$', 50,0.,5000.,0.)                                                 
      CALL HBOOK1(69,'Q FOR SM0    $', 50,0.,5000.,0.)                                                 
      CALL HBOOK1(70,'Q FOR SM1    $', 50,0.,5000.,0.)                                                 
      CALL HBOOK1(71,'Q FOR SM2    $', 50,0.,5000.,0.)                                                 
                                                                        
      CALL HBOOK1(72,'CLASS I 4-hit twin peaks ALL  $', 34,-51.,51.,0.)                                
      CALL HBOOK1(73,'CLASS I 4-hit twin peaks MOD 0$', 34,-51.,51.,0.)                                
      CALL HBOOK1(74,'CLASS I 4-hit twin peaks MOD 1$', 34,-51.,51.,0.)                                
      CALL HBOOK1(75,'CLASS I 4-hit twin peaks MOD 2$', 34,-51.,51.,0.)                                
      CALL HBOOK1(76,'CLASS I 4-hit twin peaks LAY 0$', 34,-51.,51.,0.)                                
      CALL HBOOK1(77,'CLASS I 4-hit twin peaks LAY 1$', 34,-51.,51.,0.)                                
      CALL HBOOK1(78,'CLASS I 4-hit twin peaks LAY 2$', 34,-51.,51.,0.)                                
      CALL HBOOK1(79,'CLASS I 4-hit twin peaks LAY 3$', 34,-51.,51.,0.)                                
      CALL HBOOK1(80,'CLASS I 4-hit twin peaks LAY 4$', 34,-51.,51.,0.)                                
      CALL HBOOK1(81,'CLASS I 4-hit twin peaks LAY 5$', 34,-51.,51.,0.)                                
      CALL HBOOK1(82,'CLASS I 4-hit twin peaks LAY 6$', 34,-51.,51.,0.)                                
      CALL HBOOK1(83,'CLASS I 4-hit twin peaks LAY 7$', 34,-51.,51.,0.)                                
      CALL HBOOK1(84,'CLASS I 4-hit twin peaks LAY 8$', 34,-51.,51.,0.)                                
                                                                        
      CALL HBOOK1(1072,'MULTI 1 3-hit twin peaks ALL  $',34,-51.,51.,0.)                               
      CALL HBOOK1(1073,'MULTI 1 3-hit twin peaks MOD 0$',34,-51.,51.,0.)                               
      CALL HBOOK1(1074,'MULTI 1 3-hit twin peaks MOD 1$',34,-51.,51.,0.)                               
      CALL HBOOK1(1075,'MULTI 1 3-hit twin peaks MOD 2$',34,-51.,51.,0.)                               
      CALL HBOOK1(1076,'MULTI 1 3-hit twin peaks LAY 0$',34,-51.,51.,0.)                               
      CALL HBOOK1(1077,'MULTI 1 3-hit twin peaks LAY 1$',34,-51.,51.,0.)                               
      CALL HBOOK1(1078,'MULTI 1 3-hit twin peaks LAY 2$',34,-51.,51.,0.)                               
      CALL HBOOK1(1079,'MULTI 1 3-hit twin peaks LAY 3$',34,-51.,51.,0.)                               
      CALL HBOOK1(1080,'MULTI 1 3-hit twin peaks LAY 4$',34,-51.,51.,0.)                               
      CALL HBOOK1(1081,'MULTI 1 3-hit twin peaks LAY 5$',34,-51.,51.,0.)                               
      CALL HBOOK1(1082,'MULTI 1 3-hit twin peaks LAY 6$',34,-51.,51.,0.)                               
      CALL HBOOK1(1083,'MULTI 1 3-hit twin peaks LAY 7$',34,-51.,51.,0.)                               
      CALL HBOOK1(1084,'MULTI 1 3-hit twin peaks LAY 8$',34,-51.,51.,0.)                               
                                                                        
      CALL HBOOK1(2072,'MULTI 0 3-hit twin peaks ALL  $',34,-51.,51.,0.)                               
      CALL HBOOK1(2073,'MULTI 0 3-hit twin peaks MOD 0$',34,-51.,51.,0.)                               
      CALL HBOOK1(2074,'MULTI 0 3-hit twin peaks MOD 1$',34,-51.,51.,0.)                               
      CALL HBOOK1(2075,'MULTI 0 3-hit twin peaks MOD 2$',34,-51.,51.,0.)                               
      CALL HBOOK1(2076,'MULTI 0 3-hit twin peaks LAY 0$',34,-51.,51.,0.)                               
      CALL HBOOK1(2077,'MULTI 0 3-hit twin peaks LAY 1$',34,-51.,51.,0.)                               
      CALL HBOOK1(2078,'MULTI 0 3-hit twin peaks LAY 2$',34,-51.,51.,0.)                               
      CALL HBOOK1(2079,'MULTI 0 3-hit twin peaks LAY 3$',34,-51.,51.,0.)                               
      CALL HBOOK1(2080,'MULTI 0 3-hit twin peaks LAY 4$',34,-51.,51.,0.)                               
      CALL HBOOK1(2081,'MULTI 0 3-hit twin peaks LAY 5$',34,-51.,51.,0.)                               
      CALL HBOOK1(2082,'MULTI 0 3-hit twin peaks LAY 6$',34,-51.,51.,0.)                               
      CALL HBOOK1(2083,'MULTI 0 3-hit twin peaks LAY 7$',34,-51.,51.,0.)                               
      CALL HBOOK1(2084,'MULTI 0 3-hit twin peaks LAY 8$',34,-51.,51.,0.)                               
                                                                        
      CALL HBOOK1(88,'DOS/BACK as F(RAD)  $',NBINR,  0.,  80.,0.)                                      
      CALL HBOOK1(89,'RAW D-TIME DOS/FRONT R < 80 $',60,80., 380.,0.)                                  
                                                                        
      DO 10 J = 1 , NBINR                                               
       CALL HBOOK1(89+J,'RAW D-TIME DOS/BACK Rbins$',24,300.,1740.,0.)                                 
       CALL HIDOPT(89+J,'PERR')                                                                        
   10 CONTINUE                                                          
                                                                        
                                                                        
          NLK = NLK + 1                                                 
          NSQ(NLK) = 11                                                 
          DTP(NLK) = 'HD'                                               
          TL1(NLK) = 'FT Radial'                                        
          TL4(NLK) = 'Wedge Pair*2+- vs Wire Plane'                     
          NBX(NLK) = 48                                                 
          NBY(NLK) = 36                                                 
          XBA(NLK) = -0.5                                               
          XBB(NLK) = 47.5                                               
          YBA(NLK) = 0.5                                                
          YBB(NLK) = 36.5                                               
          NHB(NLK) = 1                                                  
          LHB(NLK) = 40                                                 
                                                                        
                                                                        
          NLK = NLK + 1                                                 
          NSQ(NLK) = 12                                                 
          DTP(NLK) = 'HS'                                               
          TL1(NLK) = 'FT Radial'                                        
          TL4(NLK) = 'Hit Multiplicity/Cell'                            
          NBX(NLK) = 30                                                 
          NBY(NLK) = 0                                                  
          XBA(NLK) = -0.5                                               
          XBB(NLK) = 29.5                                               
          YBA(NLK) = 0.                                                 
          YBB(NLK) = 0.                                                 
          NHB(NLK) = 1                                                  
          LHB(NLK) = 41                                                 
                                                                        
          NLK = NLK + 1                                                 
          NSQ(NLK) = 13                                                 
          DTP(NLK) = 'HS'                                               
          TL1(NLK) = 'FT Radial'                                        
          TL4(NLK) = 'Raw D-Time ALL Hits'                              
          NBX(NLK) = 100                                                
          NBY(NLK) = 0                                                  
          XBA(NLK) = 0.                                                 
          XBB(NLK) = 2000.                                              
          YBA(NLK) = 0.                                                 
          YBB(NLK) = 0.                                                 
          NHB(NLK) = 1                                                  
          LHB(NLK) = 42                                                 
                                                                        
                                                                        
          NLK = NLK + 1                                                 
          NSQ(NLK) = 15                                                 
          DTP(NLK) = 'HS'                                               
          TL1(NLK) = 'FT Radial'                                        
          TL4(NLK) = 'ABS(Radius)  ALL Hits'                            
          NBX(NLK) = 80                                                 
          NBY(NLK) = 0                                                  
          XBA(NLK) = 0.                                                 
          XBB(NLK) = 80.                                                
          YBA(NLK) = 0.                                                 
          YBB(NLK) = 0.                                                 
          NHB(NLK) = 1                                                  
          LHB(NLK) = 45                                                 
                                                                        
                                                                        
                                                                        
                                                                        
          NLK = NLK + 1                                                 
          NSQ(NLK) = 19                                                 
          DTP(NLK) = 'HD'                                               
          TL1(NLK) = 'FT Radial'                                        
          TL4(NLK) = 'Inter-Hit Time all + SM'                          
          NBX(NLK) = 100                                                
          NBY(NLK) = 4                                                  
          XBA(NLK) = 0.                                                 
          XBB(NLK) = 1000.                                              
          YBA(NLK) = 0.                                                 
          YBB(NLK) = 4.                                                 
          NHB(NLK) = 4                                                  
          LHB(NLK) = 49                                                 
                                                                        
          NLK = NLK + 1                                                 
          NSQ(NLK) = 20                                                 
          DTP(NLK) = 'HD'                                               
          TL1(NLK) = 'FT Radial'                                        
          TL4(NLK) = 'Ln(Q) vs T, ALL Hits'                             
          NBX(NLK) = 50                                                 
          NBY(NLK) = 30                                                 
          XBA(NLK) = 0.                                                 
          XBB(NLK) = 2500.                                              
          YBA(NLK) = 4.                                                 
          YBB(NLK) = 10.                                                
          NHB(NLK) = 1                                                  
          LHB(NLK) = 53                                                 
                                                                        
          NLK = NLK + 1                                                 
          NSQ(NLK) = 21                                                 
          DTP(NLK) = 'HD'                                               
          TL1(NLK) = 'FT Radial'                                        
          TL4(NLK) = 'Ln(Q) ALL Hits and per wire'                      
          NBX(NLK) = 30                                                 
          NBY(NLK) = 13                                                 
          XBA(NLK) = 4.                                                 
          XBB(NLK) = 10.                                                
          YBA(NLK) = 0.                                                 
          YBB(NLK) = 13.                                                
          NHB(NLK) = 13                                                 
          LHB(NLK) = 55                                                 
                                                                        
          NLK = NLK + 1                                                 
          NSQ(NLK) = 22                                                 
          DTP(NLK) = 'HD'                                               
          TL1(NLK) = 'FT Radial'                                        
          TL4(NLK) = 'Q for Cluster hits + SM'                          
          NBX(NLK) = 50                                                 
          NBY(NLK) = 4                                                  
          XBA(NLK) = 0.                                                 
          XBB(NLK) = 5000.                                              
          YBA(NLK) = 0.                                                 
          YBB(NLK) = 4.                                                 
          NHB(NLK) = 4                                                  
          LHB(NLK) = 68                                                 
                                                                        
          NLK = NLK + 1                                                 
          NSQ(NLK) = 23                                                 
          DTP(NLK) = 'HD'                                               
          TL1(NLK) = 'FT Radial'                                        
          TL4(NLK) = '+/-2S/V All + SM + Layer'                         
          NBX(NLK) = 34                                                 
          NBY(NLK) = 39                                                 
          XBA(NLK) = -51.                                               
          XBB(NLK) = 51.                                                
          YBA(NLK) = 0.                                                 
          YBB(NLK) = 39.                                                
          NHB(NLK) = 39                                                 
          LHB(NLK) = 72                                                 
                                                                        
          NLK = NLK + 1                                                 
          NSQ(NLK) = 24                                                 
          DTP(NLK) = 'HS'                                               
          IF(L5) DTP(NLK) = 'HSW'                                       
          TL1(NLK) = 'FT Radial'                                        
          TL4(NLK) = 'Raw D-Time DOS/Front R<80'                        
          NBX(NLK) = 60                                                 
          NBY(NLK) = 0                                                  
          XBA(NLK) = 80.                                                
          XBB(NLK) = 380.                                               
          YBA(NLK) = 0.                                                 
          YBB(NLK) = 0.                                                 
          NHB(NLK) = 1                                                  
          LHB(NLK) = 89                                                 
                                                                        
          NLK = NLK + 1                                                 
          NSQ(NLK) = 25                                                 
          DTP(NLK) = 'HD'                                               
          IF(L5) DTP(NLK) = 'HDW'                                       
          TL1(NLK) = 'FT Radial'                                        
          TL4(NLK) = 'Raw D-Time DOS/Back Rbin'                         
          NBX(NLK) = 24                                                 
          NBY(NLK) = NBINR                                              
          XBA(NLK) = 300.                                               
          XBB(NLK) = 1740.                                              
          YBA(NLK) = 0.                                                 
          YBB(NLK) = FLOAT(NBINR)                                       
          NHB(NLK) = NBINR                                              
          LHB(NLK) = 90                                                 
      ENDIF                                                             
                                                                        
      GMIN = 0.5                                                        
      GMAX = FLOAT(LENST) + 0.5                                         
      CALL HBOOK1(170,'Run Statistics$',LENST,GMIN,GMAX,0.)                                            
                                                                        
          NLK = NLK + 1                                                 
          NSQ(NLK) = 26                                                 
          DTP(NLK) = 'HS'                                               
          IF(L5) DTP(NLK) = 'HSW'                                       
          TL1(NLK) = 'FTD Monitoring'                                   
          TL4(NLK) = 'Run Statistics'                                   
          NBX(NLK) = LENST                                              
          NBY(NLK) = 0                                                  
          XBA(NLK) = GMIN                                               
          XBB(NLK) = GMAX                                               
          YBA(NLK) = 0.                                                 
          YBB(NLK) = 0.                                                 
          NHB(NLK) = 1                                                  
          LHB(NLK) = 170                                                
          IF(NRUN0.GE.59419.AND.NRUN0.LE.59922) NBX(NLK) = 65           
                                                                        
      RETURN                                                            
      END