1 /* 2 $Id$ 3 */ 4 5 #if defined(CRAY) &&!defined(__crayx1) 6 UTIL_SLEEP(long * t)7void 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)14void 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)27void util_sleep_(long *t) 28 { 29 unsigned s = *t; 30 sleep(s); 31 } 32 33 #endif 34