*-- Author : Girish D. Patel 25/04/91
SUBROUTINE FPFRHC
*-----------------------------------------------------------*
* Print output banks from Forward Pattern recognition *
* in readable form. FRHC hit multiplicity/pointer bank *
*-----------------------------------------------------------*
*KEEP,BCS.
INTEGER NHROW,NHCOL,NHLEN
PARAMETER (NHROW = 2, NHCOL = 1, NHLEN=2)
INTEGER NBOSIW
PARAMETER (NBOSIW=1000000)
INTEGER IW(NBOSIW)
REAL RW(NBOSIW)
COMMON /BCS/ IW
EQUIVALENCE (RW(1),IW(1))
SAVE /BCS/
*KEEP,BOSMDL.
C ------BOSMDL
LOGICAL BEGJOB,ENDRUN,BEGRUN,REVENT,ENDJOB,OTHDAT
COMMON/BOSMDL/BEGJOB,ENDRUN,BEGRUN,REVENT,ENDJOB,OTHDAT,
+ LCCRUN,NCCRUN,NEVENT,
+ IHA,IBS,IDB,IDATEL,LUP,ISN,JSN
SAVE /BOSMDL/
C ------
*KEEP,STFUNCT.
* index of element before row number IROW
INDR(IND,IROW)=IND+2+IW(IND+1)*(IROW-1)
* index of L'th element of row number IROW
INDCR(IND,L,IROW)=INDR(IND,IROW) + L
* L'th integer element of the IROW'th row of bank with index IND
IBTAB(IND,L,IROW)=IW(INDCR(IND,L,IROW))
* L'th real element of the IROW'th row of bank with index IND
RBTAB(IND,L,IROW)=RW(INDCR(IND,L,IROW))
*KEND.
NBN = 0
IND = NLINK('FRHC',NBN)
IF(IND.EQ.0) THEN
WRITE(6,*) ' FPFRHC>> FRHC Bank not found in event ',NEVENT
RETURN
ENDIF
NROW = IW(IND+2)
WRITE(6,'('' '')')
WRITE(6,'(/,8X,'' ------- FRHC BANK: Event'',I10,
+ 2X,I4,'' Hits ---------'')')
+ NEVENT,NROW
WRITE(6, '(1x,''No '',24I3)') (K,K=0,23)
IPLANE = 0
DO 2 I = 0, 2
WRITE(6,*) ' '
DO 1 J = 1, 12
IPLANE = IPLANE + 1
WRITE(6,'(1X,25I3)') IPLANE,
& (IBTAB(IND,1,I*12*24 + J + K*12),K=0,23)
1 CONTINUE
2 CONTINUE
RETURN
END
*