1 /* 2 * Copyright (C) by Argonne National Laboratory 3 * See COPYRIGHT in top-level directory 4 */ 5 6 #include "mpioimpl.h" 7 8 #ifdef HAVE_WEAK_SYMBOLS 9 10 #if defined(HAVE_PRAGMA_WEAK) 11 #pragma weak MPI_File_c2f = PMPI_File_c2f 12 #elif defined(HAVE_PRAGMA_HP_SEC_DEF) 13 #pragma _HP_SECONDARY_DEF PMPI_File_c2f MPI_File_c2f 14 #elif defined(HAVE_PRAGMA_CRI_DUP) 15 #pragma _CRI duplicate MPI_File_c2f as PMPI_File_c2f 16 /* end of weak pragmas */ 17 #elif defined(HAVE_WEAK_ATTRIBUTE) 18 MPI_Fint MPI_File_c2f(MPI_File fh) __attribute__ ((weak, alias("PMPI_File_c2f"))); 19 #endif 20 21 /* Include mapping from MPI->PMPI */ 22 #define MPIO_BUILD_PROFILING 23 #include "mpioprof.h" 24 #endif 25 #include "adio_extern.h" 26 27 /*@ 28 MPI_File_c2f - Translates a C file handle to a Fortran file handle 29 30 Input Parameters: 31 . fh - C file handle (handle) 32 33 Return Value: 34 Fortran file handle (integer) 35 @*/ MPI_File_c2f(MPI_File fh)36MPI_Fint MPI_File_c2f(MPI_File fh) 37 { 38 return MPIO_File_c2f(fh); 39 } 40