From a42928628d2c97929b965c64d100e053cc837e2d Mon Sep 17 00:00:00 2001
From: Houtan Bastani <houtan@dynare.org>
Date: Fri, 11 Apr 2014 17:53:12 +0200
Subject: [PATCH] change nonblock do to block do for gfortran compilation
---
kf.for | 10 +++++-----
1 file changed, 5 insertions(+), 5 deletions(-)
diff --git a/kf.for b/kf.for
index 971e2a8..e7760c0 100644
--- a/kf.for
+++ b/kf.for
@@ -58,7 +58,7 @@ C LOCALS
2 RG(nx,ny),HPV(nx,ny)
LIKE(d(1)+1:nobs) = 0.D0
- DO 1000 imain = d(1)+1,nobs
+ DO imain = d(1)+1,nobs
iny = IYK(imain,ny+1)
C ------------------------------------
@@ -171,7 +171,7 @@ c CALL F03ABF(V(1:iny,1:iny),iny,iny,DETV,COM(1:iny,1),IFAIL)
XT(imain,1:nx) = X1(1:nx)
PT(imain,1:nx,1:nx) = P1(1:nx,1:nx)
-1000 ENDIF
-
- RETURN
- END
+ END IF
+ END DO
+ RETURN
+ END SUBROUTINE
--
GitLab