From 60bcd6291d46a9f773e8bcd316a9aa153ed28e97 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Tue, 14 Nov 2023 10:55:56 -0500
Subject: [PATCH] Temporary code to save a Q65-30x *.wav file.
---
qmap/libqmap/q65b.f90 | 18 ++++++++++++++++++
1 file changed, 18 insertions(+)
diff --git a/qmap/libqmap/q65b.f90 b/qmap/libqmap/q65b.f90
index bc4fd7166..9b48553ef 100644
--- a/qmap/libqmap/q65b.f90
+++ b/qmap/libqmap/q65b.f90
@@ -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.
use q65_decode
+ use wavhdr
use timer_module, only: timer
parameter (MAXFFT1=5376000) !56*96000
parameter (MAXFFT2=336000) !56*6000 (downsampled by 1/16)
parameter (NMAX=60*12000)
parameter (RAD=57.2957795)
+
+ type(hdr) h
integer*2 iwave(60*12000)
integer offset
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*60 result
character*20 datetime
+ character fname*17
common/decodes/ndecodes,ncand,nQDecoderDone,nWDecoderBusy, &
nWTransmitting,result(50)
common/cacb/ca
@@ -95,6 +99,20 @@ subroutine q65b(nutc,nqd,fcenter,nfcal,nfsample,ikhz,mousedf,ntol, &
endif
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.
call map65_mmdec(nutc,iwave,nqd,nsubmode,nfa,nfb,1000,ntol, &
newdat,nagain,max_drift,ndepth,mycall,hiscall,hisgrid)