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

Temporary code to save a Q65-30x *.wav file.

Browse Source
This commit is contained in:
Joe Taylor 2023-11-14 10:55:56 -05:00
parent 84069fe9e9
commit 60bcd6291d
1 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
qmap/libqmap/q65b.f90
View File

@ -8,12 +8,15 @@ subroutine q65b(nutc,nqd,fcenter,nfcal,nfsample,ikhz,mousedf,ntol, &
! in common/cacb. Decoded messages are sent back to the GUI. ! in common/cacb. Decoded messages are sent back to the GUI.
use q65_decode use q65_decode
use wavhdr
use timer_module, only: timer use timer_module, only: timer
parameter (MAXFFT1=5376000) !56*96000 parameter (MAXFFT1=5376000) !56*96000
parameter (MAXFFT2=336000) !56*6000 (downsampled by 1/16) parameter (MAXFFT2=336000) !56*6000 (downsampled by 1/16)
parameter (NMAX=60*12000) parameter (NMAX=60*12000)
parameter (RAD=57.2957795) parameter (RAD=57.2957795)
type(hdr) h
integer*2 iwave(60*12000) integer*2 iwave(60*12000)
integer offset integer offset
complex ca(MAXFFT1) !FFT of raw I/Q data from Linrad complex ca(MAXFFT1) !FFT of raw I/Q data from Linrad
@ -25,6 +28,7 @@ subroutine q65b(nutc,nqd,fcenter,nfcal,nfsample,ikhz,mousedf,ntol, &
character*4 grid4 character*4 grid4
character*60 result character*60 result
character*20 datetime character*20 datetime
character fname*17
common/decodes/ndecodes,ncand,nQDecoderDone,nWDecoderBusy, & common/decodes/ndecodes,ncand,nQDecoderDone,nWDecoderBusy, &
nWTransmitting,result(50) nWTransmitting,result(50)
common/cacb/ca common/cacb/ca
@ -95,6 +99,20 @@ 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
if(abs(f0-85.3).lt.1.0) then
print*,'a',f0
h=default_header(12000,30*12000)
do ifile=0,1
write(fname,1102) ifile
1102 format('000000_',i6.6,'.wav')
open(50,file=fname,status='unknown',access='stream')
ia=ifile*30*12000 + 1
ib=ia + 30*12000 - 1
write(50) h,iwave(ia:ib)
close(50)
enddo
endif
! NB: Frequency of ipk is now shifted to 1000 Hz. ! NB: Frequency of ipk is now shifted to 1000 Hz.
call map65_mmdec(nutc,iwave,nqd,nsubmode,nfa,nfb,1000,ntol, & call map65_mmdec(nutc,iwave,nqd,nsubmode,nfa,nfb,1000,ntol, &
newdat,nagain,max_drift,ndepth,mycall,hiscall,hisgrid) newdat,nagain,max_drift,ndepth,mycall,hiscall,hisgrid)