mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-08-21 14:06:32 -04:00
7 lines
145 B
Fortran
7 lines
145 B
Fortran
|
|
||
|
!------------------------------------------------ ftn_quit
|
||
|
subroutine ftn_quit
|
||
|
call four2a(a,-1,1,1,1)
|
||
|
return
|
||
|
end subroutine ftn_quit
|