From 52965c06c4b9cf836bb42ef9035acea230551d74 Mon Sep 17 00:00:00 2001
From: Richard Shaw <hobbes1069@gmail.com>
Date: Mar 31 2020 19:23:56 +0000
Subject: Update gcc10 patch.


---

diff --git a/js8call-gcc-10.patch b/js8call-gcc-10.patch
index 5eb0501..62c3d00 100644
--- a/js8call-gcc-10.patch
+++ b/js8call-gcc-10.patch
@@ -77,3 +77,16 @@ Index: js8call-2.1.1/lib/refspectrum.f90
       cx=cfil*cx
       call four2a(cx,NFFT,1,1,-1)
       x(0:NH-1)=x(0:NH-1)+xs    
+Index: js8call-2.1.1/lib/timf2.f90
+===================================================================
+--- js8call-2.1.1.orig/lib/timf2.f90
++++ js8call-2.1.1/lib/timf2.f90
+@@ -59,7 +59,7 @@ subroutine timf2(x0,k,nfft,nwindow,nb,pe
+ 
+   x(0:nfft-1)=x0
+   if(nwindow.eq.2) x(0:nfft-1)=w(0:nfft-1)*x(0:nfft-1)
+-  call four2a(x,nfft,1,-1,0)                       !First forward FFT, r2c
++  call four2a(cxw,nfft,1,-1,0)                       !First forward FFT, r2c
+   cxt(0:nh)=cx(0:nh)
+ 
+ ! Identify frequencies with strong signals.