dfftf Subroutine

subroutine dfftf(n, r, wsave)

Uses

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: n
real(kind=dp), intent(inout) :: r(*)
real(kind=dp), intent(inout) :: wsave(*)

Contents

Source Code

dfftf

Source Code

      subroutine dfftf(n, r, wsave)
         use fftpack_kind, only: dp => rk
         implicit none
         integer, intent(in) :: n
         real(dp), intent(inout) :: r(*)
         real(dp), intent(inout) :: wsave(*)
         if (n == 1) return
         call rfftf1(n, r, wsave, wsave(n + 1), wsave(2*n + 1))
      end subroutine dfftf