mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2025-03-23 20:48:33 -04:00
9 lines
125 B
Fortran
9 lines
125 B
Fortran
subroutine ftnquit
|
|
|
|
! Destroy the FFTW plans
|
|
call four2a(a,-1,1,1,1)
|
|
call fftbig(id,-1)
|
|
|
|
return
|
|
end subroutine ftnquit
|