From 4b3245ccb5ed4bcd9e0eb5d4ccb5348853debee7 Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Tue, 21 Nov 2017 21:04:37 +0000 Subject: [PATCH] Remove diagnostic write. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8252 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 --- lib/ft8/foxgen.f90 | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lib/ft8/foxgen.f90 b/lib/ft8/foxgen.f90 index 1e758175d..e0d116a2d 100644 --- a/lib/ft8/foxgen.f90 +++ b/lib/ft8/foxgen.f90 @@ -67,9 +67,9 @@ subroutine foxgen(t) enddo call system_clock(count1,clkfreq) - time=float(count1-count0)/float(clkfreq) !Cumulative execution time - write(*,3001) n,k,i,time,msgsent -3001 format(i1,i8,i4,f10.6,2x,a22) +! time=float(count1-count0)/float(clkfreq) !Cumulative execution time +! write(*,3001) n,k,i,time,msgsent +!3001 format(i1,i8,i4,f10.6,2x,a22) if(i.ge.m) exit enddo @@ -113,7 +113,7 @@ subroutine foxgen(t) flush(29) 100 call system_clock(count1,clkfreq) - time=float(count1-count0)/float(clkfreq) !Cumulative execution time +! time=float(count1-count0)/float(clkfreq) !Cumulative execution time ! write(*,3010) time !3010 format('Time:',f10.6)