mpi_fortimpl.h

MPICH是MPI的重要研究,提供了一系列的接口函数,为并行计算的实现提供了编程环境.

#ifdef USE_FORT_STDCALL
#define FORT_CALL __stdcall
#elif defined (USE_FORT_CDECL)
#define FORT_CALL __cdecl
#else
#define FORT_CALL
#endif

#ifdef USE_FORT_MIXED_STR_LEN
#define FORT_MIXED_LEN_DECL   , MPI_Fint
#define FORT_END_LEN_DECL
#define FORT_MIXED_LEN(a)     , MPI_Fint a
#define FORT_END_LEN(a)
#else
#define FORT_MIXED_LEN_DECL
#define FORT_END_LEN_DECL     , MPI_Fint
#define FORT_MIXED_LEN(a)
#define FORT_END_LEN(a)       , MPI_Fint a
#endif

#ifdef HAVE_FORTRAN_API
# ifdef FORTRAN_EXPORTS
#  define FORTRAN_API __declspec(dllexport)
# else
#  define FORTRAN_API __declspec(dllimport)
# endif
#else
# define FORTRAN_API
#endif

#ifndef NO_FORTCONF_H
#include "mpi_fortconf.h"
#endif
/* mpi_fortconf must come before mpi.h because a few defines (e.g., USE_STDARG)
   are defined in mpi_fortconf for mpi.h */
#include "mpi.h"
#include "mpi_fortdefs.h"

#ifdef BUILDING_IN_MPICH
extern struct MPIR_COMMUNICATOR *MPIR_COMM_WORLD;
/* For MPIR_GET_COMM_PTR */
/* #include "comm.h" */
extern void *MPIR_ToPointer ( int );
#define MPIR_GET_COMM_PTR(idx) \
    (struct MPIR_COMMUNICATOR *)MPIR_ToPointer( idx )
/* For error codes */
#include "mpi_error.h"

/* Error handling */
#if defined(USE_STDARG) && !defined(USE_OLDSTYLE_STDARG)
int MPIR_Err_setmsg( int, int, const char *, const char *, const char *, ... );
#else
int MPIR_Err_setmsg();
#endif

/* Utility functions */
/* NOTE: These will cause problems for non-MPICH MPI implementations */
int MPIR_Keyval_create( MPI_Copy_function *, MPI_Delete_function *, 
				    int *, void *, int );
void MPIR_Attr_make_perm ( int );
void MPIR_Free_perm_type ( MPI_Datatype );

/* Device utility functions */
void MPID_Node_name ( char *, int );
void MPID_ArgSqueeze ( int *, char ** );
void MPID_Dump_queues (void);

#endif

/* #include "mpi_fortnames.h" */
#include "mpi_fort.h"

/* Fortran <-> C string conversions in env/fstrutils.c */
int MPIR_fstr2cstr  (char *, long, char *, long) ;
int MPIR_cstr2fstr  (char *, long, char *) ;