Remove two disused lines of code.

This commit is contained in:
Joe Taylor 2021-01-07 13:37:12 -05:00
parent f003ae653c
commit 3b54196206

View File

@ -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