int
main (int argc, char *argv[])
{
int mpiret, mpisize;
int thread_lvl, num_threads;
mpiret =
sc_MPI_Init_thread (&argc, &argv, sc_MPI_THREAD_MULTIPLE, &thread_lvl);
SC_CHECK_MPI (mpiret);
sc_init (sc_MPI_COMM_WORLD, 1, 1, NULL, SC_LP_DEFAULT);
if (thread_lvl < sc_MPI_THREAD_MULTIPLE) {
SC_GLOBAL_PRODUCTIONF ("Mpi only supports thread level %d\n", thread_lvl);
}
else {
mpiret = sc_MPI_Comm_size (sc_MPI_COMM_WORLD, &mpisize);
SC_CHECK_MPI (mpiret);
num_threads = omp_get_max_threads ();
SC_GLOBAL_PRODUCTIONF ("Running on %i processes with %i threads each.\n",
mpisize, num_threads);
omp_set_num_threads (num_threads);
omp_init_lock (&writelock);
#pragma omp parallel
{
openmp_print_tid ();
}
}
return 0;
}
void
sc_init (sc_MPI_Comm mpicomm,
int catch_signals, int print_backtrace,
sc_log_handler_t log_handler, int log_threshold)
{
int w;
const char *trace_file_name;
const char *trace_file_prio;
sc_identifier = -1;
sc_mpicomm = sc_MPI_COMM_NULL;
sc_print_backtrace = print_backtrace;
if (mpicomm != sc_MPI_COMM_NULL) {
int mpiret;
sc_mpicomm = mpicomm;
mpiret = sc_MPI_Comm_rank (sc_mpicomm, &sc_identifier);
SC_CHECK_MPI (mpiret);
}
sc_set_signal_handler (catch_signals);
sc_package_id = sc_package_register (log_handler, log_threshold,
"libsc", "The SC Library");
trace_file_name = getenv ("SC_TRACE_FILE");
if (trace_file_name != NULL) {
char buffer[BUFSIZ];
if (sc_identifier >= 0) {
snprintf (buffer, BUFSIZ, "%s.%d.log", trace_file_name, sc_identifier);
}
else {
snprintf (buffer, BUFSIZ, "%s.log", trace_file_name);
}
SC_CHECK_ABORT (sc_trace_file == NULL, "Trace file not NULL");
sc_trace_file = fopen (buffer, "wb");
SC_CHECK_ABORT (sc_trace_file != NULL, "Trace file open");
trace_file_prio = getenv ("SC_TRACE_LP");
if (trace_file_prio != NULL) {
if (!strcmp (trace_file_prio, "SC_LP_TRACE")) {
sc_trace_prio = SC_LP_TRACE;
}
else if (!strcmp (trace_file_prio, "SC_LP_DEBUG")) {
sc_trace_prio = SC_LP_DEBUG;
}
else if (!strcmp (trace_file_prio, "SC_LP_VERBOSE")) {
sc_trace_prio = SC_LP_VERBOSE;
}
else if (!strcmp (trace_file_prio, "SC_LP_INFO")) {
sc_trace_prio = SC_LP_INFO;
}
else if (!strcmp (trace_file_prio, "SC_LP_STATISTICS")) {
sc_trace_prio = SC_LP_STATISTICS;
}
else if (!strcmp (trace_file_prio, "SC_LP_PRODUCTION")) {
sc_trace_prio = SC_LP_PRODUCTION;
}
else if (!strcmp (trace_file_prio, "SC_LP_ESSENTIAL")) {
sc_trace_prio = SC_LP_ESSENTIAL;
}
else if (!strcmp (trace_file_prio, "SC_LP_ERROR")) {
sc_trace_prio = SC_LP_ERROR;
}
else {
SC_ABORT ("Invalid trace priority");
}
}
}
w = 24;
SC_GLOBAL_ESSENTIALF ("This is %s\n", SC_PACKAGE_STRING);
#if 0
SC_GLOBAL_PRODUCTIONF ("%-*s %s\n", w, "F77", SC_F77);
SC_GLOBAL_PRODUCTIONF ("%-*s %s\n", w, "FFLAGS", SC_FFLAGS);
#endif
SC_GLOBAL_PRODUCTIONF ("%-*s %s\n", w, "CPP", SC_CPP);
SC_GLOBAL_PRODUCTIONF ("%-*s %s\n", w, "CPPFLAGS", SC_CPPFLAGS);
SC_GLOBAL_PRODUCTIONF ("%-*s %s\n", w, "CC", SC_CC);
#if 0
SC_GLOBAL_PRODUCTIONF ("%-*s %s\n", w, "C_VERSION", SC_C_VERSION);
#endif
SC_GLOBAL_PRODUCTIONF ("%-*s %s\n", w, "CFLAGS", SC_CFLAGS);
SC_GLOBAL_PRODUCTIONF ("%-*s %s\n", w, "LDFLAGS", SC_LDFLAGS);
SC_GLOBAL_PRODUCTIONF ("%-*s %s\n", w, "LIBS", SC_LIBS);
#if 0
SC_GLOBAL_PRODUCTIONF ("%-*s %s\n", w, "BLAS_LIBS", SC_BLAS_LIBS);
SC_GLOBAL_PRODUCTIONF ("%-*s %s\n", w, "LAPACK_LIBS", SC_LAPACK_LIBS);
SC_GLOBAL_PRODUCTIONF ("%-*s %s\n", w, "FLIBS", SC_FLIBS);
#endif
#if defined(SC_ENABLE_MPI) && defined(SC_ENABLE_MPICOMMSHARED)
if (mpicomm != MPI_COMM_NULL) {
int mpiret;
MPI_Comm intranode, internode;
/* compute the node comms by default */
sc_mpi_comm_attach_node_comms (mpicomm, 0);
sc_mpi_comm_get_node_comms (mpicomm, &intranode, &internode);
if (intranode == MPI_COMM_NULL) {
SC_GLOBAL_STATISTICS ("No shared memory node communicators\n");
}
else {
int intrasize;
mpiret = MPI_Comm_size (intranode, &intrasize);
SC_CHECK_MPI (mpiret);
SC_GLOBAL_STATISTICSF ("Shared memory node communicator size: %d\n",
intrasize);
}
}
#endif
}
void
sc_init (MPI_Comm mpicomm,
int catch_signals, int print_backtrace,
sc_log_handler_t log_handler, int log_threshold)
{
int w;
const char *trace_file_name;
const char *trace_file_prio;
sc_identifier = -1;
sc_mpicomm = MPI_COMM_NULL;
sc_print_backtrace = print_backtrace;
if (mpicomm != MPI_COMM_NULL) {
int mpiret;
sc_mpicomm = mpicomm;
mpiret = MPI_Comm_rank (sc_mpicomm, &sc_identifier);
SC_CHECK_MPI (mpiret);
}
sc_set_signal_handler (catch_signals);
sc_package_id = sc_package_register (log_handler, log_threshold,
"libsc", "The SC Library");
trace_file_name = getenv ("SC_TRACE_FILE");
if (trace_file_name != NULL) {
char buffer[BUFSIZ];
if (sc_identifier >= 0) {
snprintf (buffer, BUFSIZ, "%s.%d.log", trace_file_name, sc_identifier);
}
else {
snprintf (buffer, BUFSIZ, "%s.log", trace_file_name);
}
SC_CHECK_ABORT (sc_trace_file == NULL, "Trace file not NULL");
sc_trace_file = fopen (buffer, "wb");
SC_CHECK_ABORT (sc_trace_file != NULL, "Trace file open");
trace_file_prio = getenv ("SC_TRACE_LP");
if (trace_file_prio != NULL) {
if (!strcmp (trace_file_prio, "SC_LP_TRACE")) {
sc_trace_prio = SC_LP_TRACE;
}
else if (!strcmp (trace_file_prio, "SC_LP_DEBUG")) {
sc_trace_prio = SC_LP_DEBUG;
}
else if (!strcmp (trace_file_prio, "SC_LP_VERBOSE")) {
sc_trace_prio = SC_LP_VERBOSE;
}
else if (!strcmp (trace_file_prio, "SC_LP_INFO")) {
sc_trace_prio = SC_LP_INFO;
}
else if (!strcmp (trace_file_prio, "SC_LP_STATISTICS")) {
sc_trace_prio = SC_LP_STATISTICS;
}
else if (!strcmp (trace_file_prio, "SC_LP_PRODUCTION")) {
sc_trace_prio = SC_LP_PRODUCTION;
}
else if (!strcmp (trace_file_prio, "SC_LP_ESSENTIAL")) {
sc_trace_prio = SC_LP_ESSENTIAL;
}
else if (!strcmp (trace_file_prio, "SC_LP_ERROR")) {
sc_trace_prio = SC_LP_ERROR;
}
else {
SC_ABORT ("Invalid trace priority");
}
}
}
w = 24;
SC_GLOBAL_ESSENTIALF ("This is %s\n", SC_PACKAGE_STRING);
SC_GLOBAL_PRODUCTIONF ("%-*s %s\n", w, "CC", SC_CC);
SC_GLOBAL_PRODUCTIONF ("%-*s %s\n", w, "C_VERSION", SC_C_VERSION);
SC_GLOBAL_PRODUCTIONF ("%-*s %s\n", w, "CFLAGS", SC_CFLAGS);
SC_GLOBAL_PRODUCTIONF ("%-*s %s\n", w, "CPP", SC_CPP);
SC_GLOBAL_PRODUCTIONF ("%-*s %s\n", w, "CPPFLAGS", SC_CPPFLAGS);
SC_GLOBAL_PRODUCTIONF ("%-*s %s\n", w, "F77", SC_F77);
SC_GLOBAL_PRODUCTIONF ("%-*s %s\n", w, "FFLAGS", SC_FFLAGS);
SC_GLOBAL_PRODUCTIONF ("%-*s %s\n", w, "LDFLAGS", SC_LDFLAGS);
SC_GLOBAL_PRODUCTIONF ("%-*s %s\n", w, "BLAS_LIBS", SC_BLAS_LIBS);
SC_GLOBAL_PRODUCTIONF ("%-*s %s\n", w, "LAPACK_LIBS", SC_LAPACK_LIBS);
SC_GLOBAL_PRODUCTIONF ("%-*s %s\n", w, "LIBS", SC_LIBS);
SC_GLOBAL_PRODUCTIONF ("%-*s %s\n", w, "FLIBS", SC_FLIBS);
}
