w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-08-03 14:42:25 -04:00
Code Issues Packages Projects Releases Wiki Activity

More cleanup.

Browse Source
This commit is contained in:
Joe Taylor 2024-02-02 14:15:20 -05:00
parent ae462a9cb8
commit c8f8356c28
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lib/superfox/rstest.f90
View File

@ -5,14 +5,15 @@ program rstest
integer gsym0(255) !Encoded data, Karn integer gsym0(255) !Encoded data, Karn
integer gsym(255) !Encoded data with errors integer gsym(255) !Encoded data with errors
integer dat(235) !Decoded data, i*4 integer dat(235) !Decoded data, i*4
integer iera(0:200) !Positions of erasures integer iera(0:200) !Positions of erasures
nargs=iargc() nargs=iargc()
if(nargs.ne.5) then if(nargs.ne.5) then
print*,'Usage: rstest M N K nera nerr' print*,'Usage: rstest M N K nera nerr'
print*,'Examples: rstest 6 63 12 0 25' print*,'Examples: rstest 6 63 12 0 25'
print*,' rstest 7 127 51 0 38' print*,' rstest 7 127 51 0 38'
print*,' rstest 8 255 51 0 102' print*,' rstest 8 255 51 0 102'
print*,' rstest 8 255 235 0 10'
go to 999 go to 999
endif endif
nkv=0 nkv=0
@ -34,7 +35,6 @@ program rstest
! Generate random message, kk symbols with values 0 to nq-1 ! Generate random message, kk symbols with values 0 to nq-1
do i=1,kk do i=1,kk
! dgen(i)=int(nq*ran1(idum))
dgen(i)=i dgen(i)=i
enddo enddo
@ -52,8 +52,8 @@ program rstest
do i=1,nerr !Introduce errors do i=1,nerr !Introduce errors
gsym(i)=mod(gsym(i)+1,nq) gsym(i)=mod(gsym(i)+1,nq)
enddo enddo
write(*,1006) write(*,1006) nera
1006 format(/'Recovered channel symbols, with errors:') 1006 format(/'Recovered channel symbols, with',i4,' errors at the start:')
write(*,1002) gsym(1:nn) write(*,1002) gsym(1:nn)
do i=0,nera-1 do i=0,nera-1