MPI_Comm_size(MPI_COMM_WORLD, &numprocs);
MPI_Comm_rank(MPI_COMM_WORLD, &myid);
- for (i = 0; i < 10000; i++) {
+ for (i = 0; i < 1000; i++) {
MPI_Allreduce(&wscale, &scale, 1, MPI_DOUBLE, MPI_SUM, MPI_COMM_WORLD);
}
#endif /* BCAST_MIN_DATATYPES_ONLY */
while (MTestGetDatatypes(&sendtype, &recvtype, count)) {
- for (root = 0; root < size; root++) {
+ for (root = 0; root < size; root+=2) {
if (rank == root) {
sendtype.InitBuf(&sendtype);
err = MPI_Bcast(sendtype.buf, sendtype.count,
* reach the long message algorithms. (The maximal count or block length
* can be generated by 256K count is 4K or 32Kbytes respectively) */
#define MTEST_DATATYPE_FOR_EACH_COUNT(count) \
- for (count = 1; count <= 262144; count *= 8)
+ for (count = 1; count <= 262144; count *= 64)
/* Setup the full version of datatype tests.
* It generate tests for all basic datatypes and all derived datatypes except darray. */
static int verbose = 0;
-#define N_REPS 1000
+#define N_REPS 50
#define THRESHOLD 0.10
#define VARIANCE_THRESHOLD ((THRESHOLD * THRESHOLD) / 2)
#define NTRIALS 10
#Needs lock, unlock
#selfrma 1
#mixedsync 4
-epochtest 4
+epochtest 3
#Needs lock, unlock
#locknull 2
#Needs MPI_Rput, rget, racumulate, MPI_Fetch_and_op, MPI_Compare_and_swap