- int blocklens[8], psize, i, rank;
- MPI_Aint displs[8];
- MPI_Datatype oldtypes[8];
- MPI_Datatype ntype1, ntype2;
-
- MPI_Init( &argc, &argv );
- MPI_Comm_rank( MPI_COMM_WORLD, &rank );
-
- for (i=0; i<8; i++) {
- blocklens[i] = 1;
- displs[i] = (7-i) * sizeof(long);
- oldtypes[i] = MPI_LONG;
+ int blocklens[8], psize, i, rank;
+ MPI_Aint displs[8];
+ MPI_Datatype oldtypes[8];
+ MPI_Datatype ntype1, ntype2;
+
+ MPI_Init(&argc, &argv);
+ MPI_Comm_rank(MPI_COMM_WORLD, &rank);
+
+ for (i = 0; i < 8; i++) {
+ blocklens[i] = 1;
+ displs[i] = (7 - i) * sizeof(long);
+ oldtypes[i] = MPI_LONG;