Tree - rpms/xfoil - src.fedoraproject.org

Blob History Raw

		e0ab770	`--- a/src/xoper.f`
		e0ab770	`+++ b/src/xoper.f`
		e0ab770	`@@ -114,7 +114,7 @@`
		e0ab770	`C---- don't try to read integers, since might get integer overflow`
		e0ab770	`DO I=1, NINPUT`
		e0ab770	`IF(ABS(RINPUT(I)) .GT. 2.1E9) THEN`
		e0ab770	`- IINPUT(I) = 2**30`
		e0ab770	`+ IINPUT(I) = HUGE(IINPUT) !2**30`
		e0ab770	`ELSE`
		e0ab770	`IINPUT(I) = INT(RINPUT(I))`
		e0ab770	`ENDIF`