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)36 MPI_Fint MPI_File_c2f(MPI_File fh)
37 {
38     return MPIO_File_c2f(fh);
39 }
40