*-- Author :    Stephen Burke   29/11/95
      SUBROUTINE FTMSGI
***************************************************************                                               
*                                                                                                             
*     Module to re-run FT L4 monitoring                                                                       
*                                                                                                             
***************************************************************                                               
*KEEP,BCS.                                                                                                    
*KEEP,BOSMDL.                                                                                                 
C     ------BOSMDL                                                                                            
C     ------                                                                                                  
*KEEP,H1EVDT.                                                                                                 
*                                                                                                             
*  IDATA  type of information (HEAD bank word 6) :                                                            
*                                                                                                             
*                       0 - real data H1                                                                      
*                       1 - MC data H1SIM                                                                     
*                       2 - real data CERN tests                                                              
*                       3 - MC data ARCET                                                                     
*                                                                                                             
*  MONTE = .TRUE.   if IDATA=1                                                                                
*  KEVENT = event processed counter for H1REC                                                                 
*                                                                                                             
*KEND.                                                                                                        
***************************************************************                                               
*KEEP,VERSQQ.                                                                                                 
*KEND.                                                                                                        
*     module steering by MODULS                                                                               
      CALL MODULS('FTDSGI',IVERSQ,'FRREFRPECJKV')                                                      
      IF (MOD(NEVENT,IDNSCL).EQ.0 .OR. BEGRUN) CALL FTDSGI
         CALL PRNTF(0,0)                                                                               
* Output LOOK Histograms...                                                                                   
      CALL MODULF                                                                                      
*