Дипломная работа: Алгоритмы параллельных процессов при исследовании устойчивости подкрепленных пологих оболочек

fprintf (stdout, "Process%d of%d is on%s\n", myid,numprocs,processor_name);

fflush (stdout);

while (! done)

{

// количество интервалов

if (myid==0)

{

fprintf (stdout, "Enter the number of intervals: (0 quits)");

fflush (stdout);

if (scanf ("%d",&n) ! =1)

{

fprintf (stdout, "No number entered; quitting\n");

n =0;

}

startwtime = MPI_Wtime ();

}

// Рассылка количества интервалов всем процессам (в том числе и себе)

MPI_Bcast (&n, 1, MPI_INT, 0, MPI_COMM_WORLD);

if (n==0)

done =1;

else

{

h = 1.0/ (double) n;

sum =0.0;

// Обсчит