*-- Author :    Stephen J. Maxfield   02/03/93
      SUBROUTINE FPTEND(JEVENT)
*                                                                                                             
*     Print summary information at end of job                                                                 
*                                                                                                             
*     Statement function for extracting content from histograms...                                            
*     Extract scalar data from histograms...                                                                  
*     Number of pattern-recognised tracks:-                                                                   
      CALL SAREA('FTREC',2)                                                                            
      CALL RWDATA('HS', 711, 0)                                                                        
      CALL GDATA( 'HS', 711, 0, NREAD, AVEC, NDIM)                                                     
      CALL SAREA('FTREC',1)                                                                            
*     CALL GHSTAT('HS', 101, 0, NENT, SUMW, RNEFF, XSTAT, YSTAT)                                              
*     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)                                                   
      CALL GHSTAT('HS', 200, 0, NENT, SUMW, RNEFF, XSTAT, YSTAT)                                       
      CALL GHSTAT('HS', 201, 0, NENT, SUMW, RNEFF, XSTAT, YSTAT)                                       
      CALL GHSTAT('HS', 202, 0, NENT, SUMW, RNEFF, XSTAT, YSTAT)                                       
      CALL GHSTAT('HS', 203, 0, NENT, SUMW, RNEFF, XSTAT, YSTAT)                                       
      CALL GHSTAT('HS', 320, 0, NENT, SUMW, RNEFF, XSTAT, YSTAT)                                       
      CALL GHSTAT('HS', 321, 0, NENT, SUMW, RNEFF, XSTAT, YSTAT)                                       
      CALL GHSTAT('HS', 322, 0, NENT, SUMW, RNEFF, XSTAT, YSTAT)                                       
      CALL GHSTAT('HS', 323, 0, NENT, SUMW, RNEFF, XSTAT, YSTAT)                                       
*     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)                                                   
      CALL SAREA('FTREC',2)                                                                            
      CALL RWDATA('HS', 716, 0)                                                                        
      CALL GDATA( 'HS', 716, 0, NREAD, AVEC, NDIM)                                                     
*     Need one number from His 713 here                                                                       
      CALL RWDATA('HS', 713, 0)                                                                        
      CALL GDATA( 'HS', 713, 0, NREAD, AVEC, NDIM)                                                     
      CALL RWDATA('HS', 712, 0)                                                                        
      CALL GDATA( 'HS', 712, 0, NREAD, AVEC, NDIM)                                                     
      CALL RWDATA('HS', 711, 0)                                                                        
      CALL GDATA( 'HS', 711, 0, NREAD, AVEC, NDIM)                                                     
      CALL RWDATA('HS', 713, 0)                                                                        
      CALL GDATA( 'HS', 713, 0, NREAD, AVEC, NDIM)                                                     
      CALL RWDATA('HS', 714, 0)                                                                        
      CALL GDATA( 'HS', 714, 0, NREAD, AVEC, NDIM)                                                     
      CALL SAREA('FTREC',1)                                                                            
*