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

One more attempt at fixing the bounds errors in spec64.

Browse Source
This commit is contained in:
Joe Taylor 2021-06-30 14:49:00 -04:00
parent 772e8d1947
commit e0c06168cf
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/spec64.f90
View File

@ -22,7 +22,9 @@ subroutine spec64(c0,npts,nsps,mode_q65,jpk,s3,LL,NN)
jb=ja+nsps-1 jb=ja+nsps-1
if(ja.lt.0) ja=0 if(ja.lt.0) ja=0
if(jb.gt.npts-1) jb=npts-1 if(jb.gt.npts-1) jb=npts-1
cs(0:nfft-1)=c0(ja:jb) nz=jb-ja
cs(0:nz)=c0(ja:jb)
if(nz.lt.nfft-1) cs(nz+1:)=0.
call four2a(cs,nsps,1,-1,1) !c2c FFT to frequency call four2a(cs,nsps,1,-1,1) !c2c FFT to frequency
do ii=1,LL do ii=1,LL
i=ii-65+mode_q65 !mode_q65 = 1 2 4 8 16 for Q65 A B C D E i=ii-65+mode_q65 !mode_q65 = 1 2 4 8 16 for Q65 A B C D E