From 3b92eb25af55173a97b874c80202ddc0d0f59e93 Mon Sep 17 00:00:00 2001
From: Giovanni La Mura <giovanni.lamura@inaf.it>
Date: Tue, 16 Jan 2024 14:59:06 +0100
Subject: [PATCH] Use inclusive comparison to detect IS mode
---
src/trapping/lffft.f | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/trapping/lffft.f b/src/trapping/lffft.f
index 521c61e8..d89eb792 100644
--- a/src/trapping/lffft.f
+++ b/src/trapping/lffft.f
@@ -41,8 +41,8 @@ CCC DIMENSION TMS(LE,3)
READ(IT)VKS,EXRIS
NLEM=LE*(LE+2)
NLEMT=NLEM+NLEM
- IF(IS.GT.2222)GO TO 120
- IF(IS.GT.1111)GO TO 125
+ IF(IS.GE.2222)GO TO 120
+ IF(IS.GE.1111)GO TO 125
IF(IS.GE.0)GO TO 135
IF(IS.LT.0)GO TO 145
120 CONTINUE
--
GitLab