w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-10-31 15:47:10 -04:00
Code Issues Packages Projects Releases Wiki Activity
b6b8271a6d
WSJT-X/lib/decoder.f90

620 lines
19 KiB
Fortran
Raw Normal View History

Restructuring in preparation for direct decoder invocation from wsjtx Re-factor the JT4, JT65 and JT9 decoders as Fortran modules using type bound procedures, the decoder types implement a callback procedure such that he client of the decoder can interpret the decode results as they need. The JT4 decoder has a second callback that delivers message averaging status. Also the previously separate source files lib/jt4a.f90 and lib/avg4.f90 have been merged into lib/jt4_decode.f90 as private type bound procedures of the new jt4_decoder type. Re-factored the lib/decoder.f90 subroutine to utilize the new decoder types. Added local procedures to process decodes and averaging results including the necessary OpenMP synchronization directives for parallel JT9+JT65 decoding. Added the jt65_test module which is a basic test harness for JT65 decoding. Re-factored the jt65 utility to utilize the new jt65_test module. Changed a few integers to logical variables where their meaning is clearly binary. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6324 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2015-12-29 18:52:55 -05:00
subroutine multimode_decoder(ss,id2,params,nfsample)
Open decoded.txt in append mode when redoing a decode pass. Before the subsequent decodes on a period (nagain/=0) were truncating the file and confusing JTAlert. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@4047 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2014-04-19 22:44:47 -04:00
Thread safe lib/timer.f90 Accounts for each traced call per thread and accumulates by rolling up calls with an identical call chain before printing the statistics. The print now accounts for function calls in their call chain so the same function will be reported more than once if it is called in different places. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@4937 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2015-02-05 17:07:19 -05:00
!$ use omp_lib
Make Fortran profiling timer function a callback with a default null implementation Groundwork for calling the decoders directly from C/C++ threads. To access the timer module timer_module must now be used. Instrumented code need only use the module function 'timer' which is now a procedure pointer that is guaranteed to be associated (unless null() is assigned to it, which should not be done). The default behaviour of 'timer' is to do nothing. If a Fortran program wishes to profile code it should now use the timer_impl module which contains a default timer implementation. The main program should call 'init_timer([filename])' before using 'timer' or calling routines that are instrumented. If 'init_timer([filename])'. If it is called then an optional file name may be provided with 'timer.out' being used as a default. The procedure 'fini_timer()' may be called to close the file. The default timer implementation is thread safe if used with OpenMP multi-threaded code so long as the OpenMP thread team is given the copyin(/timer_private/) attribute for correct operation. The common block /timer_private/ should be included for OpenMP use by including the file 'timer_common.inc'. The module 'lib/timer_C_wrapper.f90' provides a Fortran wrapper along with 'init' and 'fini' subroutines which allow a C/C++ application to call timer instrumented Fortran code and for it to receive callbacks of 'timer()' subroutine invocations. No C/C++ timer implementation is provided at this stage. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6320 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2015-12-27 10:40:57 -05:00
use prog_args
use timer_module, only: timer
Restructuring in preparation for direct decoder invocation from wsjtx Re-factor the JT4, JT65 and JT9 decoders as Fortran modules using type bound procedures, the decoder types implement a callback procedure such that he client of the decoder can interpret the decode results as they need. The JT4 decoder has a second callback that delivers message averaging status. Also the previously separate source files lib/jt4a.f90 and lib/avg4.f90 have been merged into lib/jt4_decode.f90 as private type bound procedures of the new jt4_decoder type. Re-factored the lib/decoder.f90 subroutine to utilize the new decoder types. Added local procedures to process decodes and averaging results including the necessary OpenMP synchronization directives for parallel JT9+JT65 decoding. Added the jt65_test module which is a basic test harness for JT65 decoding. Re-factored the jt65 utility to utilize the new jt65_test module. Changed a few integers to logical variables where their meaning is clearly binary. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6324 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2015-12-29 18:52:55 -05:00
use jt4_decode
use jt65_decode
use jt9_decode
Start a framework for FT8 decoder. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7727 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2017-06-17 11:55:30 -04:00
use ft8_decode
Some very basic functionality for time-synchronized FT4.
2019-04-01 14:23:10 -04:00
use ft4_decode
Adjust the jt9 decoder to do the right decodes in parallel Also limit the required threads for parallel decoding to 2. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@4930 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2015-02-04 10:34:46 -05:00
Get rid of jt9com and npar common blocks Also use correct C binding and have compilers determine sizes and offsets. The wsjtx.exe program now owns the decoder shared data that is shared with symspec. It is now in struct dec_data, still a global variable for now but hopefully a MainWindow member variable soon. The struct dec_data (in both C/C++ and Fortran) has a sub structure with the decoder parameters which enables copying and manipulating a lot cleaner. New of changed types of shared data must still be modified in commons.h and a new file lib/jt9com.f90, they must stay in sync as a pointer to the structure is passed between C and Fortran. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6290 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2015-12-17 15:29:55 -05:00
include 'jt9com.f90'
Make Fortran profiling timer function a callback with a default null implementation Groundwork for calling the decoders directly from C/C++ threads. To access the timer module timer_module must now be used. Instrumented code need only use the module function 'timer' which is now a procedure pointer that is guaranteed to be associated (unless null() is assigned to it, which should not be done). The default behaviour of 'timer' is to do nothing. If a Fortran program wishes to profile code it should now use the timer_impl module which contains a default timer implementation. The main program should call 'init_timer([filename])' before using 'timer' or calling routines that are instrumented. If 'init_timer([filename])'. If it is called then an optional file name may be provided with 'timer.out' being used as a default. The procedure 'fini_timer()' may be called to close the file. The default timer implementation is thread safe if used with OpenMP multi-threaded code so long as the OpenMP thread team is given the copyin(/timer_private/) attribute for correct operation. The common block /timer_private/ should be included for OpenMP use by including the file 'timer_common.inc'. The module 'lib/timer_C_wrapper.f90' provides a Fortran wrapper along with 'init' and 'fini' subroutines which allow a C/C++ application to call timer instrumented Fortran code and for it to receive callbacks of 'timer()' subroutine invocations. No C/C++ timer implementation is provided at this stage. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6320 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2015-12-27 10:40:57 -05:00
include 'timer_common.inc'
Restructuring in preparation for direct decoder invocation from wsjtx Re-factor the JT4, JT65 and JT9 decoders as Fortran modules using type bound procedures, the decoder types implement a callback procedure such that he client of the decoder can interpret the decode results as they need. The JT4 decoder has a second callback that delivers message averaging status. Also the previously separate source files lib/jt4a.f90 and lib/avg4.f90 have been merged into lib/jt4_decode.f90 as private type bound procedures of the new jt4_decoder type. Re-factored the lib/decoder.f90 subroutine to utilize the new decoder types. Added local procedures to process decodes and averaging results including the necessary OpenMP synchronization directives for parallel JT9+JT65 decoding. Added the jt65_test module which is a basic test harness for JT65 decoding. Re-factored the jt65 utility to utilize the new jt65_test module. Changed a few integers to logical variables where their meaning is clearly binary. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6324 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2015-12-29 18:52:55 -05:00
type, extends(jt4_decoder) :: counting_jt4_decoder
integer :: decoded
end type counting_jt4_decoder
type, extends(jt65_decoder) :: counting_jt65_decoder
integer :: decoded
end type counting_jt65_decoder
type, extends(jt9_decoder) :: counting_jt9_decoder
integer :: decoded
end type counting_jt9_decoder
Start a framework for FT8 decoder. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7727 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2017-06-17 11:55:30 -04:00
type, extends(ft8_decoder) :: counting_ft8_decoder
integer :: decoded
end type counting_ft8_decoder
Some very basic functionality for time-synchronized FT4.
2019-04-01 14:23:10 -04:00
type, extends(ft4_decoder) :: counting_ft4_decoder
integer :: decoded
end type counting_ft4_decoder
Open decoded.txt in append mode when redoing a decode pass. Before the subsequent decodes on a period (nagain/=0) were truncating the file and confusing JTAlert. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@4047 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2014-04-19 22:44:47 -04:00
real ss(184,NSMAX)
Fox's Reset now clears the arrays of hound callers. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8635 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2018-04-24 10:15:13 -04:00
logical baddata,newdat65,newdat9,single_decode,bVHF,bad0,newdat,ex
Open decoded.txt in append mode when redoing a decode pass. Before the subsequent decodes on a period (nagain/=0) were truncating the file and confusing JTAlert. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@4047 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2014-04-19 22:44:47 -04:00
integer*2 id2(NTMAX*12000)
Get rid of jt9com and npar common blocks Also use correct C binding and have compilers determine sizes and offsets. The wsjtx.exe program now owns the decoder shared data that is shared with symspec. It is now in struct dec_data, still a global variable for now but hopefully a MainWindow member variable soon. The struct dec_data (in both C/C++ and Fortran) has a sub structure with the decoder parameters which enables copying and manipulating a lot cleaner. New of changed types of shared data must still be modified in commons.h and a new file lib/jt9com.f90, they must stay in sync as a pointer to the structure is passed between C and Fortran. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6290 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2015-12-17 15:29:55 -05:00
type(params_block) :: params
Open decoded.txt in append mode when redoing a decode pass. Before the subsequent decodes on a period (nagain/=0) were truncating the file and confusing JTAlert. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@4047 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2014-04-19 22:44:47 -04:00
real*4 dd(NTMAX*12000)
Deal with strict interpretation if ISO C interop in recent GCC Fortran Cast C char array type to Fortran character string using TRANSFER. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8666 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2018-05-19 16:41:27 -04:00
character(len=20) :: datetime
character(len=12) :: mycall, hiscall
character(len=6) :: mygrid, hisgrid
Open decoded.txt in append mode when redoing a decode pass. Before the subsequent decodes on a period (nagain/=0) were truncating the file and confusing JTAlert. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@4047 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2014-04-19 22:44:47 -04:00
save
Restructuring in preparation for direct decoder invocation from wsjtx Re-factor the JT4, JT65 and JT9 decoders as Fortran modules using type bound procedures, the decoder types implement a callback procedure such that he client of the decoder can interpret the decode results as they need. The JT4 decoder has a second callback that delivers message averaging status. Also the previously separate source files lib/jt4a.f90 and lib/avg4.f90 have been merged into lib/jt4_decode.f90 as private type bound procedures of the new jt4_decoder type. Re-factored the lib/decoder.f90 subroutine to utilize the new decoder types. Added local procedures to process decodes and averaging results including the necessary OpenMP synchronization directives for parallel JT9+JT65 decoding. Added the jt65_test module which is a basic test harness for JT65 decoding. Re-factored the jt65 utility to utilize the new jt65_test module. Changed a few integers to logical variables where their meaning is clearly binary. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6324 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2015-12-29 18:52:55 -05:00
type(counting_jt4_decoder) :: my_jt4
type(counting_jt65_decoder) :: my_jt65
type(counting_jt9_decoder) :: my_jt9
Start a framework for FT8 decoder. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7727 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2017-06-17 11:55:30 -04:00
type(counting_ft8_decoder) :: my_ft8
Some very basic functionality for time-synchronized FT4.
2019-04-01 14:23:10 -04:00
type(counting_ft4_decoder) :: my_ft4
Open decoded.txt in append mode when redoing a decode pass. Before the subsequent decodes on a period (nagain/=0) were truncating the file and confusing JTAlert. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@4047 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2014-04-19 22:44:47 -04:00
Deal with strict interpretation if ISO C interop in recent GCC Fortran Cast C char array type to Fortran character string using TRANSFER. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8666 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2018-05-19 16:41:27 -04:00
!cast C character arrays to Fortran character strings
datetime=transfer(params%datetime, datetime)
mycall=transfer(params%mycall,mycall)
hiscall=transfer(params%hiscall,hiscall)
mygrid=transfer(params%mygrid,mygrid)
hisgrid=transfer(params%hisgrid,hisgrid)
Initialize decode counts before decoding git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6750 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-06-09 19:39:19 -04:00
! initialize decode counts
my_jt4%decoded = 0
my_jt65%decoded = 0
my_jt9%decoded = 0
Start a framework for FT8 decoder. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7727 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2017-06-17 11:55:30 -04:00
my_ft8%decoded = 0
Some very basic functionality for time-synchronized FT4.
2019-04-01 14:23:10 -04:00
my_ft4%decoded = 0
Initialize decode counts before decoding git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6750 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-06-09 19:39:19 -04:00
Adjust decodes displays and processing for extra csync indicator after mode git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6674 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-05-05 14:53:00 -04:00
single_decode=iand(params%nexp_decode,32).ne.0
Use bVHF rather than single_decode to control display of params at end of decode line. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7225 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-10-24 11:25:25 -04:00
bVHF=iand(params%nexp_decode,64).ne.0
Get rid of jt9com and npar common blocks Also use correct C binding and have compilers determine sizes and offsets. The wsjtx.exe program now owns the decoder shared data that is shared with symspec. It is now in struct dec_data, still a global variable for now but hopefully a MainWindow member variable soon. The struct dec_data (in both C/C++ and Fortran) has a sub structure with the decoder parameters which enables copying and manipulating a lot cleaner. New of changed types of shared data must still be modified in commons.h and a new file lib/jt9com.f90, they must stay in sync as a pointer to the structure is passed between C and Fortran. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6290 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2015-12-17 15:29:55 -05:00
if(mod(params%nranera,2).eq.0) ntrials=10**(params%nranera/2)
if(mod(params%nranera,2).eq.1) ntrials=3*10**(params%nranera/2)
if(params%nranera.eq.0) ntrials=0
Don't execute AutoSeq steps after sending a 73. For FT8 mode: 1. Open LU 13 in the proper way. 2. Disable diagnostic LU 51. 3. Add keyboard shortcuts CTRL+Plus, CTRL-Minus, to adjust audio Tx frequency in even 50 Hz steps. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7749 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2017-06-29 09:42:24 -04:00
nfail=0
10 if (params%nagain) then
open(13,file=trim(temp_dir)//'/decoded.txt',status='unknown', &
position='append',iostat=ios)
else
More progress on FoxCalls... git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8199 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2017-10-30 16:47:08 -04:00
open(13,file=trim(temp_dir)//'/decoded.txt',status='unknown',iostat=ios)
LU=19 shound be opened even if nagain is true; otherwise it will try to write in the exe directory. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8646 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2018-05-01 13:14:21 -04:00
endif
Don't execute AutoSeq steps after sending a 73. For FT8 mode: 1. Open LU 13 in the proper way. 2. Disable diagnostic LU 51. 3. Add keyboard shortcuts CTRL+Plus, CTRL-Minus, to adjust audio Tx frequency in even 50 Hz steps. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7749 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2017-06-29 09:42:24 -04:00
if(ios.ne.0) then
nfail=nfail+1
if(nfail.le.3) then
1. Alt+F8 arms "Call 1st" as if a CQ had been sent. 2. "Call 1st" label turns red when armed to respond to a caller. 3. Suppress some recognizable false decodes, send them to cumulative file "data_dir/false_decodes.txt". 4. Reduce sleep delay in decoder() to 10 ms. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7928 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2017-07-20 11:15:00 -04:00
call sleep_msec(10)
Don't execute AutoSeq steps after sending a 73. For FT8 mode: 1. Open LU 13 in the proper way. 2. Disable diagnostic LU 51. 3. Add keyboard shortcuts CTRL+Plus, CTRL-Minus, to adjust audio Tx frequency in even 50 Hz steps. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7749 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2017-06-29 09:42:24 -04:00
go to 10
endif
endif
Reintegrate merge from wsjtx_exp branch. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6122 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2015-11-17 20:28:12 -05:00
Start a framework for FT8 decoder. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7727 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2017-06-17 11:55:30 -04:00
if(params%nmode.eq.8) then
! We're in FT8 mode
BugFix: Rearrange code in decoder.f90, only Fox needs to open houndcallers.txt.
2018-10-04 09:21:35 -04:00
if(ncontest.eq.5) then
! Fox mode: initialize and open houndcallers.txt
inquire(file=trim(temp_dir)//'/houndcallers.txt',exist=ex)
if(.not.ex) then
c2fox=' '
g2fox=' '
nsnrfox=-99
nfreqfox=-99
n30z=0
nwrap=0
nfox=0
endif
open(19,file=trim(temp_dir)//'/houndcallers.txt',status='unknown')
endif
Start a framework for FT8 decoder. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7727 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2017-06-17 11:55:30 -04:00
call timer('decft8 ',0)
In ft8_downsample, compute long FFT only when data have changed. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7780 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2017-07-03 15:52:36 -04:00
newdat=params%newdat
Pass "nContest" value to ft8_decode.f90.
2018-07-27 09:30:00 -04:00
ncontest=iand(params%nexp_decode,7)
Make 72-bit "contest mode" available in FT8 as well as MSK144. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7969 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2017-07-28 11:50:13 -04:00
call my_ft8%decode(ft8_decoded,id2,params%nQSOProgress,params%nfqso, &
params%nftx,newdat,params%nutc,params%nfa,params%nfb, &
Pass "nContest" value to ft8_decode.f90.
2018-07-27 09:30:00 -04:00
params%ndepth,ncontest,logical(params%nagain), &
Wire up the 'Decode only 77-bit messages' checkbox.
2018-07-05 08:51:10 -04:00
logical(params%lft8apon),logical(params%lapcqonly), &
Get rid of unused variable ldecode77.
2018-11-05 15:40:55 -05:00
params%napwid,mycall,hiscall,hisgrid)
Start a framework for FT8 decoder. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7727 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2017-06-17 11:55:30 -04:00
call timer('decft8 ',1)
Fix errors in Fox message logic; default No Dupes. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8337 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2017-12-16 15:56:42 -05:00
if(nfox.gt.0) then
Use 30 s intevals for "Age" units. Clean up labels when Message Avg window used for Fox Log. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8348 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2017-12-19 12:01:38 -05:00
n30min=minval(n30fox(1:nfox))
n30max=maxval(n30fox(1:nfox))
Fix errors in Fox message logic; default No Dupes. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8337 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2017-12-16 15:56:42 -05:00
endif
More progress on FoxCalls... git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8204 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2017-11-01 10:32:21 -04:00
j=0
BugFix: Rearrange code in decoder.f90, only Fox needs to open houndcallers.txt.
2018-10-04 09:21:35 -04:00
if(ncontest.eq.5) then
! Fox mode: save decoded Hound calls for possible selection by FoxOp
Resuming work on the Fox GUI. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8236 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2017-11-14 16:01:20 -05:00
rewind 19
BugFix: Rearrange code in decoder.f90, only Fox needs to open houndcallers.txt.
2018-10-04 09:21:35 -04:00
if(nfox.eq.0) then
endfile 19
rewind 19
else
do i=1,nfox
n=n30fox(i)
if(n30max-n30fox(i).le.4) then
j=j+1
c2fox(j)=c2fox(i)
g2fox(j)=g2fox(i)
nsnrfox(j)=nsnrfox(i)
nfreqfox(j)=nfreqfox(i)
n30fox(j)=n
m=n30max-n
if(len(trim(g2fox(j))).eq.4) then
clean up a few warnings
2019-07-01 22:10:43 -04:00
call azdist(mygrid,g2fox(j)//' ',0.d0,nAz,nEl,nDmiles, &
Fix another grid variable length to suit new azdist API
2019-05-02 17:01:31 -04:00
nDkm,nHotAz,nHotABetter)
BugFix: Rearrange code in decoder.f90, only Fox needs to open houndcallers.txt.
2018-10-04 09:21:35 -04:00
else
nDkm=9999
endif
write(19,1004) c2fox(j),g2fox(j),nsnrfox(j),nfreqfox(j),nDkm,m
1004 format(a12,1x,a4,i5,i6,i7,i3)
Permit Hounds with a compound callsign to call Fox. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8566 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2018-03-16 14:56:29 -04:00
endif
BugFix: Rearrange code in decoder.f90, only Fox needs to open houndcallers.txt.
2018-10-04 09:21:35 -04:00
enddo
nfox=j
flush(19)
endif
Resuming work on the Fox GUI. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8236 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2017-11-14 16:01:20 -05:00
endif
Start a framework for FT8 decoder. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7727 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2017-06-17 11:55:30 -04:00
go to 800
endif
Don't execute AutoSeq steps after sending a 73. For FT8 mode: 1. Open LU 13 in the proper way. 2. Disable diagnostic LU 51. 3. Add keyboard shortcuts CTRL+Plus, CTRL-Minus, to adjust audio Tx frequency in even 50 Hz steps. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7749 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2017-06-29 09:42:24 -04:00
Several tweaks to FT4 simulation and decoding procedures. Now -0.5 < DT < 0.5
2019-04-03 10:13:50 -04:00
if(params%nmode.eq.5) then
Some very basic functionality for time-synchronized FT4.
2019-04-01 14:23:10 -04:00
call timer('decft4 ',0)
call my_ft4%decode(ft4_decoded,id2,params%nQSOProgress,params%nfqso, &
Enable lapcqonly for FT4. This disables AP for all but CQ messages if 5 minutes or more have elapsed since the last Tx.
2019-05-26 14:25:36 -04:00
params%nutc,params%nfa,params%nfb,params%ndepth, &
logical(params%lapcqonly),ncontest,mycall,hiscall)
Some very basic functionality for time-synchronized FT4.
2019-04-01 14:23:10 -04:00
call timer('decft4 ',1)
go to 800
endif
Correct a problem with flagging supposedly bad data when reference spectrum is used. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6624 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-04-18 10:15:09 -04:00
rms=sqrt(dot_product(float(id2(300000:310000)), &
Restructuring in preparation for direct decoder invocation from wsjtx Re-factor the JT4, JT65 and JT9 decoders as Fortran modules using type bound procedures, the decoder types implement a callback procedure such that he client of the decoder can interpret the decode results as they need. The JT4 decoder has a second callback that delivers message averaging status. Also the previously separate source files lib/jt4a.f90 and lib/avg4.f90 have been merged into lib/jt4_decode.f90 as private type bound procedures of the new jt4_decoder type. Re-factored the lib/decoder.f90 subroutine to utilize the new decoder types. Added local procedures to process decodes and averaging results including the necessary OpenMP synchronization directives for parallel JT9+JT65 decoding. Added the jt65_test module which is a basic test harness for JT65 decoding. Re-factored the jt65 utility to utilize the new jt65_test module. Changed a few integers to logical variables where their meaning is clearly binary. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6324 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2015-12-29 18:52:55 -05:00
float(id2(300000:310000)))/10000.0)
1. As a test, zap any data at start if id2() that appears to be a T/R transient. 2. Send emedelay (now 0 or 2.5) to QRA64 decoder. 3. Tweaks to sync64, making it better for QRA64A. 4. Mainwindow MessageBox if it attempts to open a file with wrong format. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7424 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-12-22 15:51:27 -05:00
if(rms.lt.2.0) go to 800
! Zap data at start that might come from T/R switching transient?
nadd=100
k=0
bad0=.false.
do i=1,240
sq=0.
do n=1,nadd
k=k+1
sq=sq + float(id2(k))**2
enddo
rms=sqrt(sq/nadd)
if(rms.gt.10000.0) then
bad0=.true.
kbad=k
rmsbad=rms
endif
enddo
if(bad0) then
nz=min(NTMAX*12000,kbad+100)
Temporarily disable the Tx/Rx transient suppressor introduced in r7424 This code was causing the JT9 decoder to fail to decode, maybe due to high noise levels and the resulting discontinuity introduced by zeroing out samples. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7555 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2017-01-26 21:22:54 -05:00
! id2(1:nz)=0 ! temporarily disabled as it can breaak the JT9 decoder, maybe others
1. As a test, zap any data at start if id2() that appears to be a T/R transient. 2. Send emedelay (now 0 or 2.5) to QRA64 decoder. 3. Tweaks to sync64, making it better for QRA64A. 4. Mainwindow MessageBox if it attempts to open a file with wrong format. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7424 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-12-22 15:51:27 -05:00
endif
Try up to three times to open 'decoded.txt". git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7559 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2017-02-07 09:31:11 -05:00
Plot a red "sync" curve in QRA64 mode. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6876 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-07-06 10:18:23 -04:00
if(params%nmode.eq.4 .or. params%nmode.eq.65) open(14,file=trim(temp_dir)// &
'/avemsg.txt',status='unknown')
if(params%nmode.eq.164) open(17,file=trim(temp_dir)//'/red.dat', &
Better scheme for displaying QRA65 sync results. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7561 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2017-02-10 11:38:19 -05:00
status='unknown')
Open decoded.txt in append mode when redoing a decode pass. Before the subsequent decodes on a period (nagain/=0) were truncating the file and confusing JTAlert. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@4047 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2014-04-19 22:44:47 -04:00
Get rid of jt9com and npar common blocks Also use correct C binding and have compilers determine sizes and offsets. The wsjtx.exe program now owns the decoder shared data that is shared with symspec. It is now in struct dec_data, still a global variable for now but hopefully a MainWindow member variable soon. The struct dec_data (in both C/C++ and Fortran) has a sub structure with the decoder parameters which enables copying and manipulating a lot cleaner. New of changed types of shared data must still be modified in commons.h and a new file lib/jt9com.f90, they must stay in sync as a pointer to the structure is passed between C and Fortran. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6290 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2015-12-17 15:29:55 -05:00
if(params%nmode.eq.4) then
Reintegrate Joe's experimental VHF & up features As at ^/branches/wsjtx_exp@5271 git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@5272 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2015-04-22 13:48:03 -04:00
jz=52*nfsample
Restructuring in preparation for direct decoder invocation from wsjtx Re-factor the JT4, JT65 and JT9 decoders as Fortran modules using type bound procedures, the decoder types implement a callback procedure such that he client of the decoder can interpret the decode results as they need. The JT4 decoder has a second callback that delivers message averaging status. Also the previously separate source files lib/jt4a.f90 and lib/avg4.f90 have been merged into lib/jt4_decode.f90 as private type bound procedures of the new jt4_decoder type. Re-factored the lib/decoder.f90 subroutine to utilize the new decoder types. Added local procedures to process decodes and averaging results including the necessary OpenMP synchronization directives for parallel JT9+JT65 decoding. Added the jt65_test module which is a basic test harness for JT65 decoding. Re-factored the jt65 utility to utilize the new jt65_test module. Changed a few integers to logical variables where their meaning is clearly binary. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6324 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2015-12-29 18:52:55 -05:00
if(params%newdat) then
Reintegrate Joe's experimental VHF & up features As at ^/branches/wsjtx_exp@5271 git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@5272 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2015-04-22 13:48:03 -04:00
if(nfsample.eq.12000) call wav11(id2,jz,dd)
if(nfsample.eq.11025) dd(1:jz)=id2(1:jz)
endif
Correct several VHF/UHF/Microwave items on Rex's list. Specifically: 1. Allow display of JT65 single-line decodes when there is also an average decode. 5. Do not call JT4 deep search if Fano decode has succeeded. 7. Fix occasional Fortran error seen with the "#" (nflip=-1) sync. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6678 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-05-17 13:19:27 -04:00
call my_jt4%decode(jt4_decoded,dd,jz,params%nutc,params%nfqso, &
params%ntol,params%emedelay,params%dttol,logical(params%nagain), &
params%ndepth,logical(params%nclearave),params%minsync, &
Deal with strict interpretation if ISO C interop in recent GCC Fortran Cast C char array type to Fortran character string using TRANSFER. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8666 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2018-05-19 16:41:27 -04:00
params%minw,params%nsubmode,mycall,hiscall, &
hisgrid,params%nlist,params%listutc,jt4_average)
Reintegrate Joe's experimental VHF & up features As at ^/branches/wsjtx_exp@5271 git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@5272 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2015-04-22 13:48:03 -04:00
go to 800
endif
Open decoded.txt in append mode when redoing a decode pass. Before the subsequent decodes on a period (nagain/=0) were truncating the file and confusing JTAlert. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@4047 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2014-04-19 22:44:47 -04:00
npts65=52*12000
Further adjustments to sync64; extend QRA64 data length to 54 s; some code cleanup. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7414 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-12-20 16:27:23 -05:00
if(params%nmode.eq.164) npts65=54*12000
Open decoded.txt in append mode when redoing a decode pass. Before the subsequent decodes on a period (nagain/=0) were truncating the file and confusing JTAlert. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@4047 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2014-04-19 22:44:47 -04:00
if(baddata(id2,npts65)) then
nsynced=0
ndecoded=0
go to 800
endif
Comment out the "write(79)..." lines. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6332 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-01-01 10:35:00 -05:00
Get rid of jt9com and npar common blocks Also use correct C binding and have compilers determine sizes and offsets. The wsjtx.exe program now owns the decoder shared data that is shared with symspec. It is now in struct dec_data, still a global variable for now but hopefully a MainWindow member variable soon. The struct dec_data (in both C/C++ and Fortran) has a sub structure with the decoder parameters which enables copying and manipulating a lot cleaner. New of changed types of shared data must still be modified in commons.h and a new file lib/jt9com.f90, they must stay in sync as a pointer to the structure is passed between C and Fortran. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6290 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2015-12-17 15:29:55 -05:00
ntol65=params%ntol !### is this OK? ###
newdat65=params%newdat
newdat9=params%newdat
Open decoded.txt in append mode when redoing a decode pass. Before the subsequent decodes on a period (nagain/=0) were truncating the file and confusing JTAlert. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@4047 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2014-04-19 22:44:47 -04:00
Correct several VHF/UHF/Microwave items on Rex's list. Specifically: 1. Allow display of JT65 single-line decodes when there is also an average decode. 5. Do not call JT4 deep search if Fano decode has succeeded. 7. Fix occasional Fortran error seen with the "#" (nflip=-1) sync. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6678 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-05-17 13:19:27 -04:00
!$call omp_set_dynamic(.true.)
!$omp parallel sections num_threads(2) copyin(/timer_private/) shared(ndecoded) if(.true.) !iif() needed on Mac
Open decoded.txt in append mode when redoing a decode pass. Before the subsequent decodes on a period (nagain/=0) were truncating the file and confusing JTAlert. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@4047 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2014-04-19 22:44:47 -04:00
Correct several VHF/UHF/Microwave items on Rex's list. Specifically: 1. Allow display of JT65 single-line decodes when there is also an average decode. 5. Do not call JT4 deep search if Fano decode has succeeded. 7. Fix occasional Fortran error seen with the "#" (nflip=-1) sync. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6678 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-05-17 13:19:27 -04:00
!$omp section
Plot a red "sync" curve in QRA64 mode. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6876 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-07-06 10:18:23 -04:00
if(params%nmode.eq.65 .or. params%nmode.eq.164 .or. &
First functional decoder for QRA01. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6805 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-06-24 10:36:03 -04:00
(params%nmode.eq.(65+9) .and. params%ntxmode.eq.65)) then
1. As a test, zap any data at start if id2() that appears to be a T/R transient. 2. Send emedelay (now 0 or 2.5) to QRA64 decoder. 3. Tweaks to sync64, making it better for QRA64A. 4. Mainwindow MessageBox if it attempts to open a file with wrong format. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7424 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-12-22 15:51:27 -05:00
! We're in JT65 or QRA64 mode, or should do JT65 first
Restructuring in preparation for direct decoder invocation from wsjtx Re-factor the JT4, JT65 and JT9 decoders as Fortran modules using type bound procedures, the decoder types implement a callback procedure such that he client of the decoder can interpret the decode results as they need. The JT4 decoder has a second callback that delivers message averaging status. Also the previously separate source files lib/jt4a.f90 and lib/avg4.f90 have been merged into lib/jt4_decode.f90 as private type bound procedures of the new jt4_decoder type. Re-factored the lib/decoder.f90 subroutine to utilize the new decoder types. Added local procedures to process decodes and averaging results including the necessary OpenMP synchronization directives for parallel JT9+JT65 decoding. Added the jt65_test module which is a basic test harness for JT65 decoding. Re-factored the jt65 utility to utilize the new jt65_test module. Changed a few integers to logical variables where their meaning is clearly binary. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6324 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2015-12-29 18:52:55 -05:00
if(newdat65) dd(1:npts65)=id2(1:npts65)
Get rid of jt9com and npar common blocks Also use correct C binding and have compilers determine sizes and offsets. The wsjtx.exe program now owns the decoder shared data that is shared with symspec. It is now in struct dec_data, still a global variable for now but hopefully a MainWindow member variable soon. The struct dec_data (in both C/C++ and Fortran) has a sub structure with the decoder parameters which enables copying and manipulating a lot cleaner. New of changed types of shared data must still be modified in commons.h and a new file lib/jt9com.f90, they must stay in sync as a pointer to the structure is passed between C and Fortran. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6290 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2015-12-17 15:29:55 -05:00
nf1=params%nfa
nf2=params%nfb
Change some calls to timer(). git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@4921 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2015-02-01 15:11:10 -05:00
call timer('jt65a ',0)
Further progress on JT65 decoding with averaging and variable smoothing. Please note: it's far from finished! git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6513 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-03-09 16:01:28 -05:00
call my_jt65%decode(jt65_decoded,dd,npts65,newdat65,params%nutc, &
nf1,nf2,params%nfqso,ntol65,params%nsubmode,params%minsync, &
logical(params%nagain),params%n2pass,logical(params%nrobust), &
1. As a test, zap any data at start if id2() that appears to be a T/R transient. 2. Send emedelay (now 0 or 2.5) to QRA64 decoder. 3. Tweaks to sync64, making it better for QRA64A. 4. Mainwindow MessageBox if it attempts to open a file with wrong format. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7424 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-12-22 15:51:27 -05:00
ntrials,params%naggressive,params%ndepth,params%emedelay, &
Deal with strict interpretation if ISO C interop in recent GCC Fortran Cast C char array type to Fortran character string using TRANSFER. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8666 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2018-05-19 16:41:27 -04:00
logical(params%nclearave),mycall,hiscall, &
hisgrid,params%nexp_decode,params%nQSOProgress, &
Experimental implementation of AP decoding for JT65 - configured for testing only. Not usable on the air. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8219 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2017-11-04 13:03:56 -04:00
logical(params%ljt65apon))
Change some calls to timer(). git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@4921 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2015-02-01 15:11:10 -05:00
call timer('jt65a ',1)
Reintegrate Joe's experimental VHF & up features As at ^/branches/wsjtx_exp@5271 git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@5272 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2015-04-22 13:48:03 -04:00
Get rid of jt9com and npar common blocks Also use correct C binding and have compilers determine sizes and offsets. The wsjtx.exe program now owns the decoder shared data that is shared with symspec. It is now in struct dec_data, still a global variable for now but hopefully a MainWindow member variable soon. The struct dec_data (in both C/C++ and Fortran) has a sub structure with the decoder parameters which enables copying and manipulating a lot cleaner. New of changed types of shared data must still be modified in commons.h and a new file lib/jt9com.f90, they must stay in sync as a pointer to the structure is passed between C and Fortran. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6290 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2015-12-17 15:29:55 -05:00
else if(params%nmode.eq.9 .or. (params%nmode.eq.(65+9) .and. params%ntxmode.eq.9)) then
Correct several VHF/UHF/Microwave items on Rex's list. Specifically: 1. Allow display of JT65 single-line decodes when there is also an average decode. 5. Do not call JT4 deep search if Fano decode has succeeded. 7. Fix occasional Fortran error seen with the "#" (nflip=-1) sync. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6678 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-05-17 13:19:27 -04:00
! We're in JT9 mode, or should do JT9 first
Adjust the jt9 decoder to do the right decodes in parallel Also limit the required threads for parallel decoding to 2. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@4930 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2015-02-04 10:34:46 -05:00
call timer('decjt9 ',0)
Strip out callback arguments that are constant and known to the callback implememtation git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6671 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-05-04 21:32:30 -04:00
call my_jt9%decode(jt9_decoded,ss,id2,params%nfqso, &
Add submode to argument list of JT9 subroutine decode(). Add test program fersum; several tweaks to fer65. Code cleanup in lorentzian, and return chisqr in a(5). git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6567 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-04-01 13:57:08 -04:00
newdat9,params%npts8,params%nfa,params%nfsplit,params%nfb, &
params%ntol,params%nzhsym,logical(params%nagain),params%ndepth, &
First decodes of wide/slow JT9 submodes from within wsjtx. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6577 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-04-05 10:17:34 -04:00
params%nmode,params%nsubmode,params%nexp_decode)
Adjust the jt9 decoder to do the right decodes in parallel Also limit the required threads for parallel decoding to 2. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@4930 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2015-02-04 10:34:46 -05:00
call timer('decjt9 ',1)
endif
Correct several VHF/UHF/Microwave items on Rex's list. Specifically: 1. Allow display of JT65 single-line decodes when there is also an average decode. 5. Do not call JT4 deep search if Fano decode has succeeded. 7. Fix occasional Fortran error seen with the "#" (nflip=-1) sync. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6678 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-05-17 13:19:27 -04:00
!$omp section
if(params%nmode.eq.(65+9)) then !Do the other mode (we're in dual mode)
Get rid of jt9com and npar common blocks Also use correct C binding and have compilers determine sizes and offsets. The wsjtx.exe program now owns the decoder shared data that is shared with symspec. It is now in struct dec_data, still a global variable for now but hopefully a MainWindow member variable soon. The struct dec_data (in both C/C++ and Fortran) has a sub structure with the decoder parameters which enables copying and manipulating a lot cleaner. New of changed types of shared data must still be modified in commons.h and a new file lib/jt9com.f90, they must stay in sync as a pointer to the structure is passed between C and Fortran. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6290 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2015-12-17 15:29:55 -05:00
if (params%ntxmode.eq.9) then
Restructuring in preparation for direct decoder invocation from wsjtx Re-factor the JT4, JT65 and JT9 decoders as Fortran modules using type bound procedures, the decoder types implement a callback procedure such that he client of the decoder can interpret the decode results as they need. The JT4 decoder has a second callback that delivers message averaging status. Also the previously separate source files lib/jt4a.f90 and lib/avg4.f90 have been merged into lib/jt4_decode.f90 as private type bound procedures of the new jt4_decoder type. Re-factored the lib/decoder.f90 subroutine to utilize the new decoder types. Added local procedures to process decodes and averaging results including the necessary OpenMP synchronization directives for parallel JT9+JT65 decoding. Added the jt65_test module which is a basic test harness for JT65 decoding. Re-factored the jt65 utility to utilize the new jt65_test module. Changed a few integers to logical variables where their meaning is clearly binary. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6324 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2015-12-29 18:52:55 -05:00
if(newdat65) dd(1:npts65)=id2(1:npts65)
Get rid of jt9com and npar common blocks Also use correct C binding and have compilers determine sizes and offsets. The wsjtx.exe program now owns the decoder shared data that is shared with symspec. It is now in struct dec_data, still a global variable for now but hopefully a MainWindow member variable soon. The struct dec_data (in both C/C++ and Fortran) has a sub structure with the decoder parameters which enables copying and manipulating a lot cleaner. New of changed types of shared data must still be modified in commons.h and a new file lib/jt9com.f90, they must stay in sync as a pointer to the structure is passed between C and Fortran. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6290 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2015-12-17 15:29:55 -05:00
nf1=params%nfa
nf2=params%nfb
Adjust the jt9 decoder to do the right decodes in parallel Also limit the required threads for parallel decoding to 2. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@4930 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2015-02-04 10:34:46 -05:00
call timer('jt65a ',0)
Further progress on JT65 decoding with averaging and variable smoothing. Please note: it's far from finished! git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6513 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-03-09 16:01:28 -05:00
call my_jt65%decode(jt65_decoded,dd,npts65,newdat65,params%nutc, &
nf1,nf2,params%nfqso,ntol65,params%nsubmode,params%minsync, &
logical(params%nagain),params%n2pass,logical(params%nrobust), &
1. As a test, zap any data at start if id2() that appears to be a T/R transient. 2. Send emedelay (now 0 or 2.5) to QRA64 decoder. 3. Tweaks to sync64, making it better for QRA64A. 4. Mainwindow MessageBox if it attempts to open a file with wrong format. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7424 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-12-22 15:51:27 -05:00
ntrials,params%naggressive,params%ndepth,params%emedelay, &
Deal with strict interpretation if ISO C interop in recent GCC Fortran Cast C char array type to Fortran character string using TRANSFER. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8666 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2018-05-19 16:41:27 -04:00
logical(params%nclearave),mycall,hiscall, &
hisgrid,params%nexp_decode,params%nQSOProgress, &
Experimental implementation of AP decoding for JT65 - configured for testing only. Not usable on the air. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8219 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2017-11-04 13:03:56 -04:00
logical(params%ljt65apon))
Adjust the jt9 decoder to do the right decodes in parallel Also limit the required threads for parallel decoding to 2. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@4930 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2015-02-04 10:34:46 -05:00
call timer('jt65a ',1)
else
call timer('decjt9 ',0)
Strip out callback arguments that are constant and known to the callback implememtation git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6671 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-05-04 21:32:30 -04:00
call my_jt9%decode(jt9_decoded,ss,id2,params%nfqso, &
Add submode to argument list of JT9 subroutine decode(). Add test program fersum; several tweaks to fer65. Code cleanup in lorentzian, and return chisqr in a(5). git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6567 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-04-01 13:57:08 -04:00
newdat9,params%npts8,params%nfa,params%nfsplit,params%nfb, &
params%ntol,params%nzhsym,logical(params%nagain), &
First decodes of wide/slow JT9 submodes from within wsjtx. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6577 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-04-05 10:17:34 -04:00
params%ndepth,params%nmode,params%nsubmode,params%nexp_decode)
Adjust the jt9 decoder to do the right decodes in parallel Also limit the required threads for parallel decoding to 2. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@4930 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2015-02-04 10:34:46 -05:00
call timer('decjt9 ',1)
end if
Open decoded.txt in append mode when redoing a decode pass. Before the subsequent decodes on a period (nagain/=0) were truncating the file and confusing JTAlert. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@4047 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2014-04-19 22:44:47 -04:00
endif
Correct several VHF/UHF/Microwave items on Rex's list. Specifically: 1. Allow display of JT65 single-line decodes when there is also an average decode. 5. Do not call JT4 deep search if Fano decode has succeeded. 7. Fix occasional Fortran error seen with the "#" (nflip=-1) sync. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6678 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-05-17 13:19:27 -04:00
!$omp end parallel sections
Many changes in program jt9[.exe] aimed at speeding up the decoders. The long FFTs can now use the multi-threaded FFTW routines. Subroutine decode9.f90 was renamed jt9fano.f90. The JT9 decoder's top-level functions were removed from decoder.f90 and put into a separate subroutine decjt90.f90. Subroutine decoder.f90 is now configured for possible use of OpenMP SECTIONS, with the JT9 and JT65 decoders running concurrently on a multi-core machine. Note, however, that this concurrent processing is not yet fully implemented. Probably calls to timer need to be removed; some variables used in calls to jt65a and decjt9 may need to be declared PRIVATE in decoder; some sections probably need to be declared CRITICAL; probably some SAVE statements in downstream routines have made them not thread-safe; etc., etc. I'm a neophyte at using OpenMP. Comments, suggestions, and/or tests by others will be welcome! git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@4919 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2015-02-01 11:23:36 -05:00
Correct several VHF/UHF/Microwave items on Rex's list. Specifically: 1. Allow display of JT65 single-line decodes when there is also an average decode. 5. Do not call JT4 deep search if Fano decode has succeeded. 7. Fix occasional Fortran error seen with the "#" (nflip=-1) sync. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6678 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-05-17 13:19:27 -04:00
! JT65 is not yet producing info for nsynced, ndecoded.
Some very basic functionality for time-synchronized FT4.
2019-04-01 14:23:10 -04:00
800 ndecoded = my_jt4%decoded + my_jt65%decoded + my_jt9%decoded + &
my_ft8%decoded + my_ft4%decoded
Code cleanup. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7742 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2017-06-27 16:50:17 -04:00
write(*,1010) nsynced,ndecoded
Open decoded.txt in append mode when redoing a decode pass. Before the subsequent decodes on a period (nagain/=0) were truncating the file and confusing JTAlert. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@4047 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2014-04-19 22:44:47 -04:00
1010 format('<DecodeFinished>',2i4)
call flush(6)
Fix errors in Fox message logic; default No Dupes. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8337 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2017-12-16 15:56:42 -05:00
close(13)
Do a "close(10)" only if we're in Fox mode.
2018-12-21 10:08:15 -05:00
if(ncontest.eq.5) close(19)
Get rid of jt9com and npar common blocks Also use correct C binding and have compilers determine sizes and offsets. The wsjtx.exe program now owns the decoder shared data that is shared with symspec. It is now in struct dec_data, still a global variable for now but hopefully a MainWindow member variable soon. The struct dec_data (in both C/C++ and Fortran) has a sub structure with the decoder parameters which enables copying and manipulating a lot cleaner. New of changed types of shared data must still be modified in commons.h and a new file lib/jt9com.f90, they must stay in sync as a pointer to the structure is passed between C and Fortran. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6290 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2015-12-17 15:29:55 -05:00
if(params%nmode.eq.4 .or. params%nmode.eq.65) close(14)
Open decoded.txt in append mode when redoing a decode pass. Before the subsequent decodes on a period (nagain/=0) were truncating the file and confusing JTAlert. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@4047 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2014-04-19 22:44:47 -04:00
return
Restructuring in preparation for direct decoder invocation from wsjtx Re-factor the JT4, JT65 and JT9 decoders as Fortran modules using type bound procedures, the decoder types implement a callback procedure such that he client of the decoder can interpret the decode results as they need. The JT4 decoder has a second callback that delivers message averaging status. Also the previously separate source files lib/jt4a.f90 and lib/avg4.f90 have been merged into lib/jt4_decode.f90 as private type bound procedures of the new jt4_decoder type. Re-factored the lib/decoder.f90 subroutine to utilize the new decoder types. Added local procedures to process decodes and averaging results including the necessary OpenMP synchronization directives for parallel JT9+JT65 decoding. Added the jt65_test module which is a basic test harness for JT65 decoding. Re-factored the jt65 utility to utilize the new jt65_test module. Changed a few integers to logical variables where their meaning is clearly binary. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6324 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2015-12-29 18:52:55 -05:00
contains
Strip out callback arguments that are constant and known to the callback implememtation git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6671 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-05-04 21:32:30 -04:00
subroutine jt4_decoded(this,snr,dt,freq,have_sync,sync,is_deep, &
New format for end-of-line flags in JT4 and JT65; starting work on establishing sync in JT4. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6685 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-05-19 12:13:51 -04:00
decoded0,qual,ich,is_average,ave)
Restructuring in preparation for direct decoder invocation from wsjtx Re-factor the JT4, JT65 and JT9 decoders as Fortran modules using type bound procedures, the decoder types implement a callback procedure such that he client of the decoder can interpret the decode results as they need. The JT4 decoder has a second callback that delivers message averaging status. Also the previously separate source files lib/jt4a.f90 and lib/avg4.f90 have been merged into lib/jt4_decode.f90 as private type bound procedures of the new jt4_decoder type. Re-factored the lib/decoder.f90 subroutine to utilize the new decoder types. Added local procedures to process decodes and averaging results including the necessary OpenMP synchronization directives for parallel JT9+JT65 decoding. Added the jt65_test module which is a basic test harness for JT65 decoding. Re-factored the jt65 utility to utilize the new jt65_test module. Changed a few integers to logical variables where their meaning is clearly binary. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6324 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2015-12-29 18:52:55 -05:00
implicit none
class(jt4_decoder), intent(inout) :: this
integer, intent(in) :: snr
real, intent(in) :: dt
integer, intent(in) :: freq
logical, intent(in) :: have_sync
logical, intent(in) :: is_deep
character(len=1), intent(in) :: sync
New format for end-of-line flags in JT4 and JT65; starting work on establishing sync in JT4. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6685 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-05-19 12:13:51 -04:00
character(len=22), intent(in) :: decoded0
Restructuring in preparation for direct decoder invocation from wsjtx Re-factor the JT4, JT65 and JT9 decoders as Fortran modules using type bound procedures, the decoder types implement a callback procedure such that he client of the decoder can interpret the decode results as they need. The JT4 decoder has a second callback that delivers message averaging status. Also the previously separate source files lib/jt4a.f90 and lib/avg4.f90 have been merged into lib/jt4_decode.f90 as private type bound procedures of the new jt4_decoder type. Re-factored the lib/decoder.f90 subroutine to utilize the new decoder types. Added local procedures to process decodes and averaging results including the necessary OpenMP synchronization directives for parallel JT9+JT65 decoding. Added the jt65_test module which is a basic test harness for JT65 decoding. Re-factored the jt65 utility to utilize the new jt65_test module. Changed a few integers to logical variables where their meaning is clearly binary. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6324 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2015-12-29 18:52:55 -05:00
real, intent(in) :: qual
integer, intent(in) :: ich
logical, intent(in) :: is_average
integer, intent(in) :: ave
New format for end-of-line flags in JT4 and JT65; starting work on establishing sync in JT4. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6685 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-05-19 12:13:51 -04:00
character*22 decoded
character*3 cflags
Restructuring in preparation for direct decoder invocation from wsjtx Re-factor the JT4, JT65 and JT9 decoders as Fortran modules using type bound procedures, the decoder types implement a callback procedure such that he client of the decoder can interpret the decode results as they need. The JT4 decoder has a second callback that delivers message averaging status. Also the previously separate source files lib/jt4a.f90 and lib/avg4.f90 have been merged into lib/jt4_decode.f90 as private type bound procedures of the new jt4_decoder type. Re-factored the lib/decoder.f90 subroutine to utilize the new decoder types. Added local procedures to process decodes and averaging results including the necessary OpenMP synchronization directives for parallel JT9+JT65 decoding. Added the jt65_test module which is a basic test harness for JT65 decoding. Re-factored the jt65 utility to utilize the new jt65_test module. Changed a few integers to logical variables where their meaning is clearly binary. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6324 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2015-12-29 18:52:55 -05:00
Suppress some compiler warnings. (More to come...) git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6748 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-06-09 15:39:48 -04:00
if(ich.eq.-99) stop !Silence compiler warning
Restructuring in preparation for direct decoder invocation from wsjtx Re-factor the JT4, JT65 and JT9 decoders as Fortran modules using type bound procedures, the decoder types implement a callback procedure such that he client of the decoder can interpret the decode results as they need. The JT4 decoder has a second callback that delivers message averaging status. Also the previously separate source files lib/jt4a.f90 and lib/avg4.f90 have been merged into lib/jt4_decode.f90 as private type bound procedures of the new jt4_decoder type. Re-factored the lib/decoder.f90 subroutine to utilize the new decoder types. Added local procedures to process decodes and averaging results including the necessary OpenMP synchronization directives for parallel JT9+JT65 decoding. Added the jt65_test module which is a basic test harness for JT65 decoding. Re-factored the jt65 utility to utilize the new jt65_test module. Changed a few integers to logical variables where their meaning is clearly binary. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6324 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2015-12-29 18:52:55 -05:00
if (have_sync) then
New format for end-of-line flags in JT4 and JT65; starting work on establishing sync in JT4. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6685 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-05-19 12:13:51 -04:00
decoded=decoded0
Much improved detection of sync in JT4 decoder. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6686 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-05-19 15:19:47 -04:00
cflags=' '
if(decoded.ne.' ') cflags='f '
New format for end-of-line flags in JT4 and JT65; starting work on establishing sync in JT4. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6685 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-05-19 12:13:51 -04:00
if(is_deep) then
cflags(1:2)='d1'
write(cflags(3:3),'(i1)') min(int(qual),9)
if(qual.ge.10.0) cflags(3:3)='*'
if(qual.lt.3.0) decoded(22:22)='?'
endif
if(is_average) then
write(cflags(2:2),'(i1)') min(ave,9)
if(ave.ge.10) cflags(2:2)='*'
endif
write(*,1000) params%nutc,snr,dt,freq,sync,decoded,cflags
1000 format(i4.4,i4,f5.1,i5,1x,'$',a1,1x,a22,1x,a3)
Restructuring in preparation for direct decoder invocation from wsjtx Re-factor the JT4, JT65 and JT9 decoders as Fortran modules using type bound procedures, the decoder types implement a callback procedure such that he client of the decoder can interpret the decode results as they need. The JT4 decoder has a second callback that delivers message averaging status. Also the previously separate source files lib/jt4a.f90 and lib/avg4.f90 have been merged into lib/jt4_decode.f90 as private type bound procedures of the new jt4_decoder type. Re-factored the lib/decoder.f90 subroutine to utilize the new decoder types. Added local procedures to process decodes and averaging results including the necessary OpenMP synchronization directives for parallel JT9+JT65 decoding. Added the jt65_test module which is a basic test harness for JT65 decoding. Re-factored the jt65 utility to utilize the new jt65_test module. Changed a few integers to logical variables where their meaning is clearly binary. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6324 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2015-12-29 18:52:55 -05:00
else
Strip out callback arguments that are constant and known to the callback implememtation git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6671 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-05-04 21:32:30 -04:00
write(*,1000) params%nutc,snr,dt,freq
Restructuring in preparation for direct decoder invocation from wsjtx Re-factor the JT4, JT65 and JT9 decoders as Fortran modules using type bound procedures, the decoder types implement a callback procedure such that he client of the decoder can interpret the decode results as they need. The JT4 decoder has a second callback that delivers message averaging status. Also the previously separate source files lib/jt4a.f90 and lib/avg4.f90 have been merged into lib/jt4_decode.f90 as private type bound procedures of the new jt4_decoder type. Re-factored the lib/decoder.f90 subroutine to utilize the new decoder types. Added local procedures to process decodes and averaging results including the necessary OpenMP synchronization directives for parallel JT9+JT65 decoding. Added the jt65_test module which is a basic test harness for JT65 decoding. Re-factored the jt65 utility to utilize the new jt65_test module. Changed a few integers to logical variables where their meaning is clearly binary. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6324 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2015-12-29 18:52:55 -05:00
end if
Resolve more issues for display of JT4 decodes; improve JT4 sync at low spread. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6679 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-05-17 14:34:57 -04:00
Restructuring in preparation for direct decoder invocation from wsjtx Re-factor the JT4, JT65 and JT9 decoders as Fortran modules using type bound procedures, the decoder types implement a callback procedure such that he client of the decoder can interpret the decode results as they need. The JT4 decoder has a second callback that delivers message averaging status. Also the previously separate source files lib/jt4a.f90 and lib/avg4.f90 have been merged into lib/jt4_decode.f90 as private type bound procedures of the new jt4_decoder type. Re-factored the lib/decoder.f90 subroutine to utilize the new decoder types. Added local procedures to process decodes and averaging results including the necessary OpenMP synchronization directives for parallel JT9+JT65 decoding. Added the jt65_test module which is a basic test harness for JT65 decoding. Re-factored the jt65 utility to utilize the new jt65_test module. Changed a few integers to logical variables where their meaning is clearly binary. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6324 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2015-12-29 18:52:55 -05:00
select type(this)
type is (counting_jt4_decoder)
this%decoded = this%decoded + 1
end select
end subroutine jt4_decoded
subroutine jt4_average (this, used, utc, sync, dt, freq, flip)
implicit none
class(jt4_decoder), intent(inout) :: this
logical, intent(in) :: used
integer, intent(in) :: utc
real, intent(in) :: sync
real, intent(in) :: dt
integer, intent(in) :: freq
logical, intent(in) :: flip
Fix JT4 averaging regression Fell into the Fortran trap for C/C++ programmers, automatic SAVE attribute on default initialized variables. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6326 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2015-12-30 09:57:50 -05:00
character(len=1) :: cused, csync
Restructuring in preparation for direct decoder invocation from wsjtx Re-factor the JT4, JT65 and JT9 decoders as Fortran modules using type bound procedures, the decoder types implement a callback procedure such that he client of the decoder can interpret the decode results as they need. The JT4 decoder has a second callback that delivers message averaging status. Also the previously separate source files lib/jt4a.f90 and lib/avg4.f90 have been merged into lib/jt4_decode.f90 as private type bound procedures of the new jt4_decoder type. Re-factored the lib/decoder.f90 subroutine to utilize the new decoder types. Added local procedures to process decodes and averaging results including the necessary OpenMP synchronization directives for parallel JT9+JT65 decoding. Added the jt65_test module which is a basic test harness for JT65 decoding. Re-factored the jt65 utility to utilize the new jt65_test module. Changed a few integers to logical variables where their meaning is clearly binary. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6324 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2015-12-29 18:52:55 -05:00
Fix JT4 averaging regression Fell into the Fortran trap for C/C++ programmers, automatic SAVE attribute on default initialized variables. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6326 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2015-12-30 09:57:50 -05:00
cused = '.'
csync = '*'
Restructuring in preparation for direct decoder invocation from wsjtx Re-factor the JT4, JT65 and JT9 decoders as Fortran modules using type bound procedures, the decoder types implement a callback procedure such that he client of the decoder can interpret the decode results as they need. The JT4 decoder has a second callback that delivers message averaging status. Also the previously separate source files lib/jt4a.f90 and lib/avg4.f90 have been merged into lib/jt4_decode.f90 as private type bound procedures of the new jt4_decoder type. Re-factored the lib/decoder.f90 subroutine to utilize the new decoder types. Added local procedures to process decodes and averaging results including the necessary OpenMP synchronization directives for parallel JT9+JT65 decoding. Added the jt65_test module which is a basic test harness for JT65 decoding. Re-factored the jt65 utility to utilize the new jt65_test module. Changed a few integers to logical variables where their meaning is clearly binary. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6324 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2015-12-29 18:52:55 -05:00
if (used) cused = '$'
if (flip) csync = '$'
write(14,1000) cused,utc,sync,dt,freq,csync
1000 format(a1,i5.4,f6.1,f6.2,i6,1x,a1)
end subroutine jt4_average
Strip out callback arguments that are constant and known to the callback implememtation git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6671 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-05-04 21:32:30 -04:00
subroutine jt65_decoded(this,sync,snr,dt,freq,drift,nflip,width, &
decoded0,ft,qual,nsmo,nsum,minsync)
Further progress on JT65 decoding with averaging and variable smoothing. Please note: it's far from finished! git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6513 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-03-09 16:01:28 -05:00
Restructuring in preparation for direct decoder invocation from wsjtx Re-factor the JT4, JT65 and JT9 decoders as Fortran modules using type bound procedures, the decoder types implement a callback procedure such that he client of the decoder can interpret the decode results as they need. The JT4 decoder has a second callback that delivers message averaging status. Also the previously separate source files lib/jt4a.f90 and lib/avg4.f90 have been merged into lib/jt4_decode.f90 as private type bound procedures of the new jt4_decoder type. Re-factored the lib/decoder.f90 subroutine to utilize the new decoder types. Added local procedures to process decodes and averaging results including the necessary OpenMP synchronization directives for parallel JT9+JT65 decoding. Added the jt65_test module which is a basic test harness for JT65 decoding. Re-factored the jt65 utility to utilize the new jt65_test module. Changed a few integers to logical variables where their meaning is clearly binary. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6324 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2015-12-29 18:52:55 -05:00
use jt65_decode
implicit none
class(jt65_decoder), intent(inout) :: this
real, intent(in) :: sync
integer, intent(in) :: snr
real, intent(in) :: dt
integer, intent(in) :: freq
integer, intent(in) :: drift
Enable JT65 decodes with the 'OOO' sync pattern. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6663 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-05-03 12:10:22 -04:00
integer, intent(in) :: nflip
Many changes in aid of decoding signals with significant Doppler spread in submodes JT65B, C. More changes still to come! git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6535 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-03-17 09:28:57 -04:00
real, intent(in) :: width
Improved GUI control and display of averaged and hinted decodes. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6548 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-03-22 10:12:59 -04:00
character(len=22), intent(in) :: decoded0
Restructuring in preparation for direct decoder invocation from wsjtx Re-factor the JT4, JT65 and JT9 decoders as Fortran modules using type bound procedures, the decoder types implement a callback procedure such that he client of the decoder can interpret the decode results as they need. The JT4 decoder has a second callback that delivers message averaging status. Also the previously separate source files lib/jt4a.f90 and lib/avg4.f90 have been merged into lib/jt4_decode.f90 as private type bound procedures of the new jt4_decoder type. Re-factored the lib/decoder.f90 subroutine to utilize the new decoder types. Added local procedures to process decodes and averaging results including the necessary OpenMP synchronization directives for parallel JT9+JT65 decoding. Added the jt65_test module which is a basic test harness for JT65 decoding. Re-factored the jt65 utility to utilize the new jt65_test module. Changed a few integers to logical variables where their meaning is clearly binary. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6324 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2015-12-29 18:52:55 -05:00
integer, intent(in) :: ft
integer, intent(in) :: qual
Further progress on JT65 decoding with averaging and variable smoothing. Please note: it's far from finished! git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6513 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-03-09 16:01:28 -05:00
integer, intent(in) :: nsmo
integer, intent(in) :: nsum
integer, intent(in) :: minsync
Label JT65 AP decodes as such. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8220 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2017-11-05 09:44:15 -05:00
integer i,nap,nft
Suppress some compiler warnings. (More to come...) git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6748 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-06-09 15:39:48 -04:00
logical is_deep,is_average
New format for end-of-line flags in JT4 and JT65; starting work on establishing sync in JT4. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6685 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-05-19 12:13:51 -04:00
character decoded*22,csync*2,cflags*3
Further progress on JT65 decoding with averaging and variable smoothing. Please note: it's far from finished! git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6513 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-03-09 16:01:28 -05:00
Suppress some compiler warnings. (More to come...) git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6748 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-06-09 15:39:48 -04:00
if(width.eq.-9999.0) stop !Silence compiler warning
Further progress on JT65 decoding with averaging and variable smoothing. Please note: it's far from finished! git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6513 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-03-09 16:01:28 -05:00
!$omp critical(decode_results)
Improved GUI control and display of averaged and hinted decodes. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6548 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-03-22 10:12:59 -04:00
decoded=decoded0
Minor cleanups and corrections to the JT4 and JT65 decoders when using deep search and/or averaging. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6696 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-05-24 12:00:00 -04:00
cflags=' '
is_deep=ft.eq.2
Temporary mode QRA02 is now basically functional (though buggy). git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6833 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-06-30 16:38:36 -04:00
In place of the qra64 return code as is, display a number that increases monotonically with the amount of a priori information used. Here's the translation, as a lookup table. The displayed number is the tens digit of the number of a priori bits. rc APxx displayed ------------------- 0 0 0 1 27 2 2 42 4 3 29 2 4 44 4 5 57 5 6 29 2 7 44 4 8 72 7 9 55 5 10 70 7 11 70 7 git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7325 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-11-21 11:51:11 -05:00
if(ft.ge.80) then !QRA64 mode
Temporary mode QRA02 is now basically functional (though buggy). git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6833 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-06-30 16:38:36 -04:00
nft=ft-100
Minor tweaks to QRA sync handling. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6844 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-07-01 11:25:41 -04:00
csync=': '
Correct the sending of minsync to decoder. Fix statement ordering that affects timer calls. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7370 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-12-08 10:38:54 -05:00
if(sync-3.4.ge.float(minsync) .or. nft.ge.0) csync=':*'
Minor tweaks to QRA sync handling. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6844 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-07-01 11:25:41 -04:00
if(nft.lt.0) then
Improving the QRA sync-detect algorithm. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6843 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-07-01 11:16:00 -04:00
write(*,1009) params%nutc,snr,dt,freq,csync,decoded
else
Revert to displaying Nico's return code with QRA64 messages. Suppress a few false decodes that cannot be correct messages. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7342 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-11-28 10:11:00 -05:00
write(*,1009) params%nutc,snr,dt,freq,csync,decoded,nft
1009 format(i4.4,i4,f5.1,i5,1x,a2,1x,a22,i2)
Improving the QRA sync-detect algorithm. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6843 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-07-01 11:16:00 -04:00
endif
Temporary mode QRA02 is now basically functional (though buggy). git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6833 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-06-30 16:38:36 -04:00
write(13,1011) params%nutc,nint(sync),snr,dt,float(freq),drift, &
Revert to displaying Nico's return code with QRA64 messages. Suppress a few false decodes that cannot be correct messages. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7342 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-11-28 10:11:00 -05:00
decoded,nft
A few more renames, QRA65 --> QRA64. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6849 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-07-02 08:48:27 -04:00
1011 format(i4.4,i4,i5,f6.2,f8.0,i4,3x,a22,' QRA64',i3)
Temporary mode QRA02 is now basically functional (though buggy). git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6833 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-06-30 16:38:36 -04:00
go to 100
endif
Rationalize several VHF-oriented features of the JT4 and JT64 decoders. More additions to the User Guide. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7227 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-10-24 16:48:24 -04:00
Minor tweaks to logic for displaying Avg and DS decodes. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6552 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-03-23 11:08:00 -04:00
if(ft.eq.0 .and. minsync.ge.0 .and. int(sync).lt.minsync) then
Adjust decodes displays and processing for extra csync indicator after mode git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6674 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-05-05 14:53:00 -04:00
write(*,1010) params%nutc,snr,dt,freq
First working code that uses wider detection bandwidths for submodes JT65B,C. Still needs work! git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6507 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-03-07 15:00:23 -05:00
else
New format for end-of-line flags in JT4 and JT65; starting work on establishing sync in JT4. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6685 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-05-19 12:13:51 -04:00
is_average=nsum.ge.2
Use bVHF rather than single_decode to control display of params at end of decode line. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7225 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-10-24 11:25:25 -04:00
if(bVHF .and. ft.gt.0) then
New format for end-of-line flags in JT4 and JT65; starting work on establishing sync in JT4. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6685 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-05-19 12:13:51 -04:00
cflags='f '
if(is_deep) then
cflags(1:2)='d1'
write(cflags(3:3),'(i1)') min(qual,9)
if(qual.ge.10) cflags(3:3)='*'
if(qual.lt.3) decoded(22:22)='?'
endif
if(is_average) then
write(cflags(2:2),'(i1)') min(nsum,9)
if(nsum.ge.10) cflags(2:2)='*'
Improved GUI control and display of averaged and hinted decodes. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6548 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-03-22 10:12:59 -04:00
endif
Label JT65 AP decodes as such. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8220 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2017-11-05 09:44:15 -05:00
nap=ishft(ft,-2)
if(nap.ne.0) then
Implement AP decoding for JT65 (VHF/UHF/Microwave only). git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8277 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2017-12-02 11:04:51 -05:00
write(cflags(1:3),'(a1,i1)') 'a',nap
Label JT65 AP decodes as such. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8220 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2017-11-05 09:44:15 -05:00
endif
Further progress on JT65 decoding with averaging and variable smoothing. Please note: it's far from finished! git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6513 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-03-09 16:01:28 -05:00
endif
Remove unused code from sh65.f90. Make csync a 2-character flag. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6666 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-05-04 14:16:09 -04:00
csync='# '
Correct several VHF/UHF/Microwave items on Rex's list. Specifically: 1. Allow display of JT65 single-line decodes when there is also an average decode. 5. Do not call JT4 deep search if Fano decode has succeeded. 7. Fix occasional Fortran error seen with the "#" (nflip=-1) sync. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6678 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-05-17 13:19:27 -04:00
i=0
Rationalize several VHF-oriented features of the JT4 and JT64 decoders. More additions to the User Guide. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7227 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-10-24 16:48:24 -04:00
if(bVHF .and. nflip.ne.0 .and. &
Correct several VHF/UHF/Microwave items on Rex's list. Specifically: 1. Allow display of JT65 single-line decodes when there is also an average decode. 5. Do not call JT4 deep search if Fano decode has succeeded. 7. Fix occasional Fortran error seen with the "#" (nflip=-1) sync. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6678 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-05-17 13:19:27 -04:00
sync.ge.max(0.0,float(minsync))) then
Remove unused code from sh65.f90. Make csync a 2-character flag. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6666 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-05-04 14:16:09 -04:00
csync='#*'
Enable JT65 decodes with the 'OOO' sync pattern. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6663 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-05-03 12:10:22 -04:00
if(nflip.eq.-1) then
Remove unused code from sh65.f90. Make csync a 2-character flag. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6666 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-05-04 14:16:09 -04:00
csync='##'
Enable JT65 decodes with the 'OOO' sync pattern. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6663 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-05-03 12:10:22 -04:00
if(decoded.ne.' ') then
do i=22,1,-1
if(decoded(i:i).ne.' ') exit
enddo
Correct several VHF/UHF/Microwave items on Rex's list. Specifically: 1. Allow display of JT65 single-line decodes when there is also an average decode. 5. Do not call JT4 deep search if Fano decode has succeeded. 7. Fix occasional Fortran error seen with the "#" (nflip=-1) sync. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6678 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-05-17 13:19:27 -04:00
if(i.gt.18) i=18
Enable JT65 decodes with the 'OOO' sync pattern. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6663 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-05-03 12:10:22 -04:00
decoded(i+2:i+4)='OOO'
endif
endif
endif
Temporary mode QRA02 is now basically functional (though buggy). git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6833 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-06-30 16:38:36 -04:00
write(*,1010) params%nutc,snr,dt,freq,csync,decoded,cflags
1010 format(i4.4,i4,f5.1,i5,1x,a2,1x,a22,1x,a3)
First working code that uses wider detection bandwidths for submodes JT65B,C. Still needs work! git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6507 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-03-07 15:00:23 -05:00
endif
Correct several VHF/UHF/Microwave items on Rex's list. Specifically: 1. Allow display of JT65 single-line decodes when there is also an average decode. 5. Do not call JT4 deep search if Fano decode has succeeded. 7. Fix occasional Fortran error seen with the "#" (nflip=-1) sync. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6678 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-05-17 13:19:27 -04:00
write(13,1012) params%nutc,nint(sync),snr,dt,float(freq),drift, &
decoded,ft,nsum,nsmo
Many changes in aid of decoding signals with significant Doppler spread in submodes JT65B, C. More changes still to come! git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6535 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-03-17 09:28:57 -04:00
1012 format(i4.4,i4,i5,f6.2,f8.0,i4,3x,a22,' JT65',3i3)
Temporary mode QRA02 is now basically functional (though buggy). git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6833 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-06-30 16:38:36 -04:00
100 call flush(6)
Merge improvements to the FT algorithm into Bill's new structure for the Fortran routines. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6328 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2015-12-30 20:30:31 -05:00
Further progress on JT65 decoding with averaging and variable smoothing. Please note: it's far from finished! git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6513 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-03-09 16:01:28 -05:00
!$omp end critical(decode_results)
Restructuring in preparation for direct decoder invocation from wsjtx Re-factor the JT4, JT65 and JT9 decoders as Fortran modules using type bound procedures, the decoder types implement a callback procedure such that he client of the decoder can interpret the decode results as they need. The JT4 decoder has a second callback that delivers message averaging status. Also the previously separate source files lib/jt4a.f90 and lib/avg4.f90 have been merged into lib/jt4_decode.f90 as private type bound procedures of the new jt4_decoder type. Re-factored the lib/decoder.f90 subroutine to utilize the new decoder types. Added local procedures to process decodes and averaging results including the necessary OpenMP synchronization directives for parallel JT9+JT65 decoding. Added the jt65_test module which is a basic test harness for JT65 decoding. Re-factored the jt65 utility to utilize the new jt65_test module. Changed a few integers to logical variables where their meaning is clearly binary. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6324 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2015-12-29 18:52:55 -05:00
select type(this)
type is (counting_jt65_decoder)
this%decoded = this%decoded + 1
end select
end subroutine jt65_decoded
Strip out callback arguments that are constant and known to the callback implememtation git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6671 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-05-04 21:32:30 -04:00
subroutine jt9_decoded (this, sync, snr, dt, freq, drift, decoded)
Restructuring in preparation for direct decoder invocation from wsjtx Re-factor the JT4, JT65 and JT9 decoders as Fortran modules using type bound procedures, the decoder types implement a callback procedure such that he client of the decoder can interpret the decode results as they need. The JT4 decoder has a second callback that delivers message averaging status. Also the previously separate source files lib/jt4a.f90 and lib/avg4.f90 have been merged into lib/jt4_decode.f90 as private type bound procedures of the new jt4_decoder type. Re-factored the lib/decoder.f90 subroutine to utilize the new decoder types. Added local procedures to process decodes and averaging results including the necessary OpenMP synchronization directives for parallel JT9+JT65 decoding. Added the jt65_test module which is a basic test harness for JT65 decoding. Re-factored the jt65 utility to utilize the new jt65_test module. Changed a few integers to logical variables where their meaning is clearly binary. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6324 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2015-12-29 18:52:55 -05:00
use jt9_decode
implicit none
class(jt9_decoder), intent(inout) :: this
real, intent(in) :: sync
integer, intent(in) :: snr
real, intent(in) :: dt
real, intent(in) :: freq
integer, intent(in) :: drift
character(len=22), intent(in) :: decoded
!$omp critical(decode_results)
Strip out callback arguments that are constant and known to the callback implememtation git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6671 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-05-04 21:32:30 -04:00
write(*,1000) params%nutc,snr,dt,nint(freq),decoded
Adjust decodes displays and processing for extra csync indicator after mode git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6674 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-05-05 14:53:00 -04:00
1000 format(i4.4,i4,f5.1,i5,1x,'@ ',1x,a22)
Strip out callback arguments that are constant and known to the callback implememtation git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6671 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-05-04 21:32:30 -04:00
write(13,1002) params%nutc,nint(sync),snr,dt,freq,drift,decoded
Restructuring in preparation for direct decoder invocation from wsjtx Re-factor the JT4, JT65 and JT9 decoders as Fortran modules using type bound procedures, the decoder types implement a callback procedure such that he client of the decoder can interpret the decode results as they need. The JT4 decoder has a second callback that delivers message averaging status. Also the previously separate source files lib/jt4a.f90 and lib/avg4.f90 have been merged into lib/jt4_decode.f90 as private type bound procedures of the new jt4_decoder type. Re-factored the lib/decoder.f90 subroutine to utilize the new decoder types. Added local procedures to process decodes and averaging results including the necessary OpenMP synchronization directives for parallel JT9+JT65 decoding. Added the jt65_test module which is a basic test harness for JT65 decoding. Re-factored the jt65 utility to utilize the new jt65_test module. Changed a few integers to logical variables where their meaning is clearly binary. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6324 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2015-12-29 18:52:55 -05:00
1002 format(i4.4,i4,i5,f6.1,f8.0,i4,3x,a22,' JT9')
call flush(6)
!$omp end critical(decode_results)
select type(this)
type is (counting_jt9_decoder)
this%decoded = this%decoded + 1
end select
end subroutine jt9_decoded
More informative end-of-line annotation for AP decodes. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7935 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2017-07-22 13:12:48 -04:00
subroutine ft8_decoded (this,sync,snr,dt,freq,decoded,nap,qual)
Start a framework for FT8 decoder. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7727 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2017-06-17 11:55:30 -04:00
use ft8_decode
implicit none
class(ft8_decoder), intent(inout) :: this
real, intent(in) :: sync
integer, intent(in) :: snr
real, intent(in) :: dt
real, intent(in) :: freq
Better support for compound callsigns in DXpedition mode. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8351 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2017-12-19 15:01:06 -05:00
character(len=37), intent(in) :: decoded
Housekeeping. Remove unused code and unused variables. Silence some compiler warnings.
2018-12-05 17:06:33 -05:00
character c1*12,c2*12,g2*4,w*4
integer i0,i1,i2,i3,i4,i5,n30,nwrap
More informative end-of-line annotation for AP decodes. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7935 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2017-07-22 13:12:48 -04:00
integer, intent(in) :: nap
real, intent(in) :: qual
Move '?' quality warning to message(22:22). git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7945 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2017-07-25 15:06:05 -04:00
character*2 annot
Better support for compound callsigns in DXpedition mode. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8351 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2017-12-19 15:01:06 -05:00
character*37 decoded0
Allow Hound callers to use Fox's compound callsign. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8346 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2017-12-19 10:18:56 -05:00
logical isgrid4,first,b0,b1,b2
More progress on FoxCalls... git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8199 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2017-10-30 16:47:08 -04:00
data first/.true./
save
isgrid4(w)=(len_trim(w).eq.4 .and. &
ichar(w(1:1)).ge.ichar('A') .and. ichar(w(1:1)).le.ichar('R') .and. &
ichar(w(2:2)).ge.ichar('A') .and. ichar(w(2:2)).le.ichar('R') .and. &
ichar(w(3:3)).ge.ichar('0') .and. ichar(w(3:3)).le.ichar('9') .and. &
ichar(w(4:4)).ge.ichar('0') .and. ichar(w(4:4)).le.ichar('9'))
if(first) then
c2fox=' '
g2fox=' '
nsnrfox=-99
nfreqfox=-99
Use 30 s intevals for "Age" units. Clean up labels when Message Avg window used for Fox Log. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8348 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2017-12-19 12:01:38 -05:00
n30z=0
Various corrections/additions to DXpedition Fox mode. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8262 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2017-11-27 15:22:44 -05:00
nwrap=0
More progress on FoxCalls... git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8199 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2017-10-30 16:47:08 -04:00
nfox=0
first=.false.
endif
Hound can now decode Fox messages with i3bit=1. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8297 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2017-12-08 12:03:11 -05:00
decoded0=decoded
Move '?' quality warning to message(22:22). git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7945 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2017-07-25 15:06:05 -04:00
annot=' '
Re-enable printing of ?a# decode quality and ap-type annotations, for now.
2019-06-11 10:17:13 -04:00
if(nap.ne.0) then
Hound can now decode Fox messages with i3bit=1. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8297 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2017-12-08 12:03:11 -05:00
write(annot,'(a1,i1)') 'a',nap
Progress on AP decoding for 77bit messages. AP is basically working for regular i3=1 messages.
2018-07-28 18:32:45 -04:00
if(qual.lt.0.17) decoded0(37:37)='?'
More informative end-of-line annotation for AP decodes. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7935 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2017-07-22 13:12:48 -04:00
endif
Hound can now decode Fox messages with i3bit=1. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8297 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2017-12-08 12:03:11 -05:00
More progress on making ft8sim2 and ft8b_2 encode and decode all message types. For now, decoder.f90 is hardwired to always print 37 characters.
2018-07-04 11:15:01 -04:00
! i0=index(decoded0,';')
! Always print 37 characters? Or, send i3,n3 up to here from ft8b_2 and use them
! to decide how many chars to print?
!TEMP
i0=1
Hound can now decode Fox messages with i3bit=1. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8297 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2017-12-08 12:03:11 -05:00
if(i0.le.0) write(*,1000) params%nutc,snr,dt,nint(freq),decoded0(1:22),annot
Move '?' quality warning to message(22:22). git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7945 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2017-07-25 15:06:05 -04:00
1000 format(i6.6,i4,f5.1,i5,' ~ ',1x,a22,1x,a2)
Progress on AP decoding for 77bit messages. AP is basically working for regular i3=1 messages.
2018-07-28 18:32:45 -04:00
if(i0.gt.0) write(*,1001) params%nutc,snr,dt,nint(freq),decoded0,annot
1001 format(i6.6,i4,f5.1,i5,' ~ ',1x,a37,1x,a2)
Move '?' quality warning to message(22:22). git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7945 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2017-07-25 15:06:05 -04:00
write(13,1002) params%nutc,nint(sync),snr,dt,freq,0,decoded0
Better support for compound callsigns in DXpedition mode. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8351 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2017-12-19 15:01:06 -05:00
1002 format(i6.6,i4,i5,f6.1,f8.0,i4,3x,a37,' FT8')
More progress on FoxCalls... git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8199 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2017-10-30 16:47:08 -04:00
Don't execute Fox-related statements when not in Fox Mode. Protect against a bounds error.
2018-12-19 12:17:52 -05:00
if(ncontest.eq.5) then
i1=index(decoded0,' ')
i2=i1 + index(decoded0(i1+1:),' ')
i3=i2 + index(decoded0(i2+1:),' ')
if(i1.ge.3 .and. i2.ge.7 .and. i3.ge.10) then
c1=decoded0(1:i1-1)//' '
c2=decoded0(i1+1:i2-1)
g2=decoded0(i2+1:i3-1)
b0=c1.eq.mycall
if(c1(1:3).eq.'DE ' .and. index(c2,'/').ge.2) b0=.true.
if(len(trim(c1)).ne.len(trim(mycall))) then
i4=index(trim(c1),trim(mycall))
i5=index(trim(mycall),trim(c1))
if(i4.ge.1 .or. i5.ge.1) b0=.true.
endif
b1=i3-i2.eq.5 .and. isgrid4(g2)
b2=i3-i2.eq.1
if(b0 .and. (b1.or.b2) .and. nint(freq).ge.1000) then
n=params%nutc
n30=(3600*(n/10000) + 60*mod((n/100),100) + mod(n,100))/30
if(n30.lt.n30z) nwrap=nwrap+5760 !New UTC day, handle the wrap
n30z=n30
n30=n30+nwrap
if(nfox.lt.MAXFOX) nfox=nfox+1
c2fox(nfox)=c2
g2fox(nfox)=g2
nsnrfox(nfox)=snr
nfreqfox(nfox)=nint(freq)
n30fox(nfox)=n30
endif
Resuming work on the Fox GUI. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8236 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2017-11-14 16:01:20 -05:00
endif
More progress on FoxCalls... git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8199 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2017-10-30 16:47:08 -04:00
endif
Code cleanup and test ofFT8 decodes with erasures. Do not use on the air. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7879 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2017-07-14 12:02:01 -04:00
call flush(6)
call flush(13)
Rearrange some FT8 code for consistency with other modes. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7741 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2017-06-27 15:44:12 -04:00
Start a framework for FT8 decoder. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7727 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2017-06-17 11:55:30 -04:00
select type(this)
type is (counting_ft8_decoder)
this%decoded = this%decoded + 1
end select
Rearrange some FT8 code for consistency with other modes. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7741 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2017-06-27 15:44:12 -04:00
return
Start a framework for FT8 decoder. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7727 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2017-06-17 11:55:30 -04:00
end subroutine ft8_decoded
Some very basic functionality for time-synchronized FT4.
2019-04-01 14:23:10 -04:00
subroutine ft4_decoded (this,sync,snr,dt,freq,decoded,nap,qual)
use ft4_decode
implicit none
class(ft4_decoder), intent(inout) :: this
real, intent(in) :: sync
integer, intent(in) :: snr
real, intent(in) :: dt
real, intent(in) :: freq
character(len=37), intent(in) :: decoded
clean up a few warnings
2019-07-01 22:10:43 -04:00
integer, intent(in) :: nap
Some very basic functionality for time-synchronized FT4.
2019-04-01 14:23:10 -04:00
real, intent(in) :: qual
character*2 annot
character*37 decoded0
decoded0=decoded
annot=' '
Re-enable printing of ?a# decode quality and ap-type annotations, for now.
2019-06-11 10:17:13 -04:00
if(nap.ne.0) then
Some very basic functionality for time-synchronized FT4.
2019-04-01 14:23:10 -04:00
write(annot,'(a1,i1)') 'a',nap
if(qual.lt.0.17) decoded0(37:37)='?'
endif
write(*,1001) params%nutc,snr,dt,nint(freq),decoded0,annot
Change FT4 mode symbol to plus (+).
2019-04-26 17:44:09 -04:00
1001 format(i6.6,i4,f5.1,i5,' + ',1x,a37,1x,a2)
Some very basic functionality for time-synchronized FT4.
2019-04-01 14:23:10 -04:00
write(13,1002) params%nutc,nint(sync),snr,dt,freq,0,decoded0
Change FT4 mode symbol to plus (+).
2019-04-26 17:44:09 -04:00
1002 format(i6.6,i4,i5,f6.1,f8.0,i4,3x,a37,' FT4')
Some very basic functionality for time-synchronized FT4.
2019-04-01 14:23:10 -04:00
call flush(6)
call flush(13)
select type(this)
type is (counting_ft4_decoder)
this%decoded = this%decoded + 1
end select
return
end subroutine ft4_decoded
Restructuring in preparation for direct decoder invocation from wsjtx Re-factor the JT4, JT65 and JT9 decoders as Fortran modules using type bound procedures, the decoder types implement a callback procedure such that he client of the decoder can interpret the decode results as they need. The JT4 decoder has a second callback that delivers message averaging status. Also the previously separate source files lib/jt4a.f90 and lib/avg4.f90 have been merged into lib/jt4_decode.f90 as private type bound procedures of the new jt4_decoder type. Re-factored the lib/decoder.f90 subroutine to utilize the new decoder types. Added local procedures to process decodes and averaging results including the necessary OpenMP synchronization directives for parallel JT9+JT65 decoding. Added the jt65_test module which is a basic test harness for JT65 decoding. Re-factored the jt65 utility to utilize the new jt65_test module. Changed a few integers to logical variables where their meaning is clearly binary. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6324 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2015-12-29 18:52:55 -05:00
end subroutine multimode_decoder
Reference in New Issue Copy Permalink