From 5b70c7dcff926e5ee73c1cf9e27dd2be7a406364 Mon Sep 17 00:00:00 2001 From: Steven Franke Date: Thu, 8 Feb 2018 14:30:04 +0000 Subject: [PATCH] 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 --- lib/extract.f90 | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/lib/extract.f90 b/lib/extract.f90 index 18cbbd61e..a6514fe02 100644 --- a/lib/extract.f90 +++ b/lib/extract.f90 @@ -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