1 /*
2  $Id$
3  */
4 #include <stdio.h>
5 #include <unistd.h>
6 
7 #ifdef MPI
8 #include <mpi.h>
9 #endif
10 #include "ga.h"
11 #include "macdecls.h"
12 /* This makes each process sleep for Mpirank/factor microsec*/
13 /*#define DEBUG 1*/
util_mpinap_(Integer * factor)14 void FATR util_mpinap_(Integer *factor)
15 {
16   int myid, sleeptime;
17 #ifdef MPI
18   MPI_Comm_rank(MPI_COMM_WORLD,&myid);
19 #else
20   myid=GA_Nodeid();
21 #endif
22   sleeptime=(myid+1)/((long) *factor);
23 #ifdef DEBUG
24   printf(" %d sleeping for %d usec %d factor \n", myid, sleeptime, (long) *factor);
25 #endif
26   usleep(sleeptime);
27 }
28