-
-/* extern int SYS$SCHWDK (), SYS$HIBER (); */
-/*#define TICK_INTERVAL 1000 */
-/* */
-/* if (!deltas_set) set_deltas (); */
-/* bin_delta = (usecs == TICK_INTERVAL) ? &bin_tick_delta : &bin_sec_delta; */
-/* status = SYS$SCHDWK (0, 0, bin_delta, 0); */
-/* if ((status & 1)) (void) SYS$HIBER (); */
-
- seconds = ((float) usecs)/1000000.0;
- statvms = lib$wait(&seconds);
+ extern int SYS$SCHWDK (), SYS$HIBER ();
+
+ if (!deltas_set) set_deltas ();
+ bin_delta = (usecs == TICK_INTERVAL) ? &bin_tick_delta : &bin_sec_delta;
+ status = SYS$SCHDWK (0, 0, bin_delta, 0);
+ if ((status & 1)) (void) SYS$HIBER ();