Fix remaining errors

Author: meatballs

TourExec1.1.f

@@ -959,8 +959,8 @@ FUNCTION K91R(J,M,K,L,R, JA)
       K91R = IPOL(IBEST,N)
        IOLD=K91R
       RETURN
-      END
-     FUNCTION K57R(J,M,K,L,R, JA)
+      END FUNCTION
+      FUNCTION K57R(J,M,K,L,R, JA)
 C BY RUDY NYDEGGER
 C TYPED BY AX, 3/27/79 (SAME AS ROUND ONE NYDEGR)
 c Replaced by Nydegr retyped from rnd 1 by Ax, 7/27/93
@@ -1185,7 +1185,8 @@ FUNCTION K40R(J,M,K,L,R, JA)
   520 IF(J.EQ.1) GO TO 522
       GO TO 530
   522 W=W+1
-      IF(W.GT.2.AND.(W/3.EQ.IFIX(W/3)).OR.(W-1)/3.EQ.IFIX((W-1)/3)) GO TO 901
+      IF(W.GT.2.AND.(W/3.EQ.IFIX(W/3)).OR.(W-1)/3.EQ.IFIX((W-1)/3))
+     1GO TO 901
       GO TO 550
   901 S=1
       Q=Q/2