blob: a72765de54ab7bf834b968530fef7150e3b6e532 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
--- Xfoil/src/xoper.f 2013-12-08 19:21:22.000000000 +0100
+++ Xfoil.patched/src/xoper.f 2014-03-18 00:33:37.018130085 +0100
@@ -114,7 +114,7 @@
C---- don't try to read integers, since might get integer overflow
DO I=1, NINPUT
IF(ABS(RINPUT(I)) .GT. 2.1E9) THEN
- IINPUT(I) = 2**30
+ IINPUT(I) = HUGE(0)
ELSE
IINPUT(I) = INT(RINPUT(I))
ENDIF
|