*-- Author : S.Burke / J.V. Morris SUBROUTINE FKSTAT *-----------------------------------------Updates 07/02/92------- **: FKSTAT 30205.SB. Change FKISUM to subroutine to please UNDEF. *-----------------------------------------Updates---------------- ********************************************************************** * * * Print out statistics on point rejection * * * ********************************************************************** *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,FKCNTL. *KEEP,FKFLAG. *KEEP,FKRJCT. *KEND. ********************************************************************** CALL FKISUM(NBADP,NPL,NBP,NBPMAX) CALL FKISUM(NBADB,NPL,NBB,NBBMAX) CALL FKISUM(NNEWP,NPL,NNP,NNPMAX) CALL FKISUM(NUNRJP,NPL,NUP,NUPMAX) CALL FKISUM(NUNRJB,NPL,NUB,NUBMAX) CALL FKISUM(NRERJP,NPL,NRP,NRPMAX) CALL FKISUM(NFAILP,NPL,NFP,NFPMAX) CALL FKISUM(NFAILB,NPL,NFB,NFBMAX) CALL FKHIST(LUN,JPL,PCT,PMAX) CALL FKHIST(LUN,JPL,PCT,PMAX) CALL FKPRHS(LUN,'New points, % by plane',NNEWP,NPL) CALL FKPRHS(LUN,'Single points re-accepted, % by plane', CALL FKPRHS(LUN,'Block points re-accepted, % by plane', CALL FKPRHS(LUN,'Points rejected twice, % by plane',NRERJP,NPL) CALL FKPRHS(LUN,'Single point failures, % by plane',NFAILP,NPL) CALL FKPRHS(LUN,'Block point failures, % by plane',NFAILB,NPL) * *-----------------------------------------Updates 21/09/92------- **: FKTRAN.......SB. Cope better (?) with zero field. *-----------------------------------------Updates----------------