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

Fix implicit conversions and unused variables (Reference-LAPACK PR 703)

This commit is contained in:
Martin Kroeker 2022-11-13 20:33:20 +01:00 committed by GitHub
parent a485e4f515
commit c99d27ae45
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
6 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lapack-netlib/TESTING/EIG/cdrvsg.f
View File

@ -663,8 +663,8 @@
IL = 1 IL = 1
IU = N IU = N
ELSE ELSE
IL = 1 + ( N-1 )*SLARND( 1, ISEED2 ) IL = 1 + INT( ( N-1 )*SLARND( 1, ISEED2 ) )
IU = 1 + ( N-1 )*SLARND( 1, ISEED2 ) IU = 1 + INT( ( N-1 )*SLARND( 1, ISEED2 ) )
IF( IL.GT.IU ) THEN IF( IL.GT.IU ) THEN
ITEMP = IL ITEMP = IL
IL = IU IL = IU

2
lapack-netlib/TESTING/EIG/cget37.f
View File

@ -265,7 +265,7 @@
100 CONTINUE 100 CONTINUE
WSRT( KMIN ) = WSRT( I ) WSRT( KMIN ) = WSRT( I )
WSRT( I ) = VMIN WSRT( I ) = VMIN
VCMIN = WTMP( I ) VCMIN = REAL( WTMP( I ) )
WTMP( I ) = W( KMIN ) WTMP( I ) = W( KMIN )
WTMP( KMIN ) = VCMIN WTMP( KMIN ) = VCMIN
VMIN = STMP( KMIN ) VMIN = STMP( KMIN )

4
lapack-netlib/TESTING/EIG/ddrvsg.f
View File

@ -645,8 +645,8 @@
IL = 1 IL = 1
IU = N IU = N
ELSE ELSE
IL = 1 + ( N-1 )*DLARND( 1, ISEED2 ) IL = 1 + INT( ( N-1 )*DLARND( 1, ISEED2 ) )
IU = 1 + ( N-1 )*DLARND( 1, ISEED2 ) IU = 1 + INT( ( N-1 )*DLARND( 1, ISEED2 ) )
IF( IL.GT.IU ) THEN IF( IL.GT.IU ) THEN
ITEMP = IL ITEMP = IL
IL = IU IL = IU

4
lapack-netlib/TESTING/EIG/sdrvsg.f
View File

@ -645,8 +645,8 @@
IL = 1 IL = 1
IU = N IU = N
ELSE ELSE
IL = 1 + ( N-1 )*SLARND( 1, ISEED2 ) IL = 1 + INT( ( N-1 )*SLARND( 1, ISEED2 ) )
IU = 1 + ( N-1 )*SLARND( 1, ISEED2 ) IU = 1 + INT( ( N-1 )*SLARND( 1, ISEED2 ) )
IF( IL.GT.IU ) THEN IF( IL.GT.IU ) THEN
ITEMP = IL ITEMP = IL
IL = IU IL = IU

4
lapack-netlib/TESTING/EIG/zdrvsg.f
View File

@ -663,8 +663,8 @@
IL = 1 IL = 1
IU = N IU = N
ELSE ELSE
IL = 1 + ( N-1 )*DLARND( 1, ISEED2 ) IL = 1 + INT( ( N-1 )*DLARND( 1, ISEED2 ) )
IU = 1 + ( N-1 )*DLARND( 1, ISEED2 ) IU = 1 + INT( ( N-1 )*DLARND( 1, ISEED2 ) )
IF( IL.GT.IU ) THEN IF( IL.GT.IU ) THEN
ITEMP = IL ITEMP = IL
IL = IU IL = IU

2
lapack-netlib/TESTING/EIG/zget37.f
View File

@ -265,7 +265,7 @@
100 CONTINUE 100 CONTINUE
WSRT( KMIN ) = WSRT( I ) WSRT( KMIN ) = WSRT( I )
WSRT( I ) = VMIN WSRT( I ) = VMIN
VCMIN = WTMP( I ) VCMIN = DBLE( WTMP( I ) )
WTMP( I ) = W( KMIN ) WTMP( I ) = W( KMIN )
WTMP( KMIN ) = VCMIN WTMP( KMIN ) = VCMIN
VMIN = STMP( KMIN ) VMIN = STMP( KMIN )