Ensure pass 3 does subtraction if we have a fourth pass

This commit is contained in:
Jordan Sherer 2020-05-01 10:31:01 -04:00
parent ff21c67e09
commit c7354f1fc5
5 changed files with 20 additions and 0 deletions

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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