From 8bedcd755ca1b91f24a65a2e6463c4f5527ab2bc Mon Sep 17 00:00:00 2001 From: Steven Franke Date: Sat, 30 Jul 2016 00:45:31 +0000 Subject: [PATCH] Remove a debug statement. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6969 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 --- lib/detectmsk144.f90 | 1 - 1 file changed, 1 deletion(-) diff --git a/lib/detectmsk144.f90 b/lib/detectmsk144.f90 index e78ba2d65..4240bb6ff 100644 --- a/lib/detectmsk144.f90 +++ b/lib/detectmsk144.f90 @@ -202,7 +202,6 @@ subroutine detectmsk144(cbig,n,pchk_file,lines,nmessages,nutc,ntol,t00) crmax=maxval(abs(ccr)) ishort=0 if( crmax .gt. cmax ) ishort=1 -if( ishort .eq. 1 ) write(*,*) 'Short message detected' ! Find 6 largest peaks do ipk=1, 6