SUBROUTINE  : FMSLCT(EVT0,EVZV,IRET)
 
AUTHOR : Girish D. Patel
 
DATE : 29/11/95
 
LANGUAGE : FORTRAN
 
SHORT SUMMARY of PURPOSE:                                                
                                                                                
  Routine for event rejection on the basis of T0/Zvtx from CJC                  
                                                                                
LIST and DESCRIPTION of INPUT VARIABLES/ARGUMENTS:                       
                                                                                
  No input arguments                                                            
                                                                                
LIST and DESCRIPTION of OUTPUT VARIABLES/ARGUMENTS:                      
                                                                                
  EVT0   CJC EVENT T0       ( = 1000.0 IF NOT FOUND)                            
  EVZV   CJC EVENT Z-VERTEX ( = 1000.0 IF NOT FOUND)                            
  IRET   RETURN FLAG: 0 - OK OR NO CJC INFO FOR REJECTION                       
                                 1 - CJC REJECT ON T0                           
                                 2 - CJC REJECT ON Z-VERTEX                     
                                 3 - CJC REJECT ON T0 & Z-VERTEX                
                                                                                
 
CALLING TREE from FMSLCT :
 
None
 
FUNCTIONS USED :
 
None
 
KEEP SEQUENCES USED :
 
 BOSMDL BCS STFUNCT                                                                                           
 

Comments from FMSLCT