diff --git a/src/trapping/lffft.f b/src/trapping/lffft.f index 521c61e8771fdc0a800e8135bbb558ee8614753a..d89eb792dcceb9f704549050e7378ca5c5cd1619 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