diff --git a/lib/jt65sim.f90 b/lib/jt65sim.f90 index 6f7030cf4..67f33acfb 100644 --- a/lib/jt65sim.f90 +++ b/lib/jt65sim.f90 @@ -169,23 +169,17 @@ program jt65sim if(csubmode.eq.'B' .and. snrdb.eq.0.0) xsnr=-21 - isig if(csubmode.eq.'C' .and. snrdb.eq.0.0) xsnr=-21 - isig -!### -! call1="K1ABC" -! ic3=65+mod(isig-1,26) -! ic2=65+mod((isig-1)/26,26) -! ic1=65 -! call2="W9"//char(ic1)//char(ic2)//char(ic3) -! write(msg,1010) call1,call2,nint(xsnr) -!1010 format(a5,1x,a5,1x,i3.2) -!### call packmsg(msg,dgen,itype) !Pack message into 12 six-bit bytes call rs_encode(dgen,sent) !Encode using RS(63,12) call interleave63(sent,1) !Interleave channel symbols call graycode65(sent,63,1) !Apply Gray code + nprc_test=0 + i1=len(trim(msg)) + if(msg(i1-3:i1).eq.' OOO') nprc_test=1 k=0 do j=1,nsym !Insert sync and data into itone() - if(nprc(j).eq.0) then + if(nprc(j).eq.nprc_test) then k=k+1 itone(j)=sent(k)+2 else