2020-10-25 13:58:18 -04:00
|
|
|
program q65params
|
|
|
|
|
|
|
|
|
|
integer ntrp(5)
|
|
|
|
|
integer nsps(5)
|
|
|
|
|
data ntrp/15,30,60,120,300/
|
2020-12-05 11:03:16 -05:00
|
|
|
data nsps/1800,3600,7200,16000,41472/
|
2020-10-25 13:58:18 -04:00
|
|
|
|
|
|
|
|
write(*,1000)
|
|
|
|
|
1000 format('T/R tsym baud BW TxT SNR'/39('-'))
|
|
|
|
|
do i=1,5
|
|
|
|
|
baud=12000.0/nsps(i)
|
|
|
|
|
bw=65.0*baud
|
|
|
|
|
tsym=1.0/baud
|
|
|
|
|
txt=85.0*tsym
|
|
|
|
|
snr=-27.0 + 10.0*log10(7200.0/nsps(i))
|
|
|
|
|
write(*,1010) ntrp(i),tsym,baud,bw,txt,snr
|
|
|
|
|
1010 format(i3,2f7.3,3f7.1)
|
|
|
|
|
enddo
|
|
|
|
|
|
2020-12-05 11:03:16 -05:00
|
|
|
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
|
|
|
|
|
|
2020-10-25 13:58:18 -04:00
|
|
|
end program q65params
|
