*-- Author :    John V. Morris   28/06/93
      SUBROUTINE FQEND
**********************************************************************                                        
*                                                                    *                                        
* Copy the end-of-run statistics from histogram number 26, filled on *                                        
* the farm, into the corresponding off-line arrays and variables.    *                                        
*                                                                    *                                        
* JVM 22/6/93                                                        *                                        
*                                                                    *                                        
**********************************************************************                                        
*KEEP,FHLUN.                                                                                                  
*KEEP,FHITLS.                                                                                                 
*KEEP,FCOUNT.                                                                                                 
*     TOTL   total run luminosity (mb^-1)                                                                     
*     H1L    H1 gated run luminosity (mb^-1)                                                                  
*     RTIME  total run time (sec)                                                                             
*     REFF   run efficiency = (1 - dead_time/run_time)                                                        
*     ILRET  return flag: 0 - ok,  1 - no inf. found in H1DB                                                  
*KEEP,FTOTST.                                                                                                 
*KEEP,FTQRUN.                                                                                                 
*KEND.                                                                                                        
* ISTSUM should have been filled in FLK2HB                                                                    
* fill the elements of ISTATP and ISTATR ....                                                                 
* fill the remaining run statistics in /FCOUNT/                                                               
* in principle the first 7 elements of ISTSUM hold this data, but                                             
* it can equally well be extracted from the database?                                                         
      CALL GETEAR(NRUN0,IDATE,ITIME,IBFLD,IPRESS,IFR,IFP,IRET)                                         
        CALL DMIN92(NDATE0,NTIME0,NMIN92)                                                              
        CALL DMIN92(NDATE0,NTIME0,NMIN92)                                                              
      CALL EPBEAM(NRUN0,PTC,PPC,ETC,EPC,IBT,IRET)                                                      
      CALL GETH1L (NRUN0,TOTL,H1L,RTIME,REFF,ILRET)