w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-02-03 09:44:24 -05:00
Code Issues Packages Projects Releases Wiki Activity

Turn off saving .wav files during the MAP65 decode process.

Browse Source
This commit is contained in:
Joe Taylor 2021-05-28 10:30:26 -04:00
parent 6aefbda8ff
commit 1c7b57cb55
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
map65/libm65/q65b.f90
View File

@ -8,7 +8,7 @@ subroutine q65b(nutc,nqd,fcenter,nfcal,nfsample,ikhz,mousedf,ntol,xpol, &
! orthogonal polarization. Decoded messages are sent back to the GUI ! orthogonal polarization. Decoded messages are sent back to the GUI
! on stdout. ! on stdout.
use wavhdr ! use wavhdr
use q65_decode use q65_decode
use wideband_sync use wideband_sync
use timer_module, only: timer use timer_module, only: timer
@ -16,7 +16,7 @@ subroutine q65b(nutc,nqd,fcenter,nfcal,nfsample,ikhz,mousedf,ntol,xpol, &
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)
type(hdr) h !Header for the .wav file ! type(hdr) h !Header for the .wav file
integer*2 iwave(60*12000) integer*2 iwave(60*12000)
complex ca(MAXFFT1),cb(MAXFFT1) !FFTs of raw x,y data complex ca(MAXFFT1),cb(MAXFFT1) !FFTs of raw x,y data
complex cx(0:MAXFFT2-1),cy(0:MAXFFT2-1),cz(0:MAXFFT2) complex cx(0:MAXFFT2-1),cy(0:MAXFFT2-1),cz(0:MAXFFT2)
@ -112,10 +112,10 @@ subroutine q65b(nutc,nqd,fcenter,nfcal,nfsample,ikhz,mousedf,ntol,xpol, &
enddo enddo
iwave(2*nfft2+1:)=0 iwave(2*nfft2+1:)=0
open(30,file='000000_0001.wav',status='unknown',access='stream') ! open(30,file='000000_0001.wav',status='unknown',access='stream')
h=default_header(12000,NMAX) ! h=default_header(12000,NMAX)
write(30) h,iwave ! write(30) h,iwave
close(30) ! close(30)
nsubmode=mode_q65-1 nsubmode=mode_q65-1
nfa=990 !Tight limits around ipk for the wideband decode nfa=990 !Tight limits around ipk for the wideband decode