Commit 6688e40c authored by Lorenz Huedepohl's avatar Lorenz Huedepohl
Browse files

Prevent some more warnings about uninitialized uses

It is not quite clear to me why GCC complains here when
WANT_SINGLE_PRECISION_REAL is not defined, as the variables are then not
used _at all_.

Nonetheless, this again prevents build on the SuSE OBS, so fix it to
make the compiler happy
parent 4c778492
......@@ -574,9 +574,8 @@ module elpa_impl
integer, optional :: error
integer(kind=c_int) :: solver
logical :: success_l
#ifdef WANT_SINGLE_PRECISION_REAL
logical :: success_l
call self%get("solver",solver)
if (solver .eq. ELPA_SOLVER_1STAGE) then
......@@ -747,9 +746,8 @@ module elpa_impl
integer, optional :: error
integer(kind=c_int) :: solver
logical :: success_l
#ifdef WANT_SINGLE_PRECISION_COMPLEX
logical :: success_l
call self%get("solver", solver)
if (solver .eq. ELPA_SOLVER_1STAGE) then
......@@ -910,9 +908,8 @@ module elpa_impl
integer, optional :: error
integer(kind=c_int) :: solver
logical :: success_l
#ifdef WANT_SINGLE_PRECISION_REAL
logical :: success_l
call self%get("solver",solver)
if (solver .eq. ELPA_SOLVER_1STAGE) then
......@@ -1071,9 +1068,8 @@ module elpa_impl
integer, optional :: error
integer(kind=c_int) :: solver
logical :: success_l
#ifdef WANT_SINGLE_PRECISION_COMPLEX
logical :: success_l
call self%get("solver", solver)
if (solver .eq. ELPA_SOLVER_1STAGE) then
......@@ -1231,8 +1227,9 @@ module elpa_impl
real(kind=c_float) :: a(self%local_nrows,self%local_ncols), b(nrows_b,ncols_b), c(nrows_c,ncols_c)
#endif
integer, optional :: error
logical :: success_l
#ifdef WANT_SINGLE_PRECISION_REAL
logical :: success_l
success_l = elpa_mult_at_b_real_single_impl(self, uplo_a, uplo_c, ncb, a, b, nrows_b, ncols_b, &
c, nrows_c, ncols_c)
if (present(error)) then
......@@ -1361,9 +1358,9 @@ module elpa_impl
complex(kind=c_float_complex) :: a(self%local_nrows,self%local_ncols), b(nrows_b,ncols_b), c(nrows_c,ncols_c)
#endif
integer, optional :: error
#ifdef WANT_SINGLE_PRECISION_COMPLEX
logical :: success_l
#ifdef WANT_SINGLE_PRECISION_COMPLEX
success_l = elpa_mult_ah_b_complex_single_impl(self, uplo_a, uplo_c, ncb, a, b, nrows_b, ncols_b, &
c, nrows_c, ncols_c)
if (present(error)) then
......@@ -1466,9 +1463,9 @@ module elpa_impl
real(kind=rk4) :: a(self%local_nrows,self%local_ncols)
#endif
integer, optional :: error
#if WANT_SINGLE_PRECISION_REAL
logical :: success_l
#if WANT_SINGLE_PRECISION_REAL
success_l = elpa_cholesky_real_single_impl (self, a)
if (present(error)) then
if (success_l) then
......@@ -1584,9 +1581,9 @@ module elpa_impl
complex(kind=c_float_complex) :: a(self%local_nrows,self%local_ncols)
#endif
integer, optional :: error
#if WANT_SINGLE_PRECISION_COMPLEX
logical :: success_l
#if WANT_SINGLE_PRECISION_COMPLEX
success_l = elpa_cholesky_complex_single_impl (self, a)
if (present(error)) then
if (success_l) then
......@@ -1701,9 +1698,9 @@ module elpa_impl
real(kind=c_float) :: a(self%local_nrows,self%local_ncols)
#endif
integer, optional :: error
#if WANT_SINGLE_PRECISION_REAL
logical :: success_l
#if WANT_SINGLE_PRECISION_REAL
success_l = elpa_invert_trm_real_single_impl (self, a)
if (present(error)) then
if (success_l) then
......@@ -1819,9 +1816,9 @@ module elpa_impl
complex(kind=c_float_complex) :: a(self%local_nrows,self%local_ncols)
#endif
integer, optional :: error
#if WANT_SINGLE_PRECISION_COMPLEX
logical :: success_l
#if WANT_SINGLE_PRECISION_COMPLEX
success_l = elpa_invert_trm_complex_single_impl (self, a)
if (present(error)) then
if (success_l) then
......@@ -1929,9 +1926,9 @@ module elpa_impl
#endif
integer, optional :: error
#ifdef WANT_SINGLE_PRECISION_REAL
logical :: success_l
#ifdef WANT_SINGLE_PRECISION_REAL
success_l = elpa_solve_tridi_single_impl(self, d, e, q)
if (present(error)) then
if (success_l) then
......
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