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

Save a temporary version of q65b.f90. Still to do: remove the call that executes jt9.

Browse Source
This commit is contained in:
Joe Taylor 2021-04-27 15:25:38 -04:00
parent 201a071128
commit 6d9b436947
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
map65/libm65/q65b.f90
View File

@ -103,6 +103,16 @@ subroutine q65b(nutc,fcenter,nfcal,nfsample,ikhz,mousedf,ntol,xpol, &
write(cmnd(88:88),'(i1)') ipol write(cmnd(88:88),'(i1)') ipol
if(ipol.eq.2) cmnd(94:94)='>' if(ipol.eq.2) cmnd(94:94)='>'
call execute_command_line(trim(trim(wsjtx_dir)//cmnd)) call execute_command_line(trim(trim(wsjtx_dir)//cmnd))
!###
nsubmode=2
nfa=300
nfb=2883
nfqso=1000
newdat=1
nagain=0
call map65_mmdec(nutc,iwave,nsubmode,nfa,nfb,nfqso,ntol,newdat,nagain, &
mycall,hiscall,hisgrid)
!###
enddo enddo
open(24,file='q65_decodes.txt',status='unknown') open(24,file='q65_decodes.txt',status='unknown')