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

Enable Q65 'q3' decodes in MAP65.

Browse Source
This commit is contained in:
Joe Taylor 2021-04-07 09:58:25 -04:00
parent 068a3fd596
commit 0024bd1be9
1 changed files with 21 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
libm65/q65b.f90
View File

@ -1,5 +1,5 @@
subroutine q65b(nutc,nqd,fcenter,nfcal,nfsample,ikhz,mousedf,ntol,xpol, & subroutine q65b(nutc,nqd,fcenter,nfcal,nfsample,ikhz,mousedf,ntol,xpol, &
mycall_12,hiscall_12,hisgrid_6,mode64) mycall0,hiscall0,hisgrid,mode64)
use wavhdr use wavhdr
parameter (MAXFFT1=5376000) !56*96000 parameter (MAXFFT1=5376000) !56*96000
@ -11,15 +11,24 @@ subroutine q65b(nutc,nqd,fcenter,nfcal,nfsample,ikhz,mousedf,ntol,xpol, &
complex cx(0:MAXFFT2-1),cy(0:MAXFFT2-1),cz(0:MAXFFT2-1) complex cx(0:MAXFFT2-1),cy(0:MAXFFT2-1),cz(0:MAXFFT2-1)
logical xpol logical xpol
real*8 fcenter real*8 fcenter
character*12 mycall_12,hiscall_12 character*12 mycall0,hiscall0
character*6 hisgrid_6 character*12 mycall,hiscall
character*83 cmnd character*6 hisgrid
character*4 grid4
character*125 cmnd
character*62 line character*62 line
character*80 line2 character*80 line2
character*40 msg40 character*40 msg40
character*15 fname character*15 fname
common/cacb/ca,cb common/cacb/ca,cb
mycall='K1JT'
hiscall='IV3NWV'
grid4='AA00'
if(mycall0(1:1).ne.' ') mycall=mycall0
if(hiscall0(1:1).ne.' ') hiscall=hiscall0
if(hisgrid(1:4).ne.' ') grid4=hisgrid(1:4)
nfft1=MAXFFT1 nfft1=MAXFFT1
nfft2=MAXFFT2 nfft2=MAXFFT2
df=96000.0/NFFT1 df=96000.0/NFFT1
@ -56,11 +65,14 @@ subroutine q65b(nutc,nqd,fcenter,nfcal,nfsample,ikhz,mousedf,ntol,xpol, &
! write(77,*) nutc,ikhz,mousedf,ntol ! write(77,*) nutc,ikhz,mousedf,ntol
! 1 2 3 4 5 6 7 0 ! 1 2 3 4 5 6 7 8 9 10 11 12
! 12345678901234567890123456789012345678901234567890123456789012345678901234567890123 ! 1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901'
cmnd='\WSJT-X\install\bin\jt9 -3 -X 32 -f 1079 -F 1000 000000_0001.wav > q65_decodes.txt' cmnd='\WSJT-X\install\bin\jt9 -3 -X 32 -f 1079 -F 1000 -c MyCall -x HisCall -g FN42 000000_0001.wav > q65_decodes.txt'
write(cmnd(37:40),'(i4)') 1000 write(cmnd(37:40),'(i4)') 1000
write(cmnd(45:48),'(i4)') ntol write(cmnd(45:48),'(i4)') ntol
write(cmnd(53:64),'(a12)') mycall
write(cmnd(68:79),'(a12)') hiscall
write(cmnd(83:86),'(a4)') grid4
fname='000000_0001.wav' fname='000000_0001.wav'
npol=1 npol=1
if(xpol) npol=4 if(xpol) npol=4
@ -81,8 +93,8 @@ subroutine q65b(nutc,nqd,fcenter,nfcal,nfsample,ikhz,mousedf,ntol,xpol, &
open(25,file=fname,access='stream',status='unknown') open(25,file=fname,access='stream',status='unknown')
write(25) h,iwave write(25) h,iwave
close(25) close(25)
if(ipol.eq.2) cmnd(66:66)='>' write(cmnd(98:98),'(i1)') ipol
write(cmnd(60:60),'(i1)') ipol if(ipol.eq.2) cmnd(104:104)='>'
call execute_command_line(trim(cmnd)) call execute_command_line(trim(cmnd))
enddo enddo