Merge pull request #564 from weslleyspereira/fix-bug-in-XLAENV-in-chktsqr

weslleyspereira · web-flow · commit 956e20afae12 · 2021-05-21T13:35:56.000-03:00
IPARMS(1) and IPARMS(2) set to 0 before calling xERRTSQR in xCHKTSQR subroutines
diff --git a/TESTING/LIN/cchktsqr.f b/TESTING/LIN/cchktsqr.f
@@ -156,6 +156,8 @@ SUBROUTINE CCHKTSQR( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB,
 *
 *     Test the error exits
 *
+      CALL XLAENV( 1, 0 )
+      CALL XLAENV( 2, 0 ) 
       IF( TSTERR ) CALL CERRTSQR( PATH, NOUT )
       INFOT = 0
 *
diff --git a/TESTING/LIN/dchktsqr.f b/TESTING/LIN/dchktsqr.f
@@ -156,6 +156,8 @@ SUBROUTINE DCHKTSQR( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB,
 *
 *     Test the error exits
 *
+      CALL XLAENV( 1, 0 )
+      CALL XLAENV( 2, 0 )            
       IF( TSTERR ) CALL DERRTSQR( PATH, NOUT )
       INFOT = 0
 *
diff --git a/TESTING/LIN/schktsqr.f b/TESTING/LIN/schktsqr.f
@@ -156,6 +156,8 @@ SUBROUTINE SCHKTSQR( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB,
 *
 *     Test the error exits
 *
+      CALL XLAENV( 1, 0 )
+      CALL XLAENV( 2, 0 ) 
       IF( TSTERR ) CALL SERRTSQR( PATH, NOUT )
       INFOT = 0
 *
diff --git a/TESTING/LIN/zchktsqr.f b/TESTING/LIN/zchktsqr.f
@@ -156,6 +156,8 @@ SUBROUTINE ZCHKTSQR( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB,
 *
 *     Test the error exits
 *
+      CALL XLAENV( 1, 0 )
+      CALL XLAENV( 2, 0 ) 
       IF( TSTERR ) CALL ZERRTSQR( PATH, NOUT )
       INFOT = 0
 *

Original file line number	Diff line number	Diff line change
`@@ -156,6 +156,8 @@ SUBROUTINE CCHKTSQR( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB,`
`156`	`156`	`*`
`157`	`157`	`* Test the error exits`
`158`	`158`	`*`
	`159`	`+ CALL XLAENV( 1, 0 )`
	`160`	`+ CALL XLAENV( 2, 0 )`
`159`	`161`	`IF( TSTERR ) CALL CERRTSQR( PATH, NOUT )`
`160`	`162`	`INFOT = 0`
`161`	`163`	`*`
Original file line number	Diff line number	Diff line change
`@@ -156,6 +156,8 @@ SUBROUTINE DCHKTSQR( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB,`
`156`	`156`	`*`
`157`	`157`	`* Test the error exits`
`158`	`158`	`*`
	`159`	`+ CALL XLAENV( 1, 0 )`
	`160`	`+ CALL XLAENV( 2, 0 )`
`159`	`161`	`IF( TSTERR ) CALL DERRTSQR( PATH, NOUT )`
`160`	`162`	`INFOT = 0`
`161`	`163`	`*`
Original file line number	Diff line number	Diff line change
`@@ -156,6 +156,8 @@ SUBROUTINE SCHKTSQR( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB,`
`156`	`156`	`*`
`157`	`157`	`* Test the error exits`
`158`	`158`	`*`
	`159`	`+ CALL XLAENV( 1, 0 )`
	`160`	`+ CALL XLAENV( 2, 0 )`
`159`	`161`	`IF( TSTERR ) CALL SERRTSQR( PATH, NOUT )`
`160`	`162`	`INFOT = 0`
`161`	`163`	`*`
Original file line number	Diff line number	Diff line change
`@@ -156,6 +156,8 @@ SUBROUTINE ZCHKTSQR( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB,`
`156`	`156`	`*`
`157`	`157`	`* Test the error exits`
`158`	`158`	`*`
	`159`	`+ CALL XLAENV( 1, 0 )`
	`160`	`+ CALL XLAENV( 2, 0 )`
`159`	`161`	`IF( TSTERR ) CALL ZERRTSQR( PATH, NOUT )`
`160`	`162`	`INFOT = 0`
`161`	`163`	`*`