From 7f9f67572a8e3eafa01939caaed6f778aa2f8f78 Mon Sep 17 00:00:00 2001 From: Dmitry Klyuchinsky Date: Thu, 17 Nov 2022 19:06:00 +0700 Subject: [PATCH 1/2] fix wrong indexation in slatrs3 test --- TESTING/LIN/schktr.f | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/TESTING/LIN/schktr.f b/TESTING/LIN/schktr.f index 5aeb1ce88c..33f07726ec 100644 --- a/TESTING/LIN/schktr.f +++ b/TESTING/LIN/schktr.f @@ -559,7 +559,7 @@ SUBROUTINE SCHKTR( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, $ -1, -1, -1, IMAT, NFAIL, NERRS, NOUT ) * CALL STRT03( UPLO, TRANS, DIAG, N, 1, A, LDA, - $ SCALE3 ( 1 ), RWORK, ONE, B( N+1 ), LDA, + $ SCALE3 ( 1 ), RWORK, ONE, B( 1 ), LDA, $ X, LDA, WORK, RESULT( 10 ) ) CALL SSCAL( N, BIGNUM, X, 1 ) CALL STRT03( UPLO, TRANS, DIAG, N, 1, A, LDA, From a4dd9261efd5647488ad8c4e09790b2c46280754 Mon Sep 17 00:00:00 2001 From: Dmitry Klyuchinsky Date: Thu, 17 Nov 2022 19:10:08 +0700 Subject: [PATCH 2/2] use lsame instead EQ in iparam2stage --- SRC/iparam2stage.F | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/SRC/iparam2stage.F b/SRC/iparam2stage.F index c153eef22b..c701c2be08 100644 --- a/SRC/iparam2stage.F +++ b/SRC/iparam2stage.F @@ -178,7 +178,8 @@ INTEGER FUNCTION IPARAM2STAGE( ISPEC, NAME, OPTS, * .. * .. External Functions .. INTEGER ILAENV - EXTERNAL ILAENV + LOGICAL LSAME + EXTERNAL ILAENV, LSAME * .. * .. Executable Statements .. * @@ -310,7 +311,7 @@ INTEGER FUNCTION IPARAM2STAGE( ISPEC, NAME, OPTS, * * Will add the VECT OPTION HERE next release VECT = OPTS(1:1) - IF( VECT.EQ.'N' ) THEN + IF( LSAME( VECT, 'N' ) ) THEN LHOUS = MAX( 1, 4*NI ) ELSE * This is not correct, it need to call the ALGO and the stage2