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

Retab

parent 4b712509
......@@ -2021,7 +2021,7 @@
! local variables
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)
! external functions
......@@ -2148,9 +2148,6 @@
sum_squares = sdot(i-1,work(1,i),1,work(1,i),1)
end if
#endif
!relative_error = sum_squares / diagonal_square
!print *,'error ',i,sum_squares,diagonal_square,relative_error
if (sum_squares .ge. (epsd * diagonal_square)) then
possiblerank = max(i-1,1)
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