From f68c86854b07c399109e0e6fd0a7c2bfb94e6a1b Mon Sep 17 00:00:00 2001 From: Steven Franke Date: Thu, 6 Jul 2017 14:57:55 +0000 Subject: [PATCH] Remove a diagnostic write. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7788 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 --- lib/fsk4hf/subtractft8.f90 | 1 - 1 file changed, 1 deletion(-) diff --git a/lib/fsk4hf/subtractft8.f90 b/lib/fsk4hf/subtractft8.f90 index 047a34faa..2cda67e90 100644 --- a/lib/fsk4hf/subtractft8.f90 +++ b/lib/fsk4hf/subtractft8.f90 @@ -21,7 +21,6 @@ subroutine subtractft8(dd,itone,f0,dt) nstart=dt*12000+1 call genft8refsig(itone,cref,f0) -write(*,*) 'dt ',dt,'nstart ',nstart camp=0. do i=1,nframe id=nstart-1+i