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

Fixed another bounds limit in sync65.f.

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/trunk@306 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2006-09-20 12:32:08 +00:00
parent f266b12232
commit f561282a08
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
sync65.f
View File

@ -13,7 +13,9 @@ C NB: at this stage, submodes ABC are processed in the same way.
real psavg(NHMAX) !Average spectrum of whole record real psavg(NHMAX) !Average spectrum of whole record
real s2(NHMAX,NSMAX) !2d spectrum, stepped by half-symbols real s2(NHMAX,NSMAX) !2d spectrum, stepped by half-symbols
real ccfblue(-5:540) !CCF with pseudorandom sequence real ccfblue(-5:540) !CCF with pseudorandom sequence
real ccfred(-372:372) !Peak of ccfblue, as function of freq
C The value 450 is empirical:
real ccfred(-450:450) !Peak of ccfblue, as function of freq
real ccfred1(-224:224) !Peak of ccfblue, as function of freq real ccfred1(-224:224) !Peak of ccfblue, as function of freq
real tmp(450) real tmp(450)
save save
@ -145,7 +147,7 @@ C Compute width of sync tone to outermost -3 dB points
jpk=ipk-i0 jpk=ipk-i0
stest=base + 0.5*(ccfred(jpk)-base) ! -3 dB stest=base + 0.5*(ccfred(jpk)-base) ! -3 dB
do i=-10,0 do i=-10,0
if(jpk+i.ge.-223) then if(jpk+i.ge.-371) then
if(ccfred(jpk+i).gt.stest) go to 30 if(ccfred(jpk+i).gt.stest) go to 30
endif endif
enddo enddo
@ -153,7 +155,7 @@ C Compute width of sync tone to outermost -3 dB points
30 x1=i-1+(stest-ccfred(jpk+i-1))/(ccfred(jpk+i)-ccfred(jpk+i-1)) 30 x1=i-1+(stest-ccfred(jpk+i-1))/(ccfred(jpk+i)-ccfred(jpk+i-1))
do i=10,0,-1 do i=10,0,-1
if(jpk+i.le.223) then if(jpk+i.le.371) then
if(ccfred(jpk+i).gt.stest) go to 32 if(ccfred(jpk+i).gt.stest) go to 32
endif endif
enddo enddo