1 /*
2  $Id$
3  */
4 
5 #if defined(CRAY) &&!defined(__crayx1)
6 
UTIL_SLEEP(long * t)7 void UTIL_SLEEP(long *t)
8 {}
9 
10 #elif defined(WIN32) && !defined(__MINGW32__)
11 
12 #include "winutil.h"
13 #include "typesf2c.h"
UTIL_SLEEP(long * t)14 void FATR UTIL_SLEEP(long *t)
15 {
16   unsigned s = *t;
17   sleep(s);
18 }
19 
20 #else
21 
22 #include <unistd.h>
23 #if defined(__MINGW32__)
24 #  include <windows.h>
25 #  define sleep(x) Sleep(1000*(x))
26 #endif
util_sleep_(long * t)27 void util_sleep_(long *t)
28 {
29   unsigned s = *t;
30   sleep(s);
31 }
32 
33 #endif
34