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

@@ -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) 

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

mainwindow.cpp

@@ -1,4 +1,4 @@
-//---------------------------------------------------------------- MainWindow
+//--------------------------------------------------------------- MainWindow
 #include "mainwindow.h"
 #include "ui_mainwindow.h"
 #include "devsetup.h"