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

Code cleanup.

Browse Source
This commit is contained in:
Joe Taylor 2020-11-03 15:49:11 -05:00
parent a01ebab363
commit 6d8958bce6
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lib/qra/q65/q65_loops.f90
View File

@ -12,11 +12,10 @@ subroutine q65_loops(c00,npts2,nsps,mode,mode64,nsubmode,nFadingModel, &
real s3(LN) !Symbol spectra real s3(LN) !Symbol spectra
real s3avg(LN) !Averaged symbol spectra real s3avg(LN) !Averaged symbol spectra
real s3prob(LN) !Symbol-value probabilities real s3prob(LN) !Symbol-value probabilities
real s3tmp(4032)
logical unpk77_success logical unpk77_success
integer APmask(13) integer APmask(13)
integer APsymbols(13) integer APsymbols(13)
integer dat4(13),dat4x(13) !Decoded message (as 13 six-bit integers) integer dat4(13) !Decoded message (as 13 six-bit integers)
integer nap(0:11) !AP return codes integer nap(0:11) !AP return codes
data nap/0,2,3,2,3,4,2,3,6,4,6,6/,nsave/0/ data nap/0,2,3,2,3,4,2,3,6,4,6,6/,nsave/0/
save nsave,s3avg save nsave,s3avg
@ -105,13 +104,14 @@ subroutine q65_loops(c00,npts2,nsps,mode,mode64,nsubmode,nFadingModel, &
snr2=esnodb - db(2500.0/baud) snr2=esnodb - db(2500.0/baud)
if(iavg.eq.0) navg=0 if(iavg.eq.0) navg=0
!### For tests only: !### For tests only:
open(53,file='fort.53',status='unknown') open(53,file='fort.53',status='unknown',position='append')
write(c77,1100) dat4 write(c77,1100) dat4
1100 format(12b6.6,b5.5) 1100 format(12b6.6,b5.5)
call unpack77(c77,0,decoded,unpk77_success) !Unpack to get msgsent call unpack77(c77,0,decoded,unpk77_success) !Unpack to get msgsent
write(53,3053) ndf,ndt,nbw,b90,xdt,f0,snr2,ndist,irc,ipass,navg, & write(53,3053) ndf,ndt,nbw,b90,xdt,f0,snr2,ndist,irc,ipass,navg, &
snr1,trim(decoded) snr1,trim(decoded)
3053 format(3i4,f6.1,f6.2,f7.1,f6.1,4i4,f7.2,1x,a) 3053 format(3i4,f6.1,f6.2,f7.1,f6.1,4i4,f7.2,1x,a)
close(53)
!### !###
nsave=0 nsave=0
s3avg=0. s3avg=0.