From 87c326a93987b1ceb2dc8412fa3bd46b756a7a28 Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Thu, 27 Apr 2017 19:08:52 +0000 Subject: [PATCH] More updates... git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7656 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 --- lib/fsk4hf/wspr5sim.f90 | 4 ---- 1 file changed, 4 deletions(-) diff --git a/lib/fsk4hf/wspr5sim.f90 b/lib/fsk4hf/wspr5sim.f90 index fca69f4fc..0b9ac8272 100644 --- a/lib/fsk4hf/wspr5sim.f90 +++ b/lib/fsk4hf/wspr5sim.f90 @@ -25,8 +25,6 @@ program wspr5sim read(arg,*) snrdb call genwspr5(msg,ichk,msgsent,itone,itype) - write(*,1234) itone(1:20) -1234 format(20i3) txt=NN*NSPS0/12000.0 write(*,1000) f0,xdt,txt,snrdb,nfiles,msgsent @@ -59,8 +57,6 @@ program wspr5sim if(phi.gt.twopi) phi=phi-twopi xphi=phi c0(k)=cmplx(cos(xphi),sin(xphi)) -! write(39,3039) k,-c0(k) -!3039 format(i8,2f12.6) enddo enddo c0=sig*c0 !Scale to requested sig level