Commit f9940297 authored by Andreas Marek's avatar Andreas Marek
Browse files

Fix GPU tests

parent f8c2784e
......@@ -190,7 +190,7 @@ program test_interface
call timer%start("solve")
#endif
call e%solve(a, ev, z, success)
call e%eigenvectors(a, ev, z, success)
assert_elpa_ok(success)
#ifdef HAVE_DETAILED_TIMINGS
call timer%stop("solve")
......
......@@ -191,7 +191,7 @@ program test_interface
#endif
call e%solve(a, ev, z, success)
call e%eigenvectors(a, ev, z, success)
assert_elpa_ok(success)
#ifdef HAVE_DETAILED_TIMINGS
call timer%stop("solve")
......
......@@ -190,7 +190,7 @@ program test_interface
#endif
call e%solve(a, ev, z, success)
call e%eigenvectors(a, ev, z, success)
assert_elpa_ok(success)
#ifdef HAVE_DETAILED_TIMINGS
call timer%stop("solve")
......
......@@ -188,7 +188,7 @@ program test_interface
#ifdef HAVE_DETAILED_TIMINGS
call timer%start("solve")
#endif
call e%solve(a, ev, z, success)
call e%eigenvectors(a, ev, z, success)
assert_elpa_ok(success)
#ifdef HAVE_DETAILED_TIMINGS
call timer%stop("solve")
......
......@@ -183,7 +183,7 @@ program test_interface
call e%set("gpu", 1, success)
assert_elpa_ok(success)
call e%set("complex_kernel", ELPA_2STAGE_COMPLEX_GPU, success)
assert_elpa_ok(success)
#ifdef HAVE_DETAILED_TIMINGS
......@@ -192,7 +192,7 @@ program test_interface
#ifdef HAVE_DETAILED_TIMINGS
call timer%start("solve")
#endif
call e%solve(a, ev, z, success)
call e%eigenvectors(a, ev, z, success)
assert_elpa_ok(success)
#ifdef HAVE_DETAILED_TIMINGS
call timer%stop("solve")
......
......@@ -186,7 +186,7 @@ program test_interface
call e%set("gpu", 1, success)
assert_elpa_ok(success)
call e%set("real_kernel", ELPA_2STAGE_REAL_GPU, success)
assert_elpa_ok(success)
#ifdef HAVE_DETAILED_TIMINGS
......@@ -197,7 +197,7 @@ program test_interface
#endif
call e%solve(a, ev, z, success)
call e%eigenvectors(a, ev, z, success)
assert_elpa_ok(success)
#ifdef HAVE_DETAILED_TIMINGS
call timer%stop("solve")
......
......@@ -194,7 +194,7 @@ program test_interface
#ifdef HAVE_DETAILED_TIMINGS
call timer%start("solve")
#endif
call e%solve(a, ev, z, success)
call e%eigenvectors(a, ev, z, success)
assert_elpa_ok(success)
#ifdef HAVE_DETAILED_TIMINGS
call timer%stop("solve")
......
......@@ -192,7 +192,7 @@ program test_interface
#ifdef HAVE_DETAILED_TIMINGS
call timer%start("solve")
#endif
call e%solve(a, ev, z, success)
call e%eigenvectors(a, ev, z, success)
assert_elpa_ok(success)
#ifdef HAVE_DETAILED_TIMINGS
call timer%stop("solve")
......
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