w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-02-03 09:44:24 -05:00
Code Issues Packages Projects Releases Wiki Activity

Disable diagnostic write.

Browse Source
This commit is contained in:
Joe Taylor 2021-05-13 08:42:00 -04:00
parent 7407dc6332
commit 43e2a95edf
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
map65/libm65/wideband2_sync.f90
View File

@ -148,10 +148,10 @@ subroutine wb2_sync(ss,savg,jz,nfa,nfb)
do i=1,4 do i=1,4
call pctile(savg(i,ia:ib),ib-ia+1,50,savg_med(i)) call pctile(savg(i,ia:ib),ib-ia+1,50,savg_med(i))
enddo enddo
do i=ia,ib ! do i=ia,ib
write(14,3014) 0.001*(i-1)*df3,savg(1:4,i) ! write(14,3014) 0.001*(i-1)*df3,savg(1:4,i)
3014 format(5f10.3) !3014 format(5f10.3)
enddo ! enddo
lagbest=0 lagbest=0
ipolbest=1 ipolbest=1