*-- Author : John V. Morris SUBROUTINE FBOOKQ CALL HTABLE(1,'Cell No. (0-31) vs Wire Plane (1-36)$', 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$', 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. CALL HBSLIX(38,13,0.0) CALL HBOOK2(39,'RAW D-TIME DOS/FRONT $', 40, 80., 280. 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.) CALL HTABLE(40,'Wedge Pair No*2+- (0-47) vs Wire Plane (1-36)$', 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$', 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$', 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.) CALL HBOOK1(89+J,'RAW D-TIME DOS/BACK Rbins$',24,300.,1740.,0.) CALL HIDOPT(89+J,'PERR') CALL HBOOK1(170,'Run Statistics$',LENST,GMIN,GMAX,0.)