mirror of
https://git.FreeBSD.org/ports.git
synced 2024-11-14 23:46:10 +00:00
25 lines
586 B
Plaintext
25 lines
586 B
Plaintext
|
--- 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
|