Skip to content
GitLab
Commit f9940297 authored by Andreas Marek's avatar Andreas Marek
Browse files

Fix GPU tests

parent f8c2784e
Hide whitespace changes
Inline Side-by-side
test/Fortran/elpa1/complex_1stage_gpu.F90
View file @ f9940297
......@@ -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")
......
test/Fortran/elpa1/real_1stage_gpu.F90
View file @ f9940297
......@@ -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")
......
test/Fortran/elpa1/single_complex_1stage_gpu.F90
View file @ f9940297
......@@ -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")
......
test/Fortran/elpa1/single_real_1stage_gpu.F90
View file @ f9940297
......@@ -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")
......
test/Fortran/elpa2/complex_2stage_gpu.F90
View file @ f9940297
......@@ -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")
......
test/Fortran/elpa2/real_2stage_gpu.F90
View file @ f9940297
......@@ -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")
......
test/Fortran/elpa2/single_complex_2stage_gpu.F90
View file @ f9940297
......@@ -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")
......
test/Fortran/elpa2/single_real_2stage_gpu.F90
View file @ f9940297
......@@ -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")
......
Supports Markdown
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