OpenMathLib/OpenBLAS
1
0
Fork 0
mirror of https://github.com/OpenMathLib/OpenBLAS synced 2026-05-31 00:45:48 +08:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

Merge branch 'OpenMathLib:develop' into issue5414

Browse Source
This commit is contained in:
Martin Kroeker
2026-01-12 00:51:25 +01:00
committed by GitHub
parent 6de062cfc2 01cc6df92e
commit aafd3cb0db
5 changed files with 37 additions and 36 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
kernel/sparc/KERNEL
View File

@@ -59,7 +59,8 @@ SNRM2KERNEL = snrm2.S
endif
ifndef DNRM2KERNEL
DNRM2KERNEL = dnrm2.S
#DNRM2KERNEL = dnrm2.S
DNRM2KERNEL = ../arm/nrm2.c
endif
ifndef CNRM2KERNEL

15
lapack-netlib/TESTING/LIN/cerrtsqr.f
View File

@@ -73,8 +73,8 @@
INTEGER I, INFO, J, MB, NB
* ..
* .. Local Arrays ..
COMPLEX A( NMAX, NMAX ), T( NMAX, NMAX ), W( NMAX ),
$ C( NMAX, NMAX ), TAU(NMAX)
COMPLEX A( NMAX, NMAX ), W( NMAX ),
$ C( NMAX, NMAX ), TAU( 5 )
* ..
* .. External Subroutines ..
EXTERNAL ALAESM, CHKXER, CGEQR,
@@ -103,7 +103,6 @@
DO I = 1, NMAX
A( I, J ) = 1.E0 / CMPLX( REAL( I+J ), 0.E0 )
C( I, J ) = 1.E0 / CMPLX( REAL( I+J ), 0.E0 )
T( I, J ) = 1.E0 / CMPLX( REAL( I+J ), 0.E0 )
END DO
W( J ) = 0.E0
END DO
@@ -161,8 +160,9 @@
*
* CGEMQR
*
TAU(1)=1
TAU(2)=1
DO I = 1, 5
TAU( I ) = 1
END DO
SRNAMT = 'CGEMQR'
NB=1
INFOT = 1
@@ -251,8 +251,9 @@
*
* CGEMLQ
*
TAU(1)=1
TAU(2)=1
DO I = 1, 5
TAU( I ) = 1
END DO
SRNAMT = 'CGEMLQ'
NB=1
INFOT = 1

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

@@ -73,8 +73,8 @@
INTEGER I, INFO, J, MB, NB
* ..
* .. Local Arrays ..
DOUBLE PRECISION A( NMAX, NMAX ), T( NMAX, NMAX ), W( NMAX ),
$ C( NMAX, NMAX ), TAU(NMAX*2)
DOUBLE PRECISION A( NMAX, NMAX ), W( NMAX ),
$ C( NMAX, NMAX ), TAU( 5 )
* ..
* .. External Subroutines ..
EXTERNAL ALAESM, CHKXER, DGEQR,
@@ -103,7 +103,6 @@
DO I = 1, NMAX
A( I, J ) = 1.D0 / DBLE( I+J )
C( I, J ) = 1.D0 / DBLE( I+J )
T( I, J ) = 1.D0 / DBLE( I+J )
END DO
W( J ) = 0.D0
END DO
@@ -161,10 +160,9 @@
*
* DGEMQR
*
TAU(1)=1
TAU(2)=1
TAU(3)=1
TAU(4)=1
DO I = 1, 5
TAU( I ) = 1
END DO
SRNAMT = 'DGEMQR'
NB=1
INFOT = 1
@@ -253,8 +251,9 @@
*
* DGEMLQ
*
TAU(1)=1
TAU(2)=1
DO I = 1, 5
TAU( I ) = 1
END DO
SRNAMT = 'DGEMLQ'
NB=1
INFOT = 1

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

@@ -73,8 +73,8 @@
INTEGER I, INFO, J, MB, NB
* ..
* .. Local Arrays ..
REAL A( NMAX, NMAX ), T( NMAX, NMAX ), W( NMAX ),
$ C( NMAX, NMAX ), TAU(NMAX*2)
REAL A( NMAX, NMAX ), W( NMAX ),
$ C( NMAX, NMAX ), TAU( 5 )
* ..
* .. External Subroutines ..
EXTERNAL ALAESM, CHKXER, SGEQR,
@@ -101,11 +101,10 @@
*
DO J = 1, NMAX
DO I = 1, NMAX
A( I, J ) = 1.D0 / REAL( I+J )
C( I, J ) = 1.D0 / REAL( I+J )
T( I, J ) = 1.D0 / REAL( I+J )
A( I, J ) = 1. / REAL( I+J )
C( I, J ) = 1. / REAL( I+J )
END DO
W( J ) = 0.D0
W( J ) = 0.
END DO
OK = .TRUE.
*
@@ -161,10 +160,9 @@
*
* SGEMQR
*
TAU(1)=1
TAU(2)=1
TAU(3)=1
TAU(4)=1
DO I = 1, 5
TAU( I ) = 1
END DO
SRNAMT = 'SGEMQR'
NB=1
INFOT = 1
@@ -253,8 +251,9 @@
*
* SGEMLQ
*
TAU(1)=1
TAU(2)=1
DO I = 1, 5
TAU( I ) = 1
END DO
SRNAMT = 'SGEMLQ'
NB=1
INFOT = 1

15
lapack-netlib/TESTING/LIN/zerrtsqr.f
View File

@@ -73,8 +73,8 @@
INTEGER I, INFO, J, MB, NB
* ..
* .. Local Arrays ..
COMPLEX*16 A( NMAX, NMAX ), T( NMAX, NMAX ), W( NMAX ),
$ C( NMAX, NMAX ), TAU(NMAX)
COMPLEX*16 A( NMAX, NMAX ), W( NMAX ),
$ C( NMAX, NMAX ), TAU( 5 )
* ..
* .. External Subroutines ..
EXTERNAL ALAESM, CHKXER, ZGEQR,
@@ -103,7 +103,6 @@
DO I = 1, NMAX
A( I, J ) = 1.D0 / DBLE( I+J )
C( I, J ) = 1.D0 / DBLE( I+J )
T( I, J ) = 1.D0 / DBLE( I+J )
END DO
W( J ) = 0.D0
END DO
@@ -161,8 +160,9 @@
*
* ZGEMQR
*
TAU(1)=1
TAU(2)=1
DO I = 1, 5
TAU( I ) = 1
END DO
SRNAMT = 'ZGEMQR'
NB=1
INFOT = 1
@@ -251,8 +251,9 @@
*
* ZGEMLQ
*
TAU(1)=1
TAU(2)=1
DO I = 1, 5
TAU( I ) = 1
END DO
SRNAMT = 'ZGEMLQ'
NB=1
INFOT = 1