*-- Author :    Girish D. Patel   07/12/93
      SUBROUTINE FTDSGI
**********************************************************************                                        
*                                                                    *                                        
* FTDSGI is to be called once per event on the SGI , to fill all FTD *                                        
* monitoring histograms. It performs start-of-run initialisation in  *                                        
* IF (BEGRUN) and fills statistics histogram at end of each event in *                                        
* FTDSGE                                                             *                                        
*                                                                    *                                        
* GDP 22/10/93                                                       *                                        
*                                                                    *                                        
**********************************************************************                                        
*KEEP,FMORUN.                                                                                                 
*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                                                                 
*                                                                                                             
*KEEP,BOSMDL.                                                                                                 
C     ------BOSMDL                                                                                            
C     ------                                                                                                  
*KEND.                                                                                                        
* general initialisation ...                                                                                  
        CALL FTDINT
* Histogram booking ...                                                                                       
        CALL FQBOOK
* Event selection for real data only                                                                          
         CALL FMSLCT(EVT0,EVZV,IRET)
* update statistics etc ...                                                                                   
         CALL FQMON
* locate FRPE bank and fill Planar monitoring hists ...                                                       
         IF( PLANAR ) CALL FQMONP
* locate FRRE bank and fill Radial monitoring hists ...                                                       
         IF( RADIAL ) CALL FQMONR
*