*-- 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 -+                                                                                     
*                       |                                                                                     
*                       |                                                                                     
*                       +------MC versions < this are 'old' MC                                                
*                                                                                                             
*                       +------Use 'old' versions of recon banks                                              
*                       |                                                                                     
*                                                                                                             
*                       +------otherwise new new versions.                                                    
*                       |                                                                                     
*                                                                                                             
* set version number for steering banks according to H1REC version                                            
* > 7.00/00 -> H1TEXT version >3.04/20                                                                        
*       Get Monte Carlo version number for steering and calibration...                                        
          CALL MODDEF(IRCV1)                                                                           
          CALL MODDEF(IBANK1)                                                                          
          CALL MODDEF(0)                                                                               
*