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