summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKirana Bergstrom <kirana.bergstrom@intel.com>2017-03-28 23:24:50 (GMT)
committerKirana Bergstrom <kirana.bergstrom@intel.com>2017-03-28 23:24:50 (GMT)
commit000ae65a7e632a4d86fab9bc2de90c9deb2d4240 (patch)
treeeabf6daa001f3d3c9e92173bcee405bebdf470d2
parent079d441cc0bef68897599903f03d6c476c593f82 (diff)
downloadlapack-000ae65a7e632a4d86fab9bc2de90c9deb2d4240.zip
lapack-000ae65a7e632a4d86fab9bc2de90c9deb2d4240.tar.gz
lapack-000ae65a7e632a4d86fab9bc2de90c9deb2d4240.tar.bz2
took out extra spaces, added workspace calculation condition
-rw-r--r--SRC/dbdsdc.f2
-rw-r--r--SRC/sbdsdc.f4
2 files changed, 3 insertions, 3 deletions
diff --git a/SRC/dbdsdc.f b/SRC/dbdsdc.f
index 6aef740..edc8724 100644
--- a/SRC/dbdsdc.f
+++ b/SRC/dbdsdc.f
@@ -316,7 +316,7 @@
END IF
IF( IUPLO.EQ.2 ) THEN
QSTART = 5
- WSTART = 2*N - 1
+ IF( ICOMPQ .EQ. 2 ) WSTART = 2*N - 1
DO 10 I = 1, N - 1
CALL DLARTG( D( I ), E( I ), CS, SN, R )
D( I ) = R
diff --git a/SRC/sbdsdc.f b/SRC/sbdsdc.f
index 21c0b64..c5317ec 100644
--- a/SRC/sbdsdc.f
+++ b/SRC/sbdsdc.f
@@ -311,12 +311,12 @@
WSTART = 1
QSTART = 3
IF( ICOMPQ.EQ.1 ) THEN
- CALL SCOPY( N, D, 1, Q( 1 ), 1 )
+ CALL SCOPY( N, D, 1, Q( 1 ), 1 )
CALL SCOPY( N-1, E, 1, Q( N+1 ), 1 )
END IF
IF( IUPLO.EQ.2 ) THEN
QSTART = 5
- WSTART = 2*N - 1
+ IF( ICOMPQ .EQ. 2 ) WSTART = 2*N - 1
DO 10 I = 1, N - 1
CALL SLARTG( D( I ), E( I ), CS, SN, R )
D( I ) = R