Esempi in C++ (Cpp) per MPI_Is_thread_main

Esempio n. 1

File: mpi_MPI.c Progetto: bureddy/ompi-release

JNIEXPORT jboolean JNICALL Java_mpi_MPI_isThreadMain_1jni(
                           JNIEnv *env, jclass clazz)
{
    int flag;
    int rc = MPI_Is_thread_main(&flag);
    ompi_java_exceptionCheck(env, rc);
    return flag ? JNI_TRUE : JNI_FALSE;
}

Esempio n. 2

File: is_thread_main_f.c Progetto: Dissolubilis/ompi-svn-mirror

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

    c_ierr = MPI_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);
    }
}

Esempio n. 3

File: environment.hpp Progetto: jsharpe/mpl

	bool is_thread_main() const {
	  int res;
	  MPI_Is_thread_main(&res);
	  return static_cast<bool>(res);
	}

Esempio n. 4

File: isthrmainf.c Progetto: OngOngoing/219351_homework

FORT_DLL_SPEC void FORT_CALL mpi_is_thread_main_ ( MPI_Fint *v1, MPI_Fint *ierr ){
    *ierr = MPI_Is_thread_main( v1 );
}

Esempio n. 5

File: isthrmainf.c Progetto: mpifl/mpich3newforfile

FORT_DLL_SPEC void FORT_CALL mpi_is_thread_main_ ( MPI_Fint *v1, MPI_Fint *ierr ){
    int l1;
    *ierr = MPI_Is_thread_main( &l1 );
    if (*ierr == MPI_SUCCESS) *v1 = MPIR_TO_FLOG(l1);
}