From d987f8c5079d1abd5de0ce9a8ac5dc41f4e8bc17 Mon Sep 17 00:00:00 2001 From: Steven Franke Date: Tue, 5 Jul 2016 22:46:05 +0000 Subject: [PATCH] Remove debug writes. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6872 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 --- lib/detectmsk144.f90 | 10 +++++----- lib/msk144_decode.f90 | 1 + 2 files changed, 6 insertions(+), 5 deletions(-) diff --git a/lib/detectmsk144.f90 b/lib/detectmsk144.f90 index cde83deec..c013fe502 100644 --- a/lib/detectmsk144.f90 +++ b/lib/detectmsk144.f90 @@ -384,8 +384,8 @@ subroutine detectmsk144(cbig,n,pchk_file,lines,nmessages,nutc) else msgreceived=' ' ndither=-99 ! -99 is bad hash flag - write(78,1001) nutc,t0,nsnr,ic,ipk,is,idf,iav,deltaf,fest,ferr,ferr2,ffin,bba,bbp,nbadsync1,nbadsync2, & - phase0,niterations,ndither,msgreceived +! write(78,1001) nutc,t0,nsnr,ic,ipk,is,idf,iav,deltaf,fest,ferr,ferr2,ffin,bba,bbp,nbadsync1,nbadsync2, & +! phase0,niterations,ndither,msgreceived endif endif enddo ! frame averaging loop @@ -397,10 +397,10 @@ subroutine detectmsk144(cbig,n,pchk_file,lines,nmessages,nutc) ndither=-98 999 continue if( nmessages .ge. 1 ) then - write(78,1001) nutc,t0,nsnr,ic,ipk,is,idf,iav,deltaf,fest,ferr,ferr2,ffin,bba,bbp,nbadsync1,nbadsync2, & - phase0,niterations,ndither,msgreceived +! write(78,1001) nutc,t0,nsnr,ic,ipk,is,idf,iav,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,f8.2,f8.2,f8.2,f8.2,f8.2,f10.2,f8.2,i5,i5,f8.2,i5,i5,2x,a22) +!1001 format(i6.6,f8.2,i5,i5,i5,i5,i5,i5,f8.2,f8.2,f8.2,f8.2,f8.2,f10.2,f8.2,i5,i5,f8.2,i5,i5,2x,a22) exit endif enddo diff --git a/lib/msk144_decode.f90 b/lib/msk144_decode.f90 index 058161275..374ab9910 100644 --- a/lib/msk144_decode.f90 +++ b/lib/msk144_decode.f90 @@ -45,5 +45,6 @@ subroutine msk144_decode(id2,npts,nutc,nprint,pchk_file,line) endif endif + if(line(1)(1:6).eq.' ') line(1)(1:1)=char(0) return end subroutine msk144_decode