![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to dlartgs.f CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [local] / rpl / lapack / lapack|
Return to dlartgs.f CVS log | Up to [local] / rpl / lapack / lapack |
| version 1.2, 2010/12/21 13:53:32 | 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. |