[mpich2-commits] r7830 - mpich2/trunk/test/mpi/rma
dinan at mcs.anl.gov
dinan at mcs.anl.gov
Tue Jan 25 13:45:58 CST 2011
Author: dinan
Date: 2011-01-25 13:45:58 -0600 (Tue, 25 Jan 2011)
New Revision: 7830
Modified:
mpich2/trunk/test/mpi/rma/strided_acc_indexed.c
mpich2/trunk/test/mpi/rma/strided_acc_onelock.c
mpich2/trunk/test/mpi/rma/strided_acc_subarray.c
mpich2/trunk/test/mpi/rma/strided_get_indexed.c
mpich2/trunk/test/mpi/rma/strided_putget_indexed.c
mpich2/trunk/test/mpi/rma/window_creation.c
Log:
Added copyright notice and converted c99 comments to c89 style.
Modified: mpich2/trunk/test/mpi/rma/strided_acc_indexed.c
===================================================================
--- mpich2/trunk/test/mpi/rma/strided_acc_indexed.c 2011-01-25 19:25:17 UTC (rev 7829)
+++ mpich2/trunk/test/mpi/rma/strided_acc_indexed.c 2011-01-25 19:45:58 UTC (rev 7830)
@@ -1,3 +1,9 @@
+/* -*- Mode: C; c-basic-offset:4 ; -*- */
+/*
+ * (C) 2001 by Argonne National Laboratory.
+ * See COPYRIGHT in top-level directory.
+ */
+
/* One-Sided MPI 2-D Strided Accumulate Test
*
* Author: James Dinan <dinan at mcs.anl.gov>
@@ -47,7 +53,7 @@
peer = (rank+1) % nranks;
- // Perform ITERATIONS strided accumulate operations
+ /* Perform ITERATIONS strided accumulate operations */
for (i = 0; i < ITERATIONS; i++) {
MPI_Aint idx_loc[SUB_YDIM];
@@ -87,7 +93,7 @@
MPI_Barrier(MPI_COMM_WORLD);
- // Verify that the results are correct
+ /* Verify that the results are correct */
MPI_Win_lock(MPI_LOCK_EXCLUSIVE, rank, 0, buf_win);
errors = 0;
Modified: mpich2/trunk/test/mpi/rma/strided_acc_onelock.c
===================================================================
--- mpich2/trunk/test/mpi/rma/strided_acc_onelock.c 2011-01-25 19:25:17 UTC (rev 7829)
+++ mpich2/trunk/test/mpi/rma/strided_acc_onelock.c 2011-01-25 19:45:58 UTC (rev 7830)
@@ -1,3 +1,17 @@
+/* -*- Mode: C; c-basic-offset:4 ; -*- */
+/*
+ * (C) 2001 by Argonne National Laboratory.
+ * See COPYRIGHT in top-level directory.
+ */
+
+/* One-Sided MPI 2-D Strided Accumulate Test
+ *
+ * Author: James Dinan <dinan at mcs.anl.gov>
+ * Date : December, 2010
+ *
+ * This code performs one-sided accumulate into a 2d patch of a shared array.
+ */
+
#include <stdio.h>
#include <stdlib.h>
#include <mpi.h>
Modified: mpich2/trunk/test/mpi/rma/strided_acc_subarray.c
===================================================================
--- mpich2/trunk/test/mpi/rma/strided_acc_subarray.c 2011-01-25 19:25:17 UTC (rev 7829)
+++ mpich2/trunk/test/mpi/rma/strided_acc_subarray.c 2011-01-25 19:45:58 UTC (rev 7830)
@@ -1,3 +1,9 @@
+/* -*- Mode: C; c-basic-offset:4 ; -*- */
+/*
+ * (C) 2001 by Argonne National Laboratory.
+ * See COPYRIGHT in top-level directory.
+ */
+
/* One-Sided MPI 2-D Strided Accumulate Test
*
* Author: James Dinan <dinan at mcs.anl.gov>
@@ -47,7 +53,7 @@
peer = (rank+1) % nranks;
- // Perform ITERATIONS strided accumulate operations
+ /* Perform ITERATIONS strided accumulate operations */
for (i = 0; i < ITERATIONS; i++) {
int ndims = 2;
@@ -80,7 +86,7 @@
MPI_Barrier(MPI_COMM_WORLD);
- // Verify that the results are correct
+ /* Verify that the results are correct */
MPI_Win_lock(MPI_LOCK_EXCLUSIVE, rank, 0, buf_win);
errors = 0;
Modified: mpich2/trunk/test/mpi/rma/strided_get_indexed.c
===================================================================
--- mpich2/trunk/test/mpi/rma/strided_get_indexed.c 2011-01-25 19:25:17 UTC (rev 7829)
+++ mpich2/trunk/test/mpi/rma/strided_get_indexed.c 2011-01-25 19:45:58 UTC (rev 7830)
@@ -1,3 +1,9 @@
+/* -*- Mode: C; c-basic-offset:4 ; -*- */
+/*
+ * (C) 2001 by Argonne National Laboratory.
+ * See COPYRIGHT in top-level directory.
+ */
+
/* One-Sided MPI 2-D Strided Get Test
*
* Author: James Dinan <dinan at mcs.anl.gov>
@@ -49,7 +55,7 @@
peer = (rank+1) % nranks;
- // Build the datatype
+ /* Build the datatype */
for (i = 0; i < SUB_YDIM; i++) {
MPI_Get_address(&loc_buf[i*XDIM], &idx_loc[i]);
@@ -63,14 +69,14 @@
MPI_Type_commit(&loc_type);
MPI_Type_commit(&rem_type);
- // Perform get operation
+ /* Perform get operation */
MPI_Win_lock(MPI_LOCK_EXCLUSIVE, peer, 0, buf_win);
MPI_Get(loc_buf, 1, loc_type, peer, 0, 1, rem_type, buf_win);
- // Use the datatype only on the remote side (must have SUB_XDIM == XDIM)
- // MPI_Get(loc_buf, SUB_XDIM*SUB_YDIM, MPI_DOUBLE, peer, 0, 1, rem_type, buf_win);
+ /* Use the datatype only on the remote side (must have SUB_XDIM == XDIM) */
+ /* MPI_Get(loc_buf, SUB_XDIM*SUB_YDIM, MPI_DOUBLE, peer, 0, 1, rem_type, buf_win); */
MPI_Win_unlock(peer, buf_win);
@@ -79,7 +85,7 @@
MPI_Barrier(MPI_COMM_WORLD);
- // Verify that the results are correct
+ /* Verify that the results are correct */
errors = 0;
for (i = 0; i < SUB_XDIM; i++) {
Modified: mpich2/trunk/test/mpi/rma/strided_putget_indexed.c
===================================================================
--- mpich2/trunk/test/mpi/rma/strided_putget_indexed.c 2011-01-25 19:25:17 UTC (rev 7829)
+++ mpich2/trunk/test/mpi/rma/strided_putget_indexed.c 2011-01-25 19:45:58 UTC (rev 7830)
@@ -1,3 +1,9 @@
+/* -*- Mode: C; c-basic-offset:4 ; -*- */
+/*
+ * (C) 2001 by Argonne National Laboratory.
+ * See COPYRIGHT in top-level directory.
+ */
+
/* One-Sided MPI 2-D Strided Accumulate Test
*
* Author: James Dinan <dinan at mcs.anl.gov>
@@ -48,7 +54,7 @@
peer = (rank+1) % nranks;
- // Perform ITERATIONS strided accumulate operations
+ /* Perform ITERATIONS strided accumulate operations */
for (i = 0; i < ITERATIONS; i++) {
MPI_Aint idx_loc[SUB_YDIM];
@@ -82,7 +88,7 @@
MPI_Barrier(MPI_COMM_WORLD);
- // Verify that the results are correct
+ /* Verify that the results are correct */
MPI_Win_lock(MPI_LOCK_EXCLUSIVE, rank, 0, buf_win);
errors = 0;
Modified: mpich2/trunk/test/mpi/rma/window_creation.c
===================================================================
--- mpich2/trunk/test/mpi/rma/window_creation.c 2011-01-25 19:25:17 UTC (rev 7829)
+++ mpich2/trunk/test/mpi/rma/window_creation.c 2011-01-25 19:45:58 UTC (rev 7830)
@@ -1,3 +1,9 @@
+/* -*- Mode: C; c-basic-offset:4 ; -*- */
+/*
+ * (C) 2001 by Argonne National Laboratory.
+ * See COPYRIGHT in top-level directory.
+ */
+
#include <stdio.h>
#include <stdlib.h>
@@ -4,7 +10,7 @@
#include <mpi.h>
#define DATA_NELTS 1000
-#define NUM_WIN 1000 // Error starts at 17. Up to 16 is ok.
+#define NUM_WIN 1000
#define DATA_SZ (DATA_NELTS*sizeof(int))
static int verbose = 0;
@@ -21,7 +27,7 @@
if (rank == 0) if (verbose) printf("Starting MPI window creation test with %d processes\n", nproc);
- // Perform a pile of window creations
+ /* Perform a pile of window creations */
for (i = 0; i < NUM_WIN; i++) {
if (rank == 0) if (verbose) printf(" + Creating window %d\n", i);
@@ -31,7 +37,7 @@
MPI_Barrier(MPI_COMM_WORLD);
- // Free all the windows
+ /* Free all the windows */
for (i = 0; i < NUM_WIN; i++) {
if (rank == 0) if (verbose) printf(" + Freeing window %d\n", i);
More information about the mpich2-commits
mailing list