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

Fix actual arguments in some LAPACK procedure calls (Reference-LAPACK PR 885) (#4155)

Browse Source 
* Fix actual arguments (Reference-LAPACK PR 885)
This commit is contained in:
Martin Kroeker
2023-07-22 23:14:25 +02:00
committed by GitHub
parent bd01dc354b
commit 25037ae875
18 changed files with 117 additions and 105 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
lapack-netlib/SRC/cgelqt3.f
View File

@@ -159,7 +159,8 @@
*
* Compute Householder transform when M=1
*
CALL CLARFG( N, A, A( 1, MIN( 2, N ) ), LDA, T )
CALL CLARFG( N, A( 1, 1 ), A( 1, MIN( 2, N ) ), LDA,
& T( 1, 1 ) )
T(1,1)=CONJG(T(1,1))
*
ELSE

3
lapack-netlib/SRC/dgelqt3.f
View File

@@ -173,7 +173,8 @@
*
* Compute Householder transform when M=1
*
CALL DLARFG( N, A, A( 1, MIN( 2, N ) ), LDA, T )
CALL DLARFG( N, A ( 1, 1 ), A( 1, MIN( 2, N ) ), LDA,
& T( 1, 1) )
*
ELSE
*

7
lapack-netlib/SRC/dlatrs.f
View File

@@ -261,6 +261,9 @@
DOUBLE PRECISION BIGNUM, GROW, REC, SMLNUM, SUMJ, TJJ, TJJS,
$ TMAX, TSCAL, USCAL, XBND, XJ, XMAX
* ..
* .. Local Arrays ..
DOUBLE PRECISION WORK(1)
* ..
* .. External Functions ..
LOGICAL LSAME
INTEGER IDAMAX
@@ -362,7 +365,7 @@
* A is upper triangular.
*
DO J = 2, N
TMAX = MAX( DLANGE( 'M', J-1, 1, A( 1, J ), 1, SUMJ ),
TMAX = MAX( DLANGE( 'M', J-1, 1, A( 1, J ), 1, WORK ),
$ TMAX )
END DO
ELSE
@@ -371,7 +374,7 @@
*
DO J = 1, N - 1
TMAX = MAX( DLANGE( 'M', N-J, 1, A( J+1, J ), 1,
$ SUMJ ), TMAX )
$ WORK ), TMAX )
END DO
END IF
*

2
lapack-netlib/SRC/dtrsyl3.f
View File

@@ -1220,7 +1220,7 @@
*
SCALOC = MIN( BIGNUM / SCAL, ONE / BUF )
BUF = BUF * SCALOC
CALL DLASCL( 'G', -1, -1, ONE, SCALOC, M, N, C, LDC, IWORK )
CALL DLASCL( 'G', -1, -1, ONE, SCALOC, M, N, C, LDC, IWORK(1) )
END IF
*
* Combine with buffer scaling factor. SCALE will be flushed if

3
lapack-netlib/SRC/sgelqt3.f
View File

@@ -158,7 +158,8 @@
*
* Compute Householder transform when M=1
*
CALL SLARFG( N, A, A( 1, MIN( 2, N ) ), LDA, T )
CALL SLARFG( N, A( 1, 1 ), A( 1, MIN( 2, N ) ), LDA,
& T( 1, 1 ) )
*
ELSE
*

7
lapack-netlib/SRC/slatrs.f
View File

@@ -261,6 +261,9 @@
REAL BIGNUM, GROW, REC, SMLNUM, SUMJ, TJJ, TJJS,
$ TMAX, TSCAL, USCAL, XBND, XJ, XMAX
* ..
* .. Local Arrays ..
REAL WORK (1)
* ..
* .. External Functions ..
LOGICAL LSAME
INTEGER ISAMAX
@@ -362,7 +365,7 @@
* A is upper triangular.
*
DO J = 2, N
TMAX = MAX( SLANGE( 'M', J-1, 1, A( 1, J ), 1, SUMJ ),
TMAX = MAX( SLANGE( 'M', J-1, 1, A( 1, J ), 1, WORK ),
$ TMAX )
END DO
ELSE
@@ -371,7 +374,7 @@
*
DO J = 1, N - 1
TMAX = MAX( SLANGE( 'M', N-J, 1, A( J+1, J ), 1,
$ SUMJ ), TMAX )
$ WORK ), TMAX )
END DO
END IF
*

2
lapack-netlib/SRC/strsyl3.f
View File

@@ -1223,7 +1223,7 @@
*
SCALOC = MIN( BIGNUM / SCAL, ONE / BUF )
BUF = BUF * SCALOC
CALL SLASCL( 'G', -1, -1, ONE, SCALOC, M, N, C, LDC, IWORK )
CALL SLASCL( 'G', -1, -1, ONE, SCALOC, M, N, C, LDC, IWORK(1) )
END IF
*
* Combine with buffer scaling factor. SCALE will be flushed if

3
lapack-netlib/SRC/zgelqt3.f
View File

@@ -174,7 +174,8 @@
*
* Compute Householder transform when M=1
*
CALL ZLARFG( N, A, A( 1, MIN( 2, N ) ), LDA, T )
CALL ZLARFG( N, A( 1, 1 ), A( 1, MIN( 2, N ) ), LDA,
& T( 1, 1 ) )
T(1,1)=CONJG(T(1,1))
*
ELSE