Программа при любом количестве процессоров выводит результат 0. Программа правильно вычисляет прощади маленьких прямоугольников, но функция MPI_Reduce их не суммирует. Подскажите, правильно ли я использую эту функцию? Или подскажите плиз другую функцию, которую можно было бы использовать вместо этой.
#include <mpi.h>
#include <stdio.h>
main(int argc,char *argv[])
{
int size,len,rank;
float h,sum,n=1000,x,i=0;
double otvet=0;
char name[MPI_MAX_PROCESSOR_NAME];
MPI_Init(&argc,&argv);
MPI_Comm_size(MPI_COMM_WORLD, &size);
MPI_Comm_rank(MPI_COMM_WORLD, &rank);
MPI_Get_processor_name(name, &len);
printf("Process %d, Processor %s\n",rank,name);
h=1./n;
while (i<=n)
{
x=i*h;
if ((i==0)||(i==n)) sum=1./((x*x)+9);
else sum=2*(1./((x*x)+9));
i++;
}
MPI_Reduce(&sum,&otvet,1,MPI_FLOAT,MPI_SUM,0,MPI_COMM_WORLD);
otvet*=h/2.;
printf("Rezultat=%f\n",otvet);
MPI_Finalize();
}