w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-05-24 10:22:26 -04:00
Code Issues Packages Projects Releases Wiki Activity

Silence compiler warnings; reformmat some source code.

Browse Source
This commit is contained in:
Joe Taylor 2020-03-19 13:13:33 -04:00
parent d4d37c49ab
commit d5e92202d0
5 changed files with 256 additions and 254 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lib/ft8/bpdecode174_91.f90
View File

@ -33,6 +33,7 @@ do j=1,M
enddo enddo
ncnt=0 ncnt=0
nclast=0
do iter=0,maxiterations do iter=0,maxiterations

2
lib/jt65_decode.f90
View File

@ -102,7 +102,7 @@ contains
if(nsubmode.ge.100) then if(nsubmode.ge.100) then
! This is QRA64 mode ! This is QRA64 mode
mode64=2**(nsubmode-100) mode64=2**(nsubmode-100)
call qra64a(dd,npts,nutc,nf1,nf2,nfqso,ntol,mode64,minsync,ndepth, & call qra64a(dd,npts,nf1,nf2,nfqso,ntol,mode64,minsync,ndepth, &
emedelay,mycall,hiscall,hisgrid,sync,nsnr,dtx,nfreq,decoded,nft) emedelay,mycall,hiscall,hisgrid,sync,nsnr,dtx,nfreq,decoded,nft)
if (associated(this%callback)) then if (associated(this%callback)) then
ndrift=0 ndrift=0

14
lib/osd128_90.f90
View File

@ -1,7 +1,7 @@
subroutine osd128_90(llr,apmask,ndeep,message77,cw,nhardmin,dmin) subroutine osd128_90(llr,apmask,ndeep,message77,cw,nhardmin,dmin)
!
! An ordered-statistics decoder for the (128,90) code. ! Ordered-statistics decoder for the (128,90) code.
!
integer, parameter:: N=128, K=90, M=N-K integer, parameter:: N=128, K=90, M=N-K
integer*1 apmask(N),apmaskr(N) integer*1 apmask(N),apmaskr(N)
integer*1 gen(K,N) integer*1 gen(K,N)
@ -42,6 +42,11 @@ endif
rx=llr rx=llr
apmaskr=apmask apmaskr=apmask
d1=0.
ntheta=0
npre1=0
npre2=0
nt=0
! Hard decisions on the received word. ! Hard decisions on the received word.
hdec=0 hdec=0
@ -51,7 +56,7 @@ where(rx .ge. 0) hdec=1
absrx=abs(rx) absrx=abs(rx)
call indexx(absrx,N,indx) call indexx(absrx,N,indx)
! Re-order the columns of the generator matrix in order of decreasing reliability. ! Re-order columns of generator matrix in order of decreasing reliability.
do i=1,N do i=1,N
genmrb(1:K,i)=gen(1:K,indx(N+1-i)) genmrb(1:K,i)=gen(1:K,indx(N+1-i))
indices(i)=indx(N+1-i) indices(i)=indx(N+1-i)
@ -368,4 +373,3 @@ subroutine fetchit90(reset,e2,ntau,i1,i2)
lastpat=ipat lastpat=ipat
return return
end subroutine fetchit90 end subroutine fetchit90

5
lib/qra64a.f90
View File

@ -1,4 +1,4 @@
subroutine qra64a(dd,npts,nutc,nf1,nf2,nfqso,ntol,mode64,minsync,ndepth, & subroutine qra64a(dd,npts,nf1,nf2,nfqso,ntol,mode64,minsync,ndepth, &
emedelay,mycall_12,hiscall_12,hisgrid_6,sync,nsnr,dtx,nfreq,decoded,nft) emedelay,mycall_12,hiscall_12,hisgrid_6,sync,nsnr,dtx,nfreq,decoded,nft)
use packjt use packjt
@ -151,8 +151,5 @@ subroutine qra64a(dd,npts,nutc,nf1,nf2,nfqso,ntol,mode64,minsync,ndepth, &
endif endif
call timer('qra64a ',1) 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 return
end subroutine qra64a end subroutine qra64a

2
lib/qratest.f90
View File

@ -39,7 +39,7 @@ program qratest
if(nfqso0.ne.-1) nfqso=nfqso0 if(nfqso0.ne.-1) nfqso=nfqso0
if(ntol0.ne.-1) ntol=ntol0 if(ntol0.ne.-1) ntol=ntol0
call qra64a(dd,npts,nutc,nf1,nf2,nfqso,ntol,mode64,minsync,ndepth, & call qra64a(dd,npts,nf1,nf2,nfqso,ntol,mode64,minsync,ndepth, &
mycall,hiscall,hisgrid,sync,nsnr,dtx,nfreq,decoded,nft) mycall,hiscall,hisgrid,sync,nsnr,dtx,nfreq,decoded,nft)
c='a' c='a'
if(mode64.eq.2) c='b' if(mode64.eq.2) c='b'