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

Destroy FFTW plans when ft4d is finished.

Browse Source
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