Logo AND Algorithmique Numérique Distribuée

Public GIT Repository
speeling mistakes in teshsuite (even mpich tests because why not)
authorAugustin Degomme <adegomme@users.noreply.github.com>
Fri, 12 Jun 2020 10:37:59 +0000 (12:37 +0200)
committerAugustin Degomme <adegomme@users.noreply.github.com>
Fri, 12 Jun 2020 10:37:59 +0000 (12:37 +0200)
57 files changed:
teshsuite/s4u/actor-suspend/actor-suspend.cpp
teshsuite/smpi/fort_args/fort_args.f90
teshsuite/smpi/isp/umpire/change-send-buffer-type-exhaustive.c
teshsuite/smpi/mpich3-test/attr/attrorder.c
teshsuite/smpi/mpich3-test/attr/attrordercomm.c
teshsuite/smpi/mpich3-test/attr/attrordertype.c
teshsuite/smpi/mpich3-test/coll/allred4.c
teshsuite/smpi/mpich3-test/coll/alltoallw1.c
teshsuite/smpi/mpich3-test/coll/coll10.c
teshsuite/smpi/mpich3-test/coll/coll11.c
teshsuite/smpi/mpich3-test/coll/gather_big.c
teshsuite/smpi/mpich3-test/coll/nonblocking3.c
teshsuite/smpi/mpich3-test/coll/opprod.c
teshsuite/smpi/mpich3-test/coll/red_scat_block2.c
teshsuite/smpi/mpich3-test/coll/redscat2.c
teshsuite/smpi/mpich3-test/coll/scantst.c
teshsuite/smpi/mpich3-test/comm/comm_idup_iallreduce.c
teshsuite/smpi/mpich3-test/comm/commname.c
teshsuite/smpi/mpich3-test/comm/dupic.c
teshsuite/smpi/mpich3-test/datatype/blockindexed-misc.c
teshsuite/smpi/mpich3-test/datatype/hindexed_block.c
teshsuite/smpi/mpich3-test/datatype/large_type.c
teshsuite/smpi/mpich3-test/datatype/lbub.c
teshsuite/smpi/mpich3-test/datatype/typename.c
teshsuite/smpi/mpich3-test/errhan/errfatal.c
teshsuite/smpi/mpich3-test/f77/ext/c2fmult.c
teshsuite/smpi/mpich3-test/f77/ext/ctypesfromc.c
teshsuite/smpi/mpich3-test/f77/topo/cartcrf.f
teshsuite/smpi/mpich3-test/f77/topo/dgraph_unwgtf.f
teshsuite/smpi/mpich3-test/f90/datatype/createf90.f90
teshsuite/smpi/mpich3-test/f90/datatype/kinds.f90
teshsuite/smpi/mpich3-test/f90/datatype/structf.f90
teshsuite/smpi/mpich3-test/group/grouptest.c
teshsuite/smpi/mpich3-test/group/grouptest2.c
teshsuite/smpi/mpich3-test/info/infodel.c
teshsuite/smpi/mpich3-test/info/infodup.c
teshsuite/smpi/mpich3-test/info/infoorder.c
teshsuite/smpi/mpich3-test/info/infovallen.c
teshsuite/smpi/mpich3-test/init/attrself.c
teshsuite/smpi/mpich3-test/io/i_noncontig_coll2.c
teshsuite/smpi/mpich3-test/io/simple_collective.c
teshsuite/smpi/mpich3-test/pt2pt/anyall.c
teshsuite/smpi/mpich3-test/pt2pt/bsendalign.c
teshsuite/smpi/mpich3-test/rma/accfence1.c
teshsuite/smpi/mpich3-test/rma/accpscw1.c
teshsuite/smpi/mpich3-test/rma/atomic_rmw_gacc.c
teshsuite/smpi/mpich3-test/rma/attrorderwin.c
teshsuite/smpi/mpich3-test/rma/contention_put.c
teshsuite/smpi/mpich3-test/rma/contention_putget.c
teshsuite/smpi/mpich3-test/rma/getfence1.c
teshsuite/smpi/mpich3-test/rma/mixedsync.c
teshsuite/smpi/mpich3-test/rma/putfence1.c
teshsuite/smpi/mpich3-test/rma/putpscw1.c
teshsuite/smpi/mpich3-test/runtests
teshsuite/smpi/mpich3-test/util/dtypes.c
teshsuite/smpi/mpich3-test/util/mtest.c
teshsuite/smpi/topo-cart-sub/topo-cart-sub.c

index cab4729..b34d160 100644 (file)
@@ -4,7 +4,7 @@
  * under the terms of the license (GNU LGPL) which comes with this package. */
 
 // This is the MWE of https://framagit.org/simgrid/simgrid/-/issues/50
  * under the terms of the license (GNU LGPL) which comes with this package. */
 
 // This is the MWE of https://framagit.org/simgrid/simgrid/-/issues/50
-// The problem was occuring when suspending an actor that will be executed later in the same scheduling round
+// The problem was occurring when suspending an actor that will be executed later in the same scheduling round
 
 #include <iostream>
 #include <simgrid/s4u.hpp>
 
 #include <iostream>
 #include <simgrid/s4u.hpp>
index 0e634ed..dfd5308 100644 (file)
@@ -1,4 +1,4 @@
-! Check that getarg does somethig sensible.
+! Check that getarg does something sensible.
 program getarg_1
   use mpi
   CHARACTER*10 ARGS, ARGS2
 program getarg_1
   use mpi
   CHARACTER*10 ARGS, ARGS2
index c770a4c..9cbee56 100644 (file)
@@ -105,7 +105,7 @@ main (int argc, char **argv)
 
   MPI_Type_extent (newtype[0], &basic_extent);
   if (basic_extent != sizeof (test_basic_struct_t)) {
 
   MPI_Type_extent (newtype[0], &basic_extent);
   if (basic_extent != sizeof (test_basic_struct_t)) {
-    fprintf (stderr, "(%d): Unexpect extent for struct\n");
+    fprintf (stderr, "(%d): Unexpected extent for struct\n");
     MPI_Abort (MPI_COMM_WORLD, 666);
   }
 
     MPI_Abort (MPI_COMM_WORLD, 666);
   }
 
index 0fd53bd..28d1608 100644 (file)
@@ -96,7 +96,7 @@ int checkAttrs(MPI_Comm comm, int n, int key[], int attrval[])
         }
         else if (val_p != &attrval[i]) {
             errs++;
         }
         else if (val_p != &attrval[i]) {
             errs++;
-            fprintf(stderr, "Atribute value for key %d not correct\n", i);
+            fprintf(stderr, "Attribute value for key %d not correct\n", i);
         }
     }
 
         }
     }
 
index f2ea4e8..95ffa2d 100644 (file)
@@ -96,7 +96,7 @@ int checkAttrs(MPI_Comm comm, int n, int key[], int attrval[])
         }
         else if (val_p != &attrval[i]) {
             errs++;
         }
         else if (val_p != &attrval[i]) {
             errs++;
-            fprintf(stderr, "Atribute value for key %d not correct\n", i);
+            fprintf(stderr, "Attribute value for key %d not correct\n", i);
         }
     }
 
         }
     }
 
