From 79d30862797c916645a9e337b716cb15c833f4e4 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Wed, 2 Jun 2021 09:13:01 -0400
Subject: [PATCH] Fix two longstanding errors in extract.f90.

---
 map65/libm65/extract.f90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/map65/libm65/extract.f90 b/map65/libm65/extract.f90
index 677bf57f8..4d8af58a9 100644
--- a/map65/libm65/extract.f90
+++ b/map65/libm65/extract.f90
@@ -98,7 +98,7 @@ subroutine extract(s3,nadd,ncount,nhist,decoded,ltext)
        itmp(i)=correct(64-i)
      enddo
      correct(1:63)=itmp(1:63)
-     call interleave63(correct,63,1)
+     call interleave63(correct,1)
      call graycode65(correct,63,1)
      call unpackmsg(dat4,decoded)     !Unpack the user message
      ncount=0
@@ -120,7 +120,7 @@ subroutine getpp(workdat,p)
 
   a(1:63)=workdat(63:1:-1)
   call interleave63(a,1)
-  call graycode(a,63,1,a)
+  call graycode(a,63,1)
 
   psum=0.
   do j=1,63