Commit 4b712509 authored by Andreas Marek's avatar Andreas Marek
Browse files

Remove unecessary error_actual variable

parent ee418a17
...@@ -594,7 +594,7 @@ module elpa_impl ...@@ -594,7 +594,7 @@ module elpa_impl
real(kind=c_double) :: ev(self%na) real(kind=c_double) :: ev(self%na)
integer, optional :: error integer, optional :: error
integer(kind=c_int) :: error_actual, solver integer(kind=c_int) :: solver
logical :: success_l logical :: success_l
...@@ -676,7 +676,7 @@ module elpa_impl ...@@ -676,7 +676,7 @@ module elpa_impl
real(kind=c_float) :: ev(self%na) real(kind=c_float) :: ev(self%na)
integer, optional :: error integer, optional :: error
integer(kind=c_int) :: error_actual, solver integer(kind=c_int) :: solver
logical :: success_l logical :: success_l
#ifdef WANT_SINGLE_PRECISION_REAL #ifdef WANT_SINGLE_PRECISION_REAL
...@@ -765,7 +765,7 @@ module elpa_impl ...@@ -765,7 +765,7 @@ module elpa_impl
real(kind=c_double) :: ev(self%na) real(kind=c_double) :: ev(self%na)
integer, optional :: error integer, optional :: error
integer(kind=c_int) :: error_actual, solver integer(kind=c_int) :: solver
logical :: success_l logical :: success_l
call self%get("solver", solver) call self%get("solver", solver)
...@@ -849,7 +849,7 @@ module elpa_impl ...@@ -849,7 +849,7 @@ module elpa_impl
real(kind=c_float) :: ev(self%na) real(kind=c_float) :: ev(self%na)
integer, optional :: error integer, optional :: error
integer(kind=c_int) :: error_actual, solver integer(kind=c_int) :: solver
logical :: success_l logical :: success_l
#ifdef WANT_SINGLE_PRECISION_COMPLEX #ifdef WANT_SINGLE_PRECISION_COMPLEX
...@@ -1188,7 +1188,6 @@ module elpa_impl ...@@ -1188,7 +1188,6 @@ module elpa_impl
#endif #endif
integer, optional :: error integer, optional :: error
logical :: success_l logical :: success_l
integer(kind=c_int) :: error_actual
success_l = elpa_cholesky_real_double_impl (self, a) success_l = elpa_cholesky_real_double_impl (self, a)
if (present(error)) then if (present(error)) then
...@@ -1246,7 +1245,6 @@ module elpa_impl ...@@ -1246,7 +1245,6 @@ module elpa_impl
#endif #endif
integer, optional :: error integer, optional :: error
logical :: success_l logical :: success_l
integer(kind=c_int) :: error_actual
#if WANT_SINGLE_PRECISION_REAL #if WANT_SINGLE_PRECISION_REAL
success_l = elpa_cholesky_real_single_impl (self, a) success_l = elpa_cholesky_real_single_impl (self, a)
...@@ -1309,7 +1307,6 @@ module elpa_impl ...@@ -1309,7 +1307,6 @@ module elpa_impl
#endif #endif
integer, optional :: error integer, optional :: error
logical :: success_l logical :: success_l
integer(kind=c_int) :: error_actual
success_l = elpa_cholesky_complex_double_impl (self, a) success_l = elpa_cholesky_complex_double_impl (self, a)
if (present(error)) then if (present(error)) then
...@@ -1366,7 +1363,6 @@ module elpa_impl ...@@ -1366,7 +1363,6 @@ module elpa_impl
#endif #endif
integer, optional :: error integer, optional :: error
logical :: success_l logical :: success_l
integer(kind=c_int) :: error_actual
#if WANT_SINGLE_PRECISION_COMPLEX #if WANT_SINGLE_PRECISION_COMPLEX
success_l = elpa_cholesky_complex_single_impl (self, a) success_l = elpa_cholesky_complex_single_impl (self, a)
...@@ -1428,7 +1424,6 @@ module elpa_impl ...@@ -1428,7 +1424,6 @@ module elpa_impl
#endif #endif
integer, optional :: error integer, optional :: error
logical :: success_l logical :: success_l
integer(kind=c_int) :: error_actual
success_l = elpa_invert_trm_real_double_impl (self, a) success_l = elpa_invert_trm_real_double_impl (self, a)
if (present(error)) then if (present(error)) then
...@@ -1485,7 +1480,6 @@ module elpa_impl ...@@ -1485,7 +1480,6 @@ module elpa_impl
#endif #endif
integer, optional :: error integer, optional :: error
logical :: success_l logical :: success_l
integer(kind=c_int) :: error_actual
#if WANT_SINGLE_PRECISION_REAL #if WANT_SINGLE_PRECISION_REAL
success_l = elpa_invert_trm_real_single_impl (self, a) success_l = elpa_invert_trm_real_single_impl (self, a)
...@@ -1548,7 +1542,6 @@ module elpa_impl ...@@ -1548,7 +1542,6 @@ module elpa_impl
#endif #endif
integer, optional :: error integer, optional :: error
logical :: success_l logical :: success_l
integer(kind=c_int) :: error_actual
success_l = elpa_invert_trm_complex_double_impl (self, a) success_l = elpa_invert_trm_complex_double_impl (self, a)
if (present(error)) then if (present(error)) then
...@@ -1605,7 +1598,6 @@ module elpa_impl ...@@ -1605,7 +1598,6 @@ module elpa_impl
#endif #endif
integer, optional :: error integer, optional :: error
logical :: success_l logical :: success_l
integer(kind=c_int) :: error_actual
#if WANT_SINGLE_PRECISION_COMPLEX #if WANT_SINGLE_PRECISION_COMPLEX
success_l = elpa_invert_trm_complex_single_impl (self, a) success_l = elpa_invert_trm_complex_single_impl (self, a)
...@@ -1671,7 +1663,6 @@ module elpa_impl ...@@ -1671,7 +1663,6 @@ module elpa_impl
integer, optional :: error integer, optional :: error
logical :: success_l logical :: success_l
integer(kind=c_int) :: error_actual
success_l = elpa_solve_tridi_double_impl(self, d, e, q) success_l = elpa_solve_tridi_double_impl(self, d, e, q)
if (present(error)) then if (present(error)) then
...@@ -1734,7 +1725,6 @@ module elpa_impl ...@@ -1734,7 +1725,6 @@ module elpa_impl
integer, optional :: error integer, optional :: error
logical :: success_l logical :: success_l
integer(kind=c_int) :: error_actual
#ifdef WANT_SINGLE_PRECISION_REAL #ifdef WANT_SINGLE_PRECISION_REAL
success_l = elpa_solve_tridi_single_impl(self, d, e, q) success_l = elpa_solve_tridi_single_impl(self, d, e, q)
......
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