w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-08-03 06:32:26 -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

6
lib/superfox/rstest.f90
View File

@ -13,6 +13,7 @@ program rstest
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