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

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