Lines Matching refs:det

1       subroutine sgbdi(abd,lda,n,ml,mu,ipvt,det)  argument
3       real abd(lda,1),det(2)  local
51       det(1) = 1.0e0
52       det(2) = 0.0e0
55          if (ipvt(i) .ne. i) det(1) = -det(1)
56          det(1) = abd(m,i)*det(1)
58          if (det(1) .eq. 0.0e0) go to 60
59    10    if (abs(det(1)) .ge. 1.0e0) go to 20
60             det(1) = ten*det(1)
61             det(2) = det(2) - 1.0e0
64    30    if (abs(det(1)) .lt. ten) go to 40
65             det(1) = det(1)/ten
66             det(2) = det(2) + 1.0e0