w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-08-01 13:42:39 -04:00
Code Issues Packages Projects Releases Wiki Activity

Disable diagnostic writing to 'fort.55' in CWD.

Browse Source
This commit is contained in:
Joe Taylor 2020-12-15 11:37:48 -05:00
parent 841bbac56e
commit 0ee61205aa
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lib/q65_sync.f90
View File

@ -186,11 +186,11 @@ subroutine q65_sync(nutc,iwave,nmax,mode_q65,codewords,ncw,nsps,nfqso,ntol, &
write(c77,1000) dat4(1:12),dat4(13)/2 write(c77,1000) dat4(1:12),dat4(13)/2
1000 format(12b6.6,b5.5) 1000 format(12b6.6,b5.5)
call unpack77(c77,0,decoded,unpk77_success) !Unpack to get msgsent call unpack77(c77,0,decoded,unpk77_success) !Unpack to get msgsent
open(55,file='fort.55',status='unknown',position='append') ! open(55,file='fort.55',status='unknown',position='append')
write(55,3055) nutc,ibw,xdt,f0,85.0*base,ccfmax,snr2,plog, & ! write(55,3055) nutc,ibw,xdt,f0,85.0*base,ccfmax,snr2,plog, &
irc,trim(decoded) ! irc,trim(decoded)
3055 format(i6,i3,6f8.2,i5,2x,a) !3055 format(i6,i3,6f8.2,i5,2x,a)
close(55) ! close(55)
go to 900 go to 900
endif endif
enddo enddo