diff options
author | julie <julielangou@users.noreply.github.com> | 2016-04-29 02:47:17 +0000 |
---|---|---|
committer | julie <julielangou@users.noreply.github.com> | 2016-04-29 02:47:17 +0000 |
commit | 6cfa4785be8368938ab4da6b701ebf784910c156 (patch) | |
tree | 2fdfb02193d0b4858e7115e03ea599c419140a2f /SRC/cuncsd.f | |
parent | f46ce64a4f7e1187047f1a527ffbca919e97fe40 (diff) | |
download | lapack-6cfa4785be8368938ab4da6b701ebf784910c156.tar.gz lapack-6cfa4785be8368938ab4da6b701ebf784910c156.tar.bz2 lapack-6cfa4785be8368938ab4da6b701ebf784910c156.zip |
Fix CUNCSD: Illegal use of integer for array argument - [Forum 4956, reported by nathanw]
In the CUNCSD function I saw an illegal use of an integer for an array argument.
To fix I replaced 0 with U1 in 4th argument of CUNGQR and CUNGLQ to be consistent with ZUNCSD.
SRC/cuncsd.f:491,496
Diffstat (limited to 'SRC/cuncsd.f')
-rw-r--r-- | SRC/cuncsd.f | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/SRC/cuncsd.f b/SRC/cuncsd.f index ca3922da..dd785857 100644 --- a/SRC/cuncsd.f +++ b/SRC/cuncsd.f @@ -488,12 +488,12 @@ ITAUQ1 = ITAUP2 + MAX( 1, M - P ) ITAUQ2 = ITAUQ1 + MAX( 1, Q ) IORGQR = ITAUQ2 + MAX( 1, M - Q ) - CALL CUNGQR( M-Q, M-Q, M-Q, 0, MAX(1,M-Q), U1, WORK, -1, + CALL CUNGQR( M-Q, M-Q, M-Q, U1, MAX(1,M-Q), U1, WORK, -1, $ CHILDINFO ) LORGQRWORKOPT = INT( WORK(1) ) LORGQRWORKMIN = MAX( 1, M - Q ) IORGLQ = ITAUQ2 + MAX( 1, M - Q ) - CALL CUNGLQ( M-Q, M-Q, M-Q, 0, MAX(1,M-Q), U1, WORK, -1, + CALL CUNGLQ( M-Q, M-Q, M-Q, U1, MAX(1,M-Q), U1, WORK, -1, $ CHILDINFO ) LORGLQWORKOPT = INT( WORK(1) ) LORGLQWORKMIN = MAX( 1, M - Q ) |