Проект Templet

Эта страница только для чтения. Вы можете посмотреть её исходный текст, но не можете его изменить. Сообщите администратору, если считаете, что это неправильно.

    /*
     "Hello World" MPI Test Program
    */
    #include <mpi.h>
    #include <stdio.h>
    #include <string.h>
    
    #define BUFSIZE 128
    #define TAG 0
    
    int main(int argc, char *argv[])
    {
      char idstr[32];
      char buff[BUFSIZE];
      int numprocs;
      int myid;
      int i;
      MPI_Status stat;
      /* MPI programs start with MPI_Init; all 'N' processes exist thereafter */
      MPI_Init(&argc,&argv);
      /* find out how big the SPMD world is */
      MPI_Comm_size(MPI_COMM_WORLD,&numprocs);
      /* and this processes' rank is */
      MPI_Comm_rank(MPI_COMM_WORLD,&myid);
    
      /* At this point, all programs are running equivalently, the rank
         distinguishes the roles of the programs in the SPMD model, with
         rank 0 often used specially... */
      if(myid == 0)
      {
        printf("%d: We have %d processors\n", myid, numprocs);
        for(i=1;i<numprocs;i++)
        {
          sprintf(buff, "Hello %d! ", i);
          MPI_Send(buff, BUFSIZE, MPI_CHAR, i, TAG, MPI_COMM_WORLD);
        }
        for(i=1;i<numprocs;i++)
        {
          MPI_Recv(buff, BUFSIZE, MPI_CHAR, i, TAG, MPI_COMM_WORLD, &stat);
          printf("%d: %s\n", myid, buff);
        }
      }
      else
      {
        /* receive from rank 0: */
        MPI_Recv(buff, BUFSIZE, MPI_CHAR, 0, TAG, MPI_COMM_WORLD, &stat);
        sprintf(idstr, "Processor %d ", myid);
        strncat(buff, idstr, BUFSIZE-1);
        strncat(buff, "reporting for duty\n", BUFSIZE-1);
        /* send to rank 0: */
        MPI_Send(buff, BUFSIZE, MPI_CHAR, 0, TAG, MPI_COMM_WORLD);
      }
    
      /* MPI programs end with MPI Finalize; this is a weak synchronization point */
      MPI_Finalize();
      return 0;
    }