WSJT-X/qmap/libqmap/ftnquit.f90

mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-04-22 03:08:35 -04:00
subroutine ftnquit

! Destroy the FFTW plans
  call four2a(a,-1,1,1,1)
  call fftbig(id,-1)

  return
end subroutine ftnquit
Initial build of q65w, an experiment to make a stripped-down map65. 2022-12-04 10:17:02 -05:00			`subroutine ftnquit`

			`! Destroy the FFTW plans`
			`call four2a(a,-1,1,1,1)`
WIP: cleanup of things related to use of FFTW. More needed! 2024-01-08 18:55:00 -05:00			`call fftbig(id,-1)`
Initial build of q65w, an experiment to make a stripped-down map65. 2022-12-04 10:17:02 -05:00
			`return`
			`end subroutine ftnquit`