openmpi/src/mpi/c/win_f2c.c

/*
 * $HEADERS$
 */
#include "ompi_config.h"
#include <stdio.h>

#include "mpi.h"
#include "mpi/c/bindings.h"
#include "communicator/communicator.h"
#include "errhandler/errhandler.h"

#if OMPI_HAVE_WEAK_SYMBOLS && OMPI_PROFILING_DEFINES
#pragma weak MPI_Win_f2c = PMPI_Win_f2c
#endif

#if OMPI_PROFILING_DEFINES
#include "mpi/c/profile/defines.h"
#endif

static const char FUNC_NAME[] = "MPI_Win_f2c";


MPI_Win MPI_Win_f2c(MPI_Fint win) 
{
  if (MPI_PARAM_CHECK) {
    OMPI_ERR_INIT_FINALIZE(FUNC_NAME);
  }

  /* NOTE: Be sure to see the other *f2c functions before implementing
     this one -- they should all be the same! */

  /* This function is not yet implemented */

  return (MPI_Win) OMPI_ERRHANDLER_INVOKE(MPI_COMM_WORLD, MPI_ERR_OTHER, FUNC_NAME);
}
adding functions: u and w This commit was SVN r582. 2004-01-29 21:21:55 +03:00			`/*`
			`* $HEADERS$`
			`*/`
First pass of lam -> ompi conversion This commit was SVN r1191. 2004-06-07 19:33:53 +04:00			`#include "ompi_config.h"`
adding functions: u and w This commit was SVN r582. 2004-01-29 21:21:55 +03:00			`#include <stdio.h>`

			`#include "mpi.h"`
Updating header file names after the great directory reorganization. This commit was SVN r877. 2004-03-17 21:45:16 +03:00			`#include "mpi/c/bindings.h"`
Make a pass through all top-level MPI functions - Mark those who are still not yet implemented: - return an error - have a grep-able string indicating that they are not yet implemented - ensure every function checks for init/finalize - add more error checking to a bunch of functions - unify the error checking -- it reflected about 3 different [previous] error checking styles and MPI exception invocation styles This commit was SVN r1817. 2004-07-30 06:58:53 +04:00			`#include "communicator/communicator.h"`
			`#include "errhandler/errhandler.h"`
adding functions: u and w This commit was SVN r582. 2004-01-29 21:21:55 +03:00
First pass of lam -> ompi conversion This commit was SVN r1191. 2004-06-07 19:33:53 +04:00			`#if OMPI_HAVE_WEAK_SYMBOLS && OMPI_PROFILING_DEFINES`
adding functions: u and w This commit was SVN r582. 2004-01-29 21:21:55 +03:00			`#pragma weak MPI_Win_f2c = PMPI_Win_f2c`
			`#endif`

First pass of lam -> ompi conversion This commit was SVN r1191. 2004-06-07 19:33:53 +04:00			`#if OMPI_PROFILING_DEFINES`
Changing the bindings files to have the #define of MPI_ functions to PMPI_ functions after the #pragma weak statement This commit was SVN r1055. 2004-04-20 22:50:43 +04:00			`#include "mpi/c/profile/defines.h"`
			`#endif`

Make a pass through all top-level MPI functions - Mark those who are still not yet implemented: - return an error - have a grep-able string indicating that they are not yet implemented - ensure every function checks for init/finalize - add more error checking to a bunch of functions - unify the error checking -- it reflected about 3 different [previous] error checking styles and MPI exception invocation styles This commit was SVN r1817. 2004-07-30 06:58:53 +04:00			`static const char FUNC_NAME[] = "MPI_Win_f2c";`


			`MPI_Win MPI_Win_f2c(MPI_Fint win)`
			`{`
			`if (MPI_PARAM_CHECK) {`
			`OMPI_ERR_INIT_FINALIZE(FUNC_NAME);`
			`}`

After consulting with Edgar and MPI-2:4.12.4, decide the following: - the f2c functions should return the corresponding *_NULL functions and not invoke an MPI exception if an invalid fortran handle is passed - the error check should be outside MPI_PARAM_CHECK -- MPI defines the behavior of when an invalid fortran handle is passed; it is not dependant upon whether we are checking parameters or not This commit was SVN r2140. 2004-08-14 16:28:25 +04:00			`/* NOTE: Be sure to see the other *f2c functions before implementing`
			`this one -- they should all be the same! */`

Make a pass through all top-level MPI functions - Mark those who are still not yet implemented: - return an error - have a grep-able string indicating that they are not yet implemented - ensure every function checks for init/finalize - add more error checking to a bunch of functions - unify the error checking -- it reflected about 3 different [previous] error checking styles and MPI exception invocation styles This commit was SVN r1817. 2004-07-30 06:58:53 +04:00			`/* This function is not yet implemented */`

			`return (MPI_Win) OMPI_ERRHANDLER_INVOKE(MPI_COMM_WORLD, MPI_ERR_OTHER, FUNC_NAME);`
adding functions: u and w This commit was SVN r582. 2004-01-29 21:21:55 +03:00			`}`