/* -*- Mode: C; c-basic-offset:4 ; indent-tabs-mode:nil ; -*- */ /* * * Copyright (C) 1997 University of Chicago. * See COPYRIGHT notice in top-level directory. */ #include "mpioimpl.h" #ifdef HAVE_WEAK_SYMBOLS #if defined(HAVE_PRAGMA_WEAK) #pragma weak MPIO_Request_c2f = PMPIO_Request_c2f #elif defined(HAVE_PRAGMA_HP_SEC_DEF) #pragma _HP_SECONDARY_DEF PMPIO_Request_c2f MPIO_Request_c2f #elif defined(HAVE_PRAGMA_CRI_DUP) #pragma _CRI duplicate MPIO_Request_c2f as PMPIO_Request_c2f /* end of weak pragmas */ #endif /* Include mapping from MPI->PMPI */ #define MPIO_BUILD_PROFILING #include "mpioprof.h" #endif #include "adio_extern.h" /*@ MPIO_Request_c2f - Translates a C I/O-request handle to a Fortran I/O-request handle Input Parameters: . request - C I/O-request handle (handle) Return Value: Fortran I/O-request handle (integer) @*/ #ifdef HAVE_MPI_GREQUEST MPI_Fint MPIO_Request_c2f(MPIO_Request request) { return ((MPI_Fint)request); } #else MPI_Fint MPIO_Request_c2f(MPIO_Request request) { #ifndef INT_LT_POINTER return (MPI_Fint) request; #else int i; MPID_THREADPRIV_DECL; /* We can make this test outside of the GLOBAL mutex because it does not access any shared data */ if ((request <= (MPIO_Request) 0) || (request->cookie != ADIOI_REQ_COOKIE)) { return (MPI_Fint) 0; } ROMIO_THREAD_CS_ENTER(); if (!ADIOI_Reqtable) { ADIOI_Reqtable_max = 1024; ADIOI_Reqtable = (MPIO_Request *) ADIOI_Malloc(ADIOI_Reqtable_max*sizeof(MPIO_Request)); ADIOI_Reqtable_ptr = 0; /* 0 can't be used though, because MPIO_REQUEST_NULL=0 */ for (i=0; i