From 98cfad968fb8d7eddbbf9e2079425a7d7498e16c Mon Sep 17 00:00:00 2001
From: Steven Franke <s.j.franke@icloud.com>
Date: Fri, 30 Sep 2016 21:09:28 +0000
Subject: [PATCH] Update msk144d2 to work with recent changes in genmsk144.

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7129 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
---
 lib/msk144sim.f90 | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

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