logical Ring_TimeOK, Ring_OK1, Ring_OK10
      integer Ring_NTurn, Ring_SamplingStep
      common / Ring_Data_COM / Ring_NTurn, Ring_SamplingStep
     &                   , RIng_TimeOK, Ring_OK1, Ring_OK10
      logical TimeOK, OK1, OK10
      integer NTurn, SamplingStep