w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-03-23 12:38:53 -04:00
Code Issues Packages Projects Releases Wiki Activity

Cleaning up compiler warnings ...

Browse Source
This commit is contained in:
Joe Taylor 2022-12-12 15:15:18 -05:00
parent 1c75702420
commit 173aab72e7
3 changed files with 8 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/qra/q65/q65_set_list.f90
View File

@ -3,7 +3,7 @@ subroutine q65_set_list(mycall,hiscall,hisgrid,codewords,ncw)
parameter (MAX_NCW=206)
character*12 mycall,hiscall
character*6 hisgrid
character*37 msg0,msg,msgsent
character*37 msg,msgsent
logical my_std,his_std
integer codewords(63,MAX_NCW)
integer itone(85)
@ -45,7 +45,7 @@ subroutine q65_set_list(mycall,hiscall,hisgrid,codewords,ncw)
endif
endif
10 call genq65(msg,0,msgsent,itone,i3,n3)
call genq65(msg,0,msgsent,itone,i3,n3)
i0=1
j=0
do k=1,85

2
q65w/libq65/q65wa.f90
View File

@ -54,7 +54,7 @@ subroutine q65wa(dd,ss,savg,newdat,nutc,fcenter,ntol,nfa,nfb, &
if(nagain.eq.0) then
call timer('get_cand',0)
call get_candidates(ss,savg,xpol,nhsym,mfa,mfb,nts_jt65,nts_q65,cand,ncand)
call get_candidates(ss,savg,nhsym,mfa,mfb,nts_jt65,nts_q65,cand,ncand)
call timer('get_cand',1)
candec=.false.
endif

11
q65w/libq65/wideband_sync.f90
View File

@ -26,7 +26,7 @@ module wideband_sync
contains
subroutine get_candidates(ss,savg,xpol,jz,nfa,nfb,nts_jt65,nts_q65,cand,ncand)
subroutine get_candidates(ss,savg,jz,nfa,nfb,nts_jt65,nts_q65,cand,ncand)
! Search symbol spectra ss() over frequency range nfa to nfb (in kHz) for
! JT65 and Q65 sync patterns. The nts_* variables are the submode tone
@ -37,12 +37,12 @@ subroutine get_candidates(ss,savg,xpol,jz,nfa,nfb,nts_jt65,nts_q65,cand,ncand)
real ss(322,NFFT),savg(NFFT)
real pavg(-20:20)
integer indx(NFFT)
logical xpol,skip,ldecoded
logical skip,ldecoded
type(candidate) :: cand(MAX_CANDIDATES)
type(candidate) :: cand0(MAX_CANDIDATES)
common/early/nhsym1,nhsym2,ldecoded(32768)
call wb_sync(ss,savg,xpol,jz,nfa,nfb) !Output to sync() array
call wb_sync(ss,savg,jz,nfa,nfb) !Output to sync() array
tstep=2048.0/11025.0 !0.185760 s: 0.5*tsym_jt65, 0.3096*tsym_q65
df3=96000.0/NFFT
@ -114,7 +114,7 @@ subroutine get_candidates(ss,savg,xpol,jz,nfa,nfb,nts_jt65,nts_q65,cand,ncand)
return
end subroutine get_candidates
subroutine wb_sync(ss,savg,xpol,jz,nfa,nfb)
subroutine wb_sync(ss,savg,jz,nfa,nfb)
! Compute "orange sync curve" using the Q65 sync pattern
@ -124,8 +124,7 @@ subroutine wb_sync(ss,savg,xpol,jz,nfa,nfb)
real ss(322,NFFT)
real savg(NFFT)
real savg_med
real a(3)
logical first,xpol
logical first
integer isync(22)
integer jsync0(63),jsync1(63)
integer ip(1)