File flint.patch of Package tustep

--- ftn/ntrenn.f.old	2012-07-11 20:00:13.355145475 +0100
+++ ftn/ntrenn.f	2012-07-11 20:04:55.029130326 +0100
@@ -17142,6 +17142,7 @@
       NENDE     = NEND-1
       IF (NEND-NANF .GT. 480) THEN
         CALL TXTERR('NTRENN',480)
+        NTRENN = 480
         RETURN
       ENDIF
       NIX       = MOVE (IWORT,NANF,NEND,JWORT,1,481)
@@ -17308,5 +17309,5 @@
       IF (NTRENN .NE. 0) RETURN
       IF (INDANF.EQ.1 .AND. NVOK.GT.0)
      .  NTRENN = N22+2
-      RETURN
+      RETURN 
       END