+ let str = KP.sprintf "UTC TIME STAMP (%s): %u/%u/%u %u:%u:%u" msg yy mm dd h m s in
+ L.warn level str
+
+let utime_stamp msg =
+ let times = Unix.times () in
+ let stamp = times.Unix.tms_utime in
+ let lap = stamp -. old.(stamp_ix) in
+ let str = KP.sprintf "USR TIME STAMP (%s): %f (%f)" msg stamp lap in
+ L.warn level str;
+ old.(stamp_ix) <- stamp
+
+IFDEF PROFV THEN
+
+let utime_lap msg =
+ let times = Unix.times () in
+ let stamp = times.Unix.tms_utime in
+ if msg <> "" then begin
+ let lap = stamp -. old.(lap_ix) in
+ let str = KP.sprintf "USR TIME LAP (%s): %f" msg lap in
+ L.warn level str
+ end;
+ old.(lap_ix) <- stamp
+
+END