mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2025-10-31 04:50:34 -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
|