root/ompi/mca/io/romio321/romio/mpi2-other/info/info_f2c.c

DEFINITIONS

1. MPI_Info_f2c

   1 /* -*- Mode: C; c-basic-offset:4 ; indent-tabs-mode:nil ; -*- */
   2 /* 
   3  *
   4  *   Copyright (C) 1997 University of Chicago. 
   5  *   See COPYRIGHT notice in top-level directory.
   6  */
   7 
   8 #include "mpioimpl.h"
   9 
  10 #ifdef HAVE_WEAK_SYMBOLS
  11 
  12 #if defined(HAVE_PRAGMA_WEAK)
  13 #pragma weak MPI_Info_f2c = PMPI_Info_f2c
  14 #elif defined(HAVE_PRAGMA_HP_SEC_DEF)
  15 #pragma _HP_SECONDARY_DEF PMPI_Info_f2c MPI_Info_f2c
  16 #elif defined(HAVE_PRAGMA_CRI_DUP)
  17 #pragma _CRI duplicate MPI_Info_f2c as PMPI_Info_f2c
  18 /* end of weak pragmas */
  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_Info_f2c - Translates a Fortran info handle to a C info handle
  29 
  30 Input Parameters:
  31 . info - Fortran info handle (integer)
  32 
  33 Return Value:
  34   C info handle (handle)
  35 @*/
  36 MPI_Info MPI_Info_f2c(MPI_Fint info)
  37 {
  38 
  39 #ifndef INT_LT_POINTER
  40     return (MPI_Info) info;
  41 #else
  42     if (!info) return MPI_INFO_NULL;
  43     if ((info < 0) || (info > MPIR_Infotable_ptr)) {
  44         FPRINTF(stderr, "MPI_Info_f2c: Invalid info handle\n");
  45         MPI_Abort(MPI_COMM_WORLD, 1);
  46     }
  47     return MPIR_Infotable[info];
  48 #endif
  49 }