From ab7c8115523b8815c35a89de554e3dbf2079584f Mon Sep 17 00:00:00 2001 From: Steve Franke Date: Tue, 17 Jul 2018 16:55:22 -0500 Subject: [PATCH] Remove bcontest from ft8sim2.f90 so that it works. --- lib/ft8/ft8sim2.f90 | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) diff --git a/lib/ft8/ft8sim2.f90 b/lib/ft8/ft8sim2.f90 index 7e9acbcaf..db764f80c 100644 --- a/lib/ft8/ft8sim2.f90 +++ b/lib/ft8/ft8sim2.f90 @@ -11,15 +11,12 @@ program ft8sim2 character arg*12,fname*17 character msg37*37,msgsent37*37,msg40*40 character c77*77 - character*6 mygrid6 - logical bcontest complex c0(0:NMAX-1) complex c(0:NMAX-1) real wave(NMAX) integer itone(NN) integer*1 msgbits(77) integer*2 iwave(NMAX) !Generated full-length waveform - data mygrid6/'EM48 '/ ! Get command-line argument(s) nargs=iargc() @@ -52,7 +49,6 @@ program ft8sim2 f0=1500 endif - bcontest=nfiles.lt.0 nfiles=abs(nfiles) twopi=8.0*atan(1.0) fs=12000.0 !Sample rate (Hz) @@ -68,7 +64,7 @@ program ft8sim2 ! Source-encode, then get itone() 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(*,'(a23,a37,3x,a7,i1,a1,i1)') 'New Style FT8 Message: ',msgsent37,'i3.n3: ',i3,'.',n3