index d3de828..837a02f 100644 (file)
@@ -96,7 +96,7 @@ int checkAttrs(MPI_Datatype type, int n, int key[], int attrval[])
         }
         else if (val_p != &attrval[i]) {
             errs++;
         }
         else if (val_p != &attrval[i]) {
             errs++;
-            fprintf(stderr, "Atribute value for key %d not correct\n", i);
+            fprintf(stderr, "Attribute value for key %d not correct\n", i);
         }
     }
 
         }
     }
 
index 0efc440..93bc9f6 100644 (file)
@@ -171,7 +171,7 @@ int main(int argc, char *argv[])
 
     MPI_Op_create(matmult, 0, &op);
 
 
     MPI_Op_create(matmult, 0, &op);
 
-    /* A single rotation matrix (3x3, stored as 9 consequetive elements) */
+    /* A single rotation matrix (3x3, stored as 9 consecutive elements) */
     MPI_Type_contiguous(9, MPI_INT, &mattype);
     MPI_Type_commit(&mattype);
 
     MPI_Type_contiguous(9, MPI_INT, &mattype);
     MPI_Type_commit(&mattype);
 
index cac4c5d..529a2d0 100644 (file)
@@ -199,7 +199,7 @@ int main(int argc, char *argv[])
 
     /* Create the local matrices.
      * Initialize the input matrix so that the entries are
 
     /* Create the local matrices.
      * Initialize the input matrix so that the entries are
-     * consequtive integers, by row, starting at 0.
+     * consecutive integers, by row, starting at 0.
      */
     if (rank == size - 1) {
         localA = (float *) malloc(gN * lmlast * sizeof(float));
      */
     if (rank == size - 1) {
         localA = (float *) malloc(gN * lmlast * sizeof(float));
@@ -226,7 +226,7 @@ int main(int argc, char *argv[])
     Transpose(localA, localB, gM, gN, comm);
 
     /* check the transposed matrix
     Transpose(localA, localB, gM, gN, comm);
 
     /* check the transposed matrix
-     * In the global matrix, the transpose has consequtive integers,
+     * In the global matrix, the transpose has consecutive integers,
      * organized by columns.
      */
     if (rank == size - 1) {
      * organized by columns.
      */
     if (rank == size - 1) {
index e2a424a..d2a3981 100644 (file)
@@ -16,7 +16,7 @@ int assoc(int *, int *, int *, MPI_Datatype *);
     (see 4.9.4).  The order is important.
 
     Note that the computation is in process rank (in the communicator)
     (see 4.9.4).  The order is important.
 
     Note that the computation is in process rank (in the communicator)
-    order, independant of the root.
+    order, independent of the root.
  */
 int assoc(int *invec, int *inoutvec, int *len, MPI_Datatype * dtype)
 {
  */
 int assoc(int *invec, int *inoutvec, int *len, MPI_Datatype * dtype)
 {
index b79482e..3c4e16a 100644 (file)
@@ -24,7 +24,7 @@ void addem(int *invec, int *inoutvec, int *len, MPI_Datatype * dtype)
     (see 4.9.4).  The order is important.
 
     Note that the computation is in process rank (in the communicator)
     (see 4.9.4).  The order is important.
 
     Note that the computation is in process rank (in the communicator)
-    order, independant of the root.
+    order, independent of the root.
  */
 void assoc(int *invec, int *inoutvec, int *len, MPI_Datatype * dtype)
 {
  */
 void assoc(int *invec, int *inoutvec, int *len, MPI_Datatype * dtype)
 {
index ce37c95..0b6ee4d 100644 (file)
@@ -61,7 +61,7 @@ int main(int argc, char *argv[])
         for (i = 0; i < size; i++) {
             for (j = 0; j < COUNT; j++) {
                 if (recvbuf[i * COUNT + j] != i * VERIFY_CONST + j) {
         for (i = 0; i < size; i++) {
             for (j = 0; j < COUNT; j++) {
                 if (recvbuf[i * COUNT + j] != i * VERIFY_CONST + j) {
-                    printf("PE 0: mis-match error");
+                    printf("PE 0: mismatch error");
                     printf("  recbuf[%d * %d + %d] = ", i, COUNT, j);
                     printf("  %ld,", recvbuf[i * COUNT + j]);
                     printf("  should be %ld\n", i * VERIFY_CONST + j);
                     printf("  recbuf[%d * %d + %d] = ", i, COUNT, j);
                     printf("  %ld,", recvbuf[i * COUNT + j]);
                     printf("  should be %ld\n", i * VERIFY_CONST + j);
index 76828b6..2557c92 100644 (file)
@@ -122,7 +122,7 @@ static void cleanup_laundry(struct laundry *l)
 }
 
 /* Starts a "random" operation on "comm" corresponding to "rndnum" and returns
 }
 
 /* Starts a "random" operation on "comm" corresponding to "rndnum" and returns
- * in (*req) a request handle corresonding to that operation.  This call should
+ * in (*req) a request handle corresponding to that operation.  This call should
  * be considered collective over comm (with a consistent value for "rndnum"),
  * even though the operation may only be a point-to-point request. */
 static void start_random_nonblocking(MPI_Comm comm, unsigned int rndnum, MPI_Request * req,
  * be considered collective over comm (with a consistent value for "rndnum"),
  * even though the operation may only be a point-to-point request. */
 static void start_random_nonblocking(MPI_Comm comm, unsigned int rndnum, MPI_Request * req,
index 9c8001e..83434d2 100644 (file)
@@ -48,7 +48,7 @@ int main(int argc, char *argv[])
     else
         maxsize = size;
 
     else
         maxsize = size;
 
-    /* General forumula: If we multiple the values from 1 to n, the
+    /* General formula: If we multiple the values from 1 to n, the
      * product is n!.  This grows very fast, so we'll only use the first
      * five (1! = 1, 2! = 2, 3! = 6, 4! = 24, 5! = 120), with n!
      * stored in the array result[n] */
      * product is n!.  This grows very fast, so we'll only use the first
      * five (1! = 1, 2! = 2, 3! = 6, 4! = 24, 5! = 120), with n!
      * stored in the array result[n] */
index ae88669..1ae353a 100644 (file)
@@ -50,7 +50,7 @@ void right(void *a, void *b, int *count, MPI_Datatype * type)
 }
 
 /* Just performs a simple sum but can be marked as non-commutative to
 }
 
 /* Just performs a simple sum but can be marked as non-commutative to
-   potentially tigger different logic in the implementation. */
+   potentially trigger different logic in the implementation. */
 void nc_sum(void *a, void *b, int *count, MPI_Datatype * type);
 void nc_sum(void *a, void *b, int *count, MPI_Datatype * type)
 {
 void nc_sum(void *a, void *b, int *count, MPI_Datatype * type);
 void nc_sum(void *a, void *b, int *count, MPI_Datatype * type)
 {
index 1f59bcd..44af33a 100644 (file)
@@ -50,7 +50,7 @@ void right(void *a, void *b, int *count, MPI_Datatype * type)
 }
 
 /* Just performs a simple sum but can be marked as non-commutative to
 }
 
 /* Just performs a simple sum but can be marked as non-commutative to
-   potentially tigger different logic in the implementation. */
+   potentially trigger different logic in the implementation. */
 void nc_sum(void *a, void *b, int *count, MPI_Datatype * type);
 void nc_sum(void *a, void *b, int *count, MPI_Datatype * type)
 {
 void nc_sum(void *a, void *b, int *count, MPI_Datatype * type);
 void nc_sum(void *a, void *b, int *count, MPI_Datatype * type)
 {
index 12ddcad..153726d 100644 (file)
@@ -24,7 +24,7 @@ void addem(int *invec, int *inoutvec, int *len, MPI_Datatype * dtype)
     (see 4.9.4).  The order is important.
 
     Note that the computation is in process rank (in the communicator)
     (see 4.9.4).  The order is important.
 
     Note that the computation is in process rank (in the communicator)
-    order, independant of the root.
+    order, independent of the root.
  */
 void assoc(int *invec, int *inoutvec, int *len, MPI_Datatype * dtype)
 {
  */
 void assoc(int *invec, int *inoutvec, int *len, MPI_Datatype * dtype)
 {
index b507a9b..c3b9206 100644 (file)
 #define ITERS 10
 
 /* This test uses several scenarios to overlap iallreduce and comm_idup
 #define ITERS 10
 
 /* This test uses several scenarios to overlap iallreduce and comm_idup
- * 1.)  Use comm_idup  dublicate the COMM_WORLD and do iallreduce
+ * 1.)  Use comm_idup  duplicate the COMM_WORLD and do iallreduce
  *      on the COMM_WORLD
  * 2.)  Do the above test in a loop
  *      on the COMM_WORLD
  * 2.)  Do the above test in a loop
- * 3.)  Dublicate  COMM_WORLD, overalp iallreduce on one
+ * 3.)  Duplicate  COMM_WORLD, overalp iallreduce on one
  *      communicator with comm_idup on the nother communicator
  * 4.)  Split MPI_COMM_WORLD, communicate on the split communicator
         while dublicating COMM_WORLD
  *  5.) Duplicate the split communicators with comm_idup
  *      while communicating  onCOMM_WORLD
  *      communicator with comm_idup on the nother communicator
  * 4.)  Split MPI_COMM_WORLD, communicate on the split communicator
         while dublicating COMM_WORLD
  *  5.) Duplicate the split communicators with comm_idup
  *      while communicating  onCOMM_WORLD
- *  6.) Ceate an inter-communicator and duplicate it with comm_idup while
+ *  6.) Create an inter-communicator and duplicate it with comm_idup while
  *      communicating on the inter-communicator
  *      communicating on the inter-communicator
- *  7.) Dublicate the inter-communicator whil communicate on COMM_WORLD
+ *  7.) Duplicate the inter-communicator whil communicate on COMM_WORLD
  *  8.) Merge the inter-communicator to an intra-communicator and idup it,
  *      overlapping with communication on MPI_COMM_WORLD
  *  9.) Communicate on the merge communicator, while duplicating COMM_WORLD
  *  8.) Merge the inter-communicator to an intra-communicator and idup it,
  *      overlapping with communication on MPI_COMM_WORLD
  *  9.) Communicate on the merge communicator, while duplicating COMM_WORLD
index ed52049..d8ae639 100644 (file)
@@ -22,7 +22,7 @@ int main(int argc, char *argv[])
     char name[MPI_MAX_OBJECT_NAME], nameout[MPI_MAX_OBJECT_NAME];
     MTest_Init(&argc, &argv);
 
     char name[MPI_MAX_OBJECT_NAME], nameout[MPI_MAX_OBJECT_NAME];
     MTest_Init(&argc, &argv);
 
-    /* Check world and self firt */
+    /* Check world and self first */
     nameout[0] = 0;
     MPI_Comm_get_name(MPI_COMM_WORLD, nameout, &rlen);
     if (strcmp(nameout, "MPI_COMM_WORLD")) {
     nameout[0] = 0;
     MPI_Comm_get_name(MPI_COMM_WORLD, nameout, &rlen);
     if (strcmp(nameout, "MPI_COMM_WORLD")) {
index e371276..974d0f0 100644 (file)
@@ -14,7 +14,7 @@ int main(int argc, char *argv[])
     MPI_Comm comm, dupcomm, dupcomm2;
     MPI_Request rreq[2];
     int count;
     MPI_Comm comm, dupcomm, dupcomm2;
     MPI_Request rreq[2];
     int count;
-    int indicies[2];
+    int indices[2];
     int r1buf, r2buf, s1buf, s2buf;
     int rank, isLeft;
 
     int r1buf, r2buf, s1buf, s2buf;
     int rank, isLeft;
 
@@ -40,12 +40,12 @@ int main(int argc, char *argv[])
             MPI_Irecv(&r1buf, 1, MPI_INT, 0, 0, dupcomm, &rreq[0]);
             MPI_Irecv(&r2buf, 1, MPI_INT, 0, 0, comm, &rreq[1]);
             MPI_Send(&s2buf, 1, MPI_INT, 0, 0, comm);
             MPI_Irecv(&r1buf, 1, MPI_INT, 0, 0, dupcomm, &rreq[0]);
             MPI_Irecv(&r2buf, 1, MPI_INT, 0, 0, comm, &rreq[1]);
             MPI_Send(&s2buf, 1, MPI_INT, 0, 0, comm);
-            MPI_Waitsome(2, rreq, &count, indicies, MPI_STATUSES_IGNORE);
-            if (count != 1 || indicies[0] != 1) {
+            MPI_Waitsome(2, rreq, &count, indices, MPI_STATUSES_IGNORE);
+            if (count != 1 || indices[0] != 1) {
                 /* The only valid return is that exactly one message
                  * has been received */
                 errs++;
                 /* The only valid return is that exactly one message
                  * has been received */
                 errs++;
-                if (count == 1 && indicies[0] != 1) {
+                if (count == 1 && indices[0] != 1) {
                     printf("Error in context values for intercomm\n");
                 }
                 else if (count == 2) {
                     printf("Error in context values for intercomm\n");
                 }
                 else if (count == 2) {
@@ -55,7 +55,7 @@ int main(int argc, char *argv[])
                     int i;
                     printf("Error: count = %d", count);
                     for (i = 0; i < count; i++) {
                     int i;
                     printf("Error: count = %d", count);
                     for (i = 0; i < count; i++) {
-                        printf(" indicies[%d] = %d", i, indicies[i]);
+                        printf(" indices[%d] = %d", i, indices[i]);
                     }
                     printf("\n");
                 }
                     }
                     printf("\n");
                 }
index d267205..338c6d1 100644 (file)
@@ -149,7 +149,7 @@ int blockindexed_contig_test(void)
 /* blockindexed_vector_test()
  *
  * Tests behavior with a blockindexed of some vector types;
 /* blockindexed_vector_test()
  *
  * Tests behavior with a blockindexed of some vector types;
- * this shouldn't be easily convertable into anything else.
+ * this shouldn't be easily convertible into anything else.
  *
  * Returns the number of errors encountered.
  */
  *
  * Returns the number of errors encountered.
  */
index 5f00009..5c975fc 100644 (file)
@@ -161,7 +161,7 @@ int hindexed_block_contig_test(void)
 /* hindexed_block_vector_test()
  *
  * Tests behavior with a hindexed_block of some vector types;
 /* hindexed_block_vector_test()
  *
  * Tests behavior with a hindexed_block of some vector types;
- * this shouldn't be easily convertable into anything else.
+ * this shouldn't be easily convertible into anything else.
  *
  * Returns the number of errors encountered.
  */
  *
  * Returns the number of errors encountered.
  */
index 48a256d..eb6b2cd 100644 (file)
@@ -17,7 +17,7 @@ static MPI_Datatype make_largexfer_type_struct(MPI_Offset nbytes)
     int remainder = 0;
     MPI_Datatype memtype, chunktype;
 
     int remainder = 0;
     MPI_Datatype memtype, chunktype;
 
-    /* need to cook up a new datatype to accomodate large datatypes */
+    /* need to cook up a new datatype to accommodate large datatypes */
     /* first pass: chunks of 1 MiB plus an additional remainder.  Does require
      * 8 byte MPI_Aint, which should have been checked for earlier */
 
     /* first pass: chunks of 1 MiB plus an additional remainder.  Does require
      * 8 byte MPI_Aint, which should have been checked for earlier */
 
@@ -56,7 +56,7 @@ static MPI_Datatype make_largexfer_type_hindexed(MPI_Offset nbytes)
     MPI_Aint *disp;
     MPI_Datatype memtype;
 
     MPI_Aint *disp;
     MPI_Datatype memtype;
 
-    /* need to cook up a new datatype to accomodate large datatypes */
+    /* need to cook up a new datatype to accommodate large datatypes */
     /* Does require 8 byte MPI_Aint, which should have been checked for earlier
      */
 
     /* Does require 8 byte MPI_Aint, which should have been checked for earlier
      */
 
index b1c4824..158b66b 100644 (file)
@@ -1135,7 +1135,7 @@ int int_with_negextent_test(void)
             fprintf(stderr, "  MPI_Type_struct of %s failed.\n", typemapstring);
         if (verbose)
             MTestPrintError(err);
             fprintf(stderr, "  MPI_Type_struct of %s failed.\n", typemapstring);
         if (verbose)
             MTestPrintError(err);
-        /* No point in contiuing */
+        /* No point in continuing */
         return errs;
     }
 
         return errs;
     }
 
index 8ff1fc0..ca8d1dc 100644 (file)
@@ -124,7 +124,7 @@ mpi_names_t mpi_names[] = {
     /* added in MPI 3 */
     { MPI_COUNT, "MPI_COUNT" },
 #endif
     /* added in MPI 3 */
     { MPI_COUNT, "MPI_COUNT" },
 #endif
-    { 0, (char *)0 },  /* Sentinal used to indicate the last element */
+    { 0, (char *)0 },  /* Sentinel used to indicate the last element */
 };
 
     char name[MPI_MAX_OBJECT_NAME];
 };
 
     char name[MPI_MAX_OBJECT_NAME];
index 0e9f55a..e95a7ca 100644 (file)
@@ -36,7 +36,7 @@ int main(int argc, char **argv)
 
     /* We should not get here, because the default error handler
      * is ERRORS_ARE_FATAL.  This makes sure that the correct error
 
     /* We should not get here, because the default error handler
      * is ERRORS_ARE_FATAL.  This makes sure that the correct error
-     * handler is called and that no failure occured (such as
+     * handler is called and that no failure occurred (such as
      * a SEGV) in Comm_call_errhandler on the default
      * error handler. */
     printf("After the Error Handler Has Been Called\n");
      * a SEGV) in Comm_call_errhandler on the default
      * error handler. */
     printf("After the Error Handler Has Been Called\n");
index 4f1d343..8f81d40 100644 (file)
@@ -50,7 +50,7 @@ int main( int argc, char *argv[] )
        printf( "Unable to cancel MPI_Irecv request\n" );
     }
     /* Using MPI_Request_free should be ok, but some MPI implementations
        printf( "Unable to cancel MPI_Irecv request\n" );
     }
     /* Using MPI_Request_free should be ok, but some MPI implementations
-       object to it imediately after the cancel and that isn't essential to
+       object to it immediately after the cancel and that isn't essential to
        this test */
 
     MTest_Finalize( errs );
        this test */
 
     MTest_Finalize( errs );
index e0e5f60..8775b83 100644 (file)
@@ -64,7 +64,7 @@ static mpi_names_t mpi_names[] = {
     { MPI_LONG_LONG, "MPI_LONG_LONG" },
     { MPI_UNSIGNED_LONG_LONG, "MPI_UNSIGNED_LONG_LONG" },
     { MPI_LONG_DOUBLE_INT, "MPI_LONG_DOUBLE_INT" },
     { MPI_LONG_LONG, "MPI_LONG_LONG" },
     { MPI_UNSIGNED_LONG_LONG, "MPI_UNSIGNED_LONG_LONG" },
     { MPI_LONG_DOUBLE_INT, "MPI_LONG_DOUBLE_INT" },
-    { 0, (char *)0 },  /* Sentinal used to indicate the last element */
+    { 0, (char *)0 },  /* Sentinel used to indicate the last element */
 };
 
 /*
 };
 
 /*
index a23c178..e6d046b 100644 (file)
@@ -22,7 +22,7 @@ C
       call mtest_init( ierr )
 
 C
       call mtest_init( ierr )
 
 C
-C     For upto 6 dimensions, test with periodicity in 0 through all
+C     For up to 6 dimensions, test with periodicity in 0 through all
 C     dimensions.  The test is computed by both:
 C         get info about the created communicator
 C         apply cart shift
 C     dimensions.  The test is computed by both:
 C         get info about the created communicator
 C         apply cart shift
index f040a86..23f54f2 100644 (file)
@@ -154,7 +154,7 @@ C     the nearest neighbors that within a ring.
 
 C now create one with MPI_WEIGHTS_EMPTY
 C NOTE that MPI_WEIGHTS_EMPTY was added in MPI-3 and does not 
 
 C now create one with MPI_WEIGHTS_EMPTY
 C NOTE that MPI_WEIGHTS_EMPTY was added in MPI-3 and does not 
-C appear before then.  Incluing this test means that this test cannot
+C appear before then.  Including this test means that this test cannot
 C be compiled if the MPI version is less than 3 (see the testlist file)
 
       degs(1) = 0;
 C be compiled if the MPI version is less than 3 (see the testlist file)
 
       degs(1) = 0;
index b2edf87..7672858 100644 (file)
@@ -16,7 +16,7 @@
         errs = 0
         call mtest_init( ierr )
 
         errs = 0
         call mtest_init( ierr )
 
-! integers with upto 9 are 4 bytes integers; r of 4 are 2 byte,
+! integers with up to 9 are 4 bytes integers; r of 4 are 2 byte,
 ! and r of 2 is 1 byte
         call mpi_type_create_f90_integer( 9, ntype1, ierr )
 !
 ! and r of 2 is 1 byte
         call mpi_type_create_f90_integer( 9, ntype1, ierr )
 !
index 3d42946..fd22c58 100644 (file)
      endif
      call MPI_RECV( aint, 1, MPI_AINT, 0, 0, MPI_COMM_WORLD, s, ierr )
      if (taint .ne. aint) then
      endif
      call MPI_RECV( aint, 1, MPI_AINT, 0, 0, MPI_COMM_WORLD, s, ierr )
      if (taint .ne. aint) then
-        print *, "Address-sized int not correctly transfered"
+        print *, "Address-sized int not correctly transferred"
         print *, "Value should be ", taint, " but is ", aint
         errs = errs + 1
      endif
      call MPI_RECV( oint, 1, MPI_OFFSET, 0, 1, MPI_COMM_WORLD, s, ierr )
      if (toint .ne. oint) then
         print *, "Value should be ", taint, " but is ", aint
         errs = errs + 1
      endif
      call MPI_RECV( oint, 1, MPI_OFFSET, 0, 1, MPI_COMM_WORLD, s, ierr )
      if (toint .ne. oint) then
-        print *, "Offset-sized int not correctly transfered"
+        print *, "Offset-sized int not correctly transferred"
         print *, "Value should be ", toint, " but is ", oint
         errs = errs + 1
      endif
      call MPI_RECV( iint, 1, MPI_INTEGER, 0, 2, MPI_COMM_WORLD, s, ierr )
      if (tiint .ne. iint) then
         print *, "Value should be ", toint, " but is ", oint
         errs = errs + 1
      endif
      call MPI_RECV( iint, 1, MPI_INTEGER, 0, 2, MPI_COMM_WORLD, s, ierr )
      if (tiint .ne. iint) then
-        print *, "Integer (by kind) not correctly transfered"
+        print *, "Integer (by kind) not correctly transferred"
         print *, "Value should be ", tiint, " but is ", iint
         errs = errs + 1
      endif
         print *, "Value should be ", tiint, " but is ", iint
         errs = errs + 1
      endif
index dbdc861..b2118b6 100644 (file)
@@ -73,7 +73,7 @@
           call mpi_type_free(newtype,ierr)
 !         write(*,*) "Sent ",name(1:5),x
       else 
           call mpi_type_free(newtype,ierr)
 !         write(*,*) "Sent ",name(1:5),x
       else 
-!         Everyone calls barrier incase size > 2
+!         Everyone calls barrier in case size > 2
           call mpi_barrier( MPI_COMM_WORLD, ierr )
           if (me.eq.dest) then
              position=0
           call mpi_barrier( MPI_COMM_WORLD, ierr )
           if (me.eq.dest) then
              position=0
index c2904de..64f3dee 100644 (file)
@@ -21,7 +21,7 @@ int main(int argc, char *argv[])
     MPI_Comm_rank(MPI_COMM_WORLD, &myrank);
     MPI_Comm_size(MPI_COMM_WORLD, &size);
     if (size < 8) {
     MPI_Comm_rank(MPI_COMM_WORLD, &myrank);
     MPI_Comm_size(MPI_COMM_WORLD, &size);
     if (size < 8) {
-        fprintf(stderr, "Test requires 8 processes (16 prefered) only %d provided\n", size);
+        fprintf(stderr, "Test requires 8 processes (16 preferred) only %d provided\n", size);
         errs++;
     }
 
         errs++;
     }
 
index 16bbaab..5053193 100644 (file)
@@ -7,7 +7,7 @@
 
 /*
    Test the group routines
 
 /*
    Test the group routines
-   (some tested elsewere)
+   (some tested elsewhere)
 
 MPI_Group_compare
 MPI_Group_excl
 
 MPI_Group_compare
 MPI_Group_excl
index b281847..aa6eb48 100644 (file)
@@ -28,7 +28,7 @@ int main(int argc, char *argv[])
     MTest_Init(&argc, &argv);
 
     MPI_Info_create(&info);
     MTest_Init(&argc, &argv);
 
     MPI_Info_create(&info);
-    /* Use only named keys incase the info implementation only supports
+    /* Use only named keys in case the info implementation only supports
      * the predefined keys (e.g., IBM) */
     for (i = 0; i < NKEYS; i++) {
         MPI_Info_set(info, keys[i], values[i]);
      * the predefined keys (e.g., IBM) */
     for (i = 0; i < NKEYS; i++) {
         MPI_Info_set(info, keys[i], values[i]);
index 4c79749..cbce96b 100644 (file)
@@ -24,7 +24,7 @@ int main(int argc, char *argv[])
     MTest_Init(&argc, &argv);
 
     MPI_Info_create(&info1);
     MTest_Init(&argc, &argv);
 
     MPI_Info_create(&info1);
-    /* Use only named keys incase the info implementation only supports
+    /* Use only named keys in case the info implementation only supports
      * the predefined keys (e.g., IBM) */
     MPI_Info_set(info1, (char *) "host", (char *) "myhost.myorg.org");
     MPI_Info_set(info1, (char *) "file", (char *) "runfile.txt");
      * the predefined keys (e.g., IBM) */
     MPI_Info_set(info1, (char *) "host", (char *) "myhost.myorg.org");
     MPI_Info_set(info1, (char *) "file", (char *) "runfile.txt");
index e1189c4..d859a91 100644 (file)
@@ -30,7 +30,7 @@ int main(int argc, char *argv[])
 
     /* 1,2,3 */
     MPI_Info_create(&info);
 
     /* 1,2,3 */
     MPI_Info_create(&info);
-    /* Use only named keys incase the info implementation only supports
+    /* Use only named keys in case the info implementation only supports
      * the predefined keys (e.g., IBM) */
     for (i = 0; i < NKEYS; i++) {
         MPI_Info_set(info, keys1[i], values1[i]);
      * the predefined keys (e.g., IBM) */
     for (i = 0; i < NKEYS; i++) {
         MPI_Info_set(info, keys1[i], values1[i]);
@@ -52,7 +52,7 @@ int main(int argc, char *argv[])
 
     /* 3,2,1 */
     MPI_Info_create(&info);
 
     /* 3,2,1 */
     MPI_Info_create(&info);
-    /* Use only named keys incase the info implementation only supports
+    /* Use only named keys in case the info implementation only supports
      * the predefined keys (e.g., IBM) */
     for (i = NKEYS - 1; i >= 0; i--) {
         MPI_Info_set(info, keys1[i], values1[i]);
      * the predefined keys (e.g., IBM) */
     for (i = NKEYS - 1; i >= 0; i--) {
         MPI_Info_set(info, keys1[i], values1[i]);
@@ -74,7 +74,7 @@ int main(int argc, char *argv[])
 
     /* 1,3,2 */
     MPI_Info_create(&info);
 
     /* 1,3,2 */
     MPI_Info_create(&info);
-    /* Use only named keys incase the info implementation only supports
+    /* Use only named keys in case the info implementation only supports
      * the predefined keys (e.g., IBM) */
     MPI_Info_set(info, keys1[0], values1[0]);
     MPI_Info_set(info, keys1[2], values1[2]);
      * the predefined keys (e.g., IBM) */
     MPI_Info_set(info, keys1[0], values1[0]);
     MPI_Info_set(info, keys1[2], values1[2]);
@@ -96,7 +96,7 @@ int main(int argc, char *argv[])
 
     /* 2,1,3 */
     MPI_Info_create(&info);
 
     /* 2,1,3 */
     MPI_Info_create(&info);
-    /* Use only named keys incase the info implementation only supports
+    /* Use only named keys in case the info implementation only supports
      * the predefined keys (e.g., IBM) */
     MPI_Info_set(info, keys1[1], values1[1]);
     MPI_Info_set(info, keys1[0], values1[0]);
      * the predefined keys (e.g., IBM) */
     MPI_Info_set(info, keys1[1], values1[1]);
     MPI_Info_set(info, keys1[0], values1[0]);
@@ -118,7 +118,7 @@ int main(int argc, char *argv[])
 
     /* 2,3,1 */
     MPI_Info_create(&info);
 
     /* 2,3,1 */
     MPI_Info_create(&info);
-    /* Use only named keys incase the info implementation only supports
+    /* Use only named keys in case the info implementation only supports
      * the predefined keys (e.g., IBM) */
     MPI_Info_set(info, keys1[1], values1[1]);
     MPI_Info_set(info, keys1[2], values1[2]);
      * the predefined keys (e.g., IBM) */
     MPI_Info_set(info, keys1[1], values1[1]);
     MPI_Info_set(info, keys1[2], values1[2]);
@@ -140,7 +140,7 @@ int main(int argc, char *argv[])
 
     /* 3,1,2 */
     MPI_Info_create(&info);
 
     /* 3,1,2 */
     MPI_Info_create(&info);
-    /* Use only named keys incase the info implementation only supports
+    /* Use only named keys in case the info implementation only supports
      * the predefined keys (e.g., IBM) */
     MPI_Info_set(info, keys1[2], values1[2]);
     MPI_Info_set(info, keys1[0], values1[0]);
      * the predefined keys (e.g., IBM) */
     MPI_Info_set(info, keys1[2], values1[2]);
     MPI_Info_set(info, keys1[0], values1[0]);
index 22fbfe5..39cf707 100644 (file)
@@ -24,7 +24,7 @@ int main(int argc, char *argv[])
     MTest_Init(&argc, &argv);
 
     MPI_Info_create(&info);
     MTest_Init(&argc, &argv);
 
     MPI_Info_create(&info);
-    /* Use only named keys incase the info implementation only supports
+    /* Use only named keys in case the info implementation only supports
      * the predefined keys (e.g., IBM) */
     for (i = 0; i < NKEYS; i++) {
         MPI_Info_set(info, keys[i], values[i]);
      * the predefined keys (e.g., IBM) */
     for (i = 0; i < NKEYS; i++) {
         MPI_Info_set(info, keys[i], values[i]);
index 027a413..bbbcd9c 100644 (file)
@@ -97,7 +97,7 @@ int checkAttrs(MPI_Comm comm, int n, int lkey[], int attrval[])
         }
         else if (val_p != &attrval[i]) {
             lerrs++;
         }
         else if (val_p != &attrval[i]) {
             lerrs++;
-            fprintf(stderr, "Atribute value for key %d not correct\n", i);
+            fprintf(stderr, "Attribute value for key %d not correct\n", i);
         }
     }
 
         }
     }
 
index 35466b4..57a4868 100644 (file)
@@ -15,7 +15,7 @@
  *
  * . generalized file writing/reading to handle arbitrary number of processors
  * . provides the "cb_config_list" hint with several permutations of the
  *
  * . generalized file writing/reading to handle arbitrary number of processors
  * . provides the "cb_config_list" hint with several permutations of the
- *   avaliable processors.
+ *   available processors.
  *   [ makes use of code copied from ROMIO's ADIO code to collect the names of
  *   the processors ]
  */
  *   [ makes use of code copied from ROMIO's ADIO code to collect the names of
  *   the processors ]
  */
index 2acc2bc..2c5699b 100644 (file)
@@ -6,7 +6,7 @@
 
 
 /* this deceptively simple test uncovered a bug in the way certain file systems
 
 
 /* this deceptively simple test uncovered a bug in the way certain file systems
- * dealt with tuning parmeters.  See
+ * dealt with tuning parameters.  See
  * https://github.com/open-mpi/ompi/issues/158 and
  * http://trac.mpich.org/projects/mpich/ticket/2261
  *
  * https://github.com/open-mpi/ompi/issues/158 and
  * http://trac.mpich.org/projects/mpich/ticket/2261
  *
@@ -110,7 +110,7 @@ int main(int argc, char **argv)
     sprintf(file, "%s", opt_file);
     MPI_Info_create(&info);
     nr_errors += test_write(file, nprocs, rank, info);
     sprintf(file, "%s", opt_file);
     MPI_Info_create(&info);
     nr_errors += test_write(file, nprocs, rank, info);
-    /* acutal value does not matter.  test only writes a small amount of data */
+    /* actual value does not matter.  test only writes a small amount of data */
     MPI_Info_set(info, "striping_factor", "50");
     nr_errors += test_write(file, nprocs, rank, info);
     MPI_Info_free(&info);
     MPI_Info_set(info, "striping_factor", "50");
     nr_errors += test_write(file, nprocs, rank, info);
     MPI_Info_free(&info);
index 405c794..8e7557c 100644 (file)
@@ -11,7 +11,7 @@
 #define MAX_MSGS 30
 
 /*
 #define MAX_MSGS 30
 
 /*
-static char MTEST_Descrip[] = "One implementation delivered incorrect data when an MPI recieve uses both ANY_SOURCE and ANY_TAG";
+static char MTEST_Descrip[] = "One implementation delivered incorrect data when an MPI receive uses both ANY_SOURCE and ANY_TAG";
 */
 
 int main(int argc, char *argv[])
 */
 
 int main(int argc, char *argv[])
index ec358e6..c01343e 100644 (file)
@@ -8,7 +8,7 @@
 #include "mpi.h"
 #include "mpitest.h"
 
 #include "mpi.h"
 #include "mpitest.h"
 
-/* Test bsend with a buffer with arbitray alignment */
+/* Test bsend with a buffer with arbitrary alignment */
 #define BUFSIZE 2000*4
 int main(int argc, char *argv[])
 {
 #define BUFSIZE 2000*4
 int main(int argc, char *argv[])
 {
@@ -62,7 +62,7 @@ int main(int argc, char *argv[])
         if (bptr != buf + align) {
             errs++;
             printf
         if (bptr != buf + align) {
             errs++;
             printf
-                ("Did not recieve the same buffer on detach that was provided on init (%p vs %p)\n",
+                ("Did not receive the same buffer on detach that was provided on init (%p vs %p)\n",
                  bptr, buf);
         }
     }
                  bptr, buf);
         }
     }
index f4b8930..ef71a3d 100644 (file)
@@ -81,7 +81,7 @@ int main(int argc, char *argv[])
                 else if (rank == dest) {
                     MPI_Win_fence(0, win);
                     /* This should have the same effect, in terms of
                 else if (rank == dest) {
                     MPI_Win_fence(0, win);
                     /* This should have the same effect, in terms of
-                     * transfering data, as a send/recv pair */
+                     * transferring data, as a send/recv pair */
                     err = MTestCheckRecv(0, &recvtype);
                     if (err) {
                         errs += err;
                     err = MTestCheckRecv(0, &recvtype);
                     if (err) {
                         errs += err;
index 67ab3b4..dd9162c 100644 (file)
@@ -85,7 +85,7 @@ int main(int argc, char *argv[])
                     MPI_Group_free(&neighbors);
                     MPI_Win_wait(win);
                     /* This should have the same effect, in terms of
                     MPI_Group_free(&neighbors);
                     MPI_Win_wait(win);
                     /* This should have the same effect, in terms of
-                     * transfering data, as a send/recv pair */
+                     * transferring data, as a send/recv pair */
                     err = MTestCheckRecv(0, &recvtype);
                     if (err) {
                         errs += errs;
                     err = MTestCheckRecv(0, &recvtype);
                     if (err) {
                         errs += errs;
index 0e73e2d..9a7eafe 100644 (file)
@@ -8,11 +8,11 @@
 /* This test is going to test the atomicity for "read-modify-write" in GACC
  * operations */
 
 /* This test is going to test the atomicity for "read-modify-write" in GACC
  * operations */
 
-/* This test is similiar with atomic_rmw_fop.c.
+/* This test is similar with atomic_rmw_fop.c.
  * There are three processes involved in this test: P0 (origin_shm), P1 (origin_am),
  * and P2 (dest). P0 and P1 issues multiple GACC with MPI_SUM and OP_COUNT integers
  * (value 1) to P2 via SHM and AM respectively. The correct results should be that the
  * There are three processes involved in this test: P0 (origin_shm), P1 (origin_am),
  * and P2 (dest). P0 and P1 issues multiple GACC with MPI_SUM and OP_COUNT integers
  * (value 1) to P2 via SHM and AM respectively. The correct results should be that the
- * results on P0 and P1 never be the same for intergers on the corresponding index
+ * results on P0 and P1 never be the same for integers on the corresponding index
  * in [0...OP_COUNT-1].
  */
 
  * in [0...OP_COUNT-1].
  */
 
index 9d6ef87..14723e8 100644 (file)
@@ -101,7 +101,7 @@ int checkAttrs(MPI_Win win, int n, int key[], int attrval[])
         }
         else if (val_p != &attrval[i]) {
             errs++;
         }
         else if (val_p != &attrval[i]) {
             errs++;
-            fprintf(stderr, "Atribute value for key %d not correct\n", i);
+            fprintf(stderr, "Attribute value for key %d not correct\n", i);
         }
     }
 
         }
     }
 
index 28b9952..9dff333 100644 (file)
@@ -7,7 +7,7 @@
 /** Contended RMA put test -- James Dinan <dinan@mcs.anl.gov>
   *
   * Each process issues COUNT put operations to non-overlapping locations on
 /** Contended RMA put test -- James Dinan <dinan@mcs.anl.gov>
   *
   * Each process issues COUNT put operations to non-overlapping locations on
-  * every other processs.
+  * every other process.
   */
 
 #include <stdio.h>
   */
 
 #include <stdio.h>
index abfdb2b..4f25827 100644 (file)
@@ -7,7 +7,7 @@
 /** Contended RMA put/get test -- James Dinan <dinan@mcs.anl.gov>
   *
   * Each process issues COUNT put and get operations to non-overlapping
 /** Contended RMA put/get test -- James Dinan <dinan@mcs.anl.gov>
   *
   * Each process issues COUNT put and get operations to non-overlapping
-  * locations on every other processs.
+  * locations on every other process.
   */
 
 #include <stdio.h>
   */
 
 #include <stdio.h>
index 6b06893..80bf6f1 100644 (file)
@@ -52,7 +52,7 @@ static inline int test(MPI_Comm comm, int rank, int source, int dest,
         MPI_Win_set_errhandler(win, MPI_ERRORS_RETURN);
 
         /* This should have the same effect, in terms of
         MPI_Win_set_errhandler(win, MPI_ERRORS_RETURN);
 
         /* This should have the same effect, in terms of
-         * transfering data, as a send/recv pair */
+         * transferring data, as a send/recv pair */
         err = MPI_Get(recvtype->buf, recvtype->count,
                       recvtype->datatype, source, 0, sendtype->count, sendtype->datatype, win);
         if (err) {
         err = MPI_Get(recvtype->buf, recvtype->count,
                       recvtype->datatype, source, 0, sendtype->count, sendtype->datatype, win);
         if (err) {
index 0bf63c3..72e9042 100644 (file)
@@ -127,7 +127,7 @@ int main(int argc, char *argv[])
         /* Perform several communication operations, mixing synchronization
          * types.  Use multiple communication to avoid the single-operation
          * optimization that may be present. */
         /* Perform several communication operations, mixing synchronization
          * types.  Use multiple communication to avoid the single-operation
          * optimization that may be present. */
-        MTestPrintfMsg(3, "Begining loop %d of mixed sync put/acc operations\n", loop);
+        MTestPrintfMsg(3, "Beginning loop %d of mixed sync put/acc operations\n", loop);
         memset(winbuf, 0, count * sizeof(int));
         MPI_Barrier(comm);
         if (crank == source) {
         memset(winbuf, 0, count * sizeof(int));
         MPI_Barrier(comm);
         if (crank == source) {
@@ -173,7 +173,7 @@ int main(int argc, char *argv[])
         /* Perform several communication operations, mixing synchronization
          * types.  Use multiple communication to avoid the single-operation
          * optimization that may be present. */
         /* Perform several communication operations, mixing synchronization
          * types.  Use multiple communication to avoid the single-operation
          * optimization that may be present. */
-        MTestPrintfMsg(3, "Begining loop %d of mixed sync put/get/acc operations\n", loop);
+        MTestPrintfMsg(3, "Beginning loop %d of mixed sync put/get/acc operations\n", loop);
         MPI_Barrier(comm);
         if (crank == source) {
             MPI_Win_lock(MPI_LOCK_EXCLUSIVE, dest, 0, win);
         MPI_Barrier(comm);
         if (crank == source) {
             MPI_Win_lock(MPI_LOCK_EXCLUSIVE, dest, 0, win);
index 4f49bea..68fb5a0 100644 (file)
@@ -61,7 +61,7 @@ static inline int test(MPI_Comm comm, int rank, int source, int dest,
     else if (rank == dest) {
         MPI_Win_fence(0, win);
         /* This should have the same effect, in terms of
     else if (rank == dest) {
         MPI_Win_fence(0, win);
         /* This should have the same effect, in terms of
-         * transfering data, as a send/recv pair */
+         * transferring data, as a send/recv pair */
         err = MTestCheckRecv(0, recvtype);
         if (err) {
             if (errs < 10) {
         err = MTestCheckRecv(0, recvtype);
         if (err) {
             if (errs < 10) {
index d46c8f9..e8cbfd0 100644 (file)
@@ -85,7 +85,7 @@ int main(int argc, char *argv[])
                     MPI_Group_free(&neighbors);
                     MPI_Win_wait(win);
                     /* This should have the same effect, in terms of
                     MPI_Group_free(&neighbors);
                     MPI_Win_wait(win);
                     /* This should have the same effect, in terms of
-                     * transfering data, as a send/recv pair */
+                     * transferring data, as a send/recv pair */
                     err = MTestCheckRecv(0, &recvtype);
                     if (err) {
                         errs += errs;
                     err = MTestCheckRecv(0, &recvtype);
                     if (err) {
                         errs += errs;
index 987787e..4d45848 100755 (executable)
@@ -724,7 +724,7 @@ sub AddMPIProgram {
 
     if ($ResultTest ne "") {
        # This test really needs to be run manually, with this test
 
     if ($ResultTest ne "") {
        # This test really needs to be run manually, with this test
-       # Eventually, we can update this to include handleing in checktests.
+       # Eventually, we can update this to include handling in checktests.
        print STDERR "Run $curdir/$programname with $np processes and use $ResultTest to check the results\n";
        return;
     }
        print STDERR "Run $curdir/$programname with $np processes and use $ResultTest to check the results\n";
        return;
     }
index b93fc9b..239d401 100644 (file)
@@ -139,7 +139,7 @@ static int basic_only = 0;
   free(myname); \
   counts[cnt]  = 1;  bytesize[cnt] = sizeof(_ctype) * (_count); cnt++; }
 
   free(myname); \
   counts[cnt]  = 1;  bytesize[cnt] = sizeof(_ctype) * (_count); cnt++; }
 
-/* This defines a structure of two basic members; by chosing things like
+/* This defines a structure of two basic members; by choosing things like
    (char, double), various packing and alignment tests can be made */
 #define SETUPSTRUCT2TYPE(_mpitype1,_ctype1,_mpitype2,_ctype2,_count,_tname) { \
   int i; char *myname;                                         \
    (char, double), various packing and alignment tests can be made */
 #define SETUPSTRUCT2TYPE(_mpitype1,_ctype1,_mpitype2,_ctype2,_count,_tname) { \
   int i; char *myname;                                         \
index cb24b32..b68178e 100644 (file)
@@ -575,7 +575,7 @@ int MTestGetIntercomm(MPI_Comm * comm, int *isLeftGroup, int min_size)
                     rleader = 0;
                 }
                 else {
                     rleader = 0;
                 }
                 else {
-                    /* Remote leader is signficant only for the processes
+                    /* Remote leader is significant only for the processes
                      * designated local leaders */
                     rleader = -1;
                 }
                      * designated local leaders */
                     rleader = -1;
                 }
@@ -607,7 +607,7 @@ int MTestGetIntercomm(MPI_Comm * comm, int *isLeftGroup, int min_size)
                     rleader = 0;
                 }
                 else {
                     rleader = 0;
                 }
                 else {
-                    /* Remote leader is signficant only for the processes
+                    /* Remote leader is significant only for the processes
                      * designated local leaders */
                     rleader = -1;
                 }
                      * designated local leaders */
                     rleader = -1;
                 }
@@ -640,7 +640,7 @@ int MTestGetIntercomm(MPI_Comm * comm, int *isLeftGroup, int min_size)
                     rleader = 0;
                 }
                 else {
                     rleader = 0;
                 }
                 else {
-                    /* Remote leader is signficant only for the processes
+                    /* Remote leader is significant only for the processes
                      * designated local leaders */
                     rleader = -1;
                 }
                      * designated local leaders */
                     rleader = -1;
                 }
@@ -673,7 +673,7 @@ int MTestGetIntercomm(MPI_Comm * comm, int *isLeftGroup, int min_size)
                     rleader = 0;
                 }
                 else {
                     rleader = 0;
                 }
                 else {
-                    /* Remote leader is signficant only for the processes
+                    /* Remote leader is significant only for the processes
                      * designated local leaders */
                     rleader = -1;
                 }
                      * designated local leaders */
                     rleader = -1;
                 }
@@ -716,7 +716,7 @@ int MTestGetIntercomm(MPI_Comm * comm, int *isLeftGroup, int min_size)
                     rleader = 0;
                 }
                 else {
                     rleader = 0;
                 }
                 else {
-                    /* Remote leader is signficant only for the processes
+                    /* Remote leader is significant only for the processes
                      * designated local leaders */
                     rleader = -1;
                 }
                      * designated local leaders */
                     rleader = -1;
                 }
@@ -769,7 +769,7 @@ int MTestGetIntercomm(MPI_Comm * comm, int *isLeftGroup, int min_size)
                     rleader = 1;
                 }
                 else {
                     rleader = 1;
                 }
                 else {
-                    /* Remote leader is signficant only for the processes
+                    /* Remote leader is significant only for the processes
                      * designated local leaders */
                     rleader = -1;
                 }
                      * designated local leaders */
                     rleader = -1;
                 }
@@ -813,7 +813,7 @@ int MTestGetIntercomm(MPI_Comm * comm, int *isLeftGroup, int min_size)
                     rleader = 0;
                 }
                 else {
                     rleader = 0;
                 }
                 else {
-                    /* Remote leader is signficant only for the processes
+                    /* Remote leader is significant only for the processes
                      * designated local leaders */
                     rleader = -1;
                 }
                      * designated local leaders */
                     rleader = -1;
                 }
index e0c4146..dc6dfb7 100644 (file)
@@ -68,7 +68,7 @@ int main(int argc, char** argv)
 
   MPI_Barrier(MPI_COMM_WORLD);
 
 
   MPI_Barrier(MPI_COMM_WORLD);
 
-  /* Set dims[] values to descibe a grid of nbNodes and DIM dimensions*/
+  /* Set dims[] values to describe a grid of nbNodes and DIM dimensions*/
   MPI_Cart_create(MPI_COMM_WORLD, DIM, dims, periods, reorder, &gridComm);
 
   if (gridComm == MPI_COMM_NULL)
   MPI_Cart_create(MPI_COMM_WORLD, DIM, dims, periods, reorder, &gridComm);
 
   if (gridComm == MPI_COMM_NULL)