*-- Author :    Girish D. Patel
      SUBROUTINE FMSLCT(EVT0,EVZV,IRET)
*======================================================================                                       
*     OUTPUT: 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                                             
*======================================================================                                       
*KEEP,BOSMDL.                                                                                                 
C     ------BOSMDL                                                                                            
C     ------                                                                                                  
*KEEP,BCS.                                                                                                    
*KEND.                                                                                                        
*KEEP,STFUNCT.                                                                                                
*     index of element before row number IROW                                                                 
*     index of L'th element  of row number IROW                                                               
*     L'th integer element of the IROW'th row of bank with index IND                                          
*     L'th real element of the IROW'th row of bank with index IND                                             
*KEND.                                                                                                        
*                                                                                                             
*                                                                                                             
*                                                                                                             
*                                                                                                             
      CALL H1MOR1('T_0 ','CJTREC',NCCRUN,CJCT0,VARI,INFO20,IERR)                                       
*