mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-11-03 16:01:18 -05:00
10 lines
171 B
Fortran
10 lines
171 B
Fortran
|
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
|