From b04e1517a94dd1ed651161fde2899d865f6503b9 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Thu, 31 Aug 2023 14:29:20 -0400
Subject: [PATCH] Must define 'offset' as a Fortran integer.  Increase NJUNK by
 1.

---
 qmap/libqmap/decode0.f90 | 4 +++-
 qmap/libqmap/njunk.f90   | 2 +-
 qmap/libqmap/q65b.f90    | 1 +
 3 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/qmap/libqmap/decode0.f90 b/qmap/libqmap/decode0.f90
index ada6d4cf3..60dc93d3a 100644
--- a/qmap/libqmap/decode0.f90
+++ b/qmap/libqmap/decode0.f90
@@ -5,6 +5,7 @@ subroutine decode0(dd,ss,savg)
 
   real*4 dd(2,NSMAX),ss(322,NFFT),savg(NFFT)
   real*8 fcenter
+  integer offset
   integer hist(0:32768)
   character mycall*12,hiscall*12,mygrid*6,hisgrid*6,datetime*20
   character mycall0*12,hiscall0*12,hisgrid0*6
@@ -14,7 +15,8 @@ subroutine decode0(dd,ss,savg)
   common/npar/fcenter,nutc,fselected,mousedf,mousefqso,nagain,            &
        ndepth,ndiskdat,neme,newdat,nfa,nfb,nfcal,nfshift,                 &
        mcall3,nkeep,ntol,nxant,nrxlog,nfsample,nxpol,nmode,               &
-       ndop00,nsave,max_drift,offset,nhsym,mycall,mygrid,hiscall,hisgrid,datetime
+       ndop00,nsave,max_drift,offset,nhsym,mycall,mygrid,                 &
+       hiscall,hisgrid,datetime
   data neme0/-99/
   save
 
diff --git a/qmap/libqmap/njunk.f90 b/qmap/libqmap/njunk.f90
index 319fb5ab7..e041e262a 100644
--- a/qmap/libqmap/njunk.f90
+++ b/qmap/libqmap/njunk.f90
@@ -1 +1 @@
-  parameter(NJUNK=40)
+  parameter(NJUNK=41)
diff --git a/qmap/libqmap/q65b.f90 b/qmap/libqmap/q65b.f90
index 7406b4b09..bc4fd7166 100644
--- a/qmap/libqmap/q65b.f90
+++ b/qmap/libqmap/q65b.f90
@@ -15,6 +15,7 @@ subroutine q65b(nutc,nqd,fcenter,nfcal,nfsample,ikhz,mousedf,ntol,          &
   parameter (NMAX=60*12000)
   parameter (RAD=57.2957795)
   integer*2 iwave(60*12000)
+  integer offset
   complex ca(MAXFFT1)                      !FFT of raw I/Q data from Linrad
   complex cx(0:MAXFFT2-1),cz(0:MAXFFT2)
   real*8 fcenter,freq0,freq1