comm2_spawn_child.c

fortran并行计算包

#include <stdio.h>
#include "mpi.h"

int main( int argc, char *argv[] )
{
    MPI_Comm intercomm;
    char     processor_name[MPI_MAX_PROCESSOR_NAME];
    char     str[10] = "none";
    int      rank;
    int      namelen;

    MPI_Init( &argc, &argv );

    MPI_Comm_rank( MPI_COMM_WORLD, &rank );
    MPI_Get_processor_name( processor_name, &namelen );

    MPI_Comm_get_parent( &intercomm );

    MPI_Recv( str, 6, MPI_CHAR, rank, 101, intercomm, MPI_STATUS_IGNORE );
    printf( "Child %d on %s received from parent: %s.\n",
            rank, processor_name, str );
    fflush( stdout );
    MPI_Send( "Bye", 4, MPI_CHAR, rank, 102, intercomm );

    MPI_Finalize();
    return 0;
}