diff --git a/lib/msk144sim.f90 b/lib/msk144sim.f90 index dbb46a0e2..0a5a67529 100644 --- a/lib/msk144sim.f90 +++ b/lib/msk144sim.f90 @@ -4,12 +4,16 @@ program msk144sim parameter (NMAX=15*12000) real pings(0:NMAX-1) real waveform(0:NMAX-1) + character*6 mygrid character arg*8,msg*22,msgsent*22,fname*40 real wave(0:NMAX-1) !Simulated received waveform real*8 twopi,freq,phi,dphi0,dphi1,dphi type(hdr) h !Header for .wav file integer*2 iwave(0:NMAX-1) integer itone(144) !Message bits + integer*1 bcontest + data mygrid/"EN50wc"/ + data bcontest/0/ nargs=iargc() if(nargs.ne.5) then @@ -33,7 +37,7 @@ program msk144sim h=default_header(12000,NMAX) ichk=0 - call genmsk144(msg,ichk,msgsent,itone,itype) + call genmsk144(msg,mygrid,ichk,bcontest,msgsent,itone,itype) twopi=8.d0*atan(1.d0) nsym=144