*-- Author : Stephen Burke 07/05/92 SUBROUTINE FVHBK(CDIR) *-----------------------------------------Updates 30/10/92------- **: FVHBK .......SB. New debug histograms/numbers. *-----------------------------------------Updates 06/05/92------- **: FVHBK .......SB. New deck to book z-vertex diagnostic histograms. *-----------------------------------------Updates---------------- ********************************************************************** * * * Book diagnostic histograms * * * ********************************************************************** *KEEP,FVSTEE. *KEND. ********************************************************************** CALL HCDIR('//PAWC',' ') CALL HMDIR(CDIR,'S') CALL HBOOK1(100,'CT Z-RESOLUTION$',100,-10.,10.,0.) CALL HBOOK1(101,'Z RESOLUTION$',100,-10.,10.,0.) CALL HBOOK1(102,'PULL ON Z$',100,-5.,5.,0.) CALL HBOOK1(103,'TRUE P(CHISQ)$',100,0.,1.,0.) CALL HBOOK1(201,'NHITP (PRIMARY)$',73,0.,73.,0.) CALL HBOOK1(202,'NHITP (SECONDARY)$',73,0.,73.,0.) CALL HBOOK1(203,'NHITR (PRIMARY)$',73,0.,73.,0.) CALL HBOOK1(204,'NHITR (SECONDARY)$',73,0.,73.,0.) CALL HBOOK1(205,'ZSQ (PRIMARY)$',100,0.,10000.,0.) CALL HBOOK1(206,'ZSQ (SECONDARY)$',100,0.,10000.,0.) CALL HBOOK1(207,'P (PRIMARY)$',100,0.,10.,0.) CALL HBOOK1(208,'P (SECONDARY)$',100,0.,10.,0.) CALL HBOOK1(209,'DCA (PRIMARY)$',100,0.,20.,0.) CALL HBOOK1(210,'DCA (SECONDARY)$',100,0.,20.,0.) CALL HBOOK1(211,'Z0 (PRIMARY)$',100,-50.,50.,0.) CALL HBOOK1(212,'Z0 (SECONDARY)$',100,-50.,50.,0.) CALL HBOOK1(213,'CHI (PRIMARY)$',100,0.,20.,0.) CALL HBOOK1(214,'CHI (SECONDARY)$',100,0.,20.,0.) CALL HBOOK1(300,'FRACTION OF TRACKS PRIMARY$',100,0.,1.,0.) CALL HBPRO(0,0.) CALL HMINIM(0,0.) CALL HIDOPT(0,'INTE') CALL HCDIR('//PAWC',' ') *