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

Remove some unused variables

parent 5ff5b75c
......@@ -125,7 +125,6 @@
#endif
integer(kind=ik) :: max_idx
integer(kind=ik) :: i
logical :: successCUDA
! Use many blocks for higher GPU occupancy
......
......@@ -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.
......@@ -1076,8 +1077,6 @@ module elpa_api
integer(kind=c_int) :: actual_error
integer(kind=c_int) :: value
integer(kind=c_int) :: i
type(c_ptr) :: repr
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