Return to dlartgs.f CVS log | Up to [local] / rpl / lapack / lapack |
version 1.1, 2010/12/21 13:50:36 | version 1.3, 2011/07/22 07:38:07 |
---|---|
Line 61 | Line 61 |
* | * |
THRESH = DLAMCH('E') | THRESH = DLAMCH('E') |
* | * |
* Compute the first column of B'*B - SIGMA^2*I, up to a scale | * Compute the first column of B**T*B - SIGMA^2*I, up to a scale |
* factor. | * factor. |
* | * |
IF( (SIGMA .EQ. ZERO .AND. ABS(X) .LT. THRESH) .OR. | IF( (SIGMA .EQ. ZERO .AND. ABS(X) .LT. THRESH) .OR. |