diff options
| author | julie <julielangou@users.noreply.github.com> | 2011-03-10 23:33:40 +0000 |
|---|---|---|
| committer | julie <julielangou@users.noreply.github.com> | 2011-03-10 23:33:40 +0000 |
| commit | e9dac1f3c4684d925d3bfd5214125a89ef228e39 (patch) | |
| tree | 2d0533814195d69c832daa63975e882f14104d34 /BLAS/SRC/scasum.f | |
| parent | 1923c69f7e9857d19b67f9e9befd1b1f37c644ef (diff) | |
| download | lapack-e9dac1f3c4684d925d3bfd5214125a89ef228e39.tar.gz lapack-e9dac1f3c4684d925d3bfd5214125a89ef228e39.tar.bz2 lapack-e9dac1f3c4684d925d3bfd5214125a89ef228e39.zip | |
Remove the easy GO TO statments....still 13 to remove in drotm.f and 36 in drotmg.f
Diffstat (limited to 'BLAS/SRC/scasum.f')
| -rw-r--r-- | BLAS/SRC/scasum.f | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/BLAS/SRC/scasum.f b/BLAS/SRC/scasum.f index 2fa01859..d090110c 100644 --- a/BLAS/SRC/scasum.f +++ b/BLAS/SRC/scasum.f @@ -31,22 +31,22 @@ SCASUM = 0.0e0 STEMP = 0.0e0 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 * - NINCX = N*INCX - DO 10 I = 1,NINCX,INCX - STEMP = STEMP + ABS(REAL(CX(I))) + ABS(AIMAG(CX(I))) - 10 CONTINUE - SCASUM = STEMP - RETURN + DO I = 1,N + STEMP = STEMP + ABS(REAL(CX(I))) + ABS(AIMAG(CX(I))) + END DO + ELSE * -* code for increment equal to 1 +* code for increment not equal to 1 * - 20 DO 30 I = 1,N - STEMP = STEMP + ABS(REAL(CX(I))) + ABS(AIMAG(CX(I))) - 30 CONTINUE + NINCX = N*INCX + DO I = 1,NINCX,INCX + STEMP = STEMP + ABS(REAL(CX(I))) + ABS(AIMAG(CX(I))) + END DO + END IF SCASUM = STEMP RETURN END |