Skip to content

GitLab

Commit 5ff5b75c authored by Andreas Marek's avatar Andreas Marek
Browse files

Retab

parent 4b712509
Show whitespace changes
Inline Side-by-side
src/elpa2/qr/elpa_pdgeqrf_template.X90
View file @ 5ff5b75c
...@@ -2021,7 +2021,7 @@ ...@@ -2021,7 +2021,7 @@
! local variables ! local variables
integer(kind=ik) :: i,j,l integer(kind=ik) :: i,j,l
real(kind=C_DATATYPE_KIND) :: sum_squares,diagonal_square,relative_error,epsd,diagonal_root real(kind=C_DATATYPE_KIND) :: sum_squares,diagonal_square,epsd,diagonal_root
real(kind=C_DATATYPE_KIND) :: dreverse_matrix_work(1) real(kind=C_DATATYPE_KIND) :: dreverse_matrix_work(1)
! external functions ! external functions
...@@ -2148,9 +2148,6 @@ ...@@ -2148,9 +2148,6 @@
sum_squares = sdot(i-1,work(1,i),1,work(1,i),1) sum_squares = sdot(i-1,work(1,i),1,work(1,i),1)
end if end if
#endif #endif
!relative_error = sum_squares / diagonal_square
!print *,'error ',i,sum_squares,diagonal_square,relative_error
if (sum_squares .ge. (epsd * diagonal_square)) then if (sum_squares .ge. (epsd * diagonal_square)) then
possiblerank = max(i-1,1) possiblerank = max(i-1,1)
call obj%timer%stop("qr_pdlarfgk_1dcomm_check_improved_& call obj%timer%stop("qr_pdlarfgk_1dcomm_check_improved_&
......
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