Searched refs:pivot (Results 1 – 1 of 1) sorted by relevance
| /phasta/svLS/ |
| H A D | GE.f | 50 REAL*8 pivot, saveEl local
54 pivot = A(1,1)*A(2,2) - A(2,1)*A(1,2)
55 saveEl = (B(1)*A(2,2) - B(2)*A(1,2))/pivot
56 B(2) = (B(2)*A(1,1) - B(1)*A(2,1))/pivot
67 pivot = ABS(C(m,m))
69 IF (ABS(C(i,m)) .GT. pivot) THEN
71 pivot = ABS(C(i,m))
74 IF (pivot .LT. 2D0*EPSILON(pivot)) THEN
|