From 76b6ae0a4cbb6ad4312de49f9b54f35eafceafe3 Mon Sep 17 00:00:00 2001
From: Joe Taylor <k1jt@arrl.org>
Date: Tue, 16 Apr 2013 16:38:25 +0000
Subject: [PATCH] Add fillcom.f90

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@3178 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
---
 lib/Makefile.linux |  3 ++-
 lib/fillcom.f90    | 25 +++++++++++++++++++++++++
 mainwindow.cpp     |  2 +-
 3 files changed, 28 insertions(+), 2 deletions(-)
 create mode 100644 lib/fillcom.f90

diff --git a/lib/Makefile.linux b/lib/Makefile.linux
index fe3320e5e..771df1d11 100644
--- a/lib/Makefile.linux
+++ b/lib/Makefile.linux
@@ -29,7 +29,8 @@ OBJS1 = pctile.o graycode.o sort.o ssort.o \
 	fil3.o redsync.o decoder.o grid2n.o n2grid.o timer.o \
 	decode9a.o peakdt9.o getlags.o afc9.o fchisq.o \
 	twkfreq.o downsam9.o symspec2.o ipcomm.o sleep_msec.o \
-	stdmsg.o sec_midn.o cutil.o azdist.o geodist.o morse.o
+	stdmsg.o sec_midn.o cutil.o azdist.o geodist.o morse.o \
+	fillcom.o
 
 libjt9.a: $(OBJS1)
 	ar cr libjt9.a $(OBJS1) 
diff --git a/lib/fillcom.f90 b/lib/fillcom.f90
new file mode 100644
index 000000000..6b8022aa9
--- /dev/null
+++ b/lib/fillcom.f90
@@ -0,0 +1,25 @@
+subroutine fillcom(nutc0)
+  character*20 datetime
+  common/npar/nutc,ndiskdat,ntrperiod,nfqso,newdat,npts8,nfa,nfb,ntol,  &
+       kin,nzhsym,nsave,nagain,ndepth,nrxlog,nfsample,datetime
+  save
+
+  nutc=nutc0
+  ndiskdat=1
+  ntrperiod=60
+  nfqso=1500
+  newdat=1
+  npts8=74736
+  nfa=1000
+  nfb=2000
+  ntol=10
+  kin=1024
+  nzhsym=173
+  nsave=0
+  ndepth=3
+  nrxlog=1
+  nfsample=12000
+  datetime="2013-Apr-16 15:13"
+  
+  return
+end subroutine fillcom
diff --git a/mainwindow.cpp b/mainwindow.cpp
index fcaa38e41..a059bcb3b 100644
--- a/mainwindow.cpp
+++ b/mainwindow.cpp
@@ -1,4 +1,4 @@
-//---------------------------------------------------------------- MainWindow
+//--------------------------------------------------------------- MainWindow
 #include "mainwindow.h"
 #include "ui_mainwindow.h"
 #include "devsetup.h"