Charm++: Charm Source Code Documentation

00001 /* -*- Mode: C; c-basic-offset:4 ; -*- */
00002 /* 
00003  *
00004  *   Copyright (C) 1997 University of Chicago. 
00005  *   See COPYRIGHT notice in top-level directory.
00006  */
00007 
00008 #include "adio.h"
00009 #include "mpio.h"
00010 
00011 #if defined(MPIO_BUILD_PROFILING) || defined(HAVE_WEAK_SYMBOLS)
00012 
00013 #if defined(HAVE_WEAK_SYMBOLS)
00014 #if defined(HAVE_PRAGMA_WEAK)
00015 #if defined(FORTRANCAPS)
00016 FORTRAN_API void FORT_CALL MPIO_TEST(MPI_Fint *request,MPI_Fint *flag,MPI_Status *status, MPI_Fint *ierr );
00017 #pragma weak MPIO_TEST = PMPIO_TEST
00018 #elif defined(FORTRANDOUBLEUNDERSCORE)
00019 FORTRAN_API void FORT_CALL mpio_test__(MPI_Fint *request,MPI_Fint *flag,MPI_Status *status, MPI_Fint *ierr );
00020 #pragma weak mpio_test__ = pmpio_test__
00021 #elif !defined(FORTRANUNDERSCORE)
00022 FORTRAN_API void FORT_CALL mpio_test(MPI_Fint *request,MPI_Fint *flag,MPI_Status *status, MPI_Fint *ierr );
00023 #pragma weak mpio_test = pmpio_test
00024 #else
00025 FORTRAN_API void FORT_CALL mpio_test_(MPI_Fint *request,MPI_Fint *flag,MPI_Status *status, MPI_Fint *ierr );
00026 #pragma weak mpio_test_ = pmpio_test_
00027 #endif
00028 
00029 #elif defined(HAVE_PRAGMA_HP_SEC_DEF)
00030 #if defined(FORTRANCAPS)
00031 #pragma _HP_SECONDARY_DEF PMPIO_TEST MPIO_TEST
00032 #elif defined(FORTRANDOUBLEUNDERSCORE)
00033 #pragma _HP_SECONDARY_DEF pmpio_test__ mpio_test__
00034 #elif !defined(FORTRANUNDERSCORE)
00035 #pragma _HP_SECONDARY_DEF pmpio_test mpio_test
00036 #else
00037 #pragma _HP_SECONDARY_DEF pmpio_test_ mpio_test_
00038 #endif
00039 
00040 #elif defined(HAVE_PRAGMA_CRI_DUP)
00041 #if defined(FORTRANCAPS)
00042 #pragma _CRI duplicate MPIO_TEST as PMPIO_TEST
00043 #elif defined(FORTRANDOUBLEUNDERSCORE)
00044 #pragma _CRI duplicate mpio_test__ as pmpio_test__
00045 #elif !defined(FORTRANUNDERSCORE)
00046 #pragma _CRI duplicate mpio_test as pmpio_test
00047 #else
00048 #pragma _CRI duplicate mpio_test_ as pmpio_test_
00049 #endif
00050 
00051 /* end of weak pragmas */
00052 #endif
00053 /* Include mapping from MPI->PMPI */
00054 #include "mpioprof.h"
00055 #endif
00056 
00057 #ifdef FORTRANCAPS
00058 #define mpio_test_ PMPIO_TEST
00059 #elif defined(FORTRANDOUBLEUNDERSCORE)
00060 #define mpio_test_ pmpio_test__
00061 #elif !defined(FORTRANUNDERSCORE)
00062 #if defined(HPUX) || defined(SPPUX)
00063 #pragma _HP_SECONDARY_DEF pmpio_test pmpio_test_
00064 #endif
00065 #define mpio_test_ pmpio_test
00066 #else
00067 #if defined(HPUX) || defined(SPPUX)
00068 #pragma _HP_SECONDARY_DEF pmpio_test_ pmpio_test
00069 #endif
00070 #define mpio_test_ pmpio_test_
00071 #endif
00072 
00073 #else
00074 
00075 #ifdef FORTRANCAPS
00076 #define mpio_test_ MPIO_TEST
00077 #elif defined(FORTRANDOUBLEUNDERSCORE)
00078 #define mpio_test_ mpio_test__
00079 #elif !defined(FORTRANUNDERSCORE)
00080 #if defined(HPUX) || defined(SPPUX)
00081 #pragma _HP_SECONDARY_DEF mpio_test mpio_test_
00082 #endif
00083 #define mpio_test_ mpio_test
00084 #else
00085 #if defined(HPUX) || defined(SPPUX)
00086 #pragma _HP_SECONDARY_DEF mpio_test_ mpio_test
00087 #endif
00088 #endif
00089 #endif
00090 
00091 /* Prototype to keep compiler happy */
00092 FORTRAN_API void FORT_CALL mpio_test_(MPI_Fint *request,MPI_Fint *flag,MPI_Status *status, MPI_Fint *ierr );
00093 
00094 FORTRAN_API void FORT_CALL mpio_test_(MPI_Fint *request,MPI_Fint *flag,MPI_Status *status, MPI_Fint *ierr )
00095 {
00096     MPIO_Request req_c;
00097     
00098     req_c = MPIO_Request_f2c(*request);
00099     *ierr = MPIO_Test(&req_c,flag,status);
00100     *request = MPIO_Request_c2f(req_c);
00101 }
libs/ck-libs/ampi/romio/mpi-io/fortran/iotestf.c
