w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-25 13:48:42 -05:00
Code Issues Packages Projects Releases Wiki Activity

Restore AGC action in sync_qra65().

Browse Source
This commit is contained in:
Joe Taylor 2020-09-25 13:31:43 -04:00
parent 7fd2f1afe6
commit 443aee5355
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lib/sync_qra65.f90
View File

@ -54,10 +54,10 @@ subroutine sync_qra65(iwave,nmax,mode65,nsps,nfqso,ntol,xdt,f0,snr1)
s1max=20.0
! Apply AGC
! do j=1,jz
! smax=maxval(s1(i0-64:i0+192,j))
! if(smax.gt.s1max) s1(i0-64:i0+192,j)=s1(i0-64:i0+192,j)*s1max/smax
! enddo
do j=1,jz
smax=maxval(s1(i0-64:i0+192,j))
if(smax.gt.s1max) s1(i0-64:i0+192,j)=s1(i0-64:i0+192,j)*s1max/smax
enddo
! do i=1,iz
! write(60,3060) i,i*df,sum(s1(i,1:jz))