#
testfiles=""
if [ $runtests = 1 ] ; then
-#replaced sleep by smpi_sleep to avoid problems with real/simulation powers
+
#RunTest timers 1 "*** Timer tests ***"
RunTest init 2 "*** MPI_Initialized tests ***"
for (i = 0; i < 5; i++)
{
t1 = MPI_Wtime();
- smpi_sleep(1);
+ sleep(1);
t2 = MPI_Wtime();
fprintf( stdout, "%f seconds\n", t2 - t1 );
}
else
{
MPI_Wtime();
- smpi_sleep(easy);
+ sleep(easy);
//while (MPI_Wtime() - t1 < easy) ;
a = 1;
b = 2;
RunTest sendmany 8 "*** Testing Send (many procs) ***"
-# ... replaced by smpi_sleep calls
RunTest order 2 "*** Testing Recv ordering ***"
RunTest sendorder 2 "**** Checking Message Ordering ****"
double deltat = ms * 0.001;
MPI_Wtime();
//while (MPI_Wtime() - t < deltat) ;
- smpi_sleep(deltat);
+ sleep(deltat);
}
void CheckStatus( MPI_Status *status, int tag, int src, int cnt, int *err )
void Pause( double sec )
{
/*double t1 =*/ MPI_Wtime();
- smpi_sleep(sec);
+ sleep(sec);
//while (MPI_Wtime() - t1 < sec) ;
}
void Pause( double sec )
{
/*double t1 =*/ MPI_Wtime();
-smpi_sleep(sec);
+ sleep(sec);
// while (MPI_Wtime() - t1 < sec) ;
}
void Pause( double sec )
{
/*double t1 =*/ MPI_Wtime();
- smpi_sleep(sec);
+ sleep(sec);
// while (MPI_Wtime() - t1 < sec) ;
}