From 077811ae6dd7b99579da27f023ac1be01c1f60d5 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Sat, 5 Dec 2020 11:03:16 -0500
Subject: [PATCH] Update q65params.f90.

---
 lib/q65params.f90 | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

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