Actual source code: psleep.c
1: /*$Id: psleep.c,v 1.30 2001/03/23 23:20:45 balay Exp $*/
3: #include petsc.h
4: #if defined (PETSC_HAVE_UNISTD_H)
5: #include <unistd.h>
6: #endif
7: #if defined (PETSC_HAVE_STDLIB_H)
8: #include <stdlib.h>
9: #endif
10: #if defined (PETSC_HAVE_DOS_H) /* borland */
11: #include <dos.h>
12: #endif
13: #include "petscfix.h"
15: /*@
16: PetscSleep - Sleeps some number of seconds.
18: Not Collective
20: Input Parameters:
21: . s - number of seconds to sleep
23: Notes:
24: If s is negative waits for keyboard input
26: Level: intermediate
28: Concepts: sleeping
29: Concepts: pause
30: Concepts: waiting
32: @*/
33: int PetscSleep(int s)
34: {
36: if (s < 0) getc(stdin);
37: #if defined (PETSC_HAVE_SLEEP)
38: else sleep(s);
39: #elif defined (PETSC_HAVE__SLEEP) && defined(PETSC_HAVE__SLEEP_MILISEC)
40: else _sleep(s*1000);
41: #elif defined (PETSC_HAVE__SLEEP)
42: else _sleep(s);
43: #else
44: #error No sleep function located!
45: #endif
46: return(0);
47: }