mirror of https://github.com/saitohirga/WSJT-X.git
Command-line argument for decoding FT4 files.
This commit is contained in:
parent
e49e80ffb7
commit
a545b83bc3
13
lib/jt9.f90
13
lib/jt9.f90
|
@ -23,7 +23,7 @@ program jt9
|
||||||
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.
|
||||||
type (option) :: long_options(25) = [ &
|
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'), &
|
||||||
option ('tr-period', .true., 'p', 'Tx/Rx period, default MINUTES=1', &
|
option ('tr-period', .true., 'p', 'Tx/Rx period, default MINUTES=1', &
|
||||||
|
@ -48,10 +48,11 @@ program jt9
|
||||||
option ('fft-threads', .true., 'm', &
|
option ('fft-threads', .true., 'm', &
|
||||||
'Number of threads to process large FFTs, default THREADS=1', &
|
'Number of threads to process large FFTs, default THREADS=1', &
|
||||||
'THREADS'), &
|
'THREADS'), &
|
||||||
option ('jt65', .false., '6', 'JT65 mode', ''), &
|
|
||||||
option ('jt9', .false., '9', 'JT9 mode', ''), &
|
|
||||||
option ('ft8', .false., '8', 'FT8 mode', ''), &
|
|
||||||
option ('jt4', .false., '4', 'JT4 mode', ''), &
|
option ('jt4', .false., '4', 'JT4 mode', ''), &
|
||||||
|
option ('ft4', .false., '5', 'FT4 mode', ''), &
|
||||||
|
option ('jt65', .false.,'6', 'JT65 mode', ''), &
|
||||||
|
option ('ft8', .false., '8', 'FT8 mode', ''), &
|
||||||
|
option ('jt9', .false., '9', 'JT9 mode', ''), &
|
||||||
option ('qra64', .false., 'q', 'QRA64 mode', ''), &
|
option ('qra64', .false., 'q', 'QRA64 mode', ''), &
|
||||||
option ('sub-mode', .true., 'b', 'Sub mode, default SUBMODE=A', 'A'), &
|
option ('sub-mode', .true., 'b', 'Sub mode, default SUBMODE=A', 'A'), &
|
||||||
option ('depth', .true., 'd', &
|
option ('depth', .true., 'd', &
|
||||||
|
@ -76,7 +77,7 @@ program jt9
|
||||||
nsubmode = 0
|
nsubmode = 0
|
||||||
|
|
||||||
do
|
do
|
||||||
call getopt('hs:e:a:b:r:m:p:d:f:w:t:9864qTL:S:H:c:G:x:g:X:', &
|
call getopt('hs:e:a:b:r:m:p:d:f:w:t:98654qTL:S:H:c:G:x:g:X:', &
|
||||||
long_options,c,optarg,arglen,stat,offset,remain,.true.)
|
long_options,c,optarg,arglen,stat,offset,remain,.true.)
|
||||||
if (stat .ne. 0) then
|
if (stat .ne. 0) then
|
||||||
exit
|
exit
|
||||||
|
@ -113,6 +114,8 @@ program jt9
|
||||||
mode = 164
|
mode = 164
|
||||||
case ('4')
|
case ('4')
|
||||||
mode = 4
|
mode = 4
|
||||||
|
case ('5')
|
||||||
|
mode = 5
|
||||||
case ('6')
|
case ('6')
|
||||||
if (mode.lt.65) mode = mode + 65
|
if (mode.lt.65) mode = mode + 65
|
||||||
case ('9')
|
case ('9')
|
||||||
|
|
Loading…
Reference in New Issue