w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-22 04:11:16 -05:00
Code Issues Packages Projects Releases Wiki Activity

Fix a bug in wav11.f90.

Browse Source
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) parameter (NFFT1=64*12000,NFFT2=64*11025)
integer*2 d2(NZ12) integer*2 d2(NZ12)
real*4 dd(NZ11) real*4 dd(NZ11)
real x(NFFT2) real x(NFFT1)
complex cx(0:NFFT1/2) complex cx(0:NFFT1/2)
equivalence (x,cx) equivalence (x,cx)
save x,cx save x,cx