From bfef326b2577a556d33592995e63a9563952a5bf Mon Sep 17 00:00:00 2001
From: Joe Taylor <k1jt@arrl.org>
Date: Thu, 23 May 2013 14:44:36 +0000
Subject: [PATCH] Oops!  Add jt9b.f90

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@3304 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
---
 lib/jt9b.f90   | 14 ++++++++++++++
 mainwindow.cpp |  2 +-
 2 files changed, 15 insertions(+), 1 deletion(-)
 create mode 100644 lib/jt9b.f90

diff --git a/lib/jt9b.f90 b/lib/jt9b.f90
new file mode 100644
index 000000000..f446f765c
--- /dev/null
+++ b/lib/jt9b.f90
@@ -0,0 +1,14 @@
+subroutine jt9b(jt9com,nbytes)
+
+  parameter (NTMAX=120)
+  parameter (NSMAX=1365)
+  integer*1 jt9com(0:nbytes-1)
+  kss=0
+  ksavg=kss + 4*184*NSMAX
+  kc0=ksavg + 4*NSMAX
+  kid2=kc0 + 2*4*NTMAX*1500
+  knutc=kid2 + 2*NTMAX*12000
+  call jt9c(jt9com(kss),jt9com(ksavg),jt9com(kc0),jt9com(kid2),jt9com(knutc))
+
+  return
+end subroutine jt9b
diff --git a/mainwindow.cpp b/mainwindow.cpp
index 44037df23..9282be7b9 100644
--- a/mainwindow.cpp
+++ b/mainwindow.cpp
@@ -1,4 +1,4 @@
-//--------------------------------------------------------------- MainWindow
+//-------------------------------------------------------------- MainWindow
 #include "mainwindow.h"
 #include "ui_mainwindow.h"
 #include "devsetup.h"