diff options
| author | Kirana Bergstrom <kirana.bergstrom@intel.com> | 2017-03-28 16:24:50 -0700 |
|---|---|---|
| committer | Kirana Bergstrom <kirana.bergstrom@intel.com> | 2017-03-28 16:24:50 -0700 |
| commit | 000ae65a7e632a4d86fab9bc2de90c9deb2d4240 (patch) | |
| tree | eabf6daa001f3d3c9e92173bcee405bebdf470d2 | |
| parent | 079d441cc0bef68897599903f03d6c476c593f82 (diff) | |
| download | lapack-000ae65a7e632a4d86fab9bc2de90c9deb2d4240.tar.gz lapack-000ae65a7e632a4d86fab9bc2de90c9deb2d4240.tar.bz2 lapack-000ae65a7e632a4d86fab9bc2de90c9deb2d4240.zip | |
took out extra spaces, added workspace calculation condition
| -rw-r--r-- | SRC/dbdsdc.f | 2 | ||||
| -rw-r--r-- | SRC/sbdsdc.f | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/SRC/dbdsdc.f b/SRC/dbdsdc.f index 6aef7401..edc8724a 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 21c0b640..c5317ec1 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 |