rfft.f s r r r ^ r?