Fixed legacy real array index warning. Fixed NCOSTAS warning

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

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