When jt9 is run from command line, set Q65 default FTol = 10.

This commit is contained in:
Joe Taylor 2020-11-15 11:58:36 -05:00
parent dc3d567ce8
commit 4903b38220
1 changed files with 2 additions and 1 deletions

View File

@ -51,7 +51,7 @@ program jt9
option ('fft-threads', .true., 'm', &
'Number of threads to process large FFTs, default THREADS=1', &
'THREADS'), &
option ('qra66', .false., '3', 'QRA66 mode', ''), &
option ('q65', .false., '3', 'Q65 mode', ''), &
option ('jt4', .false., '4', 'JT4 mode', ''), &
option ('ft4', .false., '5', 'FT4 mode', ''), &
option ('jt65', .false.,'6', 'JT65 mode', ''), &
@ -263,6 +263,7 @@ program jt9
shared_data%params%nfsplit=fsplit
shared_data%params%nfb=fhigh
shared_data%params%ntol=20
if(mode.eq.66) shared_data%params%ntol=10
shared_data%params%kin=64800
if(mode.eq.240) shared_data%params%kin=720000 !### 60 s periods ###
shared_data%params%nzhsym=nhsym