WSJT-X/lib/ftnquit.f90

10 lines
162 B
Fortran
Raw Normal View History

subroutine ftnquit
! Destroy the FFTW plans
call four2a(a,-1,1,1,1)
call filbig(id,-1,f0,newdat,nfsample,c4a,c4b,n4)
stop
return
end subroutine ftnquit