chris/js8call
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Experiment with compression

Browse Source
This commit is contained in:
Jordan Sherer 2018-11-03 02:57:25 -04:00
parent 2d5b41d4b7
commit b0c57029e8
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lib/ft8/foxgen.f90
View File

@ -117,13 +117,13 @@ subroutine foxgen()
! call plotspec(1,wave) !Plot the spectrum
! Apply compression
! rms=sqrt(dot_product(wave,wave)/kz)
! wave=wave/rms
! do i=1,NWAVE
! wave(i)=h1(wave(i))
! enddo
! peak2=maxval(abs(wave))
! wave=wave/peak2
rms=sqrt(dot_product(wave,wave)/kz)
wave=wave/rms
do i=1,NWAVE
wave(i)=h1(wave(i))
enddo
peak2=maxval(abs(wave))
wave=wave/peak2
! call plotspec(2,wave) !Plot the spectrum