Index: xfoil/src/xoper.f
===================================================================
--- xfoil.orig/src/xoper.f 2009-12-31 00:30:13.200514895 +0100
+++ xfoil/src/xoper.f 2009-12-31 00:32:45.123836468 +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**31
+ IINPUT(I) = HUGE(IINPUT) !2**31
ELSE
IINPUT(I) = INT(RINPUT(I))
ENDIF
Index: xfoil/src/pplot.f
===================================================================
--- xfoil.orig/src/pplot.f 2009-12-31 00:32:56.983833399 +0100
+++ xfoil/src/pplot.f 2009-12-31 00:33:09.061211434 +0100
@@ -36,7 +36,7 @@
PROGRAM PPLOT
INCLUDE 'PPLOT.INC'
C
- LOGICAL ERROR, LGETFN
+ LOGICAL ERROR, LGETFN, LERR
REAL RINP(10)
REAL CPOLO(NAX,IPTOT,NPX), VPOLO(NAX,2,NPX)
C