summaryrefslogtreecommitdiff
path: root/BLAS/SRC/scasum.f
diff options
context:
space:
mode:
authorjulie <julielangou@users.noreply.github.com>2011-03-10 23:33:40 +0000
committerjulie <julielangou@users.noreply.github.com>2011-03-10 23:33:40 +0000
commite9dac1f3c4684d925d3bfd5214125a89ef228e39 (patch)
tree2d0533814195d69c832daa63975e882f14104d34 /BLAS/SRC/scasum.f
parent1923c69f7e9857d19b67f9e9befd1b1f37c644ef (diff)
downloadlapack-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.f24
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