decompf.c

fortran并行计算包

/*
   (C) 2001 by Argonne National Laboratory.
       See COPYRIGHT in top-level directory.
*/
/* decomp.c */
/* Fortran interface file */
#include "mpe_conf.h"
#include "mpe_misc_conf.h"
#include "mpe_misc.h"

#include <stdio.h>

#ifdef MPI_BUILD_PROFILING
#ifdef F77_NAME_UPPER
#define mpe_decomp1d_ PMPE_DECOMP1D
#elif defined(F77_NAME_LOWER_2USCORE)
#define mpe_decomp1d_ pmpe_decomp1d__
#elif !defined(F77_NAME_LOWER_USCORE)
#define mpe_decomp1d_ pmpe_decomp1d
#else
#define mpe_decomp1d_ pmpe_decomp1d_
#endif
#else
#ifdef F77_NAME_UPPER
#define mpe_decomp1d_ MPE_DECOMP1D
#elif defined(F77_NAME_LOWER_2USCORE)
#define mpe_decomp1d_ mpe_decomp1d__
#elif !defined(F77_NAME_LOWER_USCORE)
#define mpe_decomp1d_ mpe_decomp1d
#endif
#endif

void mpe_decomp1d_ ( int*, int *, int *, int *, int *, int * );

 void mpe_decomp1d_( n, size, rank, s, e, __ierr )
int*n,*size,*rank, *s, *e;
int *__ierr;
{
    *__ierr = MPE_Decomp1d(*n,*size,*rank,s,e);
}