w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-05-29 04:42:28 -04:00
Code Issues Packages Projects Releases Wiki Activity

Code cleanup.

Browse Source
This commit is contained in:
Joe Taylor 2023-12-17 15:16:36 -05:00
parent 84ec6bb457
commit 363e301e31
1 changed files with 0 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
qmap/libqmap/q65b.f90
View File

@ -92,13 +92,7 @@ subroutine q65b(nutc,nqd,fcenter,nfcal,nfsample,ikhz,mousedf,ntol, &
endif endif
nsnr0=-99 !Default snr for no decode nsnr0=-99 !Default snr for no decode
!###
! nfa=800
! nfb=1200
! write(*,4001) f0,f0+31.847,nfa,nfb,ntol,ntrperiod,iseq,mode_q65
!4001 format('b',2f10.3,6i6)
if(iseq.eq.1) iwave(1:360000)=iwave(360001:720000) if(iseq.eq.1) iwave(1:360000)=iwave(360001:720000)
!###
csubmode(1:2)='60' csubmode(1:2)='60'
csubmode(3:3)=char(ichar('A')+nsubmode) csubmode(3:3)=char(ichar('A')+nsubmode)