mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2025-07-02 18:05:15 -04:00
24 lines
462 B
Fortran
24 lines
462 B
Fortran
|
subroutine chkstat(dd,ihsym,bSkip)
|
||
|
|
|
||
|
|
real dd(2,5760000)
|
||
|
|
real power(60)
|
||
|
|
logical*1 bSkip
|
||
|
|
|
||
|
|
k=0
|
||
|
|
do i=1,60
|
||
|
|
sq=0.
|
||
|
|
do j=1,96000
|
||
|
|
k=k+1
|
||
|
|
sq=sq + dd(1,k)*dd(1,k) + dd(2,k)*dd(2,k)
|
||
|
|
enddo
|
||
|
|
power(i)=sq/(2.0*96000.0)
|
||
|
|
enddo
|
||
|
|
bSkip=.false.
|
||
|
|
n1=count(power(1:30).lt.15.0)
|
||
|
|
n2=count(power(31:60).lt.15.0)
|
||
|
|
if(ihsym.le.200 .and. n1.gt.15) bSkip=.true.
|
||
|
|
if(ihsym.gt.200 .and. n2.gt.15) bSkip=.true.
|
||
|
|
|
||
|
|
return
|
||
|
|
end subroutine chkstat
|