From 76e8f5ec85e240c24680f7bf616824eb541a24b7 Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Mon, 21 Nov 2016 16:51:11 +0000 Subject: [PATCH] In place of the qra64 return code as is, display a number that increases monotonically with the amount of a priori information used. Here's the translation, as a lookup table. The displayed number is the tens digit of the number of a priori bits. rc APxx displayed ------------------- 0 0 0 1 27 2 2 42 4 3 29 2 4 44 4 5 57 5 6 29 2 7 44 4 8 72 7 9 55 5 10 70 7 11 70 7 git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7325 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 --- lib/decoder.f90 | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/lib/decoder.f90 b/lib/decoder.f90 index 6049bb49e..e5a58859b 100644 --- a/lib/decoder.f90 +++ b/lib/decoder.f90 @@ -236,9 +236,10 @@ contains integer, intent(in) :: nsum integer, intent(in) :: minsync - integer i,nft + integer i,nft,nap(0:11) logical is_deep,is_average character decoded*22,csync*2,cflags*3 + data nap/0,2,4,2,4,5,2,4,7,5,7,7/ if(width.eq.-9999.0) stop !Silence compiler warning !$omp critical(decode_results) @@ -246,14 +247,14 @@ contains cflags=' ' is_deep=ft.eq.2 - if(ft.ge.80) then + if(ft.ge.80) then !QRA64 mode nft=ft-100 csync=': ' if(sync.ge.float(minsync) .or. nft.ge.0) csync=':*' if(nft.lt.0) then write(*,1009) params%nutc,snr,dt,freq,csync,decoded else - write(*,1009) params%nutc,snr,dt,freq,csync,decoded,nft + write(*,1009) params%nutc,snr,dt,freq,csync,decoded,nap(nft) 1009 format(i4.4,i4,f5.1,i5,1x,a2,1x,a22,i2) endif write(13,1011) params%nutc,nint(sync),snr,dt,float(freq),drift, &