Hello all,
.
Just a minor patch to prevent rare jt9 process crash in sync8.f90:
.
iz=ib-ia+1
call indexx(red(ia:ib),iz,indx)
--- ibase=indx(nint(0.40*iz)) - 1 + ia
+++ ibase=indx(max(1,nint(0.40*iz))) - 1 + ia ! max is workaround to prevent
indx getting out of bounds
.
73 Igor UA3DJY
------------------------------------------------------------------------------
Check out the vibrant tech community on one of the world's most
engaging tech sites, Slashdot.org! http://sdm.link/slashdot
_______________________________________________
wsjt-devel mailing list
wsjt-devel@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/wsjt-devel
