ICPSEP Content

125 在通信子上缓冲标识

#include "mpi.h"

static int MPE_Tag_keyval = MPI_KEYVAL_INVALID;

/*
   Private routine to delete internal storage when a communicator is freed.
 */
int MPE_DelTag( comm, keyval, attr_val, extra_state )
MPI_Comm *comm;
int      *keyval;
void     *attr_val, *extra_state;
{
free( attr_val );
return MPI_SUCCESS;
}