Fix a bug in generating EME shorthand messages in JT65sim.

2020-04-09 10:40:21 -04:00 · 2020-04-09 10:40:21 -04:00 · eafaa1ce28
parent 11e1f78647
commit eafaa1ce28
1 changed files with 3 additions and 1 deletions
--- a/lib/jt65sim.f90
+++ b/lib/jt65sim.f90
@ -176,7 +176,9 @@ program jt65sim

        nprc_test=0
        i1=len(trim(msg))
-        if(msg(i1-3:i1).eq.' OOO') nprc_test=1
+        if(i1.gt.10) then
+           if(msg(i1-3:i1).eq.' OOO') nprc_test=1
+        endif
        k=0
        do j=1,nsym                         !Insert sync and data into itone()
           if(nprc(j).eq.nprc_test) then