*-- 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 *