From f446873a1f319792dae8f2bd408cd39e82252807 Mon Sep 17 00:00:00 2001
From: kamischi <karl-michael.schindler@web.de>
Date: Wed, 12 Jun 2024 16:43:24 +0200
Subject: [PATCH] Keep loop in f77/seteps
---
source/split-f77/seteps.f | 2 ++
1 file changed, 2 insertions(+)
diff --git a/source/split-f77/seteps.f b/source/split-f77/seteps.f
index 278c745..a4f87da 100644
--- a/source/split-f77/seteps.f
+++ b/source/split-f77/seteps.f
@@ -29,12 +29,14 @@ C ******************************************************************
EPS(L) = -OSC(1,J)**2/( WN**2+CMPLX(0.0D0,WN*OSC(3,J)) )
ELSE
EPS(L) = EPSINF(L)
+ do k = 1, nos(l)
J = J+1
X = WN/OSC(1,J)
DENO = X*CMPLX(X,OSC(3,J))
IF(OSC(2,J).GE.0.0D0) DENO = 1.0-DENO
IF(ABS(DENO).EQ.0.0) DENO = EPSMAC
EPS(L) = EPS(L)+OSC(2,J)/DENO
+ enddo
ENDIF
2 CONTINUE
IF(NEPS.EQ.LAYERS+1) THEN
--
GitLab