hatayı bulmamda yardımcı olur musunuz ?
______________________
__________________________
______________________________

#include
#include “mpi.h”
#define MASTER 0 /* taskid of first task */
#define FROM_MASTER 1 /* setting a message type */
#define FROM_WORKER 2 /* setting a message type */

MPI_Status status;
int main(int argc, char **argv)
{
int numtasks, /* number of tasks in partition */
taskid, /* a task identifier */
numworkers, /* number of worker tasks */
source, /* task id of message source */
dest, /* task id of message destination */
mtype, /* message type */
sizes, /* sizes of the string sent to each worker */
avesize, extra, offset, /* used to determine sizes sent to each worker */
i, j, k, /* misc */
index,
found; /* checks if “ali” is found by a worker processor or not */
FILE *fp;
char str[1284];

MPI_Init(&argc, &argv);
MPI_Comm_rank(MPI_COMM_WORLD, &taskid);
MPI_Comm_size(MPI_COMM_WORLD, &numtasks);
numworkers = numtasks-1;

/**************************** master task ************************************/

if (taskid == MASTER) {
printf(“Number of worker tasks = %d\n”,numworkers);

//////dosyayı acıp içindekileri str e geçiriyor
if((fp = fopen(argv[ 1 ], “r”))==NULL) {
printf(“Cannot open file.\n”);
exit(1);
}

while(!feof(fp)) {
if(fgets(str, 1282, fp))
printf(“The string is %s”, str);
}
fclose(fp);

/* send string data to the worker tasks */
avesize = strlen(str)/numworkers;
extra = strlen(str)%numworkers;
offset = 0;
mtype = FROM_MASTER;
for (dest=1; dest<=numworkers; dest++) {
sizes = (dest <= extra) ? averow+1 : averow;
printf("Sending %d characters of string to task %d\n",sizes,dest);

MPI_Send(&offset, 1, MPI_INT, dest, mtype, MPI_COMM_WORLD);
MPI_Send(&sizes, 1, MPI_INT, dest, mtype, MPI_COMM_WORLD);
MPI_Send(&str[offset], sizes, MPI_DOUBLE, dest, mtype, MPI_COMM_WORLD);

offset = offset + sizes;
}

/* wait for results from all worker tasks */
mtype = FROM_WORKER;
for (i=1; i MASTER) {
mtype = FROM_MASTER;
source = MASTER;
printf (“Master =%d, mtype=%d\n”, source, mtype);
MPI_Recv(&offset, 1, MPI_INT, source, mtype, MPI_COMM_WORLD, &status);
MPI_Recv(&sizes, 1, MPI_INT, source, mtype, MPI_COMM_WORLD, &status);
MPI_Recv(&a[offset], sizes, MPI_INT, source, mtype, MPI_COMM_WORLD,
&status);///////////////////////////////

found=0;
///searching for ali in the substring in workers
for (k=0; k<sizes-4; k++)
if((a[offset+k]=='2')&&(a[offset+k+1]=='.')&&(a[offset+k+2]=='7')&&(a[offset+k+3]=='1')&&(a[offset+k+4]=='8'))
{
index=offset;
found=1;
}

mtype = FROM_WORKER;

MPI_Send(&offset, 1, MPI_INT, MASTER, mtype, MPI_COMM_WORLD);
MPI_Send(&sizes, 1, MPI_INT, MASTER, mtype, MPI_COMM_WORLD);
MPI_Send(&str[offset], sizes, MPI_INT, MASTER, mtype, MPI_COMM_WORLD);

} /* end of worker */
MPI_Finalize();
return 0;
} /* of main */