/* -*- Mode: C; c-basic-offset:4 ; indent-tabs-mode:nil ; -*- */
/*
 *
 *  (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 ATTRIBUTE((unused)), 
		  int keyval ATTRIBUTE((unused)), 
		  void *extra_state ATTRIBUTE((unused)), void *attr_in, 
		  void *attr_out, int *flag )
{
    /* No error checking at present */

    MPL_UNREFERENCED_ARG(comm);
    MPL_UNREFERENCED_ARG(keyval);
    MPL_UNREFERENCED_ARG(extra_state);

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