typesize_support.h

fortran并行计算包

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

#include "dataloop.h"

#define DLOOP_Type_footprint PREPEND_PREFIX(Type_footprint)

typedef struct PREPEND_PREFIX(Type_footprint_s) {
    DLOOP_Offset size, extent;

    /* these are only needed for calculating footprint of types
     * built using this type. no reason to expose these.
     */
    DLOOP_Offset lb, ub, alignsz;
    DLOOP_Offset true_lb, true_ub;
    int has_sticky_lb;
    int has_sticky_ub;
} DLOOP_Type_footprint;

void PREPEND_PREFIX(Type_calc_footprint)(MPI_Datatype type,
					 DLOOP_Type_footprint *tfp);

#endif