MPI_Comm_rank(MPI_COMM_WORLD, &rank);
MPI_Comm_size(MPI_COMM_WORLD, &size);
MPI_Comm_rank(MPI_COMM_WORLD, &rank);
MPI_Comm_size(MPI_COMM_WORLD, &size);
-
- sb = (int *) xbt_malloc(size *MAXLEN * sizeof(int));
- rb = (int *) xbt_malloc(size *MAXLEN * sizeof(int));
+ if (maxlen>1)mult=size;
+ sb = (int *) xbt_malloc(size *maxlen * sizeof(int));
+ rb = (int *) xbt_malloc(size *maxlen * sizeof(int));
- status = MPI_Allreduce(sb, rb, size *MAXLEN, MPI_INT, MPI_SUM, MPI_COMM_WORLD);
+ status = MPI_Allreduce(sb, rb, size *maxlen, MPI_INT, MPI_SUM, MPI_COMM_WORLD);