We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
2 parents 4bf5f9d + f4f8769 commit 091986dCopy full SHA for 091986d
src/strategies/k61r.f
@@ -2,6 +2,7 @@ FUNCTION K61R(ISPICK,ITURN,K,L,R, JA)
2
C BY DANNY C. CHAMPION
3
C TYPED BY JM 3/27/79
4
k61r=ja ! Added 7/27/93 to report own old value
5
+ IF (ITURN .EQ. 1) ICOOP = 0 ! Added 10/8/2017 to fix bug for multiple runs
6
IF (ITURN .EQ. 1) K61R = 0
7
IF (ISPICK .EQ. 0) ICOOP = ICOOP + 1
8
IF (ITURN .LE. 10) RETURN
0 commit comments