*-- Author : Stephen J. Maxfield 02/03/93
SUBROUTINE FPTEND(JEVENT)
*
* Print summary information at end of job
*
PARAMETER(NDIM=50)
DIMENSION AVEC(50), ICN(50), XSTAT(4), YSTAT(4)
CHARACTER*40 TXT101(14)
CHARACTER*40 TXT716(8)
CHARACTER*40 TXT711(5)
CHARACTER*40 TXT712(9)
CHARACTER*40 TXT713(5)
CHARACTER*40 TXT714(4)
DATA TXT101/
+ ' Total number of pattern-rec tracks',
+ ' Mean number of patrec tracks /event ',
+ ' Min number of patrec tracks /event ',
+ ' Max number of patrec tracks /event ',
+ ' Mean number hits/radial segment ',
+ ' Mean number hits/radial segment SM0 ',
+ ' Mean number hits/radial segment SM1 ',
+ ' Mean number hits/radial segment SM2 ',
+ ' Mean number hits/planar segment ',
+ ' Mean number hits/planar segment SM0 ',
+ ' Mean number hits/planar segment SM1 ',
+ ' Mean number hits/planar segment SM2 ',
+ ' Frac of Rad hits on segments ',
+ ' Frac of Pla hits on segments '/
DATA TXT716/
+ ' Number of P0P1P2 planar-based tracks',
+ ' Number of P0P1 planar-based tracks',
+ ' Number of P1P2 planar-based tracks',
+ ' Number of P0 P2 planar-based tracks',
+ ' Total number planar-based tracks',
+ ' Number of single-planar ->rad tracks',
+ ' Number of single planar tracks',
+ ' Total number of tracks with p-segs '/
DATA TXT711/
+ ' Num rad-based trks verified by P ',
+ ' Num rad-based trks not verified by P',
+ ' Num rad-based trks rejected by P ',
+ ' Number of single radial tracks ',
+ ' Total number of radial based tracks '/
DATA TXT712/
+ ' Planar-1 -> Radial-0 ',
+ ' Planar-2 -> Radial-1 ',
+ ' Planar-0 -> Radial-0 ',
+ ' Planar-1 -> Radial-1 ',
+ ' Planar-2 -> Radial-2 ',
+ ' 1P->R tracks with 1 radial segment ',
+ ' 1P->R tracks with 2 radial segments ',
+ ' 1P->R tracks with 3 radial segments ',
+ ' Total 1P->R linked tracks '/
DATA TXT713/
+ ' Num pla-based trks verified by R ',
+ ' Rad segments on R- and P-based trks ',
+ ' Pla segments on R- and P-based trks ',
+ ' Tot ambiguities R- and P-based trks ',
+ ' R-based tracks split by planars '/
DATA TXT714/
+ ' Num rad segs in SM 0 1 2 ',
+ ' Num rad segs in SM 0 1 2 unlinked ',
+ ' Num pla segs in SM 0 1 2 ',
+ ' Num pla segs in SM 0 1 2 unlinked '/
* Statement function for extracting content from histograms...
ICON(X) = IFIX(AVEC(IFIX(2.0*X + 1.0)))
* Extract scalar data from histograms...
Write(6,'('' '')')
Write(6,'('' '',62(''-''))')
Write(6,'('' '',20X,''FTREC Pattern Recognition Summary'')')
Write(6,'('' '',62(''-''))')
Write(6,'('' '')')
Write(6,'('' '',5X,'' => Number of Events analysed '',
+ 8X,I8)')JEVENT
Write(6,'('' '')')
* Number of pattern-recognised tracks:-
CALL SAREA('FTREC',2)
CALL RWDATA('HS', 711, 0)
CALL GDATA( 'HS', 711, 0, NREAD, AVEC, NDIM)
NTTRKS = ICON( 7.0)
CALL SAREA('FTREC',1)
* CALL GHSTAT('HS', 101, 0, NENT, SUMW, RNEFF, XSTAT, YSTAT)
Write(6,'('' '',5X,A40,10X,I6)') TXT101( 1), NTTRKS
* Write(6,'('' '',5X,A40,10X,F6.2)')TXT101( 2),XSTAT(3)
* Write(6,'('' '',5X,A40,10X,F6.2)')TXT101( 3),XSTAT(1)
* Write(6,'('' '',5X,A40,10X,F6.2)')TXT101( 4),XSTAT(2)
Write(6,'('' '')')
CALL GHSTAT('HS', 200, 0, NENT, SUMW, RNEFF, XSTAT, YSTAT)
Write(6,'('' '',5X,A40,10X,F6.2)')TXT101( 5),XSTAT(3)
CALL GHSTAT('HS', 201, 0, NENT, SUMW, RNEFF, XSTAT, YSTAT)
Write(6,'('' '',5X,A40,10X,F6.2)')TXT101( 6),XSTAT(3)
CALL GHSTAT('HS', 202, 0, NENT, SUMW, RNEFF, XSTAT, YSTAT)
Write(6,'('' '',5X,A40,10X,F6.2)')TXT101( 7),XSTAT(3)
CALL GHSTAT('HS', 203, 0, NENT, SUMW, RNEFF, XSTAT, YSTAT)
Write(6,'('' '',5X,A40,10X,F6.2)')TXT101( 8),XSTAT(3)
CALL GHSTAT('HS', 320, 0, NENT, SUMW, RNEFF, XSTAT, YSTAT)
Write(6,'('' '',5X,A40,10X,F6.2)')TXT101( 9),XSTAT(3)
CALL GHSTAT('HS', 321, 0, NENT, SUMW, RNEFF, XSTAT, YSTAT)
Write(6,'('' '',5X,A40,10X,F6.2)')TXT101(10),XSTAT(3)
CALL GHSTAT('HS', 322, 0, NENT, SUMW, RNEFF, XSTAT, YSTAT)
Write(6,'('' '',5X,A40,10X,F6.2)')TXT101(11),XSTAT(3)
CALL GHSTAT('HS', 323, 0, NENT, SUMW, RNEFF, XSTAT, YSTAT)
Write(6,'('' '',5X,A40,10X,F6.2)')TXT101(12),XSTAT(3)
* Write(6,'('' '')')
* CALL GHSTAT('HS', 260, 0, NENT, SUMW, RNEFF, XSTAT, YSTAT)
* Write(6,'('' '',5X,A40,10X,F6.2)')TXT101(10),XSTAT(3)
* CALL GHSTAT('HS', 262, 0, NENT, SUMW, RNEFF, XSTAT, YSTAT)
* Write(6,'('' '',5X,A40,10X,F6.2)')TXT101(11),XSTAT(3)
Write(6,'('' '')')
CALL SAREA('FTREC',2)
Write(6,'('' '',5X,'' -> Planar-based Tracks... '')')
CALL RWDATA('HS', 716, 0)
CALL GDATA( 'HS', 716, 0, NREAD, AVEC, NDIM)
ICN(1) = ICON( 1.0)
ICN(2) = ICON( 3.0)
ICN(3) = ICON( 5.0)
ICN(4) = ICON( 7.0)
ICN(5) = ICN(1) + ICN(2) + ICN(3) + ICN(4)
ICN(6) = ICON(10.0)
ICN(7) = ICON(11.0)
ICN(8) = ICN(5) + ICN(6) + ICN(7)
DO 1 K = 1, 8
WRITE(6,'('' '',5X,A40,10X,I6)')TXT716(K), ICN(K)
1 CONTINUE
* Need one number from His 713 here
CALL RWDATA('HS', 713, 0)
CALL GDATA( 'HS', 713, 0, NREAD, AVEC, NDIM)
ICN(1) = ICON( 1.0)
WRITE(6,'('' '',5X,A40,10X,I6)')TXT713(1), ICN(1)
Write(6,'('' '')')
Write(6,'('' '',5X,'' -> Single-P extrapolated to rads'')')
CALL RWDATA('HS', 712, 0)
CALL GDATA( 'HS', 712, 0, NREAD, AVEC, NDIM)
ICN(1) = ICON( 1.0)
ICN(2) = ICON( 3.0)
ICN(3) = ICON( 5.0)
ICN(4) = ICON( 7.0)
ICN(5) = ICON( 9.0)
ICN(6) = ICON(21.0)
ICN(7) = ICON(22.0)
ICN(8) = ICON(23.0)
ICN(9) = ICON(10.0)
DO 2 K = 1, 9
WRITE(6,'('' '',5X,A40,10X,I6)')TXT712(K), ICN(K)
2 CONTINUE
Write(6,'('' '')')
Write(6,'('' '',5X,'' -> R-based tracks...'')')
CALL RWDATA('HS', 711, 0)
CALL GDATA( 'HS', 711, 0, NREAD, AVEC, NDIM)
ICN(1) = ICON( 2.0)
ICN(2) = ICON( 3.0)
ICN(3) = ICON( 4.0)
ICN(4) = ICON( 6.0)
ICN(5) = ICN(4) + ICN(1) + ICN(2)
DO 3 K = 1, 5
WRITE(6,'('' '',5X,A40,10X,I6)')TXT711(K), ICN(K)
3 CONTINUE
Write(6,'('' '')')
Write(6,'('' '',5X,'' -> R-based/P-based overlaps...'')')
CALL RWDATA('HS', 713, 0)
CALL GDATA( 'HS', 713, 0, NREAD, AVEC, NDIM)
ICN(1) = ICON( 1.0)
ICN(2) = ICON( 2.0)
ICN(3) = ICON( 3.0)
ICN(4) = ICON( 4.0)
ICN(5) = ICON( 4.5)
DO 4 K = 2, 5
WRITE(6,'('' '',5X,A40,10X,I6)')TXT713(K), ICN(K)
4 CONTINUE
Write(6,'('' '')')
Write(6,'('' '',5X,'' -> Single Radial and Planars...'')')
CALL RWDATA('HS', 714, 0)
CALL GDATA( 'HS', 714, 0, NREAD, AVEC, NDIM)
ICN(1) = ICON( 1.0)
ICN(2) = ICON( 2.0)
ICN(3) = ICON( 3.0)
ICN(5) = ICON( 6.0)
ICN(6) = ICON( 7.0)
ICN(7) = ICON( 8.0)
ICN(11) = ICON(11.0)
ICN(12) = ICON(12.0)
ICN(13) = ICON(13.0)
ICN(16) = ICON(16.0)
ICN(17) = ICON(17.0)
ICN(18) = ICON(18.0)
WRITE(6,'('' '',5X,A40, 4X,3I6)')TXT714(1),(ICN(J), J=11,13)
WRITE(6,'('' '',5X,A40, 4X,3I6)')TXT714(2),(ICN(J), J= 1, 3)
WRITE(6,'('' '',5X,A40, 4X,3I6)')TXT714(3),(ICN(J), J=16,18)
WRITE(6,'('' '',5X,A40, 4X,3I6)')TXT714(4),(ICN(J), J= 5, 7)
Write(6,'('' '')')
Write(6,'('' '')')
Write(6,'('' '')')
Write(6,'('' '')')
Write(6,'('' '')')
CALL SAREA('FTREC',1)
RETURN
END
*