SUBROUTINE FRSTMC
*-- Author :    Stephen J. Maxfield   18/05/93
      SUBROUTINE FRSTMC
*                                                                                                             
*     Reset DB version to defaults for MC events.                                                             
*                                                                                                             
                                                                        
      IDAT  = JRDATA('RUNTYPE',IRET)                                    
                                                                        
      IF(IRET.EQ.0 .AND. IDAT.EQ.1) THEN                                
                                                                        
          CALL MODDEF(0)                                                                               
                                                                        
      ENDIF                                                             
                                                                        
      RETURN                                                            
      END                                                               
*