diff --git a/map65/libm65/q65b.f90 b/map65/libm65/q65b.f90 index 85f58f771..ac2e6ad18 100644 --- a/map65/libm65/q65b.f90 +++ b/map65/libm65/q65b.f90 @@ -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)