SUBROUTINE FMOUT
*-- Author :    Girish D. Patel
      SUBROUTINE FMOUT(IRUN,ICODE)
************************************************************************                                      
*                                                                      *                                      
* Output a minimum of information to an ntuple that has one row entered*                                      
* for every run processed, even if the subsequent analysis failed for  *                                      
* any reason.                                                          *                                      
*                                                                      *                                      
* GDP 16/8/94                                                          *                                      
*                                                                      *                                      
************************************************************************                                      
                                                                        
*KEEP,FHLUN.                                                                                                  
      COMMON/FHLUN/ LUNH, LUNS, LMES, IL4L5                             
*KEEP,FCOUNT.                                                                                                 
      COMMON/FCOUNT/ NDATE0,NTIME0,ISTATP(20),ISTATR(20),IFRHV,IFPHV,   
     &               NEVENT,NFIEL0,NPRES0,NECUR0,NPCUR0,IRTE0,IRTP0,    
     &               IEVIN,NFPEVT,NHITSP,NFREVT,NHITSR,NMIN92,          
     &               TOTL,H1L,RTIME,REFF,ILRET                          
*     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                                                  
*KEND.                                                                                                        
      DIMENSION AVEC(4)                                                 
                                                                        
      IF(ICODE.EQ.-10) THEN                                             
        CALL GETEAR(IRUN,IDATE,ITIME,IBFLD,IPRESS,IFR,IFP,IRET)                                        
        IF(IRET.EQ.0) THEN                                              
          IFRHV = IFR                                                   
          IFPHV = IFP                                                   
        ELSE                                                            
          IFRHV = 2                                                     
          IFPHV = 2                                                     
        ENDIF                                                           
      ENDIF                                                             
                                                                        
      AVEC(1) = IRUN                                                    
      AVEC(2) = ICODE                                                   
      AVEC(3) = IFRHV                                                   
      AVEC(4) = IFPHV                                                   
      CALL SVEC(2,0,AVEC)                                                                              
                                                                        
*     WRITE(6,*) ' FMOUT ',IRUN,ICODE,IFRHV,IFPHV, ' stored'                                                  
                                                                        
      RETURN                                                            
      END                                                               
*