w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-07-31 13:12:30 -04:00
Code Issues Packages Projects Releases Wiki Activity

Repair a long-standing defect that could cause access violations

Browse Source 
This was revealed when building with gcc-fortran v11 and using
reference spectrum correction.
This commit is contained in:
Bill Somerville 2021-10-20 18:00:32 +01:00
parent 12efb098bb
commit 595ef8e9db
No known key found for this signature in database
GPG Key ID: D864B06D1E81618F
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/four2a.f90
View File

@ -67,7 +67,7 @@ subroutine four2a(a,nfft,ndim,isign,iform)
if(nfft.le.NSMALL) then if(nfft.le.NSMALL) then
jz=nfft jz=nfft
if(iform.eq.0) jz=nfft/2 if(iform.le.0) jz=nfft/2
aa(1:jz)=a(1:jz) aa(1:jz)=a(1:jz)
endif endif
@ -87,7 +87,7 @@ subroutine four2a(a,nfft,ndim,isign,iform)
if(nfft.le.NSMALL) then if(nfft.le.NSMALL) then
jz=nfft jz=nfft
if(iform.eq.0) jz=nfft/2 if(iform.le.0) jz=nfft/2
a(1:jz)=aa(1:jz) a(1:jz)=aa(1:jz)
endif endif
end if end if