dd601b7de8
* More "assumed shape" -> "assumed rank" text fixes * Don't put a comment after "#endif" in .F90 files; gfortran hates that * Fix OMPI_PROCEDURE to work properly (i.e., OMPI_HAVE_PROCEDURE -> OMPI_FORTRAN_HAVE_PROCEDURE), and add all the required "use :: mpi_f08_interface_callbacks" now that OMPI_PROCEDURE is now working This commit was SVN r27119.
58 строки
1.3 KiB
Fortran
58 строки
1.3 KiB
Fortran
! -*- fortran -*-
|
|
!
|
|
! Copyright (c) 2006-2012 Cisco Systems, Inc. All rights reserved.
|
|
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
|
! All rights reserved.
|
|
!
|
|
! $COPYRIGHT$
|
|
!
|
|
! Additional copyrights may follow
|
|
!
|
|
! $HEADER$
|
|
!
|
|
|
|
! This file is included after configure-fortran-output.h, and does some
|
|
! conditional logic based on the #define's values from that file.
|
|
|
|
#ifndef OMPI_FORTRAN_CONFIGURE_OUTPUT_BOTTOM_H
|
|
#define OMPI_FORTRAN_CONFIGURE_OUTPUT_BOTTOM_H
|
|
|
|
! Whether we're using wrappers or not.
|
|
! Currently, we're *always* using wrappers. This can be optimized in
|
|
! the future for "good" compilers.
|
|
#if OMPI_FORTRAN_NEED_WRAPPER_ROUTINES
|
|
#define OMPI_F08_INTERFACE_BIND_C(foo)
|
|
#else
|
|
#define OMPI_F08_INTERFACE_BIND_C(foo) BIND(C,name=foo)
|
|
#endif
|
|
|
|
! PROCEDURE or not
|
|
#if OMPI_FORTRAN_HAVE_PROCEDURE
|
|
#define OMPI_PROCEDURE(name) PROCEDURE(name)
|
|
#else
|
|
#define OMPI_PROCEDURE(name) EXTERNAL
|
|
#endif
|
|
|
|
! ABSTRACT or not
|
|
#if OMPI_FORTRAN_HAVE_ABSTRACT
|
|
#define OMPI_ABSTRACT ABSTRACT
|
|
#else
|
|
#define OMPI_ABSTRACT
|
|
#endif
|
|
|
|
! ASYNCHRONOUS or not
|
|
#if OMPI_FORTRAN_HAVE_ASYNCHRONOUS
|
|
#define OMPI_ASYNCHRONOUS , ASYNCHRONOUS
|
|
#else
|
|
#define OMPI_ASYNCHRONOUS
|
|
#endif
|
|
|
|
! PRIVATE or not
|
|
#if OMPI_FORTRAN_HAVE_PRIVATE
|
|
#define OMPI_PRIVATE , PRIVATE
|
|
#else
|
|
#define OMPI_PRIVATE
|
|
#endif
|
|
|
|
#endif
|