blob: 436e61ce75e51eaebe97c90597550cba5e1d41eb (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
--- SRC/ilaenv.f~ Tue Jun 22 14:42:46 1999
+++ SRC/ilaenv.f Tue Sep 21 20:37:20 1999
@@ -524,8 +524,8 @@
*
* ISPEC = 10: ieee NaN arithmetic can be trusted not to trap
*
-C ILAENV = 0
- ILAENV = 1
+ ILAENV = 0
+C ILAENV = 1
IF( ILAENV.EQ.1 ) THEN
ILAENV = IEEECK( 0, 0.0, 1.0 )
END IF
@@ -535,8 +535,8 @@
*
* ISPEC = 11: infinity arithmetic can be trusted not to trap
*
-C ILAENV = 0
- ILAENV = 1
+ ILAENV = 0
+C ILAENV = 1
IF( ILAENV.EQ.1 ) THEN
ILAENV = IEEECK( 1, 0.0, 1.0 )
END IF
|
