*-- Author : Girish D. Patel 25/04/91 SUBROUTINE FPFPHC *-----------------------------------------------------------* * Print output banks from Forward Pattern recognition * * in readable form. FPHC hit multiplicity/pointer bank * *-----------------------------------------------------------* *KEEP,BCS. *KEEP,BOSMDL. C ------BOSMDL C ------ *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. IND = NLINK('FPHC',NBN) * DO 3 I = 0, 2 * WRITE(6,*) ' ' * DO 2 J = 0, 2 * WRITE(6,*) ' ' * DO 1 K = 1, 4 * 1 CONTINUE * 2 CONTINUE *