*-- Author : S.Burke SUBROUTINE FFHBK *-----------------------------------------Updates 03/05/93------- **: FFHBK.......SB. Reinstate missing track histograms. *-----------------------------------------Updates 29/10/92------- **: FFHBK .......SB. Debug steering changed slightly. *-----------------------------------------Updates 07/08/92------- **: FFHBK .......SB. New histograms. *-----------------------------------------Updates---------------- ********************************************************************** * * * Book diagnostic histograms * * * ********************************************************************** *KEEP,FKNPL. * * Per-track values can go in H1WORK; note that LTRUE and LFIRST must * be set at least per event. * * This is about 36k words long; the remaining common blocks are * about 3.6k in total. Some of this could be in /H1WORK/, but the * blocks would have to be reorganised. * * /FKPROJ/ * /FKFILT/ * /FKSMTH/ * /FKINT/ * /FKRSID/ * /FKTRUE/ * /FKDBG/ *KEEP,FFSTEE. *KEEP,FFDBG. *KEND. ********************************************************************** CALL HCDIR('//PAWC',' ') CALL HMDIR(CFDBG,'S') CALL HBOOK1(101,'TRACK ANGLE CORR (PLANAR)$',100,0.,0.025,0.) CALL HBOOK1(102,'TRACK ANGLE CORR (RADIAL)$',100,0.,0.025,0.) CALL HBOOK1(103,'TRACK ANGLE (PLANAR)$',100,0.,1.,0.) CALL HBOOK1(104,'TRACK ANGLE (RADIAL)$',100,0.,1.,0.) CALL HBOOK1(105,'EVT0 CORRECTION$',100,-0.025,0.025,0.) CALL HBOOK1(106,'TOF CORR (PLANAR)$',100,-0.025,0.025,0.) CALL HBOOK1(107,'TOF CORR (RADIAL)$',100,-0.025,0.025,0.) CALL HBOOK1(108,'PROP CORRECTION$',100,-0.025,0.025,0.) CALL HBOOK1(109,'B-FIELD CORR (PLANAR)$',100,-0.025,0.025,0.) CALL HBOOK1(110,'B-FIELD CORR (RADIAL)$',100,-0.025,0.025,0.) CALL HBOOK1(111,'DELTA(B) (PLANAR)$',100,-0.2,0.2,0.) CALL HBOOK1(112,'DELTA(B) (RADIAL)$',100,-0.2,0.2,0.) CALL HBOOK1(113,'TOTAL CORR (PLANAR)$',100,-0.025,0.025,0.) CALL HBOOK1(114,'TOTAL CORR (RADIAL)$',100,-0.025,0.025,0.) CALL HBOOK1(300,'NUMBER OF TRACKS$',100,0.,100.,0.) IF (LTRUTH) CALL HBOOK1(301,'P(CHISQ)$',100,0.,1.,0.) CALL HBOOK1(311,'EFFICIENCY (PLANAR)$',100,0.,1.,0.) CALL HBOOK1(312,'EFFICIENCY (RADIAL)$',100,0.,1.,0.) CALL HBOOK1(313,'EFFICIENCY',100,0.,1.,0.) CALL HBOOK1(314,'ERROR RATE (PLANAR)$',100,0.,1.,0.) CALL HBOOK1(315,'ERROR RATE (RADIAL)$',100,0.,1.,0.) CALL HBOOK1(316,'ERROR RATE$',100,0.,1.,0.) CALL HBOOK1(321,'NUMBER OF HITS (PLANAR)$',100,0.,100.,0.) CALL HBOOK1(322,'NUMBER OF HITS (RADIAL)$',100,0.,100.,0.) CALL HBOOK1(323,'HITS BY MODULE$',100,0.,100.,0.) CALL HBOOK1(331,'MISSING TRACKS$',100,0.,100.,0.) CALL HBOOK1(332,'HITS PER MISSING TRACK (PLANAR)$' CALL HBOOK1(333,'HITS PER MISSING TRACK (RADIAL)$' CALL HBOOK1(334,'MISSING TRACK MOMENTUM$' CALL HBOOK1(335,'HITS PER MISSING TRACK (PRIMARY)$' CALL HBOOK1(336,'MISSING TRACK MOMENTUM (PRIMARY)$' CALL HBPRO(0,0.) CALL HMINIM(0,0.) CALL HIDOPT(0,'INTE') CALL HCDIR('//PAWC',' ') CALL HMDIR(CFKDBG,'S') CALL HCDIR('//PAWC',' ') *