*-- Author :    Stephen J. Maxfield   18/05/93
      SUBROUTINE FSETMC
*                                                                                                             
*     Set version numbers of the appropriate steering/cal banks                                               
*     to be picked up from database.                                                                          
*     Only applicable to Monte Carlo Events.                                                                  
*                                                                                                             
*           FDIGI Vers -+                                                                                     
*                       |                                                                                     
      PARAMETER(IMCV1=21300)                                            
*                       |                                                                                     
*                       +------MC versions < this are 'old' MC                                                
*                                                                                                             
*                       +------Use 'old' versions of recon banks                                              
*                       |                                                                                     
      PARAMETER(IRCV1=30115)                                            
*                                                                                                             
*                       +------otherwise new new versions.                                                    
*                       |                                                                                     
*                                                                                                             
* set version number for steering banks according to H1REC version                                            
* > 7.00/00 -> H1TEXT version >3.04/20                                                                        
      PARAMETER(IRECV1=70000)                                           
      PARAMETER(IBANK1=30420)                                           
                                                                        
                                                                        
      IDAT  = JRDATA('RUNTYPE',IRET)                                    
                                                                        
      IF(IRET.EQ.0 .AND. IDAT.EQ.1) THEN                                
*       Get Monte Carlo version number for steering and calibration...                                        
        MCVER = MDVERS('FDIGI')                                         
        RECVER = MDVERS('FTREC')                                        
        IF(    MCVER .LT. IMCV1) THEN                                   
          CALL MODDEF(IRCV1)                                                                           
        ELSEIF(RECVER.LT.IRECV1)THEN                                    
          CALL MODDEF(IBANK1)                                                                          
        ELSE                                                            
          CALL MODDEF(0)                                                                               
        ENDIF                                                           
                                                                        
      ENDIF                                                             
                                                                        
      RETURN                                                            
      END                                                               
*