WSJT-X/ftn_quit.f90

!------------------------------------------------ ftn_quit
subroutine ftn_quit
  include 'gcom1.f90'
  ngo=0
  call four2a(a,-1,1,1,1)
!  @@@ Should also terminate the plans created in filbig!
  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`
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. 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			`! @@@ Should also terminate the plans created in filbig!`
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`