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