TimeToGo:

--------------------------------------------------------------------------
   Computes the time left to go in the simulation, the predicted finish
   time and the ratio of simulation time to real time. This routine
   should be called at regular intervals.

   Since version 1.
--------------------------------------------------------------------------
   Form:
  [ rRT, tToGoMem, tToGo, tDone ] = TimeToGo( totalSteps, stepsDone, tToGoMem, rRT, dT )
--------------------------------------------------------------------------

   ------
   Inputs
   ------
   totalSteps             Total number of steps in the simulation
   stepsDone              Number of steps completed
   tToGoMem               Memory [lastJD, lastStepsDone, number of averages done]
   rRT                    Ratio of simulation time to real time
   dT                     Simulation time step (sec)           

   -------
   Outputs
   -------
   rRT                    Ratio of simulation time to real time
   tToGoMem               Memory [lastJD, lastStepsDone, number of averages done]
   tToGo                  Time left in the simulation
   tDone                  Predicted clock time of finish

--------------------------------------------------------------------------

Children:

Common: Time/Date2JD
Common: Time/JD2Date