Skip to content
Snippets Groups Projects
Commit 3b92eb25 authored by Giovanni La Mura's avatar Giovanni La Mura
Browse files

Use inclusive comparison to detect IS mode

parent e500081d
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 2 additions and 2 deletions
src/trapping/lffft.f
+ 2
− 2
View file @ 3b92eb25
...@@ -41,8 +41,8 @@ CCC DIMENSION TMS(LE,3) ...@@ -41,8 +41,8 @@ CCC DIMENSION TMS(LE,3)
READ(IT)VKS,EXRIS READ(IT)VKS,EXRIS
NLEM=LE*(LE+2) NLEM=LE*(LE+2)
NLEMT=NLEM+NLEM NLEMT=NLEM+NLEM
IF(IS.GT.2222)GO TO 120 IF(IS.GE.2222)GO TO 120
IF(IS.GT.1111)GO TO 125 IF(IS.GE.1111)GO TO 125
IF(IS.GE.0)GO TO 135 IF(IS.GE.0)GO TO 135
IF(IS.LT.0)GO TO 145 IF(IS.LT.0)GO TO 145
120 CONTINUE 120 CONTINUE
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment