2018-02-08 21:28:33 -05:00
|
|
|
use, intrinsic :: iso_c_binding, only: c_int, c_short, c_float, c_char, c_bool
|
|
|
|
|
|
|
|
|
|
include 'constants.f90'
|
|
|
|
|
|
|
|
|
|
!
|
|
|
|
|
! these structures must be kept in sync with ../commons.h
|
|
|
|
|
!
|
|
|
|
|
type, bind(C) :: params_block
|
|
|
|
|
integer(c_int) :: nutc
|
|
|
|
|
logical(c_bool) :: ndiskdat
|
|
|
|
|
integer(c_int) :: ntr
|
|
|
|
|
integer(c_int) :: nQSOProgress ! See MainWindow::m_QSOProgress for values
|
|
|
|
|
integer(c_int) :: nfqso
|
|
|
|
|
integer(c_int) :: nftx
|
|
|
|
|
logical(c_bool) :: newdat
|
|
|
|
|
integer(c_int) :: npts8
|
|
|
|
|
integer(c_int) :: nfa
|
|
|
|
|
integer(c_int) :: nfsplit
|
|
|
|
|
integer(c_int) :: nfb
|
|
|
|
|
integer(c_int) :: ntol
|
|
|
|
|
integer(c_int) :: kin
|
2019-11-04 14:38:00 -05:00
|
|
|
integer(c_int) :: kposA
|
|
|
|
|
integer(c_int) :: kposB
|
|
|
|
|
integer(c_int) :: kposC
|
2019-11-06 16:00:16 -05:00
|
|
|
integer(c_int) :: kposE
|
2019-12-09 14:00:23 -05:00
|
|
|
integer(c_int) :: kposI
|
2019-11-04 14:38:00 -05:00
|
|
|
integer(c_int) :: kszA
|
|
|
|
|
integer(c_int) :: kszB
|
|
|
|
|
integer(c_int) :: kszC
|
2019-11-06 16:00:16 -05:00
|
|
|
integer(c_int) :: kszE
|
2019-12-09 14:00:23 -05:00
|
|
|
integer(c_int) :: kszI
|
2018-02-08 21:28:33 -05:00
|
|
|
integer(c_int) :: nzhsym
|
|
|
|
|
integer(c_int) :: nsubmode
|
2019-11-04 14:38:00 -05:00
|
|
|
integer(c_int) :: nsubmodes
|
2018-02-08 21:28:33 -05:00
|
|
|
logical(c_bool) :: nagain
|
|
|
|
|
integer(c_int) :: ndepth
|
2018-03-05 14:49:51 -05:00
|
|
|
logical(c_bool) :: lft8apon
|
|
|
|
|
logical(c_bool) :: lapcqonly
|
|
|
|
|
logical(c_bool) :: ljt65apon
|
2018-02-08 21:28:33 -05:00
|
|
|
integer(c_int) :: napwid
|
|
|
|
|
integer(c_int) :: ntxmode
|
|
|
|
|
integer(c_int) :: nmode
|
|
|
|
|
integer(c_int) :: minw
|
|
|
|
|
logical(c_bool) :: nclearave
|
|
|
|
|
integer(c_int) :: minsync
|
|
|
|
|
real(c_float) :: emedelay
|
|
|
|
|
real(c_float) :: dttol
|
|
|
|
|
integer(c_int) :: nlist
|
|
|
|
|
integer(c_int) :: listutc(10)
|
|
|
|
|
integer(c_int) :: n2pass
|
|
|
|
|
integer(c_int) :: nranera
|
|
|
|
|
integer(c_int) :: naggressive
|
|
|
|
|
logical(c_bool) :: nrobust
|
|
|
|
|
integer(c_int) :: nexp_decode
|
2018-08-05 11:33:30 -04:00
|
|
|
character(kind=c_char) :: datetime(20)
|
|
|
|
|
character(kind=c_char) :: mycall(12)
|
|
|
|
|
character(kind=c_char) :: mygrid(6)
|
|
|
|
|
character(kind=c_char) :: hiscall(12)
|
|
|
|
|
character(kind=c_char) :: hisgrid(6)
|
2019-11-05 21:27:41 -05:00
|
|
|
integer(c_int) :: ndebug
|
2018-02-08 21:28:33 -05:00
|
|
|
end type params_block
|
|
|
|
|
|
|
|
|
|
type, bind(C) :: dec_data
|
|
|
|
|
real(c_float) :: ss(184,NSMAX)
|
|
|
|
|
real(c_float) :: savg(NSMAX)
|
|
|
|
|
real(c_float) :: sred(5760)
|
|
|
|
|
integer(c_short) :: id2(NMAX)
|
|
|
|
|
type(params_block) :: params
|
|
|
|
|
end type dec_data
|
