Commit 2355b513 authored by Andreas Marek's avatar Andreas Marek
Browse files

Remove useGPU parameter from redist_band (not used)

parent e20038bb
......@@ -236,7 +236,7 @@ subroutine tridiag_band_&
&MATH_DATATYPE&
&_&
&PRECISION&
&(obj,a_mat, lda, na, nblk, nb, matrixCols, mpi_comm_rows, mpi_comm_cols, communicator, ab, useGPU)
&(obj,a_mat, lda, na, nblk, nb, matrixCols, mpi_comm_rows, mpi_comm_cols, communicator, ab)
! Calculate the workload for each sweep in the back transformation
! and the space requirements to hold the HH vectors
......
......@@ -52,21 +52,18 @@ subroutine redist_band_&
&MATH_DATATYPE&
&_&
&PRECISION &
(obj, a_mat, lda, na, nblk, nbw, matrixCols, mpi_comm_rows, mpi_comm_cols, communicator, ab, useGPU)
(obj, a_mat, lda, na, nblk, nbw, matrixCols, mpi_comm_rows, mpi_comm_cols, communicator, ab)
use elpa_abstract_impl
use elpa2_workload
use precision
use, intrinsic :: iso_c_binding
use cuda_functions
use hip_functions
use elpa_gpu
use elpa_utilities, only : local_index, check_allocate_f, check_deallocate_f
use elpa_mpi
implicit none
class(elpa_abstract_impl_t), intent(inout) :: obj
logical, intent(in) :: useGPU
!logical, intent(in) :: useGPU
integer(kind=ik), intent(in) :: lda, na, nblk, nbw, matrixCols, mpi_comm_rows, mpi_comm_cols, communicator
MATH_DATATYPE(kind=C_DATATYPE_KIND), intent(in) :: a_mat(lda, matrixCols)
MATH_DATATYPE(kind=C_DATATYPE_KIND), intent(out) :: ab(:,:)
......@@ -86,10 +83,10 @@ subroutine redist_band_&
character(200) :: errorMessage
logical :: successCUDA
integer(kind=c_intptr_t), parameter :: size_of_datatype = size_of_&
&PRECISION&
&_&
&MATH_DATATYPE
!integer(kind=c_intptr_t), parameter :: size_of_datatype = size_of_&
! &PRECISION&
! &_&
! &MATH_DATATYPE
call obj%timer%start("redist_band_&
&MATH_DATATYPE&
......
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