w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-16 17:11:53 -05:00
Code Issues Packages Projects Releases Wiki Activity

Remove debug writes.

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6872 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Steven Franke 2016-07-05 22:46:05 +00:00
parent 92088369e6
commit d987f8c507
2 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lib/detectmsk144.f90
View File

@ -384,8 +384,8 @@ subroutine detectmsk144(cbig,n,pchk_file,lines,nmessages,nutc)
else else
msgreceived=' ' msgreceived=' '
ndither=-99 ! -99 is bad hash flag 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, & ! write(78,1001) nutc,t0,nsnr,ic,ipk,is,idf,iav,deltaf,fest,ferr,ferr2,ffin,bba,bbp,nbadsync1,nbadsync2, &
phase0,niterations,ndither,msgreceived ! phase0,niterations,ndither,msgreceived
endif endif
endif endif
enddo ! frame averaging loop enddo ! frame averaging loop
@ -397,10 +397,10 @@ subroutine detectmsk144(cbig,n,pchk_file,lines,nmessages,nutc)
ndither=-98 ndither=-98
999 continue 999 continue
if( nmessages .ge. 1 ) then 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, & ! write(78,1001) nutc,t0,nsnr,ic,ipk,is,idf,iav,deltaf,fest,ferr,ferr2,ffin,bba,bbp,nbadsync1,nbadsync2, &
phase0,niterations,ndither,msgreceived ! phase0,niterations,ndither,msgreceived
call flush(78) 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 exit
endif endif
enddo enddo

1
lib/msk144_decode.f90
View File

@ -45,5 +45,6 @@ subroutine msk144_decode(id2,npts,nutc,nprint,pchk_file,line)
endif endif
endif endif
if(line(1)(1:6).eq.' ') line(1)(1:1)=char(0)
return return
end subroutine msk144_decode end subroutine msk144_decode