w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-03-29 07:28:54 -04:00
Code Issues Packages Projects Releases Wiki Activity

Another reformatting of output to fort.53.

Browse Source
This commit is contained in:
Joe Taylor 2020-11-16 13:49:31 -05:00
parent 7f772ecc53
commit 0755e52993
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lib/qra/q65/q65_loops.f90
View File

@ -121,12 +121,15 @@ subroutine q65_loops(c00,nutc,npts2,nsps,mode,mode64,nsubmode,nFadingModel, &
write(c77,1100) dat4(1:12),dat4(13)/2 write(c77,1100) dat4(1:12),dat4(13)/2
1100 format(12b6.6,b5.5) 1100 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
if(nsps.lt.3600) write(53,3001) nutc,ndf,ndt,nbw,ndist,irc, & m=nutc
iaptype,navg,snr1,xdt1,f1,snr2,trim(decoded) if(nsps.ge.3600) m=100*m
3001 format(i6.6,7i4,f7.1,f7.2,2f7.1,1x,a) ihr=m/10000
if(nsps.ge.3600) write(53,3002) nutc,ndf,ndt,nbw,ndist,irc, & imin=mod(m/100,100)
iaptype,navg,snr1,xdt1,f1,snr2,trim(decoded) isec=mod(m,100)
3002 format(i4.4,2x,7i4,f7.1,f7.2,2f7.1,1x,a) hours=ihr + imin/60.0 + isec/3600.0
write(53,3053) m,hours,ndf,ndt,nbw,ndist,irc,iaptype,navg,snr1, &
xdt1,f1,snr2,trim(decoded)
3053 format(i6.6,f8.4,4i3,i4,2i3,f6.1,f6.2,f7.1,f6.1,1x,a)
close(53) close(53)
!### !###
nsave=0 nsave=0