From c98b4c00b1d5432c2e4dabe32aab6627d84ae0e4 Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Wed, 13 Dec 2017 13:41:49 +0000 Subject: [PATCH] Comment out the calls to plotspec. They were for testing only. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8320 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 --- lib/ft8/foxgen.f90 | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lib/ft8/foxgen.f90 b/lib/ft8/foxgen.f90 index 5a9e37bf4..d9ae1ee81 100644 --- a/lib/ft8/foxgen.f90 +++ b/lib/ft8/foxgen.f90 @@ -113,7 +113,7 @@ subroutine foxgen() peak1=maxval(abs(wave)) wave=wave/peak1 - call plotspec(1,wave) !Plot the spectrum +! call plotspec(1,wave) !Plot the spectrum ! Apply compression ! rms=sqrt(dot_product(wave,wave)/kz) @@ -124,7 +124,7 @@ subroutine foxgen() ! peak2=maxval(abs(wave)) ! wave=wave/peak2 - call plotspec(2,wave) !Plot the spectrum +! call plotspec(2,wave) !Plot the spectrum width=50.0 call foxfilt(nslots,width,wave) @@ -140,7 +140,7 @@ subroutine foxgen() !3001 format(i8,f12.6) ! enddo - call plotspec(3,wave) !Plot the spectrum +! call plotspec(3,wave) !Plot the spectrum return end subroutine foxgen