info.c

#include "mpiP.h"



/***/


int FC_FUNC( mpi_info_create , MPI_INFO_CREATE ) (int *info, int *ierror)
{
  *ierror=MPI_Info_create(info);
  return(MPI_SUCCESS);
}



int MPI_Info_create(MPI_Info *info)
{
  /* For now, we aren't storing anything, so don't bother with a real handle */
  *info=0;
  return(MPI_SUCCESS);
}


/***/


int FC_FUNC( mpi_info_set , MPI_INFO_SET ) (int *info, char *key, char *value, int *ierror)
{
  *ierror=MPI_Info_set(*info, key, value);
  return(MPI_SUCCESS);
}


int MPI_Info_set(MPI_Info info, char *key, char *value)
{
  /* for now, don't bother storing anything */
  return(MPI_SUCCESS);
}

/***/


int MPI_Info_free(MPI_Info *info)
{
    /* For now, we aren't storing anything, so don't bother with a real handle */
    *info=0;
    return(MPI_SUCCESS);
}

int FC_FUNC( mpi_info_free , MPI_INFO_FREE ) (int *info, int *ierror)
{
  *ierror=MPI_Info_free(info);
  return(MPI_SUCCESS);
}