self.c

fortran并行计算包

/* -*- Mode: C; c-basic-offset:4 ; -*- */
/*
 *
 *  (C) 2001 by Argonne National Laboratory.
 *      See COPYRIGHT in top-level directory.
 */
#include "mpi.h"

int main(int argc, char *argv[])
{
    int i, j;
    MPI_Status status;

    MPI_Init(&argc,&argv);

    MPI_Sendrecv ( &i, 1, MPI_INT, 0, 100,
                   &j, 1, MPI_INT, 0, 100,
                   MPI_COMM_WORLD, &status );

    MPI_Finalize();
    return (0);
}