w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-05-23 18:02:29 -04:00
Code Issues Packages Projects Releases Wiki Activity

Fix a possible floating point exception in q65_loops by making s3 allocatable.

Browse Source
This commit is contained in:
Joe Taylor 2021-04-15 13:52:18 -04:00
parent 2ed4ca3aaf
commit c61e796c50
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lib/qra/q65/q65_loops.f90
View File

@ -11,14 +11,16 @@ subroutine q65_loops(c00,npts2,nsps2,nsubmode,ndepth,jpk0, &
complex ,allocatable :: c0(:) !Ditto, with freq shift complex ,allocatable :: c0(:) !Ditto, with freq shift
character decoded*37 character decoded*37
real a(3) !twkfreq params f,f1,f2 real a(3) !twkfreq params f,f1,f2
real s3(LN) !Symbol spectra real,allocatable :: s3(:) !Symbol spectra
integer dat4(13) !Decoded message (as 13 six-bit integers) integer dat4(13) !Decoded message (as 13 six-bit integers)
integer nap(0:11) !AP return codes integer nap(0:11) !AP return codes
data nap/0,2,3,2,3,4,2,3,6,4,6,6/ data nap/0,2,3,2,3,4,2,3,6,4,6,6/
LL=64*(mode_q65+2)
allocate(s3(LL*NN))
allocate(c0(0:npts2-1))
idec=-1 idec=-1
ircbest=9999 ircbest=9999
allocate(c0(0:npts2-1))
irc=-99 irc=-99
s3lim=20. s3lim=20.
baud=6000.0/nsps2 baud=6000.0/nsps2
@ -34,7 +36,6 @@ subroutine q65_loops(c00,npts2,nsps2,nsubmode,ndepth,jpk0, &
endif endif
if(iand(ndepth,3).eq.3) maxdist=15 if(iand(ndepth,3).eq.3) maxdist=15
LL=64*(mode_q65+2)
napmin=99 napmin=99
xdt1=xdt0 xdt1=xdt0
f1=f0 f1=f0