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