From ded0ad06e3473b0607f004817bdb6285c0c61d5e Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Thu, 25 Oct 2012 14:54:34 +0000 Subject: [PATCH] Trying to find the problem that required delaying ihsym by 3 half-symbols. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@2690 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 --- lib/sync9.f90 | 7 +++++++ mainwindow.cpp | 2 +- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/lib/sync9.f90 b/lib/sync9.f90 index f3737e748..edc1d6eb0 100644 --- a/lib/sync9.f90 +++ b/lib/sync9.f90 @@ -58,5 +58,12 @@ subroutine sync9(ss,tstep,df3,ntol,nfqso,sync,snr,fpk,ccfred) if(sync.gt.10.0) sync=10.0 fpk=(ipkbest-1)*df3 +! rewind 71 +! do j=1,184 +! write(71,3001) j,ss(j,ipkbest) +!3001 format(i5,f12.6) +! enddo +! call flush(71) + return end subroutine sync9 diff --git a/mainwindow.cpp b/mainwindow.cpp index 9df9c5fcc..2df3f15b7 100644 --- a/mainwindow.cpp +++ b/mainwindow.cpp @@ -1,4 +1,4 @@ -//--------------------------------------------------------------- MainWindow +//---------------------------------------------------------------- MainWindow #include "mainwindow.h" #include "ui_mainwindow.h" #include "devsetup.h"