Fix implicit conversions and unused variables (Reference-LAPACK PR 703)
This commit is contained in:
parent
a485e4f515
commit
c99d27ae45
|
@ -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
|
||||
|
|
|
@ -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 )
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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 )
|
||||
|
|
Loading…
Reference in New Issue