WSJT-X/ftn_quit.f90

!------------------------------------------------ ftn_quit
subroutine ftn_quit
  include 'gcom1.f90'
  ngo=0
! Destroy the FFTW plans
  call four2a(a,-1,1,1,1)
  call filbig(id,-1,f0,newdat,c4a,c4b,n4)
  return
end subroutine ftn_quit
Split Audio.f90 into separate routines git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/WSJT/trunk@10 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2005-12-23 12:07:54 -05:00			`!------------------------------------------------ ftn_quit`
			`subroutine ftn_quit`
Many changes. Starting to work on preparing spectra for waterfall display. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@345 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2007-01-12 12:57:41 -05:00			`include 'gcom1.f90'`
			`ngo=0`
Many changes. GUI version of MAP65 is beginning to tske shape. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@349 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2007-01-13 15:21:32 -05:00			`! Destroy the FFTW plans`
Split Audio.f90 into separate routines git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/WSJT/trunk@10 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2005-12-23 12:07:54 -05:00			`call four2a(a,-1,1,1,1)`
Many changes. GUI version of MAP65 is beginning to tske shape. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@349 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2007-01-13 15:21:32 -05:00			`call filbig(id,-1,f0,newdat,c4a,c4b,n4)`
Split Audio.f90 into separate routines git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/WSJT/trunk@10 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2005-12-23 12:07:54 -05:00			`return`
			`end subroutine ftn_quit`