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