diff options
Diffstat (limited to 'SRC/zlarfp.f')
| -rw-r--r-- | SRC/zlarfp.f | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/SRC/zlarfp.f b/SRC/zlarfp.f index cdb1e3ad..9c40ffc5 100644 --- a/SRC/zlarfp.f +++ b/SRC/zlarfp.f @@ -109,7 +109,7 @@ ELSE * Only "reflecting" the diagonal entry to be real and non-negative. XNORM = DLAPY2( ALPHR, ALPHI ) - TAU = DCMPLX( ONE - ALPHR / XNORM, ALPHI / XNORM ) + TAU = DCMPLX( ONE - ALPHR / XNORM, -ALPHI / XNORM ) DO J = 1, N-1 X( 1 + (J-1)*INCX ) = ZERO END DO @@ -176,7 +176,7 @@ END IF ELSE XNORM = DLAPY2( ALPHR, ALPHI ) - TAU = DCMPLX( ONE - ALPHR / XNORM, ALPHI / XNORM ) + TAU = DCMPLX( ONE - ALPHR / XNORM, -ALPHI / XNORM ) DO J = 1, N-1 X( 1 + (J-1)*INCX ) = ZERO END DO |