w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-10-31 13:10:19 -04:00
Code Issues Packages Projects Releases Wiki Activity

Another attempt at identifying 30 s Tx sequences from disk data.

Browse Source
This commit is contained in:
Joe Taylor 2024-01-02 19:52:45 -05:00
parent a4e7b915de
commit 05ed9c050d
1 changed files with 13 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
qmap/libqmap/q65c.f90
View File

@ -42,12 +42,20 @@ subroutine q65c(itimer)
npatience=1
newdat=1 !Always on ??
call chkstat(dd,nhsym,pdb)
if(abs(pdb(1)-pdb(2)).gt.3.0) ntx30a=20 !We transmitted in first half
if(abs(pdb(3)-pdb(4)).gt.3.0) ntx30b=20 !We transmitted in second half
! write(*,3001) nutc,nhsym,pdb,ntx30a,ntx30b
if(ndiskdat.eq.1) then
call chkstat(dd,nhsym,pdb)
if((abs(pdb(1)-pdb(2)).gt.3.0 .and. pdb(1).gt.1.0) .or. &
pdb(1).lt.1.0) ntx30a=20 !Tx 1st half
if((abs(pdb(3)-pdb(4)).gt.3.0 .and. pdb(3).gt.1.0) .or. &
pdb(3).lt.1.0) ntx30b=20 !Tx 2nd half
if(pdb(4).lt.0.04) then
ntx30a=0 !Older 56s files have no Tx
ntx30b=0 !Older 56s files have no Tx
endif
! write(*,3001) nutc,nhsym,pdb,ntx30a,ntx30b
!3001 format(i4.4,i6,4f7.1,2i6)
endif
if(ntx30a.gt.5) then
dd(1:2,1:30*96000)=0.