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() ) }
