Commit 9b6e2a60 authored by Andreas Marek's avatar Andreas Marek
Browse files

Remove some unused variables

parent 5ff5b75c
......@@ -114,19 +114,18 @@
use iso_c_binding
use cuda_functions
implicit none
integer(kind=c_intptr_t) :: row_group_dev, a_dev
integer(kind=ik), intent(in) :: stripe_count, stripe_width, last_stripe_width, a_dim2, l_nev
integer(kind=ik), intent(in) :: n_offset, row_count
integer(kind=c_intptr_t) :: row_group_dev, a_dev
integer(kind=ik), intent(in) :: stripe_count, stripe_width, last_stripe_width, a_dim2, l_nev
integer(kind=ik), intent(in) :: n_offset, row_count
#if REALCASE == 1
real(kind=C_DATATYPE_KIND), intent(in) :: rows(:, :)
real(kind=C_DATATYPE_KIND), intent(in) :: rows(:, :)
#endif
#if COMPLEXCASE == 1
complex(kind=C_DATATYPE_KIND), intent(in) :: rows(:, :)
#endif
integer(kind=ik) :: max_idx
integer(kind=ik) :: i
logical :: successCUDA
integer(kind=ik) :: max_idx
logical :: successCUDA
! Use many blocks for higher GPU occupancy
max_idx = (stripe_count - 1) * stripe_width + last_stripe_width
......
......@@ -976,8 +976,9 @@ module elpa_api
!c> int elpa_init(int api_version);
function elpa_init(api_version) result(error) bind(C, name="elpa_init")
use elpa_utilities, only : error_unit
integer, intent(in), value :: api_version
integer :: error
use iso_c_binding
integer(kind=c_int), intent(in), value :: api_version
integer(kind=c_int) :: error
if (earliest_api_version <= api_version .and. api_version <= current_api_version) then
initDone = .true.
......@@ -1070,14 +1071,12 @@ module elpa_api
use elpa_generated_fortran_interfaces
use elpa_utilities, only : error_unit
implicit none
character(kind=c_char, len=*), intent(in) :: name
character(kind=c_char, len=*), intent(in) :: name
character(kind=c_char, len=*), intent(in), target :: string
integer(kind=c_int), intent(out), optional :: error
integer(kind=c_int) :: actual_error
integer(kind=c_int), intent(out), optional :: error
integer(kind=c_int) :: actual_error
integer(kind=c_int) :: value
integer(kind=c_int) :: i
type(c_ptr) :: repr
integer(kind=c_int) :: value
actual_error = elpa_int_string_to_value_c(name // C_NULL_CHAR, string // C_NULL_CHAR, value)
......
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