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

This commit is contained in:
Joe Taylor 2021-04-27 15:25:38 -04:00
parent 201a071128
commit 6d9b436947

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')