Actual source code: psleep.c
2: #include petsc.h
3: #if defined (PETSC_HAVE_UNISTD_H)
4: #include <unistd.h>
5: #endif
6: #if defined (PETSC_HAVE_STDLIB_H)
7: #include <stdlib.h>
8: #endif
9: #if defined (PETSC_HAVE_DOS_H) /* borland */
10: #include <dos.h>
11: #endif
12: #include "petscfix.h"
16: /*@
17: PetscSleep - Sleeps some number of seconds.
19: Not Collective
21: Input Parameters:
22: . s - number of seconds to sleep
24: Notes:
25: If s is negative waits for keyboard input
27: Level: intermediate
29: Concepts: sleeping
30: Concepts: pause
31: Concepts: waiting
33: @*/
34: PetscErrorCode PetscSleep(int s)
35: {
37: if (s < 0) getc(stdin);
38: #if defined (PETSC_HAVE_SLEEP)
39: else sleep(s);
40: #elif defined (PETSC_HAVE__SLEEP) && defined(PETSC_HAVE__SLEEP_MILISEC)
41: else _sleep(s*1000);
42: #elif defined (PETSC_HAVE__SLEEP)
43: else _sleep(s);
44: #else
45: #error No sleep function located!
46: #endif
47: return(0);
48: }