Ensure pass 3 does subtraction if we have a fourth pass
This commit is contained in:
parent
ff21c67e09
commit
c7354f1fc5
@ -82,7 +82,11 @@ contains
|
||||
if(ndecodes.eq.0) cycle
|
||||
lsubtract=.true.
|
||||
elseif(ipass.eq.3) then
|
||||
n3=ndecodes
|
||||
if((ndecodes-n2).eq.0) cycle
|
||||
lsubtract=.true.
|
||||
elseif(ipass.eq.4) then
|
||||
if((ndecodes-n3).eq.0) cycle
|
||||
lsubtract=.false.
|
||||
endif
|
||||
|
||||
|
@ -82,7 +82,11 @@ contains
|
||||
if(ndecodes.eq.0) cycle
|
||||
lsubtract=.true.
|
||||
elseif(ipass.eq.3) then
|
||||
n3=ndecodes
|
||||
if((ndecodes-n2).eq.0) cycle
|
||||
lsubtract=.true.
|
||||
elseif(ipass.eq.4) then
|
||||
if((ndecodes-n3).eq.0) cycle
|
||||
lsubtract=.false.
|
||||
endif
|
||||
|
||||
|
@ -82,7 +82,11 @@ contains
|
||||
if(ndecodes.eq.0) cycle
|
||||
lsubtract=.true.
|
||||
elseif(ipass.eq.3) then
|
||||
n3=ndecodes
|
||||
if((ndecodes-n2).eq.0) cycle
|
||||
lsubtract=.true.
|
||||
elseif(ipass.eq.4) then
|
||||
if((ndecodes-n3).eq.0) cycle
|
||||
lsubtract=.false.
|
||||
endif
|
||||
|
||||
|
@ -82,7 +82,11 @@ contains
|
||||
if(ndecodes.eq.0) cycle
|
||||
lsubtract=.true.
|
||||
elseif(ipass.eq.3) then
|
||||
n3=ndecodes
|
||||
if((ndecodes-n2).eq.0) cycle
|
||||
lsubtract=.true.
|
||||
elseif(ipass.eq.4) then
|
||||
if((ndecodes-n3).eq.0) cycle
|
||||
lsubtract=.false.
|
||||
endif
|
||||
|
||||
|
@ -82,7 +82,11 @@ contains
|
||||
if(ndecodes.eq.0) cycle
|
||||
lsubtract=.true.
|
||||
elseif(ipass.eq.3) then
|
||||
n3=ndecodes
|
||||
if((ndecodes-n2).eq.0) cycle
|
||||
lsubtract=.true.
|
||||
elseif(ipass.eq.4) then
|
||||
if((ndecodes-n3).eq.0) cycle
|
||||
lsubtract=.false.
|
||||
endif
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user