Skip to content

Commit 7a57812

Browse files
committed
fix slasq2.f and dlasq2.f call to ILAENV( 10, ...) and ILAENV( 11, ...)
If you call ILAENV(10, ...), it will check IEEE Infinity and IEEE NaN behavior. No need to call ILAENV(11, ...) Note that the call to IEEE = ( ILAENV( 10, 'SLASQ2', 'N', 1, 2, 3, 4 ).EQ.1 ) in SLASQ2 is commented out with the following comment: * * [11/15/2008] The case IEEE=.TRUE. has a problem in single precision with * some the test matrices of type 16. The double precision code is fine. * and IEEE is set to .FALSE. This commit does not address this
1 parent 786127d commit 7a57812

2 files changed

Lines changed: 2 additions & 4 deletions

File tree

SRC/dlasq2.f

Lines changed: 1 addition & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -267,8 +267,7 @@ SUBROUTINE DLASQ2( N, Z, INFO )
267267
*
268268
* Check whether the machine is IEEE conformable.
269269
*
270-
IEEE = ILAENV( 10, 'DLASQ2', 'N', 1, 2, 3, 4 ).EQ.1 .AND.
271-
$ ILAENV( 11, 'DLASQ2', 'N', 1, 2, 3, 4 ).EQ.1
270+
IEEE = ( ILAENV( 10, 'DLASQ2', 'N', 1, 2, 3, 4 ).EQ.1 )
272271
*
273272
* Rearrange data for locality: Z=(q1,qq1,e1,ee1,q2,qq2,e2,ee2,...).
274273
*

SRC/slasq2.f

Lines changed: 1 addition & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -266,8 +266,7 @@ SUBROUTINE SLASQ2( N, Z, INFO )
266266
*
267267
* Check whether the machine is IEEE conformable.
268268
*
269-
* IEEE = ILAENV( 10, 'SLASQ2', 'N', 1, 2, 3, 4 ).EQ.1 .AND.
270-
* $ ILAENV( 11, 'SLASQ2', 'N', 1, 2, 3, 4 ).EQ.1
269+
* IEEE = ( ILAENV( 10, 'SLASQ2', 'N', 1, 2, 3, 4 ).EQ.1 )
271270
*
272271
* [11/15/2008] The case IEEE=.TRUE. has a problem in single precision with
273272
* some the test matrices of type 16. The double precision code is fine.

0 commit comments

Comments
 (0)