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)14void 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