w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-25 21:58:38 -05:00
Code Issues Packages Projects Releases Wiki Activity

Comment out the calls to plotspec. They were for testing only.

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8320 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2017-12-13 13:41:49 +00:00
parent c4f4e9d7bd
commit c98b4c00b1
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lib/ft8/foxgen.f90
View File

@ -113,7 +113,7 @@ subroutine foxgen()
peak1=maxval(abs(wave)) peak1=maxval(abs(wave))
wave=wave/peak1 wave=wave/peak1
call plotspec(1,wave) !Plot the spectrum ! call plotspec(1,wave) !Plot the spectrum
! Apply compression ! Apply compression
! rms=sqrt(dot_product(wave,wave)/kz) ! rms=sqrt(dot_product(wave,wave)/kz)
@ -124,7 +124,7 @@ subroutine foxgen()
! peak2=maxval(abs(wave)) ! peak2=maxval(abs(wave))
! wave=wave/peak2 ! wave=wave/peak2
call plotspec(2,wave) !Plot the spectrum ! call plotspec(2,wave) !Plot the spectrum
width=50.0 width=50.0
call foxfilt(nslots,width,wave) call foxfilt(nslots,width,wave)
@ -140,7 +140,7 @@ subroutine foxgen()
!3001 format(i8,f12.6) !3001 format(i8,f12.6)
! enddo ! enddo
call plotspec(3,wave) !Plot the spectrum ! call plotspec(3,wave) !Plot the spectrum
return return
end subroutine foxgen end subroutine foxgen