int main(int argc, char **argv)
{
ARMCI_NetInit();
MP_INIT(argc,argv);
MP_MYID(&me);
MP_PROCS(&nproc);
if(nproc < 2 || nproc> MAXPROC) {
if(me == 0)
fprintf(stderr,
"USAGE: 2 <= processes < %d - got %d\n", MAXPROC, nproc);
MP_BARRIER();
MP_FINALIZE();
exit(0);
}
/* initialize ARMCI */
ARMCI_Init();
if(!me)printf("\n Performance of Basic Blocking Communication Operations\n");
MP_BARRIER();
CHECK_RESULT=1;
if(!me)printf("\n\t\t\tContiguous Data Transfer\n");
test_1D();
CHECK_RESULT=0;
/* test 1 dimension array */
if(!me)printf("\n\t\t\tContiguous Data Transfer\n");
test_1D();
/* test 2 dimension array */
if(!me)printf("\n\t\t\tStrided Data Transfer\n");
test_2D();
MP_BARRIER();
if(me == 0){
if(warn_accuracy)
printf("\nWARNING: Your timer does not have sufficient accuracy for this test (%d)\n",warn_accuracy);
printf("\n\n------------ Testing the same data transfer for correctness ----------\n");
fflush(stdout);
}
MP_BARRIER();
CHECK_RESULT=1;
if(!me)printf("\n\t\t\tContiguous Data Transfer\n");
test_1D();
if(me == 0) printf("OK\n");
MP_BARRIER();
if(!me)printf("\n\t\t\tStrided Data Transfer\n");
test_2D();
if(me == 0) printf("OK\n\n\nTests Completed.\n");
MP_BARRIER();
/* done */
ARMCI_Finalize();
MP_FINALIZE();
return(0);
}
int main(int argc, char **argv)
{
/* initialize A1 */
A1_Initialize(A1_THREAD_SINGLE);
me = A1_Process_id(A1_GROUP_WORLD);
nproc = A1_Process_total(A1_GROUP_WORLD);
if(nproc < 2 || nproc> MAXPROC) {
if(me == 0)
fprintf(stderr,
"USAGE: 2 <= processes <= %d - got %d\n", MAXPROC, nproc);
A1_Barrier_group(A1_GROUP_WORLD);
exit(0);
}
if(!me)printf("\n Performance of Basic Blocking Communication Operations\n");
A1_Barrier_group(A1_GROUP_WORLD);
CHECK_RESULT=1; test_1D(); CHECK_RESULT=0; /* warmup run */
/* test 1 dimension array */
if(!me)printf("\n\t\t\tContiguous Data Transfer\n");
test_1D();
/* test 1 dimension array */
if(!me)printf("\n\t\t\tContiguous Data Transfer - Remote completion\n");
test_1D_remote();
/* test 2 dimension array */
if(!me)printf("\n\t\t\tStrided Data Transfer\n");
test_2D();
/* test 2 dimension array */
if(!me)printf("\n\t\t\tStrided Data Transfer - Remote completion\n");
test_2D_remote();
A1_Barrier_group(A1_GROUP_WORLD);
if(me == 0){
if(warn_accuracy)
printf("\nWARNING: Your timer does not have sufficient accuracy for this test (%d)\n",warn_accuracy);
printf("\n\n------------ Now we test the same data transfer for correctness ----------\n");
fflush(stdout);
}
A1_Barrier_group(A1_GROUP_WORLD);
CHECK_RESULT=1;
if(!me)printf("\n\t\t\tContiguous Data Transfer\n");
test_1D();
if(me == 0) printf("OK\n");
A1_Barrier_group(A1_GROUP_WORLD);
if(!me)printf("\n\t\t\tStrided Data Transfer\n");
test_2D();
if(me == 0) printf("OK\n\n\nTests Completed.\n");
A1_Barrier_group(A1_GROUP_WORLD);
/* done */
A1_Finalize();
return(0);
}
int main(int argc, char **argv)
{
/* initialize GA */
#if defined(USE_ELEMENTAL)
// initialize Elemental (which will initialize MPI)
ElInitialize( &argc, &argv );
ElMPICommRank( MPI_COMM_WORLD, &me );
ElMPICommSize( MPI_COMM_WORLD, &nproc );
// instantiate el::global array
ElGlobalArraysConstruct_d( &eldga );
// initialize global arrays
ElGlobalArraysInitialize_d( eldga );
#else
MP_INIT(argc,argv);
GA_Initialize_args(&argc, &argv);
me = GA_Nodeid();
nproc = GA_Nnodes();
#endif
if (nproc < 2) {
if (me == 0) {
fprintf(stderr, "USAGE: 2 <= processes - got %d\n", nproc);
}
#if defined(USE_ELEMENTAL)
ElGlobalArraysTerminate_d( eldga );
// call el::global arrays destructor
ElGlobalArraysDestruct_d( eldga );
ElFinalize();
#else
GA_Terminate();
MP_FINALIZE();
#endif
exit(0);
}
if (!me) {
printf("\n Performance of Basic Blocking Communication Operations\n");
}
#if defined(USE_ELEMENTAL)
ElGlobalArraysSync_d( eldga );
#else
GA_Sync();
#endif
/* test 1 dimension array */
/*
if (!me) {
printf("\n\t\t\tContiguous Data Transfer\n");
}
test_1D();
*/
/* test 2 dimension array */
if (!me) {
printf("\n\t\t\tStrided Data Transfer\n");
}
test_2D();
#if 0
if (me == 0) {
if (warn_accuracy) {
printf("\nWARNING: Your timer does not have sufficient accuracy for this test (%d)\n", warn_accuracy);
}
printf("\n\n------------ Now we test the same data transfer for correctness ----------\n");
fflush(stdout);
}
#endif
#if defined(USE_ELEMENTAL)
ElGlobalArraysTerminate_d( eldga );
// call el::global arrays destructor
ElGlobalArraysDestruct_d( eldga );
ElFinalize();
#else
GA_Terminate();
MP_FINALIZE();
#endif
return(0);
}
