w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-01 08:07:10 -04:00
Code Issues Packages Projects Releases Wiki Activity

Fix another cause of possible bounds errors in sync64; comment out the call to sync64, for now.

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6944 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2016-07-24 12:32:14 +00:00
parent 48a2288893
commit 845443af6c
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/qra64a.f90
View File

@ -105,7 +105,7 @@ subroutine qra64a(dd0,nutc,nf1,nf2,nfqso,ntol,mycall_12,hiscall_12, &
! write(*,5001) dtx,nint(f0),0,snr1 ! write(*,5001) dtx,nint(f0),0,snr1
!5001 format(f6.3,2i6,f7.1) !5001 format(f6.3,2i6,f7.1)
maxf1=10 maxf1=10
call sync64(dd0,nf1,nf2,nfqso,ntol,maxf1,dtx,f0,kpk,snr,s3a) ! call sync64(dd0,nf1,nf2,nfqso,ntol,maxf1,dtx,f0,kpk,snr,s3a)
! write(*,5001) dtx,nint(f0),kpk,snr ! write(*,5001) dtx,nint(f0),kpk,snr
mycall=mycall_12(1:6) !### May need fixing ### mycall=mycall_12(1:6) !### May need fixing ###

4
lib/sync64.f90
View File

@ -104,8 +104,8 @@ subroutine sync64(dd,nf1,nf2,nfqso,ntol,maxf1,dtx,f0,kpk,snrdb,s3a)
endif endif
enddo enddo
enddo enddo
ja=jpk-2*jstep ja=max(0,jpk-2*jstep)
jb=jpk+2*jstep jb=min(336000-NSPC,jpk+2*jstep)
jstep=10 jstep=10
! ka=kpk ! ka=kpk
! kb=kpk ! kb=kpk