C++ (Cpp) MPI_Info_c2f Exemples

Exemple #1

Fichier : info_createf.c Projet : davidheryanto/sc14

void mpi_info_create_(MPI_Fint *info, int *ierr )
{
    MPI_Info info_c;

    *ierr = MPI_Info_create(&info_c);
    *info = MPI_Info_c2f(info_c);
}

Exemple #2

Fichier : info_dupf.c Projet : ParaStation/psmpi2

void mpi_info_dup_(MPI_Fint * info, MPI_Fint * newinfo, int *ierr)
{
    MPI_Info info_c, newinfo_c;

    info_c = MPI_Info_f2c(*info);
    *ierr = MPI_Info_dup(info_c, &newinfo_c);
    *newinfo = MPI_Info_c2f(newinfo_c);
}

Exemple #3

Fichier : info_freef.c Projet : DmitrySigaev/ompi-release

void mpi_info_free_(MPI_Fint *info, int *ierr )
{
    MPI_Info info_c;

    info_c = MPI_Info_f2c(*info);
    *ierr = MPI_Info_free(&info_c);
    *info = MPI_Info_c2f(info_c);
}

Exemple #4

Fichier : c2f2c.c Projet : Julio-Anjos/simgrid

void f2cinfo_( MPI_Fint * info )
{
    MPI_Info cinfo;

    MPI_Info_create( &cinfo );
    MPI_Info_set( cinfo, (char*)"host", (char*)"myname" );
    MPI_Info_set( cinfo, (char*)"wdir", (char*)"/rdir/foo" );

    *info = MPI_Info_c2f( cinfo );
}

Exemple #5

Fichier : win_get_info_f.c Projet : Slbomber/ompi

void ompi_win_get_info_f(MPI_Fint *win, MPI_Fint *info, MPI_Fint *ierr)
{
    int c_ierr;
    MPI_Win c_win;
    MPI_Info c_info;

    c_win = MPI_Win_f2c(*win);
    c_ierr = MPI_Win_get_info(c_win, &c_info);
    if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr);
    *info = MPI_Info_c2f(c_info);
}

Exemple #6

Fichier : comm_get_info_f.c Projet : Dissolubilis/ompi-svn-mirror

void ompi_comm_get_info_f(MPI_Fint *comm, MPI_Fint *info_used, MPI_Fint *ierr)
{
    int c_ierr;
    MPI_Comm c_comm = MPI_Comm_f2c(*comm);
    MPI_Info c_info;

    c_ierr = MPI_Comm_get_info(c_comm, &c_info);
    if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr);

    if (MPI_SUCCESS == c_ierr) {
        *info_used = MPI_Info_c2f(c_info);
    }
}

Exemple #7

Fichier : info_dup_f.c Projet : XuanWang1982/ompi

void ompi_info_dup_f(MPI_Fint *info, MPI_Fint *newinfo, MPI_Fint *ierr)
{
    int c_ierr;
    MPI_Info c_info, c_new_info;

    c_info = MPI_Info_f2c(*info);

    c_ierr = MPI_Info_dup(c_info, &c_new_info);
    if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr);

    if (MPI_SUCCESS == c_ierr) {
        *newinfo = MPI_Info_c2f(c_new_info);
    }
}

Exemple #8

Fichier : H5FDmpiof.c Projet : MattNapsAlot/rHDF5

/*----------------------------------------------------------------------------
 * Name:        h5pget_fapl_mpio_c
 * Purpose:     Call H5Pget_fapl_mpio to retrieve communicator and info object
 * Inputs:      prp_id - property list identifier
 *              comm   - buffer to return MPI communicator
 *              info   - buffer to return MPI info object
 * Returns:     0 on success, -1 on failure
 * Programmer:  Elena Pourmal
 *              Thursday, October 26, 2000
 * Modifications:
 *---------------------------------------------------------------------------*/
int_f
nh5pget_fapl_mpio_c(hid_t_f *prp_id, int_f* comm, int_f* info)
{
     int ret_value = -1;
     hid_t c_prp_id;
     herr_t ret;
     MPI_Comm c_comm;
     MPI_Info c_info;

     /*
      * Call H5Pget_mpi function.
      */
     c_prp_id = *prp_id;
     ret = H5Pget_fapl_mpio(c_prp_id, &c_comm, &c_info);
     if (ret < 0) return ret_value;
     *comm = (int_f) MPI_Comm_c2f(c_comm);
     *info = (int_f) MPI_Info_c2f(c_info);
     ret_value = 0;
     return ret_value;
}