#define MAXELEMS 6400
#define COUNT 1000
-static int me, nproc;
static const int verbose = 0;
int test_put(void);
int test_put(void)
{
+ int me, nproc;
+ MPI_Comm_size(MPI_COMM_WORLD, &nproc);
+ MPI_Comm_rank(MPI_COMM_WORLD, &me);
+
+ assert(COUNT <= MAXELEMS);
+
+ if (me == 0 && verbose) {
+ printf("Test starting on %d processes\n", nproc);
+ fflush(stdout);
+ }
+
MPI_Win dst_win;
double *dst_buf;
double src_buf[MAXELEMS];
int errs = 0;
MTest_Init(&argc, &argv);
- MPI_Comm_size(MPI_COMM_WORLD, &nproc);
- MPI_Comm_rank(MPI_COMM_WORLD, &me);
-
- assert(COUNT <= MAXELEMS);
-
- if (me == 0 && verbose) {
- printf("Test starting on %d processes\n", nproc);
- fflush(stdout);
- }
errs = test_put();
#define MAXELEMS 6400
#define COUNT 1000
-static int me, nproc;
+
static const int verbose = 0;
void test_put(void);
void test_put(void)
{
+ int me, nproc;
+ MPI_Comm_size(MPI_COMM_WORLD, &nproc);
+ MPI_Comm_rank(MPI_COMM_WORLD, &me);
MPI_Win dst_win;
double *dst_buf;
double src_buf[MAXELEMS];
int main(int argc, char *argv[])
{
MPI_Init(&argc, &argv);
+ int me, nproc;
MPI_Comm_size(MPI_COMM_WORLD, &nproc);
MPI_Comm_rank(MPI_COMM_WORLD, &me);