dup_fn.c

mpi并行计算的c++代码 可用vc或gcc编译通过 可以用来搭建并行计算试验环境

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

#include "mpiimpl.h"

/*D
  
MPI_DUP_FN - A function to simple-mindedly copy attributes  

D*/
int MPIR_Dup_fn ( MPI_Comm comm, int keyval, void *extra_state, void *attr_in, 
	void *attr_out, int *flag )
{
    /* No error checking at present */

    MPIU_UNREFERENCED_ARG(comm);
    MPIU_UNREFERENCED_ARG(keyval);
    MPIU_UNREFERENCED_ARG(extra_state);

    /* Set attr_out, the flag and return success */
    (*(void **)attr_out) = attr_in;
    (*flag) = 1;
    return (MPI_SUCCESS);
}