w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-25 05:38:46 -05:00
Code Issues Packages Projects Releases Wiki Activity

Protect against a bounds error.

Browse Source
This commit is contained in:
Joe Taylor 2018-08-31 13:55:44 -04:00
parent 81af6f1ed3
commit 65689c46cf
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/xcor4.f90
View File

@ -37,7 +37,7 @@ subroutine xcor4(s2,ipk,nsteps,nsym,lag1,lag2,ich,mode4,ccf,ccf0, &
ccfmax=0. ccfmax=0.
ccfmin=0. ccfmin=0.
nw=nch(ich) nw=nch(min(max(ich,1),7))
do j=1,nsteps do j=1,nsteps
n=2*mode4 n=2*mode4