DOUBLE PRECISION BATIME,TIMLIM,STIME,PREVTIM,SAFETY
      INTEGER ISTOP
      COMMON/TIME1/STIME,TIMLIM,BATIME,PREVTIM,SAFETY
      COMMON/STOPTIM/ISTOP