Merge branch 'release-2.4.0' of bitbucket.org:k1jt/wsjtx into release-2.4.0

2026-08-01 16:37:31 -04:00 · 2021-03-23 15:18:55 -04:00
parent 7bc1efdad3 74b2037187
commit 0508a01950
10 changed files with 6041 additions and 6416 deletions
@@ -64,6 +64,7 @@ subroutine morse(msg,idat,n)

 ! Insert this character
     nmax=ic(21,j)
+     if (n + nmax + 4 .gt. size (idat)) exit
     do i=1,nmax
        n=n+1
        idat(n)=ic(i,j)