Commit 594814b8 authored by Andreas Marek's avatar Andreas Marek
Browse files

Do not always print gpu usage

parent deadeaf7
......@@ -199,7 +199,7 @@ program test
#ifdef WITH_OPENMP_TRADITIONAL
TEST_INT_TYPE :: max_threads, threads_caller
#endif
#ifdef TEST_GPU_SET_ID
#if TEST_GPU_SET_ID == 1
TEST_INT_TYPE :: gpuID
#endif
#ifdef SPLIT_COMM_MYSELF
......@@ -617,6 +617,7 @@ program test
assert_elpa_ok(error_elpa)
call e%set("mpi_comm_cols", int(mpi_comm_cols,kind=c_int), error_elpa)
assert_elpa_ok(error_elpa)
#else
call e%set("mpi_comm_parent", int(MPI_COMM_WORLD,kind=c_int), error_elpa)
assert_elpa_ok(error_elpa)
......@@ -624,6 +625,8 @@ program test
assert_elpa_ok(error_elpa)
call e%set("process_col", int(my_pcol,kind=c_int), error_elpa)
assert_elpa_ok(error_elpa)
call e%set("verbose", 1, error_elpa)
assert_elpa_ok(error_elpa)
#endif
#endif
#ifdef TEST_GENERALIZED_EIGENPROBLEM
......@@ -643,7 +646,7 @@ program test
call e%set("gpu", TEST_GPU, error_elpa)
assert_elpa_ok(error_elpa)
#ifdef TEST_GPU_SET_ID
#if TEST_GPU_SET_ID == 1
! simple test
! Can (and should) fail often
gpuID = mod(myid,2)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment