Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
elpa
elpa
Commits
4b712509
Commit
4b712509
authored
May 29, 2017
by
Andreas Marek
Browse files
Remove unecessary error_actual variable
parent
ee418a17
Changes
1
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
src/elpa_impl.F90
View file @
4b712509
...
...
@@ -594,7 +594,7 @@ module elpa_impl
real
(
kind
=
c_double
)
::
ev
(
self
%
na
)
integer
,
optional
::
error
integer
(
kind
=
c_int
)
::
error_actual
,
solver
integer
(
kind
=
c_int
)
::
solver
logical
::
success_l
...
...
@@ -676,7 +676,7 @@ module elpa_impl
real
(
kind
=
c_float
)
::
ev
(
self
%
na
)
integer
,
optional
::
error
integer
(
kind
=
c_int
)
::
error_actual
,
solver
integer
(
kind
=
c_int
)
::
solver
logical
::
success_l
#ifdef WANT_SINGLE_PRECISION_REAL
...
...
@@ -765,7 +765,7 @@ module elpa_impl
real
(
kind
=
c_double
)
::
ev
(
self
%
na
)
integer
,
optional
::
error
integer
(
kind
=
c_int
)
::
error_actual
,
solver
integer
(
kind
=
c_int
)
::
solver
logical
::
success_l
call
self
%
get
(
"solver"
,
solver
)
...
...
@@ -849,7 +849,7 @@ module elpa_impl
real
(
kind
=
c_float
)
::
ev
(
self
%
na
)
integer
,
optional
::
error
integer
(
kind
=
c_int
)
::
error_actual
,
solver
integer
(
kind
=
c_int
)
::
solver
logical
::
success_l
#ifdef WANT_SINGLE_PRECISION_COMPLEX
...
...
@@ -1188,7 +1188,6 @@ module elpa_impl
#endif
integer
,
optional
::
error
logical
::
success_l
integer
(
kind
=
c_int
)
::
error_actual
success_l
=
elpa_cholesky_real_double_impl
(
self
,
a
)
if
(
present
(
error
))
then
...
...
@@ -1246,7 +1245,6 @@ module elpa_impl
#endif
integer
,
optional
::
error
logical
::
success_l
integer
(
kind
=
c_int
)
::
error_actual
#if WANT_SINGLE_PRECISION_REAL
success_l
=
elpa_cholesky_real_single_impl
(
self
,
a
)
...
...
@@ -1309,7 +1307,6 @@ module elpa_impl
#endif
integer
,
optional
::
error
logical
::
success_l
integer
(
kind
=
c_int
)
::
error_actual
success_l
=
elpa_cholesky_complex_double_impl
(
self
,
a
)
if
(
present
(
error
))
then
...
...
@@ -1366,7 +1363,6 @@ module elpa_impl
#endif
integer
,
optional
::
error
logical
::
success_l
integer
(
kind
=
c_int
)
::
error_actual
#if WANT_SINGLE_PRECISION_COMPLEX
success_l
=
elpa_cholesky_complex_single_impl
(
self
,
a
)
...
...
@@ -1428,7 +1424,6 @@ module elpa_impl
#endif
integer
,
optional
::
error
logical
::
success_l
integer
(
kind
=
c_int
)
::
error_actual
success_l
=
elpa_invert_trm_real_double_impl
(
self
,
a
)
if
(
present
(
error
))
then
...
...
@@ -1485,7 +1480,6 @@ module elpa_impl
#endif
integer
,
optional
::
error
logical
::
success_l
integer
(
kind
=
c_int
)
::
error_actual
#if WANT_SINGLE_PRECISION_REAL
success_l
=
elpa_invert_trm_real_single_impl
(
self
,
a
)
...
...
@@ -1548,7 +1542,6 @@ module elpa_impl
#endif
integer
,
optional
::
error
logical
::
success_l
integer
(
kind
=
c_int
)
::
error_actual
success_l
=
elpa_invert_trm_complex_double_impl
(
self
,
a
)
if
(
present
(
error
))
then
...
...
@@ -1605,7 +1598,6 @@ module elpa_impl
#endif
integer
,
optional
::
error
logical
::
success_l
integer
(
kind
=
c_int
)
::
error_actual
#if WANT_SINGLE_PRECISION_COMPLEX
success_l
=
elpa_invert_trm_complex_single_impl
(
self
,
a
)
...
...
@@ -1671,7 +1663,6 @@ module elpa_impl
integer
,
optional
::
error
logical
::
success_l
integer
(
kind
=
c_int
)
::
error_actual
success_l
=
elpa_solve_tridi_double_impl
(
self
,
d
,
e
,
q
)
if
(
present
(
error
))
then
...
...
@@ -1734,7 +1725,6 @@ module elpa_impl
integer
,
optional
::
error
logical
::
success_l
integer
(
kind
=
c_int
)
::
error_actual
#ifdef WANT_SINGLE_PRECISION_REAL
success_l
=
elpa_solve_tridi_single_impl
(
self
,
d
,
e
,
q
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment