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.