|
global mom_machine_time
+ c6 o1 S$ O3 o; w5 [7 @, p! Z" C9 ^6 @global c_time
. z" ]+ }" p( v& v6 A c" lglobal m_time
) v# {0 e) Y9 \& ^- bif { ![info exists c_time] } {
6 T4 o4 R7 S6 v3 {3 z. }! U/ Q6 |$ {: f set c_time 0
$ ^0 D( j/ G1 O, ]- |9 o$ X% i+ J9 \ }
' J- ?* a0 T8 Kset m_time [expr $mom_machine_time-$c_time]
$ H: F1 C$ [5 N& a% jMOM_output_literal "; (MACHINE_TIME: [format %f $m_time])"( N7 P/ G: M1 [9 }. d/ ^) [
set c_time $mom_machine_time |
|