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

Destroy FFTW plans when ft4d is finished.

This commit is contained in:
Joe Taylor 2019-02-15 08:59:41 -05:00
parent 6c8a204d7e
commit e5ea814bb9
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lib/ft4/ft4d.f90
View File

@ -72,8 +72,7 @@ program ft4d
enddo !steps
enddo !files
write(*,1120)
1120 format("<DecodeFinished>")
call four2a(xx,-1,1,-1,1) !Destroy FFTW plans to free their memory
999 end program ft4d