Logo AND Algorithmique Numérique Distribuée

Public GIT Repository
Update datatype mpich tests
[simgrid.git] / teshsuite / smpi / mpich3-test / datatype / zero-blklen-vector.c
index ce51f19..ff1e123 100644 (file)
@@ -3,36 +3,34 @@
  *
  *  (C) 2003 by Argonne National Laboratory.
  *      See COPYRIGHT in top-level directory.
- */     
+ */
 
 #include <mpi.h>
 #include <stdio.h>
-int main(int argc, charargv[])
+int main(int argc, char *argv[])
 {
-       int iam, np;
-       int m = 2, n = 0, lda = 1;
-       double A[2];
-       MPI_Comm comm = MPI_COMM_WORLD;
-       MPI_Datatype type = MPI_DOUBLE, vtype;
+    int iam, np;
+    int m = 2, n = 0, lda = 1;
+    double A[2];
+    MPI_Comm comm = MPI_COMM_WORLD;
+    MPI_Datatype type = MPI_DOUBLE, vtype;
 
-       MPI_Init(&argc,&argv);
-       MPI_Comm_size(comm, &np);
-       MPI_Comm_rank(comm, &iam);
-       if (np < 2) {
-               printf( "Should be at least 2 processes for the test\n");
-        } else {
-               MPI_Type_vector(n, m, lda, type, &vtype);
-               MPI_Type_commit(&vtype);
-               A[0] = -1.0-0.1*iam;
-               A[1] = 0.5+0.1*iam;
-               printf("In process %i of %i before Bcast: A = %f,%f\n",
-                      iam, np, A[0], A[1] );
-               MPI_Bcast(A, 1, vtype, 0, comm);
-               printf("In process %i of %i after Bcast: A = %f,%f\n",
-                      iam, np, A[0], A[1]);
-               MPI_Type_free(&vtype);
-       }
+    MPI_Init(&argc, &argv);
+    MPI_Comm_size(comm, &np);
+    MPI_Comm_rank(comm, &iam);
+    if (np < 2) {
+        printf("Should be at least 2 processes for the test\n");
+    }
+    else {
+        MPI_Type_vector(n, m, lda, type, &vtype);
+        MPI_Type_commit(&vtype);
+        A[0] = -1.0 - 0.1 * iam;
+        A[1] = 0.5 + 0.1 * iam;
+        printf("In process %i of %i before Bcast: A = %f,%f\n", iam, np, A[0], A[1]);
+        MPI_Bcast(A, 1, vtype, 0, comm);
+        printf("In process %i of %i after Bcast: A = %f,%f\n", iam, np, A[0], A[1]);
+        MPI_Type_free(&vtype);
+    }
 
-       MPI_Finalize();
-   return(0);
+    MPI_Finalize();
 }