chris/js8call
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Ensure pass 3 does subtraction if we have a fourth pass

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/js8a_decode.f90
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

4
lib/js8b_decode.f90
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

4
lib/js8c_decode.f90
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

4
lib/js8e_decode.f90
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

4
lib/js8i_decode.f90
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