w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-25 05:38:46 -05: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
ncnt=0
nclast=0
do iter=0,maxiterations

2
lib/jt65_decode.f90
View File

@ -102,7 +102,7 @@ contains
if(nsubmode.ge.100) then
! This is QRA64 mode
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)
if (associated(this%callback)) then
ndrift=0

14
lib/osd128_90.f90
View File

@ -1,7 +1,7 @@
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*1 apmask(N),apmaskr(N)
integer*1 gen(K,N)
@ -42,6 +42,11 @@ endif
rx=llr
apmaskr=apmask
d1=0.
ntheta=0
npre1=0
npre2=0
nt=0
! Hard decisions on the received word.
hdec=0
@ -51,7 +56,7 @@ where(rx .ge. 0) hdec=1
absrx=abs(rx)
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
genmrb(1:K,i)=gen(1:K,indx(N+1-i))
indices(i)=indx(N+1-i)
@ -368,4 +373,3 @@ subroutine fetchit90(reset,e2,ntau,i1,i2)
lastpat=ipat
return
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)
use packjt
@ -151,8 +151,5 @@ subroutine qra64a(dd,npts,nutc,nf1,nf2,nfqso,ntol,mode64,minsync,ndepth, &
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

2
lib/qratest.f90
View File

@ -39,7 +39,7 @@ program qratest
if(nfqso0.ne.-1) nfqso=nfqso0
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)
c='a'
if(mode64.eq.2) c='b'