dsinqi Subroutine

subroutine dsinqi(n, Wsave)

Arguments

Type IntentOptional Attributes Name
integer :: n
real(kind=rk) :: Wsave

Contents

Source Code


Source Code

      subroutine dsinqi(n,Wsave)
      use fftpack_kind
      implicit none
      integer :: n
      real(rk) :: Wsave
      dimension Wsave(*)
      call dcosqi(n,Wsave)
      end subroutine dsinqi