From ecf77ba04e83bd793f788fdd6c63f6d214c15790 Mon Sep 17 00:00:00 2001
From: Jordan Sherer <jordan@widefido.com>
Date: Thu, 2 Jan 2020 22:39:17 -0500
Subject: [PATCH] Fixed legacy real array index warning. Fixed NCOSTAS warning

---
 lib/decoder.f90    | 3 ++-
 lib/js8/genjs8.f90 | 1 +
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/lib/decoder.f90 b/lib/decoder.f90
index 609e849..a41c14e 100644
--- a/lib/decoder.f90
+++ b/lib/decoder.f90
@@ -34,6 +34,7 @@ subroutine multimode_decoder(ss,id2,params,nfsample)
 
   real ss(184,NSMAX)
   logical baddata,newdat65,newdat9,single_decode,bVHF,bad0,newdat,trydecode
+  integer pos, sz
   integer*2 id0(NTMAX*12000)
   integer*2 id2(NTMAX*12000)
   type(params_block) :: params
@@ -67,7 +68,7 @@ subroutine multimode_decoder(ss,id2,params,nfsample)
   if(mod(params%nranera,2).eq.1) ntrials=3*10**(params%nranera/2)
   if(params%nranera.eq.0) ntrials=0
   
-10  nfail=0
+  nfail=0
   if(params%nmode.eq.8) then
     n30z=0
     nwrap=0
diff --git a/lib/js8/genjs8.f90 b/lib/js8/genjs8.f90
index a0397ef..b53208b 100644
--- a/lib/js8/genjs8.f90
+++ b/lib/js8/genjs8.f90
@@ -11,6 +11,7 @@ subroutine genjs8(msg,mygrid,bcontest,i3bit,msgsent,msgbits,itone)
   parameter (ND=58)                     !Data symbols
   parameter (NS=21)                     !Sync symbols (3 @ Costas 7x7)
   parameter (NN=NS+ND)                  !Total channel symbols (79)
+  parameter (NCOSTAS=1)
   
   character*68 alphabet
   character*22 msg,msgsent