From 84f193c5a915c6d163da9a0b3ec27a1f28cce0df Mon Sep 17 00:00:00 2001
From: Bill Somerville <bill@classdesign.com>
Date: Thu, 15 Apr 2021 02:57:02 +0100
Subject: [PATCH] Repair argument type mismatch
---
map65/libm65/ccf65.f90 | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/map65/libm65/ccf65.f90 b/map65/libm65/ccf65.f90
index 1bebb8d73..f82d0fd06 100644
--- a/map65/libm65/ccf65.f90
+++ b/map65/libm65/ccf65.f90
@@ -44,8 +44,8 @@ subroutine ccf65(ss,nhsym,ssmax,sync1,ipol1,jpz,dt1,flipk, &
! Not sure why, but it works significantly better without the following line:
! pr(j-1)=pr(j)
enddo
- call four2a(pr,NFFT,1,-1,0)
- call four2a(pr2,NFFT,1,-1,0)
+ call four2a(cpr,NFFT,1,-1,0)
+ call four2a(cpr2,NFFT,1,-1,0)
first=.false.
endif