WSJT-X/ftn_quit.f90

7 lines
145 B
Fortran
Raw Normal View History

!------------------------------------------------ ftn_quit
subroutine ftn_quit
call four2a(a,-1,1,1,1)
return
end subroutine ftn_quit