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

Update q65params.f90.

Browse Source
This commit is contained in:
Joe Taylor 2020-12-05 11:03:16 -05:00
parent 6416777278
commit 077811ae6d
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lib/q65params.f90
View File

@ -3,7 +3,7 @@ program q65params
integer ntrp(5) integer ntrp(5)
integer nsps(5) integer nsps(5)
data ntrp/15,30,60,120,300/ data ntrp/15,30,60,120,300/
data nsps/1800,3600,7200,15680,40960/ data nsps/1800,3600,7200,16000,41472/
write(*,1000) write(*,1000)
1000 format('T/R tsym baud BW TxT SNR'/39('-')) 1000 format('T/R tsym baud BW TxT SNR'/39('-'))
@ -17,4 +17,16 @@ program q65params
1010 format(i3,2f7.3,3f7.1) 1010 format(i3,2f7.3,3f7.1)
enddo enddo
do j=1,5
write(*,1020) char(ichar('A')+j-1)
1020 format(/a1,' T/R baud BW'/20('-'))
do i=1,5
baud=12000.0/nsps(i)
spacing=baud*2**(j-1)
bw=65.0*spacing
write(*,1030) ntrp(i),spacing,nint(bw)
1030 format(i6,f7.2,i6)
enddo
enddo
end program q65params end program q65params