mirror of https://github.com/saitohirga/WSJT-X.git
Fix a bug in wav11.f90.
This commit is contained in:
parent
5ebfdd3576
commit
fcf6b1f816
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue