mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-12-24 11:40:31 -05:00
Fix another cause of possible bounds errors in sync64; comment out the call to sync64, for now.
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:
parent
dbe0f7b099
commit
da7c135c9a
@ -105,7 +105,7 @@ subroutine qra64a(dd0,nutc,nf1,nf2,nfqso,ntol,mycall_12,hiscall_12, &
|
||||
! write(*,5001) dtx,nint(f0),0,snr1
|
||||
!5001 format(f6.3,2i6,f7.1)
|
||||
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
|
||||
|
||||
mycall=mycall_12(1:6) !### May need fixing ###
|
||||
|
@ -104,8 +104,8 @@ subroutine sync64(dd,nf1,nf2,nfqso,ntol,maxf1,dtx,f0,kpk,snrdb,s3a)
|
||||
endif
|
||||
enddo
|
||||
enddo
|
||||
ja=jpk-2*jstep
|
||||
jb=jpk+2*jstep
|
||||
ja=max(0,jpk-2*jstep)
|
||||
jb=min(336000-NSPC,jpk+2*jstep)
|
||||
jstep=10
|
||||
! ka=kpk
|
||||
! kb=kpk
|
||||
|
Loading…
Reference in New Issue
Block a user