Charm++: Charm Source Code Documentation

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