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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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