diff options
Diffstat (limited to 'BLAS/SRC/zscal.f')
| -rw-r--r-- | BLAS/SRC/zscal.f | 26 |
1 files changed, 13 insertions, 13 deletions
diff --git a/BLAS/SRC/zscal.f b/BLAS/SRC/zscal.f index 42fba167..a84c618a 100644 --- a/BLAS/SRC/zscal.f +++ b/BLAS/SRC/zscal.f @@ -22,24 +22,24 @@ * ===================================================================== * * .. Local Scalars .. - INTEGER I,IX + INTEGER I,NINCX * .. IF (N.LE.0 .OR. INCX.LE.0) RETURN - IF (INCX.EQ.1) GO TO 20 + IF (INCX.EQ.1) THEN * -* code for increment not equal to 1 +* code for increment equal to 1 * - IX = 1 - DO 10 I = 1,N - ZX(IX) = ZA*ZX(IX) - IX = IX + INCX - 10 CONTINUE - RETURN + DO I = 1,N + ZX(I) = ZA*ZX(I) + END DO + ELSE * -* code for increment equal to 1 +* code for increment not equal to 1 * - 20 DO 30 I = 1,N - ZX(I) = ZA*ZX(I) - 30 CONTINUE + NINCX = N*INCX + DO I = 1,NINCX,INCX + ZX(I) = ZA*ZX(I) + END DO + END IF RETURN END |