Send polarization of Q65 signals to LiveCQ.

This commit is contained in:
Joe Taylor 2021-05-14 13:32:49 -04:00
parent f2ca2124d4
commit 56e8f0ceee

View File

@ -150,7 +150,7 @@ subroutine q65b(nutc,nqd,fcenter,nfcal,nfsample,ikhz,mousedf,ntol,xpol, &
endif
! Write to lu 26, for Messages and Band Map windows
write(26,1014) freq0,nfreq0,0,0,0,xdt0,ipol0,0, &
write(26,1014) freq0,nfreq0,0,0,0,xdt0,45*(ipol-1),0, &
nsnr0,nutc,msg0(1:22),':',char(ichar('A') + mode_q65-1)
1014 format(f8.3,i5,3i3,f5.1,i4,i3,i4,i5.4,4x,a22,2x,a1,3x,':',a1)