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
- Set prop svn:eol-style native on files. - Remove alsa/oss from configure.ac and regenerate configure file. - Note it is MAP65 not WSJT. - rfile3a.f90 -> rfile3a.F90 for gfortran preprocessor. - Comment out compiler option that does not work on gfortran for now. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@1151 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2009-04-23 15:02:43 -04:00			`!------------------------------------------------ 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`