Fix use of real for array index

Author: meatballs

TourExec1.1.f

@@ -1012,7 +1012,7 @@ FUNCTION K85R(J,M,K,L,R, JA)
 C TYPED BY JM 4/4/79
 C INITIALIZE ON FIRST MOVE AND COOPERATE
       IMPLICIT REAL (A-Z)
-      INTEGER J,M,K,L,K85R
+      INTEGER J,M,K,L,JA,K85R
       k85r=ja    ! Added 7/27/93 to report own old value
       IF (M .NE. 1) GOTO 100
       J2 = 0
@@ -1425,7 +1425,7 @@ FUNCTION K81R(J,M,K,L,R, JA)
 C BY MARTYN JONES
 C EDITED FROM BASIC BY AX 3/25/79
 C TYPED BY JM 3/27/79, COR BY AX 3/28/79
-      INTEGER C,T4,T5
+      INTEGER C,T4,T5,D4
       REAL L4(8,2)
       DIMENSION X(8)
       k81r=ja    ! Added 7/27/93 to report own old value