diff --git a/TESTING/EIG/cchkst.f b/TESTING/EIG/cchkst.f index 6cb796648..790c7f5f1 100644 --- a/TESTING/EIG/cchkst.f +++ b/TESTING/EIG/cchkst.f @@ -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 diff --git a/TESTING/EIG/cchkst2stg.f b/TESTING/EIG/cchkst2stg.f index 3258575a4..fc7974e7e 100644 --- a/TESTING/EIG/cchkst2stg.f +++ b/TESTING/EIG/cchkst2stg.f @@ -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 diff --git a/TESTING/EIG/cdrvbd.f b/TESTING/EIG/cdrvbd.f index 2feb4abef..2c51a04bb 100644 --- a/TESTING/EIG/cdrvbd.f +++ b/TESTING/EIG/cdrvbd.f @@ -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 diff --git a/TESTING/EIG/cdrvsg.f b/TESTING/EIG/cdrvsg.f index 3a45deafd..3613a7dcb 100644 --- a/TESTING/EIG/cdrvsg.f +++ b/TESTING/EIG/cdrvsg.f @@ -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 diff --git a/TESTING/EIG/cdrvsg2stg.f b/TESTING/EIG/cdrvsg2stg.f index 3cba68731..744976431 100644 --- a/TESTING/EIG/cdrvsg2stg.f +++ b/TESTING/EIG/cdrvsg2stg.f @@ -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 diff --git a/TESTING/EIG/cdrvst.f b/TESTING/EIG/cdrvst.f index 62cbcbced..032a35730 100644 --- a/TESTING/EIG/cdrvst.f +++ b/TESTING/EIG/cdrvst.f @@ -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 diff --git a/TESTING/EIG/cdrvst2stg.f b/TESTING/EIG/cdrvst2stg.f index 319424af6..2c5f39a28 100644 --- a/TESTING/EIG/cdrvst2stg.f +++ b/TESTING/EIG/cdrvst2stg.f @@ -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 diff --git a/TESTING/EIG/dchkbd.f b/TESTING/EIG/dchkbd.f index bd7d94424..fa470ad00 100644 --- a/TESTING/EIG/dchkbd.f +++ b/TESTING/EIG/dchkbd.f @@ -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 diff --git a/TESTING/EIG/dchkst.f b/TESTING/EIG/dchkst.f index d8ff91f69..012aa95d4 100644 --- a/TESTING/EIG/dchkst.f +++ b/TESTING/EIG/dchkst.f @@ -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 diff --git a/TESTING/EIG/dchkst2stg.f b/TESTING/EIG/dchkst2stg.f index 9cc1052d3..a5f4d0bfa 100644 --- a/TESTING/EIG/dchkst2stg.f +++ b/TESTING/EIG/dchkst2stg.f @@ -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 diff --git a/TESTING/EIG/ddrvbd.f b/TESTING/EIG/ddrvbd.f index a0b65a6aa..7ae09b55b 100644 --- a/TESTING/EIG/ddrvbd.f +++ b/TESTING/EIG/ddrvbd.f @@ -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 diff --git a/TESTING/EIG/ddrvsg.f b/TESTING/EIG/ddrvsg.f index a1716883c..829e59e74 100644 --- a/TESTING/EIG/ddrvsg.f +++ b/TESTING/EIG/ddrvsg.f @@ -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 diff --git a/TESTING/EIG/ddrvsg2stg.f b/TESTING/EIG/ddrvsg2stg.f index 68ca74270..50d62e188 100644 --- a/TESTING/EIG/ddrvsg2stg.f +++ b/TESTING/EIG/ddrvsg2stg.f @@ -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 diff --git a/TESTING/EIG/ddrvst.f b/TESTING/EIG/ddrvst.f index 61d6973f2..fbd3ff0f7 100644 --- a/TESTING/EIG/ddrvst.f +++ b/TESTING/EIG/ddrvst.f @@ -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 diff --git a/TESTING/EIG/ddrvst2stg.f b/TESTING/EIG/ddrvst2stg.f index dfccbc964..98edf14d6 100644 --- a/TESTING/EIG/ddrvst2stg.f +++ b/TESTING/EIG/ddrvst2stg.f @@ -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 diff --git a/TESTING/EIG/schkbd.f b/TESTING/EIG/schkbd.f index 86934a757..ab4e2b1aa 100644 --- a/TESTING/EIG/schkbd.f +++ b/TESTING/EIG/schkbd.f @@ -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 diff --git a/TESTING/EIG/schkst.f b/TESTING/EIG/schkst.f index 91c0eefe7..c5c7f57c3 100644 --- a/TESTING/EIG/schkst.f +++ b/TESTING/EIG/schkst.f @@ -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 diff --git a/TESTING/EIG/schkst2stg.f b/TESTING/EIG/schkst2stg.f index fa834c6de..02d0d0194 100644 --- a/TESTING/EIG/schkst2stg.f +++ b/TESTING/EIG/schkst2stg.f @@ -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 diff --git a/TESTING/EIG/sdrvbd.f b/TESTING/EIG/sdrvbd.f index 86a293c69..450224e22 100644 --- a/TESTING/EIG/sdrvbd.f +++ b/TESTING/EIG/sdrvbd.f @@ -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 diff --git a/TESTING/EIG/sdrvsg.f b/TESTING/EIG/sdrvsg.f index 69bef8ba2..c59052b44 100644 --- a/TESTING/EIG/sdrvsg.f +++ b/TESTING/EIG/sdrvsg.f @@ -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 diff --git a/TESTING/EIG/sdrvsg2stg.f b/TESTING/EIG/sdrvsg2stg.f index 30a69ad4a..ab1990e2e 100644 --- a/TESTING/EIG/sdrvsg2stg.f +++ b/TESTING/EIG/sdrvsg2stg.f @@ -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 diff --git a/TESTING/EIG/sdrvst.f b/TESTING/EIG/sdrvst.f index 46e5c210f..002f86a49 100644 --- a/TESTING/EIG/sdrvst.f +++ b/TESTING/EIG/sdrvst.f @@ -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 diff --git a/TESTING/EIG/sdrvst2stg.f b/TESTING/EIG/sdrvst2stg.f index 474294ba8..1c1057412 100644 --- a/TESTING/EIG/sdrvst2stg.f +++ b/TESTING/EIG/sdrvst2stg.f @@ -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 diff --git a/TESTING/EIG/zchkst.f b/TESTING/EIG/zchkst.f index 63b2c2c64..4335e15f0 100644 --- a/TESTING/EIG/zchkst.f +++ b/TESTING/EIG/zchkst.f @@ -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 diff --git a/TESTING/EIG/zchkst2stg.f b/TESTING/EIG/zchkst2stg.f index c9f0c5f3b..91c7925bd 100644 --- a/TESTING/EIG/zchkst2stg.f +++ b/TESTING/EIG/zchkst2stg.f @@ -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 diff --git a/TESTING/EIG/zdrvbd.f b/TESTING/EIG/zdrvbd.f index 916dbf722..6129c23b2 100644 --- a/TESTING/EIG/zdrvbd.f +++ b/TESTING/EIG/zdrvbd.f @@ -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 diff --git a/TESTING/EIG/zdrvsg.f b/TESTING/EIG/zdrvsg.f index c82c49418..6caaba33b 100644 --- a/TESTING/EIG/zdrvsg.f +++ b/TESTING/EIG/zdrvsg.f @@ -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 diff --git a/TESTING/EIG/zdrvsg2stg.f b/TESTING/EIG/zdrvsg2stg.f index 19419409b..bcbed1858 100644 --- a/TESTING/EIG/zdrvsg2stg.f +++ b/TESTING/EIG/zdrvsg2stg.f @@ -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 diff --git a/TESTING/EIG/zdrvst.f b/TESTING/EIG/zdrvst.f index c90dc3049..bbbe32e61 100644 --- a/TESTING/EIG/zdrvst.f +++ b/TESTING/EIG/zdrvst.f @@ -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 diff --git a/TESTING/EIG/zdrvst2stg.f b/TESTING/EIG/zdrvst2stg.f index 012ae271e..47bdef496 100644 --- a/TESTING/EIG/zdrvst2stg.f +++ b/TESTING/EIG/zdrvst2stg.f @@ -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