hi,
i need use open-mpi with g95 on debian linux lenny 5.0 - x86_64
i compile it with FC=g95 F77=g95 and test on my example.c file
but with g95 mpirun dont use process1 just process 0.
perhaps my compile option are wrong ?
i want that mpirun use process 0 and 1 both.
hostname paola12
mpicc example.c
mpirun -np 2 a.out
C Process 0 on paola12
0 [1 3 ]
0 [1.000000 3.000000 ]
C Process 0 on paola12
0 [1 3 ]
0 [1.000000 3.000000 ]
with gfortran ( 4.3.2 ) + openmpi
mpirun -np 2 a.out
C Process 0 on paola12 C Process 1 on paola12 0 [2 9 ] 1 [2 9 ] 0 [3.000000 6.000000 ] 1 [3.000000 6.000000
example.c
#include <stdlib.h>
#include <stdio.h>
#include <math.h>
#include <mpi.h>
int main(int argc, char** argv) {
MPI_Init(&argc, &argv);
int rank;
int namelen;
char processor_name[MPI_MAX_PROCESSOR_NAME];
MPI_Comm_rank(MPI_COMM_WORLD, &rank);
MPI_Get_processor_name(processor_name, &namelen);
printf("C Process %d on %s \n", rank, processor_name);
MPI_Barrier(MPI_COMM_WORLD);
int size = 2;
int *array, *reducedValues;
array = (int *) malloc((size) * sizeof (int));
reducedValues = (int *) malloc((size) * sizeof (int));
array[0] = rank+1;
array[1] = 3;
MPI_Allreduce(array, reducedValues, size, MPI_INTEGER, MPI_PROD, MPI_COMM_WORLD);
int i;
printf("%d [", rank);
for (i = 0; i < size; i++) {
printf("%d ", reducedValues[i]);
}
printf("]\n");
free(reducedValues);
free(array);
/* Verif triviale pour un seul entier (OK)
size=1;
int *array1, *reducedValues1;
array1 = (int *) malloc((size) * sizeof (int));
reducedValues1 = (int *) malloc((size) * sizeof (int));
array[0] = rank+1;
MPI_Allreduce(array1, reducedValues1, size, MPI_INTEGER, MPI_PROD, MPI_COMM_WORLD);
printf(" C scalaire %d \n", reducedValues1[0]);
free(reducedValues1);
free(array1);
*/
/* Verif pour les doubles */
size=2;
double *Darray, *DreducedValues;
Darray = (double *) malloc((size) * sizeof (double));
DreducedValues = (double *) malloc((size) * sizeof (double));
Darray[0] = (rank+1)*1.0;
Darray[1] = 3.0;
MPI_Allreduce(Darray, DreducedValues, size, MPI_DOUBLE, MPI_SUM, MPI_COMM_WORLD);
printf("%d [", rank);
for (i = 0; i < size; i++) {
printf("%f ", DreducedValues[i]);
}
printf("]\n");
free(DreducedValues);
free(Darray);
MPI_Finalize();
}
greetings.
nicolas cordier
|
![[Flag]](../../../../../community/mirrors/flag-us.gif){kind=small}