w4kek
/
WSJT-X
mirror of https://github.com/saitohirga/WSJT-X.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Fix a bug in wav11.f90.

This commit is contained in:
Joe Taylor 2020-05-07 11:33:06 -04:00
parent 5ebfdd3576
commit fcf6b1f816
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/wav11.f90
View File

@ -6,7 +6,7 @@ subroutine wav11(d2,npts,dd)
parameter (NFFT1=64*12000,NFFT2=64*11025)
integer*2 d2(NZ12)
real*4 dd(NZ11)
real x(NFFT2)
real x(NFFT1)
complex cx(0:NFFT1/2)
equivalence (x,cx)
save x,cx