From d4216f4bb0ebd01729eabaa9cb1b11315ad0f640 Mon Sep 17 00:00:00 2001 From: Steven Franke Date: Wed, 3 Aug 2016 13:23:51 +0000 Subject: [PATCH] Comment out diagnostic print. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6986 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 --- lib/detectmsk144.f90 | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/lib/detectmsk144.f90 b/lib/detectmsk144.f90 index eb6a55d0c..9f7842ca5 100644 --- a/lib/detectmsk144.f90 +++ b/lib/detectmsk144.f90 @@ -393,11 +393,11 @@ subroutine detectmsk144(cbig,n,pchk_file,lines,nmessages,nutc,ntol,t00) ndither=-98 999 continue if( nmessages .ge. 1 ) then - write(78,1001) nutc,t0,nsnr,ip,ipk,is,idf,iav,ipha,deltaf,fest,ferr,ferr2, & - ffin,bba,bbp,nbadsync1,nbadsync2, & - phase0,niterations,ndither,msgreceived - call flush(78) -1001 format(i6.6,f8.2,i5,i5,i5,i5,i5,i5,i5,f6.2,f8.2,f8.2,f8.2,f8.2,f11.1,f8.2,i5,i5,f8.2,i5,i5,2x,a22) +! write(78,1001) nutc,t0,nsnr,ip,ipk,is,idf,iav,ipha,deltaf,fest,ferr,ferr2, & +! ffin,bba,bbp,nbadsync1,nbadsync2, & +! phase0,niterations,ndither,msgreceived +! call flush(78) +!1001 format(i6.6,f8.2,i5,i5,i5,i5,i5,i5,i5,f6.2,f8.2,f8.2,f8.2,f8.2,f11.1,f8.2,i5,i5,f8.2,i5,i5,2x,a22) exit endif enddo