dup_fn.c

来自「fortran并行计算包」· C语言 代码 · 共 29 行

/* -*- 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);
}