From d2c2dcaebb4af921ffd7980f79482cb6a2c6a95a Mon Sep 17 00:00:00 2001
From: Joe Taylor <k1jt@arrl.org>
Date: Thu, 21 Jun 2007 18:21:21 +0000
Subject: [PATCH] Fixed handling of nutc and kbuf.

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@397 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
---
 getfile2.F90 | 2 ++
 map65a.f90   | 8 ++++----
 2 files changed, 6 insertions(+), 4 deletions(-)

diff --git a/getfile2.F90 b/getfile2.F90
index 933342846..726e76172 100644
--- a/getfile2.F90
+++ b/getfile2.F90
@@ -30,6 +30,8 @@ subroutine getfile2(fname,len)
   ierr=0
 
   n=8*NSMAX
+  monitoring=0
+  kbuf=1
 #ifdef Win32
 !  open(10,file=fname,form='binary',status='old',err=998)
   call rfile3a(fname,id,n,ierr)
diff --git a/map65a.f90 b/map65a.f90
index 9243c39f6..5b3147ac0 100644
--- a/map65a.f90
+++ b/map65a.f90
@@ -73,10 +73,10 @@ subroutine map65a
 !     print*,'B',newdat2,nfilt,freq,nflip,ip0
 
       write(*,3001) newdat2,nfilt,nflip,ip0,freq,               &
-           (id(1,i),id(2,i),id(3,i),id(4,i),i=1,2)
+           (id(1,i,kbuf),id(2,i,kbuf),id(3,i,kbuf),id(4,i,kbuf),i=1,2)
  3001 format(4i5,f10.3,8i5)
 
-     call decode1a(id,newdat2,nfilt,freq,nflip,ip0,sync2,        &
+     call decode1a(id(1,1,kbuf),newdat2,nfilt,freq,nflip,ip0,sync2,        &
           a,dt,pol,nkv,nhist,qual,decoded)
 !     print*,'C',nkv,qual,decoded
      nsync1=0
@@ -103,7 +103,7 @@ subroutine map65a
      short(3,i)=0.
   enddo
 
-  call symspec(id,nz,savg)
+  call symspec(id(1,1,kbuf),nz,savg)
   newspec=1
      
   freq0=-999.
@@ -197,7 +197,7 @@ subroutine map65a
 
            if(freq-freq0.gt.ftol .or. sync1.gt.sync10) then
               nflip=nint(flipk)
-              call decode1a(id,newdat2,nfilt,freq,nflip,ipol,         &
+              call decode1a(id(1,1,kbuf),newdat2,nfilt,freq,nflip,ipol,         &
                    sync2,a,dt,pol,nkv,nhist,qual,decoded)
 !              i9=index(decoded,'AA1YN')
 !              if(i9.gt.0) print*,i,i9,fselect,freq,decoded