/* * Copyright (C) by Argonne National Laboratory * See COPYRIGHT in top-level directory */ #include "adio.h" #include "mpio.h" #if defined(MPIO_BUILD_PROFILING) || defined(HAVE_WEAK_SYMBOLS) #if defined(HAVE_WEAK_SYMBOLS) #if defined(HAVE_PRAGMA_WEAK) #if defined(FORTRANCAPS) extern FORTRAN_API void FORT_CALL MPI_FILE_GET_SIZE(MPI_Fint *, MPI_Offset *, MPI_Fint *); #pragma weak MPI_FILE_GET_SIZE = PMPI_FILE_GET_SIZE #elif defined(FORTRANDOUBLEUNDERSCORE) extern FORTRAN_API void FORT_CALL mpi_file_get_size__(MPI_Fint *, MPI_Offset *, MPI_Fint *); #pragma weak mpi_file_get_size__ = pmpi_file_get_size__ #elif !defined(FORTRANUNDERSCORE) extern FORTRAN_API void FORT_CALL mpi_file_get_size(MPI_Fint *, MPI_Offset *, MPI_Fint *); #pragma weak mpi_file_get_size = pmpi_file_get_size #else extern FORTRAN_API void FORT_CALL mpi_file_get_size_(MPI_Fint *, MPI_Offset *, MPI_Fint *); #pragma weak mpi_file_get_size_ = pmpi_file_get_size_ #endif #elif defined(HAVE_PRAGMA_HP_SEC_DEF) #if defined(FORTRANCAPS) #pragma _HP_SECONDARY_DEF PMPI_FILE_GET_SIZE MPI_FILE_GET_SIZE #elif defined(FORTRANDOUBLEUNDERSCORE) #pragma _HP_SECONDARY_DEF pmpi_file_get_size__ mpi_file_get_size__ #elif !defined(FORTRANUNDERSCORE) #pragma _HP_SECONDARY_DEF pmpi_file_get_size mpi_file_get_size #else #pragma _HP_SECONDARY_DEF pmpi_file_get_size_ mpi_file_get_size_ #endif #elif defined(HAVE_PRAGMA_CRI_DUP) #if defined(FORTRANCAPS) #pragma _CRI duplicate MPI_FILE_GET_SIZE as PMPI_FILE_GET_SIZE #elif defined(FORTRANDOUBLEUNDERSCORE) #pragma _CRI duplicate mpi_file_get_size__ as pmpi_file_get_size__ #elif !defined(FORTRANUNDERSCORE) #pragma _CRI duplicate mpi_file_get_size as pmpi_file_get_size #else #pragma _CRI duplicate mpi_file_get_size_ as pmpi_file_get_size_ #endif /* end of weak pragmas */ #endif /* Include mapping from MPI->PMPI */ #include "mpioprof.h" #endif #ifdef FORTRANCAPS #define mpi_file_get_size_ PMPI_FILE_GET_SIZE #elif defined(FORTRANDOUBLEUNDERSCORE) #define mpi_file_get_size_ pmpi_file_get_size__ #elif !defined(FORTRANUNDERSCORE) #if defined(HPUX) || defined(SPPUX) #pragma _HP_SECONDARY_DEF pmpi_file_get_size pmpi_file_get_size_ #endif #define mpi_file_get_size_ pmpi_file_get_size #else #if defined(HPUX) || defined(SPPUX) #pragma _HP_SECONDARY_DEF pmpi_file_get_size_ pmpi_file_get_size #endif #define mpi_file_get_size_ pmpi_file_get_size_ #endif #else #ifdef FORTRANCAPS #define mpi_file_get_size_ MPI_FILE_GET_SIZE #elif defined(FORTRANDOUBLEUNDERSCORE) #define mpi_file_get_size_ mpi_file_get_size__ #elif !defined(FORTRANUNDERSCORE) #if defined(HPUX) || defined(SPPUX) #pragma _HP_SECONDARY_DEF mpi_file_get_size mpi_file_get_size_ #endif #define mpi_file_get_size_ mpi_file_get_size #else #if defined(HPUX) || defined(SPPUX) #pragma _HP_SECONDARY_DEF mpi_file_get_size_ mpi_file_get_size #endif #endif #endif /* Prototype to keep compiler happy */ FORTRAN_API void FORT_CALL mpi_file_get_size_(MPI_Fint * fh, MPI_Offset * size, MPI_Fint * ierr); FORTRAN_API void FORT_CALL mpi_file_get_size_(MPI_Fint * fh, MPI_Offset * size, MPI_Fint * ierr) { MPI_File fh_c; fh_c = MPI_File_f2c(*fh); *ierr = MPI_File_get_size(fh_c, size); }