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

More tweaks

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7722 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2017-06-15 15:43:33 +00:00
parent c5ef1ed237
commit ec673490b4
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/fsk4hf/ft8sim.f90
View File

@ -94,7 +94,7 @@ program ft8sim
write(10) h,iwave !Save to *.wav file
close(10)
write(*,1110) ifile,xdt,f0,snrdb,fname
1110 format(i4,f7.2,f8.2,f7.1,2x,a16)
1110 format(i4,f7.2,f8.2,f7.1,2x,a17)
! do i=0,NZ-1
! write(13,3001) i,i/12000.0,c(i),iwave(i+1)
!3001 format(i8,f12.6,2f12.3,i8)

2
lib/fsk4hf/genft8.f90
View File

@ -7,7 +7,7 @@ subroutine genft8(msg,msgsent,itone)
include 'ft8_params.f90'
character*22 msg,msgsent
character*87 cbits
logical checksumok
! logical checksumok
integer*4 i4Msg6BitWords(12) !72-bit message as 6-bit words
integer*1 msgbits(KK),codeword(3*ND)
integer*1, target:: i1Msg8BitBytes(11)