From b7b9d6f66881f7197774fa6c87c0e2e39002986b Mon Sep 17 00:00:00 2001
From: Vince Knight <vincent.knight@gmail.com>
Date: Tue, 25 Jul 2017 19:57:15 +0100
Subject: [PATCH] Fix K74RXX

This strategy was written with a bug in it.

A Fortran function needs to return a variable of the same name as the
function.
---
 src/strategies/K74RXX.f | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/src/strategies/K74RXX.f b/src/strategies/K74RXX.f
index 940581b..106e343 100644
--- a/src/strategies/K74RXX.f
+++ b/src/strategies/K74RXX.f
@@ -2,7 +2,7 @@ FUNCTION K74RXX(J,M,K,L,R,JA)
 C BY EDWARD FRIEDLAND
 C TYPED BY JM 3/20/79
 c k74dummy added by ax 7/22/93
-      K74R=JA       ! Added 7/32/93 to report own old value
+      K74RXX=JA       ! Added 7/32/93 to report own old value
       IF (M .NE. 1) GOTO 9
       ALPHA = 1.0
       BETA = .3
@@ -11,7 +11,7 @@ FUNCTION K74RXX(J,M,K,L,R,JA)
       QNA = 0
       QCB = 0
       QNB = 0
-      K74R = 0
+      K74RXX = 0
       k74dummy=0
       JSW = 0
       JS4 = 0
@@ -21,7 +21,7 @@ FUNCTION K74RXX(J,M,K,L,R,JA)
       JT = 0
       JSM = 1
 9     IF (JR .NE. 1) GOTO 10
-      K74R = 1
+      K74RXX = 1
       k74dummy=1
       RETURN
 10    IF (M .LE. 2) GOTO 30
@@ -54,14 +54,14 @@ FUNCTION K74RXX(J,M,K,L,R,JA)
       IF (POLALT .GE. 0) GOTO 70
       GOTO 60
 40    IF (POLC .GE. POLALT) GOTO 50
-50    K74R = 0
+50    K74RXX = 0
       k74dummy = 0
       RETURN
-60    K74R = 1
+60    K74RXX = 1
       k74dummy=1
       RETURN
 c70    K74R = 1 - K74R
-70    K74R = 1-k74dummy
+70    K74RXX = 1-k74dummy
       RETURN
 80    IF (JS4 .EQ. 0) GOTO 15
       IF (JS11 .EQ. 1) GOTO 15