File i8.patch of Package tustep

--- ftn/xxneur.f.old	2012-07-11 19:34:18.041229161 +0100
+++ ftn/xxneur.f	2012-07-11 19:36:57.232220597 +0100
@@ -978,7 +978,7 @@ C---------------------------------------
       FUNCTION XXZHLR (TYP, IVAL, MINVAL, MAXVAL)
 
       INCLUDE 'macros.h'
-
+      real(kind=8)   :: MAXVAL
       XXZHLR = .FALSE.
 
       CNXT = GET2 (CODE, CNXT, TYP)
@@ -1074,7 +1074,7 @@ C---------------------------------------
      .                 IVAL, MINVAL, MAXVAL)
 
       INCLUDE 'macros.h'
-
+      real(kind=8)  :: MAXVAL
       LOGICAL Z
 
       XXZHLX = .FALSE.
--- ftn/xxcod.f.old	2012-07-11 11:02:03.583882847 +0100
+++ ftn/xxcod.f	2012-07-11 11:13:40.828845346 +0100
@@ -724,7 +724,7 @@ C---------------------------------------
 
       CASE (QHEX8)
 
-         IF (.NOT.XXZHLR(TYP,ZAHL,0,255*256*256*256+255))  RETURN
+         IF (.NOT.XXZHLR(TYP,ZAHL,0,255*256*256*256.0+255))  RETURN
 
          SSTP = PUTH (ZAHL/(256*256*256), SMML, SSTP)
          ZAHL = MOD (ZAHL, 256*256*256)