From d69564242ee9d67fbc8b58e37c9cab64b8a65b81 Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Thu, 16 Nov 2017 21:36:16 +0000 Subject: [PATCH] Oops! Disable flush(29). git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8244 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 --- lib/ft8/foxgen.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/ft8/foxgen.f90 b/lib/ft8/foxgen.f90 index 01c3a696f..f1971a6b5 100644 --- a/lib/ft8/foxgen.f90 +++ b/lib/ft8/foxgen.f90 @@ -92,7 +92,7 @@ subroutine foxgen(t) !1022 format(f10.3,2e12.3,2f10.3) if(freq.gt.3000.0) exit enddo - flush(29) +! flush(29) call system_clock(count1,clkfreq) time=float(count1-count0)/float(clkfreq) !Cumulative execution time