Do a6 when Tx1 is selected.

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8480 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Steven Franke 2018-02-08 14:30:04 +00:00
parent 81aac15ac6
commit 5b70c7dcff

View File

@ -50,13 +50,13 @@ subroutine extract(s3,nadd,mode65,ntrials,naggressive,ndepth,nflip, &
! 7 CQ DxCall DxGrid
apsymbols=-1
nappasses=(/3,3,2,3,3,4/)
naptypes(0,1:4)=(/1,2,6,0/)
naptypes(1,1:4)=(/2,3,7,0/)
naptypes(2,1:4)=(/2,3,0,0/)
naptypes(3,1:4)=(/3,4,5,0/)
naptypes(4,1:4)=(/3,4,5,0/)
naptypes(5,1:4)=(/3,4,5,2/)
nappasses=(/3,4,2,3,3,4/)
naptypes(0,1:4)=(/1,2,6,0/) ! Tx6
naptypes(1,1:4)=(/2,3,6,7/) ! Tx1
naptypes(2,1:4)=(/2,3,0,0/) ! Tx2
naptypes(3,1:4)=(/3,4,5,0/) ! Tx3
naptypes(4,1:4)=(/3,4,5,0/) ! Tx4
naptypes(5,1:4)=(/2,3,4,5/) ! Tx5
first=.false.
endif