*-- Author : S.Burke / J.V. Morris SUBROUTINE FKEND *-----------------------------------------Updates 13/02/92------- **: FKEND 30205.SB. Cosmetic change to printout. *-----------------------------------------Updates---------------- ********************************************************************** * * * Print out statistics on point rejection and errors * * * ********************************************************************** *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,FKLERR. *KEND. ********************************************************************** * Printout level set by IPR CALL FKPRNT(0,0) IF (NUM.GT.0) CALL FKPRNT(NUM,ICODE) CALL FKPRNT(0,0) IF (NUM.GT.0) CALL FKPRNT(NUM,ICODE) * Point rejection statistics IF (LPOINT .OR. LBLOCK) CALL FKSTAT *