Commit 2f8f6d56 authored by Lorenz Huedepohl's avatar Lorenz Huedepohl

Fix legacy GPU tests, still used internal modules

parent f466029e
......@@ -73,13 +73,9 @@ program test_complex_gpu_version_double_precision
! distributed along with the original code in the file "COPYING".
!-------------------------------------------------------------------------------
use elpa1
use mod_check_for_gpu, only : check_for_gpu
use elpa_utilities, only : error_unit
!use elpa1_utilities
use test_util
use test_util
use test_read_input_parameters
use test_check_correctness
use test_setup_mpi
......@@ -117,8 +113,6 @@ program test_complex_gpu_version_double_precision
#ifdef WITH_OPENMP
integer(kind=ik) :: omp_get_max_threads, required_mpi_thread_level, provided_mpi_thread_level
#endif
integer(kind=ik) :: numberOfDevices
logical :: gpuAvailable
type(output_t) :: write_to_file
logical :: success
character(len=8) :: task_suffix
......@@ -134,8 +128,6 @@ program test_complex_gpu_version_double_precision
! MPI Initialization
call setup_mpi(myid, nprocs)
gpuAvailable = check_for_gpu(myid, numberOfDevices)
STATUS = 0
#define COMPLEXCASE
......@@ -163,12 +155,7 @@ program test_complex_gpu_version_double_precision
print '((a,i0))', 'Num eigenvectors: ', nev
print '((a,i0))', 'Blocksize: ', nblk
print '((a,i0))', 'Num MPI proc: ', nprocs
if (gpuAvailable) then
print '((a))', 'Using gpu: YES'
else
print '((a))', 'Using gpu: NO, not available'
endif
print '((a,i0))', 'Num gpu devices: ', numberOfDevices
print '((a))', 'Using gpu: YES'
print '((a))', 'Number type: complex'
print '((a))', 'Number precision: double'
print *
......
......@@ -74,13 +74,9 @@ program test_real_gpu_version_double_precision
!
!-------------------------------------------------------------------------------
use elpa1
use mod_check_for_gpu, only : check_for_gpu
use elpa_utilities, only : error_unit
!use elpa1_utilities
use test_util
use test_util
use test_read_input_parameters
use test_check_correctness
use test_setup_mpi
......@@ -117,8 +113,6 @@ program test_real_gpu_version_double_precision
integer(kind=ik) :: omp_get_max_threads, required_mpi_thread_level, &
provided_mpi_thread_level
#endif
integer(kind=ik) :: numberOfDevices
logical :: gpuAvailable
type(output_t) :: write_to_file
logical :: success
character(len=8) :: task_suffix
......@@ -136,8 +130,6 @@ program test_real_gpu_version_double_precision
! MPI Initialization
call setup_mpi(myid, nprocs)
gpuAvailable = check_for_gpu(myid, numberOfDevices)
STATUS = 0
#define REALCASE
......@@ -160,12 +152,7 @@ program test_real_gpu_version_double_precision
print '((a,i0))', 'Num eigenvectors: ', nev
print '((a,i0))', 'Blocksize: ', nblk
print '((a,i0))', 'Num MPI proc: ', nprocs
if (gpuAvailable) then
print '((a))', 'Using gpu: YES'
else
print '((a))', 'Using gpu: NO, not available'
endif
print '((a,i0))', 'Num gpu devices: ', numberOfDevices
print '((a))', 'Using gpu: YES'
print '((a))', 'Number type: real'
print '((a))', 'Number precision: double'
print *
......
......@@ -73,13 +73,9 @@ program test_complex_gpu_version_single_precision
! distributed along with the original code in the file "COPYING".
!-------------------------------------------------------------------------------
use elpa1
use mod_check_for_gpu, only : check_for_gpu
use elpa_utilities, only : error_unit
!use elpa1_utilities
use test_util
use test_util
use test_read_input_parameters
use test_check_correctness
use test_setup_mpi
......@@ -117,8 +113,6 @@ program test_complex_gpu_version_single_precision
#ifdef WITH_OPENMP
integer(kind=ik) :: omp_get_max_threads, required_mpi_thread_level, provided_mpi_thread_level
#endif
integer(kind=ik) :: numberOfDevices
logical :: gpuAvailable
type(output_t) :: write_to_file
logical :: success
character(len=8) :: task_suffix
......@@ -134,8 +128,6 @@ program test_complex_gpu_version_single_precision
! MPI Initialization
call setup_mpi(myid, nprocs)
gpuAvailable = check_for_gpu(myid, numberOfDevices)
STATUS = 0
#define COMPLEXCASE
......@@ -163,12 +155,7 @@ program test_complex_gpu_version_single_precision
print '((a,i0))', 'Num eigenvectors: ', nev
print '((a,i0))', 'Blocksize: ', nblk
print '((a,i0))', 'Num MPI proc: ', nprocs
if (gpuAvailable) then
print '((a))', 'Using gpu: YES'
else
print '((a))', 'Using gpu: NO, not available'
endif
print '((a,i0))', 'Num gpu devices: ', numberOfDevices
print '((a))', 'Using gpu: YES'
print '((a))', 'Number type: complex'
print '((a))', 'Number precision: single'
print *
......
......@@ -74,13 +74,9 @@ program test_real_gpu_version_single_precision
!
!-------------------------------------------------------------------------------
use elpa1
use mod_check_for_gpu, only : check_for_gpu
use elpa_utilities, only : error_unit
!use elpa1_utilities
use test_util
use test_util
use test_read_input_parameters
use test_check_correctness
use test_setup_mpi
......@@ -117,8 +113,6 @@ program test_real_gpu_version_single_precision
integer(kind=ik) :: omp_get_max_threads, required_mpi_thread_level, &
provided_mpi_thread_level
#endif
integer(kind=ik) :: numberOfDevices
logical :: gpuAvailable
type(output_t) :: write_to_file
logical :: success
character(len=8) :: task_suffix
......@@ -136,8 +130,6 @@ program test_real_gpu_version_single_precision
! MPI Initialization
call setup_mpi(myid, nprocs)
gpuAvailable = check_for_gpu(myid, numberOfDevices)
STATUS = 0
#define REALCASE
......@@ -160,12 +152,7 @@ program test_real_gpu_version_single_precision
print '((a,i0))', 'Num eigenvectors: ', nev
print '((a,i0))', 'Blocksize: ', nblk
print '((a,i0))', 'Num MPI proc: ', nprocs
if (gpuAvailable) then
print '((a))', 'Using gpu: YES'
else
print '((a))', 'Using gpu: NO, not available'
endif
print '((a,i0))', 'Num gpu devices: ', numberOfDevices
print '((a))', 'Using gpu: YES'
print '((a))', 'Number type: real'
print '((a))', 'Number precision: single'
print *
......
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