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
Download Patch File Download Diff File Expand all files Collapse all files
lib/js8a_decode.f90
+4
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
lib/js8b_decode.f90
+4
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
lib/js8c_decode.f90
+4
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
lib/js8e_decode.f90
+4
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
lib/js8i_decode.f90
+4
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