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

Remove bcontest from ft8sim2.f90 so that it works.

Browse Source
This commit is contained in:
Steve Franke 2018-07-17 16:55:22 -05:00
parent a2128e50f9
commit ab7c811552
1 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lib/ft8/ft8sim2.f90
View File

@ -11,15 +11,12 @@ program ft8sim2
character arg*12,fname*17 character arg*12,fname*17
character msg37*37,msgsent37*37,msg40*40 character msg37*37,msgsent37*37,msg40*40
character c77*77 character c77*77
character*6 mygrid6
logical bcontest
complex c0(0:NMAX-1) complex c0(0:NMAX-1)
complex c(0:NMAX-1) complex c(0:NMAX-1)
real wave(NMAX) real wave(NMAX)
integer itone(NN) integer itone(NN)
integer*1 msgbits(77) integer*1 msgbits(77)
integer*2 iwave(NMAX) !Generated full-length waveform integer*2 iwave(NMAX) !Generated full-length waveform
data mygrid6/'EM48 '/
! Get command-line argument(s) ! Get command-line argument(s)
nargs=iargc() nargs=iargc()
@ -52,7 +49,6 @@ program ft8sim2
f0=1500 f0=1500
endif endif
bcontest=nfiles.lt.0
nfiles=abs(nfiles) nfiles=abs(nfiles)
twopi=8.0*atan(1.0) twopi=8.0*atan(1.0)
fs=12000.0 !Sample rate (Hz) fs=12000.0 !Sample rate (Hz)
@ -68,7 +64,7 @@ program ft8sim2
! Source-encode, then get itone() ! Source-encode, then get itone()
call pack77(msg37,i3,n3,c77) call pack77(msg37,i3,n3,c77)
call genft8_174_91(msg37,mygrid6,bcontest,i3,n3,msgsent37,msgbits,itone) call genft8_174_91(msg37,i3,n3,msgsent37,msgbits,itone)
write(*,*) write(*,*)
write(*,'(a23,a37,3x,a7,i1,a1,i1)') 'New Style FT8 Message: ',msgsent37,'i3.n3: ',i3,'.',n3 write(*,'(a23,a37,3x,a7,i1,a1,i1)') 'New Style FT8 Message: ',msgsent37,'i3.n3: ',i3,'.',n3