w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-08-03 06:32:26 -04:00
Code Issues Packages Projects Releases Wiki Activity

Minor cleanup of symspec.f90.

Browse Source
This commit is contained in:
Joe Taylor 2022-09-08 12:57:37 -04:00
parent c3579831ba
commit 64108e85ea
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lib/symspec.f90
View File

@ -55,6 +55,7 @@ subroutine symspec(shared_data,k,TRperiod,nsps,ingain,bLowSidelobes, &
endif endif
if(k.lt.k0) then !Start a new data block if(k.lt.k0) then !Start a new data block
k0=0
ja=0 ja=0
ssum=0. ssum=0.
ihsym=0 ihsym=0
@ -64,10 +65,6 @@ subroutine symspec(shared_data,k,TRperiod,nsps,ingain,bLowSidelobes, &
sq=0. sq=0.
pxmax=0.; pxmax=0.;
! dwell_time=0.0001
! if(k.gt.k0 .and. npct.gt.0) call blanker(shared_data%id2(k0+1:k), &
! k-k0,dwell_time,npct)
do i=k0+1,k do i=k0+1,k
x1=shared_data%id2(i) x1=shared_data%id2(i)
if (abs(x1).gt.pxmax) pxmax = abs(x1); if (abs(x1).gt.pxmax) pxmax = abs(x1);