w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2026-08-26 13:35:39 -04:00
Code Issues Packages Projects Releases Wiki Activity

Change the Q65 value of nsps from 7680 to 7200.

Browse Source
This commit is contained in:
Joe Taylor
2020-10-25 14:10:38 -04:00
parent 9b452e8f99
commit 7a22e6a2e1
7 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
lib/q65_decode.f90
+1 -1
View File
@@ -71,7 +71,7 @@ contains
else if(ntrperiod.eq.30) then
nsps=3600
else if(ntrperiod.eq.60) then
nsps=7680
nsps=7200
else if(ntrperiod.eq.120) then
nsps=16000
else if(ntrperiod.eq.300) then
lib/qra/qra65/q65sim.f90
+1 -1
View File
@@ -54,7 +54,7 @@ program q65sim
else if(ntrperiod.eq.30) then
nsps=3600
else if(ntrperiod.eq.60) then
nsps=7680
nsps=7200
else if(ntrperiod.eq.120) then
nsps=16000
else if(ntrperiod.eq.300) then
lib/qra_loops.f90
+1 -1
View File
@@ -118,7 +118,7 @@ subroutine qra_loops(c00,npts2,nsps,mode,mode64,nsubmode,nFadingModel, &
ndist=ndistx
endif
200 if(mode.eq.65 .and. nsps.eq.7680/2) xdt=xdt+0.4 !### Empirical -- WHY ??? ###
200 if(mode.eq.65 .and. nsps.eq.7200/2) xdt=xdt+0.4 !### Empirical -- WHY ??? ###
if(irc.ge.0) then
navg=nsave
lib/test_q65.f90
+1 -1
View File
@@ -38,7 +38,7 @@ program test_q65
nsps=3600
i50=-24
else if(ntrperiod.eq.60) then
nsps=7680
nsps=7200
i50=-28
else if(ntrperiod.eq.120) then
nsps=16000
lib/test_qra64.f90
+1 -1
View File
@@ -31,7 +31,7 @@ program test_qra64
call getarg(9,arg)
read(arg,*) nsnr
nsps=7680
nsps=6192
i50=-28
ia=-20
ib=-33