Satisfy fussy compilers like gcc 10: Type mismatch between actual argument at (1) and actual argument at (2)

This commit is contained in:
Joe Taylor 2020-02-21 09:52:20 -05:00
parent 2a92ab903e
commit adb7dfcac3

View File

@ -9,7 +9,7 @@ subroutine filt8(f0,nslots,width,wave)
equivalence (x,cx)
x=wave
call four2a(x,NFFT,1,-1,0) !r2c
call four2a(cx,NFFT,1,-1,0) !r2c
df=12000.0/NFFT
fa=f0 - 0.5*6.25
fb=f0 + 7.5*6.25 + (nslots-1)*60.0