fprintf ( stream, "Elemental's C compiler info:\n" " EL_CMAKE_CXX_COMPILER: %s\n" " EL_MPI_CXX_COMPILER: %s\n" " EL_MPI_CXX_INCLUDE_PATHS: %s\n" " EL_MPI_CXX_COMPILE_FLAGS: %s\n" " EL_MPI_LINK_FLAGS: %s\n" " EL_MPI_CXX_LIBRARIES: %s\n", EL_CMAKE_CXX_COMPILER, EL_MPI_CXX_COMPILER, EL_MPI_CXX_INCLUDE_PATH, EL_MPI_CXX_COMPILE_FLAGS, EL_MPI_LINK_FLAGS, EL_MPI_CXX_LIBRARIES ); return EL_SUCCESS; } ElError ElUsing64BitInt( bool* using64 ) { EL_TRY( *using64 = El::Using64BitInt() ) } ElError ElUsing64BitBlasInt( bool* using64 ) { EL_TRY( *using64 = El::Using64BitBlasInt() ) } ElError ElInitialize( int* argc, char*** argv ) { EL_TRY( El::Initialize( *argc, *argv ) ) } ElError ElFinalize() { EL_TRY( El::Finalize() ) } ElError ElInitialized( bool* initialized ) { EL_TRY( *initialized = El::Initialized() ) } ElError ElInput_b ( const char* name, const char* desc, bool defaultVal, bool* val )
{ *cComm = MPI_Comm_f2c(fortComm); return EL_SUCCESS; } ElError ElMPICommSameSizeAsInteger( bool* sameSize ) { *sameSize = El::mpi::CommSameSizeAsInteger(); return EL_SUCCESS; } ElError ElMPIGroupSameSizeAsInteger( bool* sameSize ) { *sameSize = El::mpi::GroupSameSizeAsInteger(); return EL_SUCCESS; } ElError ElMPICommWorld( MPI_Comm* commWorld ) { *commWorld = MPI_COMM_WORLD; return EL_SUCCESS; } ElError ElMPICommSelf( MPI_Comm* commSelf ) { *commSelf = MPI_COMM_SELF; return EL_SUCCESS; } ElError ElMPICommRank( MPI_Comm comm, int* rank ) { EL_TRY( *rank = El::mpi::Rank(El::mpi::Comm(comm)) ) } ElError ElMPIGroupRank( MPI_Group group, int* rank ) { EL_TRY( *rank = El::mpi::Rank(El::mpi::Group(group)) ) } ElError ElMPICommSize( MPI_Comm comm, int* size ) { EL_TRY( *size = El::mpi::Size(El::mpi::Comm(comm)) ) } ElError ElMPIGroupSize( MPI_Group group, int* size ) { EL_TRY( *size = El::mpi::Size(El::mpi::Group(group)) ) } ElError ElMPICommFree( MPI_Comm* comm ) { EL_TRY( El::mpi::Comm wrap(*comm); El::mpi::Free(wrap) ) } ElError ElMPIGroupFree( MPI_Group* group ) { EL_TRY( El::mpi::Group wrap(*group); El::mpi::Free(wrap) ) } ElError ElMPIWorldRank( int* rank ) { EL_TRY( *rank = El::mpi::Rank() ) }