mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-11-22 04:11:16 -05:00
Remove two disused lines of code.
This commit is contained in:
parent
f003ae653c
commit
3b54196206
@ -48,10 +48,5 @@ subroutine blanker(iwave,nz,ndropmax,npct,c_bigfft)
|
|||||||
endif
|
endif
|
||||||
enddo
|
enddo
|
||||||
|
|
||||||
fblanked=fblanked + 0.1*(float(ndropped)/nz - fblanked)
|
|
||||||
fblanked=float(ndropped)/nz
|
|
||||||
! write(*,3001) npct,nthresh,fblanked
|
|
||||||
!3001 format(2i5,f7.3)
|
|
||||||
|
|
||||||
return
|
return
|
||||||
end subroutine blanker
|
end subroutine blanker
|
||||||
|
Loading…
Reference in New Issue
Block a user