w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-11-03 13:30:52 -05:00
Code Issues Packages Projects Releases Wiki Activity

Add bLowSidelobes argument to the call to symspec. It is initialized to FALSE.

Browse Source
This commit is contained in:
Steve Franke 2019-05-03 09:01:18 -05:00
parent b42ccd76b2
commit ab282fae78
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lib/jt9.f90
View File

@ -22,7 +22,8 @@ program jt9
!### ndepth was defined as 60001. Why??? !### ndepth was defined as 60001. Why???
integer :: arglen,stat,offset,remain,mode=0,flow=200,fsplit=2700, & integer :: arglen,stat,offset,remain,mode=0,flow=200,fsplit=2700, &
fhigh=4000,nrxfreq=1500,ntrperiod=1,ndepth=1,nexp_decode=0 fhigh=4000,nrxfreq=1500,ntrperiod=1,ndepth=1,nexp_decode=0
logical :: read_files = .true., tx9 = .false., display_help = .false. logical :: read_files = .true., tx9 = .false., display_help = .false., &
bLowSidelobes = .false.
type (option) :: long_options(26) = [ & type (option) :: long_options(26) = [ &
option ('help', .false., 'h', 'Display this help message', ''), & option ('help', .false., 'h', 'Display this help message', ''), &
option ('shmem',.true.,'s','Use shared memory for sample data','KEY'), & option ('shmem',.true.,'s','Use shared memory for sample data','KEY'), &
@ -242,7 +243,7 @@ program jt9
ingain=0 ingain=0
call timer('symspec ',0) call timer('symspec ',0)
nminw=1 nminw=1
call symspec(shared_data,k,ntrperiod,nsps,ingain,nminw,pxdb, & call symspec(shared_data,k,ntrperiod,nsps,ingain,bLowSidelobes,nminw,pxdb, &
s,df3,ihsym,npts8,pxdbmax) s,df3,ihsym,npts8,pxdbmax)
call timer('symspec ',1) call timer('symspec ',1)
endif endif