'' 
'' COPYRIGHT (C) 1987, CACI, INC. - FEDERAL, LA JOLLA
''
''   This is the simscript time syncronization routine.  It is put here so that
''   the display variable 'CLOCK.TIME' can be updated when simulation time
''   advances
''-----------------------------------------------------------------------
Routine CLOCK given TIME yielding NEWTIME

     Define  TIME, NEWTIME as double variables

     Let CLOCK.TIME = TIME / (24*60*60)
     Let NEWTIME = TIME
return
end
