C++ (Cpp) PMPI_Is_thread_mainの例

コード例 #1

ファイル: is_thread_main_f.c プロジェクト: 00datman/ompi

void ompi_is_thread_main_f(ompi_fortran_logical_t *flag, MPI_Fint *ierr)
{
    int c_ierr;
    OMPI_LOGICAL_NAME_DECL(flag);

    c_ierr = PMPI_Is_thread_main(OMPI_LOGICAL_SINGLE_NAME_CONVERT(flag));
    if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr);

    if (MPI_SUCCESS == c_ierr) {
        OMPI_SINGLE_INT_2_LOGICAL(flag);
    }
}

コード例 #2

ファイル: smpi_mpi.c プロジェクト: FlorianPO/simgrid

int MPI_Is_thread_main(int *flag)
{
  return PMPI_Is_thread_main(flag);
}