Actual source code: psleep.c
1: /*$Id: psleep.c,v 1.30 2001/03/23 23:20:45 balay Exp $*/
3: #include "petsc.h" /*I "petsc.h" I*/
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_U_SLEEP)
38: else _sleep(s*1000);
39: #else
40: else sleep(s);
41: #endif
42: return(0);
43: }