w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-05-31 22:02:49 -04:00
Code Issues Packages Projects Releases Wiki Activity

Comment out a debug message.

Browse Source
This commit is contained in:
Steve Franke 2018-07-03 11:17:21 -05:00
parent 3f897225fe
commit 385cda8e01
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/ft8/genft8.f90
View File

@ -20,8 +20,8 @@ subroutine genft8(msg,mygrid,bcontest,i3,n3,msgsent,msgbits,itone)
itype=1 itype=1
if( ( i3.eq.0 .and. n3.ge.1) .or. i3.ge.1 ) itype=2 if( ( i3.eq.0 .and. n3.ge.1) .or. i3.ge.1 ) itype=2
write(*,*) 'generating type ',itype,' message' !write(*,*) 'generating type ',itype,' message'
write(*,*) 'msg ',msg,i3,n3 !write(*,*) 'msg ',msg,i3,n3
if(itype.eq.2 ) goto 900 if(itype.eq.2 ) goto 900
i3=i3*i3 i3=i3*i3