floraachy
/
OpenBLAS
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Expand TAU array as SGEMQR/DGEMQR read elements 2 and 3

This commit is contained in:
Martin Kroeker 2020-08-09 12:59:20 +02:00 committed by GitHub
parent 9eb897cc01
commit 6f5ca44c1a
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lapack-netlib/TESTING/LIN/derrtsqr.f
View File

@ -77,7 +77,7 @@
* .. * ..
* .. Local Arrays .. * .. Local Arrays ..
DOUBLE PRECISION A( NMAX, NMAX ), T( NMAX, NMAX ), W( NMAX ), DOUBLE PRECISION A( NMAX, NMAX ), T( NMAX, NMAX ), W( NMAX ),
$ C( NMAX, NMAX ), TAU(NMAX) $ C( NMAX, NMAX ), TAU(NMAX*2)
* .. * ..
* .. External Subroutines .. * .. External Subroutines ..
EXTERNAL ALAESM, CHKXER, DGEQR, EXTERNAL ALAESM, CHKXER, DGEQR,
@ -137,6 +137,8 @@
* *
TAU(1)=1 TAU(1)=1
TAU(2)=1 TAU(2)=1
TAU(3)=1
TAU(4)=1
SRNAMT = 'DGEMQR' SRNAMT = 'DGEMQR'
NB=1 NB=1
INFOT = 1 INFOT = 1

4
lapack-netlib/TESTING/LIN/serrtsqr.f
View File

@ -77,7 +77,7 @@
* .. * ..
* .. Local Arrays .. * .. Local Arrays ..
REAL A( NMAX, NMAX ), T( NMAX, NMAX ), W( NMAX ), REAL A( NMAX, NMAX ), T( NMAX, NMAX ), W( NMAX ),
$ C( NMAX, NMAX ), TAU(NMAX) $ C( NMAX, NMAX ), TAU(NMAX*2)
* .. * ..
* .. External Subroutines .. * .. External Subroutines ..
EXTERNAL ALAESM, CHKXER, SGEQR, EXTERNAL ALAESM, CHKXER, SGEQR,
@ -137,6 +137,8 @@
* *
TAU(1)=1 TAU(1)=1
TAU(2)=1 TAU(2)=1
TAU(3)=1
TAU(4)=1
SRNAMT = 'SGEMQR' SRNAMT = 'SGEMQR'
NB=1 NB=1
INFOT = 1 INFOT = 1