On 20/10/2021 17:43, Kari Sillanmäki via wsjt-devel wrote:
Hu Marco,21 08:09, Kari Sillanmäki via wsjt-devel ha scritto:
<clips>

I'm using XFCE too and I ran WSJT-X on a Lenovo Laptop, I have not external screen.
I'm using Lenovo laptop as well.

Can you say us if you use a pre-compiled WSJT-X or if you compiled it on your machine from source and if is the latter, do you set some specific parameter in the .configure command?

I compile WSJT-X locally from the source tarball ( not githup ) and I use no special parameters.

Just saw that Bill has managed to get the dump too, so I believe there will be a solution soon.

73's de Kari, oh2gqc

Hi Kari and Marco,

yes, the issue is provoked by using a recent version of the gcc-fortran compiler. It lays out memory differently from previous versions and that reveals a defect in our code. I have a fix, if you want to try it a patch is attached.

73
Bill
G4WJS.
diff --git a/lib/four2a.f90 b/lib/four2a.f90
index e7e0e8018..a63f31a4d 100644
--- a/lib/four2a.f90
+++ b/lib/four2a.f90
@@ -67,7 +67,7 @@ subroutine four2a(a,nfft,ndim,isign,iform)
 
      if(nfft.le.NSMALL) then
         jz=nfft
-        if(iform.eq.0) jz=nfft/2
+        if(iform.le.0) jz=nfft/2
         aa(1:jz)=a(1:jz)
      endif
 
@@ -87,7 +87,7 @@ subroutine four2a(a,nfft,ndim,isign,iform)
 
      if(nfft.le.NSMALL) then
         jz=nfft
-        if(iform.eq.0) jz=nfft/2
+        if(iform.le.0) jz=nfft/2
         a(1:jz)=aa(1:jz)
      endif
   end if
_______________________________________________
wsjt-devel mailing list
wsjt-devel@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/wsjt-devel

Reply via email to