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