*-- 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