*-- Author : S.J. Maxfield SUBROUTINE FPFTUR *-----------------------------------------------------------* * Print output banks from Forward Pattern recognition * * in readable form. * *-----------------------------------------------------------* *KEEP,BCS. *KEEP,BOSMDL. C ------BOSMDL C ------ *KEEP,H1EVDT. * * IDATA type of information (HEAD bank word 6) : * * 0 - real data H1 * 1 - MC data H1SIM * 2 - real data CERN tests * 3 - MC data ARCET * * MONTE = .TRUE. if IDATA=1 * KEVENT = event processed counter for H1REC * *KEND. * Diagnostic flag from FRCS BANK *KEEP,FDIFLG. *KEND. *KEEP,STFUNCT. * index of element before row number IROW * index of L'th element of row number IROW * L'th integer element of the IROW'th row of bank with index IND * L'th real element of the IROW'th row of bank with index IND *KEND. * FTUR bank... IND = NLINK('FTUR',NBN) * Track 4-momentum... * Decompress covariance matrix CALL COVCP(5,COV,RW(INDCR(IND,8,J)),1) *