phynexis-deps/lapack
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Merge pull request #1347 from ACSimon33/random_il_iu_selection

Browse Source
This commit is contained in:
langou
2026-08-01 21:27:12 -06:00
committed by GitHub
parent 9b124563b8 f955756bf5
commit fad42f8ece
30 changed files with 92 additions and 92 deletions
Download Patch File Download Diff File Expand all files Collapse all files
TESTING/EIG/cchkst.f
+6 -6
View File
@@ -1353,8 +1353,8 @@
IL = 1
IU = N
ELSE
IL = 1 + ( N-1 )*INT( SLARND( 1, ISEED2 ) )
IU = 1 + ( N-1 )*INT( SLARND( 1, ISEED2 ) )
IL = 1 + INT( REAL( N )*SLARND( 1, ISEED2 ) )
IU = 1 + INT( REAL( N )*SLARND( 1, ISEED2 ) )
IF( IU.LT.IL ) THEN
ITEMP = IU
IU = IL
@@ -1617,8 +1617,8 @@
*
RESULT( 27 ) = TEMP1 / TEMP2
*
IL = 1 + ( N-1 )*INT( SLARND( 1, ISEED2 ) )
IU = 1 + ( N-1 )*INT( SLARND( 1, ISEED2 ) )
IL = 1 + INT( REAL( N )*SLARND( 1, ISEED2 ) )
IU = 1 + INT( REAL( N )*SLARND( 1, ISEED2 ) )
IF( IU.LT.IL ) THEN
ITEMP = IU
IU = IL
@@ -1677,8 +1677,8 @@
*
IF( CRANGE ) THEN
NTEST = 29
IL = 1 + ( N-1 )*INT( SLARND( 1, ISEED2 ) )
IU = 1 + ( N-1 )*INT( SLARND( 1, ISEED2 ) )
IL = 1 + INT( REAL( N )*SLARND( 1, ISEED2 ) )
IU = 1 + INT( REAL( N )*SLARND( 1, ISEED2 ) )
IF( IU.LT.IL ) THEN
ITEMP = IU
IU = IL
TESTING/EIG/cchkst2stg.f
+6 -6
View File
@@ -1444,8 +1444,8 @@
IL = 1
IU = N
ELSE
IL = 1 + ( N-1 )*INT( SLARND( 1, ISEED2 ) )
IU = 1 + ( N-1 )*INT( SLARND( 1, ISEED2 ) )
IL = 1 + INT( REAL( N )*SLARND( 1, ISEED2 ) )
IU = 1 + INT( REAL( N )*SLARND( 1, ISEED2 ) )
IF( IU.LT.IL ) THEN
ITEMP = IU
IU = IL
@@ -1707,8 +1707,8 @@
*
RESULT( 27 ) = TEMP1 / TEMP2
*
IL = 1 + ( N-1 )*INT( SLARND( 1, ISEED2 ) )
IU = 1 + ( N-1 )*INT( SLARND( 1, ISEED2 ) )
IL = 1 + INT( REAL( N )*SLARND( 1, ISEED2 ) )
IU = 1 + INT( REAL( N )*SLARND( 1, ISEED2 ) )
IF( IU.LT.IL ) THEN
ITEMP = IU
IU = IL
@@ -1766,8 +1766,8 @@
*
IF( CRANGE ) THEN
NTEST = 29
IL = 1 + ( N-1 )*INT( SLARND( 1, ISEED2 ) )
IU = 1 + ( N-1 )*INT( SLARND( 1, ISEED2 ) )
IL = 1 + INT( REAL( N )*SLARND( 1, ISEED2 ) )
IU = 1 + INT( REAL( N )*SLARND( 1, ISEED2 ) )
IF( IU.LT.IL ) THEN
ITEMP = IU
IU = IL
TESTING/EIG/cdrvbd.f
+2 -2
View File
@@ -1140,8 +1140,8 @@
IL = 1
IU = MAX( 1, MNMIN )
ELSE
IL = 1 + INT( REAL( MNMIN-1 )*SLARND( 1, ISEED2 ) )
IU = 1 + INT( REAL( MNMIN-1 )*SLARND( 1, ISEED2 ) )
IL = 1 + INT( REAL( MNMIN )*SLARND( 1, ISEED2 ) )
IU = 1 + INT( REAL( MNMIN )*SLARND( 1, ISEED2 ) )
IF( IU.LT.IL ) THEN
ITEMP = IU
IU = IL
TESTING/EIG/cdrvsg.f
+2 -2
View File
@@ -663,8 +663,8 @@
IL = 1
IU = N
ELSE
IL = 1 + INT( REAL( N-1 )*SLARND( 1, ISEED2 ) )
IU = 1 + INT( REAL( N-1 )*SLARND( 1, ISEED2 ) )
IL = 1 + INT( REAL( N )*SLARND( 1, ISEED2 ) )
IU = 1 + INT( REAL( N )*SLARND( 1, ISEED2 ) )
IF( IL.GT.IU ) THEN
ITEMP = IL
IL = IU
TESTING/EIG/cdrvsg2stg.f
+2 -2
View File
@@ -671,8 +671,8 @@
IL = 1
IU = N
ELSE
IL = 1 + INT( REAL( N-1 )*SLARND( 1, ISEED2 ) )
IU = 1 + INT( REAL( N-1 )*SLARND( 1, ISEED2 ) )
IL = 1 + INT( REAL( N )*SLARND( 1, ISEED2 ) )
IU = 1 + INT( REAL( N )*SLARND( 1, ISEED2 ) )
IF( IL.GT.IU ) THEN
ITEMP = IL
IL = IU
TESTING/EIG/cdrvst.f
+2 -2
View File
@@ -630,8 +630,8 @@
IL = 1
IU = N
ELSE
IL = 1 + INT( REAL( N-1 )*SLARND( 1, ISEED2 ) )
IU = 1 + INT( REAL( N-1 )*SLARND( 1, ISEED2 ) )
IL = 1 + INT( REAL( N )*SLARND( 1, ISEED2 ) )
IU = 1 + INT( REAL( N )*SLARND( 1, ISEED2 ) )
IF( IL.GT.IU ) THEN
ITEMP = IL
IL = IU
TESTING/EIG/cdrvst2stg.f
+2 -2
View File
@@ -632,8 +632,8 @@
IL = 1
IU = N
ELSE
IL = 1 + INT( REAL( N-1 )*SLARND( 1, ISEED2 ) )
IU = 1 + INT( REAL( N-1 )*SLARND( 1, ISEED2 ) )
IL = 1 + INT( REAL( N )*SLARND( 1, ISEED2 ) )
IU = 1 + INT( REAL( N )*SLARND( 1, ISEED2 ) )
IF( IL.GT.IU ) THEN
ITEMP = IL
IL = IU
TESTING/EIG/dchkbd.f
+2 -2
View File
@@ -1261,8 +1261,8 @@
IL = 1
IU = MNMIN
ELSE
IL = 1 + INT( ( MNMIN-1 )*DLARND( 1, ISEED2 ) )
IU = 1 + INT( ( MNMIN-1 )*DLARND( 1, ISEED2 ) )
IL = 1 + INT( MNMIN*DLARND( 1, ISEED2 ) )
IU = 1 + INT( MNMIN*DLARND( 1, ISEED2 ) )
IF( IU.LT.IL ) THEN
ITEMP = IU
IU = IL
TESTING/EIG/dchkst.f
+6 -6
View File
@@ -1337,8 +1337,8 @@
IL = 1
IU = N
ELSE
IL = 1 + ( N-1 )*INT( DLARND( 1, ISEED2 ) )
IU = 1 + ( N-1 )*INT( DLARND( 1, ISEED2 ) )
IL = 1 + INT( N*DLARND( 1, ISEED2 ) )
IU = 1 + INT( N*DLARND( 1, ISEED2 ) )
IF( IU.LT.IL ) THEN
ITEMP = IU
IU = IL
@@ -1598,8 +1598,8 @@
*
RESULT( 27 ) = TEMP1 / TEMP2
*
IL = 1 + ( N-1 )*INT( DLARND( 1, ISEED2 ) )
IU = 1 + ( N-1 )*INT( DLARND( 1, ISEED2 ) )
IL = 1 + INT( N*DLARND( 1, ISEED2 ) )
IU = 1 + INT( N*DLARND( 1, ISEED2 ) )
IF( IU.LT.IL ) THEN
ITEMP = IU
IU = IL
@@ -1658,8 +1658,8 @@
*
IF( SRANGE ) THEN
NTEST = 29
IL = 1 + ( N-1 )*INT( DLARND( 1, ISEED2 ) )
IU = 1 + ( N-1 )*INT( DLARND( 1, ISEED2 ) )
IL = 1 + INT( N*DLARND( 1, ISEED2 ) )
IU = 1 + INT( N*DLARND( 1, ISEED2 ) )
IF( IU.LT.IL ) THEN
ITEMP = IU
IU = IL
TESTING/EIG/dchkst2stg.f
+6 -6
View File
@@ -1425,8 +1425,8 @@
IL = 1
IU = N
ELSE
IL = 1 + ( N-1 )*INT( DLARND( 1, ISEED2 ) )
IU = 1 + ( N-1 )*INT( DLARND( 1, ISEED2 ) )
IL = 1 + INT( N*DLARND( 1, ISEED2 ) )
IU = 1 + INT( N*DLARND( 1, ISEED2 ) )
IF( IU.LT.IL ) THEN
ITEMP = IU
IU = IL
@@ -1686,8 +1686,8 @@
*
RESULT( 27 ) = TEMP1 / TEMP2
*
IL = 1 + ( N-1 )*INT( DLARND( 1, ISEED2 ) )
IU = 1 + ( N-1 )*INT( DLARND( 1, ISEED2 ) )
IL = 1 + INT( N*DLARND( 1, ISEED2 ) )
IU = 1 + INT( N*DLARND( 1, ISEED2 ) )
IF( IU.LT.IL ) THEN
ITEMP = IU
IU = IL
@@ -1745,8 +1745,8 @@
*
IF( SRANGE ) THEN
NTEST = 29
IL = 1 + ( N-1 )*INT( DLARND( 1, ISEED2 ) )
IU = 1 + ( N-1 )*INT( DLARND( 1, ISEED2 ) )
IL = 1 + INT( N*DLARND( 1, ISEED2 ) )
IU = 1 + INT( N*DLARND( 1, ISEED2 ) )
IF( IU.LT.IL ) THEN
ITEMP = IU
IU = IL
TESTING/EIG/ddrvbd.f
+2 -2
View File
@@ -1075,8 +1075,8 @@
IL = 1
IU = MAX( 1, MNMIN )
ELSE
IL = 1 + INT( ( MNMIN-1 )*DLARND( 1, ISEED2 ) )
IU = 1 + INT( ( MNMIN-1 )*DLARND( 1, ISEED2 ) )
IL = 1 + INT( MNMIN*DLARND( 1, ISEED2 ) )
IU = 1 + INT( MNMIN*DLARND( 1, ISEED2 ) )
IF( IU.LT.IL ) THEN
ITEMP = IU
IU = IL
TESTING/EIG/ddrvsg.f
+2 -2
View File
@@ -645,8 +645,8 @@
IL = 1
IU = N
ELSE
IL = 1 + INT( ( N-1 )*DLARND( 1, ISEED2 ) )
IU = 1 + INT( ( N-1 )*DLARND( 1, ISEED2 ) )
IL = 1 + INT( N*DLARND( 1, ISEED2 ) )
IU = 1 + INT( N*DLARND( 1, ISEED2 ) )
IF( IL.GT.IU ) THEN
ITEMP = IL
IL = IU
TESTING/EIG/ddrvsg2stg.f
+2 -2
View File
@@ -654,8 +654,8 @@
IL = 1
IU = N
ELSE
IL = 1 + INT( ( N-1 )*DLARND( 1, ISEED2 ) )
IU = 1 + INT( ( N-1 )*DLARND( 1, ISEED2 ) )
IL = 1 + INT( N*DLARND( 1, ISEED2 ) )
IU = 1 + INT( N*DLARND( 1, ISEED2 ) )
IF( IL.GT.IU ) THEN
ITEMP = IL
IL = IU
TESTING/EIG/ddrvst.f
+2 -2
View File
@@ -759,8 +759,8 @@ c LIWEDC = 12
IL = 1
IU = N
ELSE
IL = 1 + ( N-1 )*INT( DLARND( 1, ISEED2 ) )
IU = 1 + ( N-1 )*INT( DLARND( 1, ISEED2 ) )
IL = 1 + INT( N*DLARND( 1, ISEED2 ) )
IU = 1 + INT( N*DLARND( 1, ISEED2 ) )
IF( IL.GT.IU ) THEN
ITEMP = IL
IL = IU
TESTING/EIG/ddrvst2stg.f
+2 -2
View File
@@ -761,8 +761,8 @@ c LIWEDC = 12
IL = 1
IU = N
ELSE
IL = 1 + INT( ( N-1 )*DLARND( 1, ISEED2 ) )
IU = 1 + INT( ( N-1 )*DLARND( 1, ISEED2 ) )
IL = 1 + INT( N*DLARND( 1, ISEED2 ) )
IU = 1 + INT( N*DLARND( 1, ISEED2 ) )
IF( IL.GT.IU ) THEN
ITEMP = IL
IL = IU
TESTING/EIG/schkbd.f
+2 -2
View File
@@ -1261,8 +1261,8 @@
IL = 1
IU = MNMIN
ELSE
IL = 1 + INT( REAL( MNMIN-1 )*SLARND( 1, ISEED2 ) )
IU = 1 + INT( REAL( MNMIN-1 )*SLARND( 1, ISEED2 ) )
IL = 1 + INT( REAL( MNMIN )*SLARND( 1, ISEED2 ) )
IU = 1 + INT( REAL( MNMIN )*SLARND( 1, ISEED2 ) )
IF( IU.LT.IL ) THEN
ITEMP = IU
IU = IL
TESTING/EIG/schkst.f
+6 -6
View File
@@ -1337,8 +1337,8 @@
IL = 1
IU = N
ELSE
IL = 1 + ( N-1 )*INT( SLARND( 1, ISEED2 ) )
IU = 1 + ( N-1 )*INT( SLARND( 1, ISEED2 ) )
IL = 1 + INT( REAL( N )*SLARND( 1, ISEED2 ) )
IU = 1 + INT( REAL( N )*SLARND( 1, ISEED2 ) )
IF( IU.LT.IL ) THEN
ITEMP = IU
IU = IL
@@ -1598,8 +1598,8 @@
*
RESULT( 27 ) = TEMP1 / TEMP2
*
IL = 1 + ( N-1 )*INT( SLARND( 1, ISEED2 ) )
IU = 1 + ( N-1 )*INT( SLARND( 1, ISEED2 ) )
IL = 1 + INT( REAL( N )*SLARND( 1, ISEED2 ) )
IU = 1 + INT( REAL( N )*SLARND( 1, ISEED2 ) )
IF( IU.LT.IL ) THEN
ITEMP = IU
IU = IL
@@ -1658,8 +1658,8 @@
*
IF( SRANGE ) THEN
NTEST = 29
IL = 1 + ( N-1 )*INT( SLARND( 1, ISEED2 ) )
IU = 1 + ( N-1 )*INT( SLARND( 1, ISEED2 ) )
IL = 1 + INT( REAL( N )*SLARND( 1, ISEED2 ) )
IU = 1 + INT( REAL( N )*SLARND( 1, ISEED2 ) )
IF( IU.LT.IL ) THEN
ITEMP = IU
IU = IL
TESTING/EIG/schkst2stg.f
+6 -6
View File
@@ -1426,8 +1426,8 @@
IL = 1
IU = N
ELSE
IL = 1 + ( N-1 )*INT( SLARND( 1, ISEED2 ) )
IU = 1 + ( N-1 )*INT( SLARND( 1, ISEED2 ) )
IL = 1 + INT( REAL( N )*SLARND( 1, ISEED2 ) )
IU = 1 + INT( REAL( N )*SLARND( 1, ISEED2 ) )
IF( IU.LT.IL ) THEN
ITEMP = IU
IU = IL
@@ -1688,8 +1688,8 @@
*
RESULT( 27 ) = TEMP1 / TEMP2
*
IL = 1 + ( N-1 )*INT( SLARND( 1, ISEED2 ) )
IU = 1 + ( N-1 )*INT( SLARND( 1, ISEED2 ) )
IL = 1 + INT( REAL( N )*SLARND( 1, ISEED2 ) )
IU = 1 + INT( REAL( N )*SLARND( 1, ISEED2 ) )
IF( IU.LT.IL ) THEN
ITEMP = IU
IU = IL
@@ -1747,8 +1747,8 @@
*
IF( SRANGE ) THEN
NTEST = 29
IL = 1 + ( N-1 )*INT( SLARND( 1, ISEED2 ) )
IU = 1 + ( N-1 )*INT( SLARND( 1, ISEED2 ) )
IL = 1 + INT( REAL( N )*SLARND( 1, ISEED2 ) )
IU = 1 + INT( REAL( N )*SLARND( 1, ISEED2 ) )
IF( IU.LT.IL ) THEN
ITEMP = IU
IU = IL
TESTING/EIG/sdrvbd.f
+2 -2
View File
@@ -1075,8 +1075,8 @@
IL = 1
IU = MAX( 1, MNMIN )
ELSE
IL = 1 + INT( REAL( MNMIN-1 )*SLARND( 1, ISEED2 ) )
IU = 1 + INT( REAL( MNMIN-1 )*SLARND( 1, ISEED2 ) )
IL = 1 + INT( REAL( MNMIN )*SLARND( 1, ISEED2 ) )
IU = 1 + INT( REAL( MNMIN )*SLARND( 1, ISEED2 ) )
IF( IU.LT.IL ) THEN
ITEMP = IU
IU = IL
TESTING/EIG/sdrvsg.f
+2 -2
View File
@@ -645,8 +645,8 @@
IL = 1
IU = N
ELSE
IL = 1 + INT( REAL( N-1 )*SLARND( 1, ISEED2 ) )
IU = 1 + INT( REAL( N-1 )*SLARND( 1, ISEED2 ) )
IL = 1 + INT( REAL( N )*SLARND( 1, ISEED2 ) )
IU = 1 + INT( REAL( N )*SLARND( 1, ISEED2 ) )
IF( IL.GT.IU ) THEN
ITEMP = IL
IL = IU
TESTING/EIG/sdrvsg2stg.f
+2 -2
View File
@@ -654,8 +654,8 @@
IL = 1
IU = N
ELSE
IL = 1 + INT( REAL( N-1 )*SLARND( 1, ISEED2 ) )
IU = 1 + INT( REAL( N-1 )*SLARND( 1, ISEED2 ) )
IL = 1 + INT( REAL( N )*SLARND( 1, ISEED2 ) )
IU = 1 + INT( REAL( N )*SLARND( 1, ISEED2 ) )
IF( IL.GT.IU ) THEN
ITEMP = IL
IL = IU
TESTING/EIG/sdrvst.f
+2 -2
View File
@@ -759,8 +759,8 @@ c LIWEDC = 12
IL = 1
IU = N
ELSE
IL = 1 + INT( REAL( N-1 )*SLARND( 1, ISEED2 ) )
IU = 1 + INT( REAL( N-1 )*SLARND( 1, ISEED2 ) )
IL = 1 + INT( REAL( N )*SLARND( 1, ISEED2 ) )
IU = 1 + INT( REAL( N )*SLARND( 1, ISEED2 ) )
IF( IL.GT.IU ) THEN
ITEMP = IL
IL = IU
TESTING/EIG/sdrvst2stg.f
+2 -2
View File
@@ -761,8 +761,8 @@ c LIWEDC = 12
IL = 1
IU = N
ELSE
IL = 1 + INT( REAL( N-1 )*SLARND( 1, ISEED2 ) )
IU = 1 + INT( REAL( N-1 )*SLARND( 1, ISEED2 ) )
IL = 1 + INT( REAL( N )*SLARND( 1, ISEED2 ) )
IU = 1 + INT( REAL( N )*SLARND( 1, ISEED2 ) )
IF( IL.GT.IU ) THEN
ITEMP = IL
IL = IU
TESTING/EIG/zchkst.f
+6 -6
View File
@@ -1353,8 +1353,8 @@
IL = 1
IU = N
ELSE
IL = 1 + ( N-1 )*INT( DLARND( 1, ISEED2 ) )
IU = 1 + ( N-1 )*INT( DLARND( 1, ISEED2 ) )
IL = 1 + INT( N*DLARND( 1, ISEED2 ) )
IU = 1 + INT( N*DLARND( 1, ISEED2 ) )
IF( IU.LT.IL ) THEN
ITEMP = IU
IU = IL
@@ -1616,8 +1616,8 @@
*
RESULT( 27 ) = TEMP1 / TEMP2
*
IL = 1 + ( N-1 )*INT( DLARND( 1, ISEED2 ) )
IU = 1 + ( N-1 )*INT( DLARND( 1, ISEED2 ) )
IL = 1 + INT( N*DLARND( 1, ISEED2 ) )
IU = 1 + INT( N*DLARND( 1, ISEED2 ) )
IF( IU.LT.IL ) THEN
ITEMP = IU
IU = IL
@@ -1676,8 +1676,8 @@
*
IF( CRANGE ) THEN
NTEST = 29
IL = 1 + ( N-1 )*INT( DLARND( 1, ISEED2 ) )
IU = 1 + ( N-1 )*INT( DLARND( 1, ISEED2 ) )
IL = 1 + INT( N*DLARND( 1, ISEED2 ) )
IU = 1 + INT( N*DLARND( 1, ISEED2 ) )
IF( IU.LT.IL ) THEN
ITEMP = IU
IU = IL
TESTING/EIG/zchkst2stg.f
+6 -6
View File
@@ -1443,8 +1443,8 @@
IL = 1
IU = N
ELSE
IL = 1 + ( N-1 )*INT( DLARND( 1, ISEED2 ) )
IU = 1 + ( N-1 )*INT( DLARND( 1, ISEED2 ) )
IL = 1 + INT( N*DLARND( 1, ISEED2 ) )
IU = 1 + INT( N*DLARND( 1, ISEED2 ) )
IF( IU.LT.IL ) THEN
ITEMP = IU
IU = IL
@@ -1706,8 +1706,8 @@
*
RESULT( 27 ) = TEMP1 / TEMP2
*
IL = 1 + ( N-1 )*INT( DLARND( 1, ISEED2 ) )
IU = 1 + ( N-1 )*INT( DLARND( 1, ISEED2 ) )
IL = 1 + INT( N*DLARND( 1, ISEED2 ) )
IU = 1 + INT( N*DLARND( 1, ISEED2 ) )
IF( IU.LT.IL ) THEN
ITEMP = IU
IU = IL
@@ -1765,8 +1765,8 @@
*
IF( CRANGE ) THEN
NTEST = 29
IL = 1 + ( N-1 )*INT( DLARND( 1, ISEED2 ) )
IU = 1 + ( N-1 )*INT( DLARND( 1, ISEED2 ) )
IL = 1 + INT( N*DLARND( 1, ISEED2 ) )
IU = 1 + INT( N*DLARND( 1, ISEED2 ) )
IF( IU.LT.IL ) THEN
ITEMP = IU
IU = IL
TESTING/EIG/zdrvbd.f
+2 -2
View File
@@ -1139,8 +1139,8 @@
IL = 1
IU = MAX( 1, MNMIN )
ELSE
IL = 1 + INT( ( MNMIN-1 )*DLARND( 1, ISEED2 ) )
IU = 1 + INT( ( MNMIN-1 )*DLARND( 1, ISEED2 ) )
IL = 1 + INT( MNMIN*DLARND( 1, ISEED2 ) )
IU = 1 + INT( MNMIN*DLARND( 1, ISEED2 ) )
IF( IU.LT.IL ) THEN
ITEMP = IU
IU = IL
TESTING/EIG/zdrvsg.f
+2 -2
View File
@@ -663,8 +663,8 @@
IL = 1
IU = N
ELSE
IL = 1 + INT( ( N-1 )*DLARND( 1, ISEED2 ) )
IU = 1 + INT( ( N-1 )*DLARND( 1, ISEED2 ) )
IL = 1 + INT( N*DLARND( 1, ISEED2 ) )
IU = 1 + INT( N*DLARND( 1, ISEED2 ) )
IF( IL.GT.IU ) THEN
ITEMP = IL
IL = IU
TESTING/EIG/zdrvsg2stg.f
+2 -2
View File
@@ -671,8 +671,8 @@
IL = 1
IU = N
ELSE
IL = 1 + INT( ( N-1 )*DLARND( 1, ISEED2 ) )
IU = 1 + INT( ( N-1 )*DLARND( 1, ISEED2 ) )
IL = 1 + INT( N*DLARND( 1, ISEED2 ) )
IU = 1 + INT( N*DLARND( 1, ISEED2 ) )
IF( IL.GT.IU ) THEN
ITEMP = IL
IL = IU
TESTING/EIG/zdrvst.f
+2 -2
View File
@@ -630,8 +630,8 @@
IL = 1
IU = N
ELSE
IL = 1 + INT( ( N-1 )*DLARND( 1, ISEED2 ) )
IU = 1 + INT( ( N-1 )*DLARND( 1, ISEED2 ) )
IL = 1 + INT( N*DLARND( 1, ISEED2 ) )
IU = 1 + INT( N*DLARND( 1, ISEED2 ) )
IF( IL.GT.IU ) THEN
ITEMP = IL
IL = IU
TESTING/EIG/zdrvst2stg.f
+2 -2
View File
@@ -632,8 +632,8 @@
IL = 1
IU = N
ELSE
IL = 1 + INT( ( N-1 )*DLARND( 1, ISEED2 ) )
IU = 1 + INT( ( N-1 )*DLARND( 1, ISEED2 ) )
IL = 1 + INT( N*DLARND( 1, ISEED2 ) )
IU = 1 + INT( N*DLARND( 1, ISEED2 ) )
IF( IL.GT.IU ) THEN
ITEMP = IL
IL = IU