Commit 3b92eb25 authored by Giovanni La Mura's avatar Giovanni La Mura
Browse files

Use inclusive comparison to detect IS mode

parent e500081d

src/trapping/lffft.f

+2 −2
Original line number Diff line number Diff line
@@ -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