mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2025-08-01 05:32:31 -04:00
b048669c02
------------------------------------------------------------------------ r8060 | k1jt | 2017-09-01 13:51:42 +0100 (Fri, 01 Sep 2017) | 2 lines Add a link to G3WDG doc on using QRA64 for microwave EME. ------------------------------------------------------------------------ r8061 | k1jt | 2017-09-01 17:22:19 +0100 (Fri, 01 Sep 2017) | 1 line Fix a misspelled word. ------------------------------------------------------------------------ r8062 | bsomervi | 2017-09-01 21:10:35 +0100 (Fri, 01 Sep 2017) | 7 lines Rationalize NA contest mode Generic message packing and unpacking routines now understand antipode grid contest messages. These messages are now recognized as standard messages in message response processing and dealt with appropriately when contest mode is selected and applicable (currently FT8 and MSK144 only). ------------------------------------------------------------------------ r8063 | bsomervi | 2017-09-01 21:43:45 +0100 (Fri, 01 Sep 2017) | 1 line Fix issue compiling with Qt older than v5.7 ------------------------------------------------------------------------ r8064 | bsomervi | 2017-09-01 22:29:02 +0100 (Fri, 01 Sep 2017) | 7 lines Fix issues with type 2 compound calls in contest mode Message generation in contest mode now generates the correct Tx3 for type 2 calls. "<type-2> 73" is a free text so needed special handling in message processing. ------------------------------------------------------------------------ r8065 | bsomervi | 2017-09-01 23:22:20 +0100 (Fri, 01 Sep 2017) | 11 lines Improved message generation for type 2 calls in contest mode These attempt to ensure that a prefix is logged by the QSO partner even if the compound call holder user Tx3 to tail-end a QSO. The type 2 message generation options are largely overridden in contest mode as only a few options make sense. Key is that Tx1 may use only the base call when calling split is necessary, this requires that both Tx3 and Tx4 have the full compound call otherwise the QSO partner will never see the full call until it is possibly too late i.e. post logging. ------------------------------------------------------------------------ r8066 | bsomervi | 2017-09-02 00:28:44 +0100 (Sat, 02 Sep 2017) | 5 lines Fix erroneous auto stop critera for auto reply in FT8 We cannot assume that a "DE <dx-call> <anything>" is or is not for us so we must continue calling and risk possible QRM. Calling split avoids this issue. ------------------------------------------------------------------------ git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx-1.8@8067 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
159 lines
4.4 KiB
Fortran
159 lines
4.4 KiB
Fortran
subroutine qra64a(dd,npts,nutc,nf1,nf2,nfqso,ntol,mode64,minsync,ndepth, &
|
|
emedelay,mycall_12,hiscall_12,hisgrid_6,sync,nsnr,dtx,nfreq,decoded,nft)
|
|
|
|
use packjt
|
|
use timer_module, only: timer
|
|
|
|
parameter (NMAX=60*12000,LN=1152*63)
|
|
character decoded*22
|
|
character*12 mycall_12,hiscall_12
|
|
character*6 mycall,hiscall,hisgrid_6
|
|
character*4 hisgrid
|
|
logical ltext
|
|
complex c00(0:720000) !Complex spectrum of dd()
|
|
complex c0(0:720000) !Complex data for dd()
|
|
real a(3)
|
|
real dd(NMAX) !Raw data sampled at 12000 Hz
|
|
real s3(LN) !Symbol spectra
|
|
real s3a(LN) !Symbol spectra
|
|
integer dat4(12) !Decoded message (as 12 integers)
|
|
integer dat4x(12)
|
|
integer nap(0:11)
|
|
data nap/0,2,3,2,3,4,2,3,6,4,6,6/
|
|
data nc1z/-1/,nc2z/-1/,ng2z/-1/,maxaptypez/-1/
|
|
save
|
|
|
|
call timer('qra64a ',0)
|
|
irc=-1
|
|
decoded=' '
|
|
nft=99
|
|
if(nfqso.lt.nf1 .or. nfqso.gt.nf2) go to 900
|
|
|
|
mycall=mycall_12(1:6) !### May need fixing ###
|
|
hiscall=hiscall_12(1:6)
|
|
hisgrid=hisgrid_6(1:4)
|
|
call packcall(mycall,nc1,ltext)
|
|
call packcall(hiscall,nc2,ltext)
|
|
call packgrid(hisgrid,ng2,ltext)
|
|
nSubmode=0
|
|
if(mode64.eq.2) nSubmode=1
|
|
if(mode64.eq.4) nSubmode=2
|
|
if(mode64.eq.8) nSubmode=3
|
|
if(mode64.eq.16) nSubmode=4
|
|
b90=1.0
|
|
nFadingModel=1
|
|
maxaptype=4
|
|
if(iand(ndepth,64).ne.0) maxaptype=5
|
|
if(nc1.ne.nc1z .or. nc2.ne.nc2z .or. ng2.ne.ng2z .or. &
|
|
maxaptype.ne.maxaptypez) then
|
|
do naptype=0,maxaptype
|
|
if(naptype.eq.2 .and. maxaptype.eq.4) cycle
|
|
call qra64_dec(s3,nc1,nc2,ng2,naptype,1,nSubmode,b90, &
|
|
nFadingModel,dat4,snr2,irc)
|
|
enddo
|
|
nc1z=nc1
|
|
nc2z=nc2
|
|
ng2z=ng2
|
|
maxaptypez=maxaptype
|
|
endif
|
|
naptype=maxaptype
|
|
|
|
call ana64(dd,npts,c00)
|
|
npts2=npts/2
|
|
|
|
call timer('sync64 ',0)
|
|
call sync64(c00,nf1,nf2,nfqso,ntol,mode64,emedelay,dtx,f0,jpk0,sync, &
|
|
sync2,width)
|
|
call timer('sync64 ',1)
|
|
nfreq=nint(f0)
|
|
if(mode64.eq.1 .and. minsync.ge.0 .and. (sync-7.0).lt.minsync) go to 900
|
|
! if((sync-3.4).lt.float(minsync) .or.width.gt.340.0) go to 900
|
|
a=0.
|
|
a(1)=-f0
|
|
call twkfreq(c00,c0,npts2,6000.0,a)
|
|
|
|
irc=-99
|
|
s3lim=20.
|
|
itz=11
|
|
if(mode64.eq.4) itz=9
|
|
if(mode64.eq.2) itz=7
|
|
if(mode64.eq.1) itz=5
|
|
|
|
LL=64*(mode64+2)
|
|
NN=63
|
|
napmin=99
|
|
do itry0=1,5
|
|
idt=itry0/2
|
|
if(mod(itry0,2).eq.0) idt=-idt
|
|
jpk=jpk0 + 750*idt
|
|
call spec64(c0,npts2,mode64,jpk,s3a,LL,NN)
|
|
call pctile(s3a,LL*NN,40,base)
|
|
s3a=s3a/base
|
|
where(s3a(1:LL*NN)>s3lim) s3a(1:LL*NN)=s3lim
|
|
do iter=itz,0,-2
|
|
b90=1.728**iter
|
|
if(b90.gt.230.0) cycle
|
|
if(b90.lt.0.15*width) exit
|
|
s3(1:LL*NN)=s3a(1:LL*NN)
|
|
call timer('qra64_de',0)
|
|
call qra64_dec(s3,nc1,nc2,ng2,naptype,0,nSubmode,b90, &
|
|
nFadingModel,dat4,snr2,irc)
|
|
call timer('qra64_de',1)
|
|
if(irc.eq.0) go to 10
|
|
if(irc.gt.0) call badmsg(irc,dat4,nc1,nc2,ng2)
|
|
iirc=max(0,min(irc,11))
|
|
if(irc.gt.0 .and. nap(iirc).lt.napmin) then
|
|
dat4x=dat4
|
|
b90x=b90
|
|
snr2x=snr2
|
|
napmin=nap(iirc)
|
|
irckeep=irc
|
|
dtxkeep=jpk/6000.0 - 1.0
|
|
itry0keep=itry0
|
|
iterkeep=iter
|
|
endif
|
|
enddo
|
|
if(irc.eq.0) exit
|
|
enddo
|
|
|
|
if(napmin.ne.99) then
|
|
dat4=dat4x
|
|
b90=b90x
|
|
snr2=snr2x
|
|
irc=irckeep
|
|
dtx=dtxkeep
|
|
itry0=itry0keep
|
|
iter=iterkeep
|
|
endif
|
|
10 decoded=' '
|
|
|
|
if(irc.ge.0) then
|
|
call unpackmsg(dat4,decoded,.false.,' ') !Unpack the user message
|
|
call fmtmsg(decoded,iz)
|
|
if(index(decoded,"000AAA ").ge.1) then
|
|
! Suppress a certain type of garbage decode.
|
|
decoded=' '
|
|
irc=-1
|
|
endif
|
|
nft=100 + irc
|
|
nsnr=nint(snr2)
|
|
else
|
|
snr2=0.
|
|
endif
|
|
|
|
900 if(irc.lt.0) then
|
|
sy=max(1.0,sync)
|
|
if(nSubmode.eq.0) nsnr=nint(10.0*log10(sy)-35.0) !A
|
|
if(nSubmode.eq.1) nsnr=nint(10.0*log10(sy)-34.0) !B
|
|
if(nSubmode.eq.2) nsnr=nint(10.0*log10(sy)-29.0) !C
|
|
if(nSubmode.eq.3) nsnr=nint(10.0*log10(sy)-29.0) !D
|
|
if(nSubmode.eq.4) nsnr=nint(10.0*log10(sy)-24.0) !E
|
|
endif
|
|
call timer('qra64a ',1)
|
|
|
|
! write(71,3001) nutc,dtx,f0,sync,sync2,width,minsync,decoded
|
|
!3001 format(i4.4,f7.2,4f8.1,i3,2x,a22)
|
|
|
|
return
|
|
end subroutine qra64a
|