From f4f8769dfc43b48dccb0fab1361afca19204809a Mon Sep 17 00:00:00 2001
From: Vince Knight <vincent.knight@gmail.com>
Date: Sun, 8 Oct 2017 20:14:39 +0100
Subject: [PATCH] Fix k61r.

Closes https://github.com/Axelrod-Python/axelrod-fortran/issues/62

See discussion at that issue.

Have written a comment to denote the change.
---
 src/strategies/k61r.f | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/strategies/k61r.f b/src/strategies/k61r.f
index 43a3889..2013edd 100644
--- a/src/strategies/k61r.f
+++ b/src/strategies/k61r.f
@@ -2,6 +2,7 @@ FUNCTION K61R(ISPICK,ITURN,K,L,R, JA)
 C BY DANNY C. CHAMPION
 C TYPED BY JM 3/27/79
       k61r=ja    ! Added 7/27/93 to report own old value
+      IF (ITURN .EQ. 1) ICOOP = 0  ! Added 10/8/2017 to fix bug for multiple runs
       IF (ITURN .EQ. 1) K61R = 0
       IF (ISPICK .EQ. 0) ICOOP = ICOOP + 1
       IF (ITURN .LE. 10) RETURN