SUBROUTINE FTMSGI
*-- Author :    Stephen Burke   29/11/95
      SUBROUTINE FTMSGI
***************************************************************                                               
*                                                                                                             
*     Module to re-run FT L4 monitoring                                                                       
*                                                                                                             
***************************************************************                                               
                                                                        
*KEEP,BCS.                                                                                                    
      INTEGER      NHROW,NHCOL,NHLEN                                    
      PARAMETER   (NHROW = 2, NHCOL = 1, NHLEN=2)                       
      INTEGER      NBOSIW                                               
      PARAMETER   (NBOSIW=1000000)                                      
      INTEGER      IW(NBOSIW)                                           
      REAL         RW(NBOSIW)                                           
      COMMON /BCS/ IW                                                   
      EQUIVALENCE (RW(1),IW(1))                                         
      SAVE   /BCS/                                                      
*KEEP,BOSMDL.                                                                                                 
C     ------BOSMDL                                                                                            
      LOGICAL       BEGJOB,ENDRUN,BEGRUN,REVENT,ENDJOB,OTHDAT           
      COMMON/BOSMDL/BEGJOB,ENDRUN,BEGRUN,REVENT,ENDJOB,OTHDAT,          
     +              LCCRUN,NCCRUN,NEVENT,                               
     +              IHA,IBS,IDB,IDATEL,LUP,ISN,JSN                      
      SAVE  /BOSMDL/                                                    
C     ------                                                                                                  
*KEEP,H1EVDT.                                                                                                 
      COMMON /H1EVDT/ KEVENT,IDATA,MONTE,LCONF                          
      INTEGER KEVENT,IDATA,LCONF                                        
      LOGICAL MONTE                                                     
*                                                                                                             
*  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.                                                                                                        
                                                                        
      PARAMETER (IDNSCL=10)                                             
                                                                        
      CHARACTER*8 VERSQQ                                                
                                                                        
***************************************************************                                               
                                                                        
*KEEP,VERSQQ.                                                                                                 
      VERSQQ = ' 8.07/02'                                               
      IVERSQ =  80702                                                   
*KEND.                                                                                                        
*     module steering by MODULS                                                                               
      CALL MODULS('FTDSGI',IVERSQ,'FRREFRPECJKV')                                                      
                                                                        
      IF (MOD(NEVENT,IDNSCL).EQ.0 .OR. BEGRUN) CALL FTDSGI
                                                                        
      IF (ENDJOB) THEN                                                  
         CALL PRNTF(0,0)                                                                               
* Output LOOK Histograms...                                                                                   
      ENDIF                                                             
                                                                        
      CALL MODULF                                                                                      
                                                                        
      RETURN                                                            
      END                                                               
*