w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-03-23 12:38:53 -04:00
Code Issues Packages Projects Releases Wiki Activity

Remove two diagnostic prints.

Browse Source
This commit is contained in:
Joe Taylor 2020-04-14 16:40:24 -04:00
parent af4de10055
commit 00abc81a00
1 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/77bit/packjt77.f90
View File

@ -356,7 +356,6 @@ subroutine unpack77(c77,nrx,msg,unpk77_success)
j2b=0
if(j2a.eq.0) read(c77(49:49),'(b1)') j2b
j2=2*j2a+j2b
print*,'bbb',j2a,j2b,j2
if(j2.eq.0) then
! WSPR Type 1
read(c77,2010) n28,igrid4,idbm
@ -1010,7 +1009,6 @@ subroutine pack77_06(nwords,w,i3,n3,c77)
if(idbm.lt.0) idbm=0
if(idbm.gt.60) idbm=60
idbm=nint(0.3*idbm)
print*,'aaa',idbm
write(c77,1010) n28,igrid4,idbm,0,0,0,n3,i3
1010 format(b28.28,b15.15,b5.5,2i1,b21.21,2b3.3)
go to 900