w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-15 08:31:57 -05:00
Code Issues Packages Projects Releases Wiki Activity

Improved diagnostic info.

Browse Source
This commit is contained in:
Joe Taylor 2021-07-19 11:55:44 -04:00
parent 30286b2261
commit f21ccca0bf
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
map65/libm65/map65a.f90
View File

@ -67,9 +67,10 @@ subroutine map65a(dd,ss,savg,newdat,nutc,fcenter,ntol,idphi,nfa,nfb, &
!### !###
! do k=1,ncand ! do k=1,ncand
! freq=cand(k)%f+nkhz_center-48.0-1.27046 ! freq=cand(k)%f+nkhz_center-48.0-1.27046
! write(*,3010) nutc,k,db(cand(k)%snr),cand(k)%f,freq,cand(k)%xdt, & ! ipk=cand(k)%indx
! cand(k)%ipol,cand(k)%iflip,cand(k)%indx ! write(*,3010) nutc,k,db(cand(k)%snr),freq,cand(k)%xdt, &
!3010 format('=a',i5.4,i5,f8.2,3f10.3,2i3,i6) ! cand(k)%ipol,cand(k)%iflip,ipk,ldecoded(ipk)
!3010 format('=a',i5.4,i5,f8.2,f10.3,f8.2,2i3,i6,L4)
! enddo ! enddo
!### !###