mpid_type_get_contents.c

刚才是说明 现在是安装程序在 LINUX环境下进行编程的MPICH安装文件

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

#include <mpi.h>
#include <mpiimpl.h>
#include <mpid_datatype.h>
#include <mpid_dataloop.h>
#include <assert.h>

static int create_error_to_return(void);

/*@
  MPID_Type_get_contents - get content information from datatype

  Input Parameters:
+ datatype - MPI datatype
. max_integers - size of array_of_integers
. max_addresses - size of array_of_addresses
- max_datatypes - size of array_of_datatypes

  Output Parameters:
+ array_of_integers - integers used in creating type
. array_of_addresses - MPI_Aints used in creating type
- array_of_datatypes - MPI_Datatypes used in creating type

@*/
int MPID_Type_get_contents(MPI_Datatype datatype, 
			   int max_integers, 
			   int max_addresses, 
			   int max_datatypes, 
			   int array_of_integers[], 
			   MPI_Aint array_of_addresses[], 
			   MPI_Datatype array_of_datatypes[])
{
    MPID_Datatype *dtp;
    MPID_Datatype_contents *cp;
    char *ptr;

    if (HANDLE_GET_KIND(datatype) == HANDLE_KIND_BUILTIN) {
	/* this is erroneous according to the standard */
	return create_error_to_return();
    }

    MPID_Datatype_get_ptr(datatype, dtp);
    cp = dtp->contents;
    if (cp == NULL) assert(0);

    if (max_integers < cp->nr_ints ||
	max_addresses < cp->nr_aints ||
	max_datatypes < cp->nr_types)
    {
	return create_error_to_return();
    }

    /* recall that contents data is stored contiguously after the
     * contents structure, in types, ints, aints order
     */
    ptr = ((char *) cp) + sizeof(MPID_Datatype_contents);
    memcpy(array_of_datatypes, ptr, cp->nr_types * sizeof(MPI_Datatype));
    ptr += cp->nr_types * sizeof(MPI_Datatype);

    if (cp->nr_ints > 0) {
	memcpy(array_of_integers, ptr, cp->nr_ints * sizeof(int));
	ptr += cp->nr_ints * sizeof(int);
    }

    if (cp->nr_aints > 0) memcpy(array_of_addresses, ptr, cp->nr_aints * sizeof(MPI_Aint));

    return MPI_SUCCESS;
}

/* create_error_to_return() - create an error code and return the value
 *
 * Basically there are a million points in this function where I need to do
 * this, so I created a static function to do it instead.
 */
static int create_error_to_return(void)
{
    int mpi_errno;

    mpi_errno = MPIR_Err_create_code(MPI_ERR_OTHER, "**dtype", 0);
    return mpi_errno;
}