Searched refs:diagrow (Results 1 – 1 of 1) sorted by relevance
450 real(kind=8) :: diagrow local461 diagrow = lhs(p)462 if (diagrow.lt.0) then463 write(*,*)'matrix diagonal < 0 at',i,diagrow468 if (lhs(p).gt.diagrow) then471 write(*,*)'diag:',diagrow,p,lhs(p)