From 97aee45aa9a65f40596193d25d521508a8bb93e0 Mon Sep 17 00:00:00 2001
From: Joe Taylor <k1jt@arrl.org>
Date: Thu, 11 Sep 2014 00:07:49 +0000
Subject: [PATCH] Save a temporary test program.

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

diff --git a/lib/ss.bat b/lib/ss.bat
index 37f669a18..d8483ffc7 100644
--- a/lib/ss.bat
+++ b/lib/ss.bat
@@ -1 +1 @@
-svn status | grep -v '?'
+svn status | grep -v "?"
diff --git a/lib/t1.f90 b/lib/t1.f90
new file mode 100644
index 000000000..5467e5a0c
--- /dev/null
+++ b/lib/t1.f90
@@ -0,0 +1,13 @@
+program t1
+
+  character*22 msg
+  complex c3(0:4096-1)
+  complex c5(0:4096-1)
+
+  do i=1,999
+     read(51,end=999) nutc,nsnr,xdt,nfreq,msg,c3,c5
+     write(*,1010) nutc,nsnr,xdt,nfreq,msg
+1010 format(2i6,f7.1,i6,2x,a22)
+  enddo
+
+999 end program t1