mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2026-06-07 08:24:53 -04:00
Many improvements to GUI. Fixed the "yellow waterfall" problem; fixed
generated names for *.wav files. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@2694 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
+8
-2
@@ -137,11 +137,17 @@ subroutine symspec(k,ntrperiod,nsps,nb,nbslider,pxdb,s,red, &
|
||||
|
||||
! call pctile(s,iz,50,xmed0)
|
||||
ave0=sum(s(1:iz))/iz
|
||||
s(1:iz)=s(1:iz)/ave0
|
||||
fac0=1.0/max(ave0,0.006)
|
||||
s(1:iz)=fac0*s(1:iz)
|
||||
! call pctile(ssum,iz,50,xmed1)
|
||||
ave1=sum(ssum(1:iz))/iz
|
||||
savg(1:iz)=ssum(1:iz)/ave1
|
||||
fac1=1.0/max(ave1,0.006*ihsym)
|
||||
savg(1:iz)=fac1*ssum(1:iz)
|
||||
call redsync(ss,ntrperiod,ihsym,iz,red)
|
||||
|
||||
! write(77,3001) ihsym,ave0,xmed0,ave1,xmed1
|
||||
!3001 format(i5,4f15.3)
|
||||
! call flush(77)
|
||||
|
||||
return
|
||||
end subroutine symspec
|
||||
|
||||
Reference in New Issue
Block a user