diff --git a/lib/q65params.f90 b/lib/q65params.f90 index c519cc94e..932dcfb36 100644 --- a/lib/q65params.f90 +++ b/lib/q65params.f90 @@ -3,7 +3,7 @@ program q65params integer ntrp(5) integer nsps(5) data ntrp/15,30,60,120,300/ - data nsps/1800,3600,7200,15680,40960/ + data nsps/1800,3600,7200,16000,41472/ write(*,1000) 1000 format('T/R tsym baud BW TxT SNR'/39('-')) @@ -17,4 +17,16 @@ program q65params 1010 format(i3,2f7.3,3f7.1) 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