rfft_1d_ex Subroutine

public subroutine rfft_1d_ex(func)

Arguments

Type IntentOptional Attributes Name
real(kind=8), dimension(:) :: func

Called by

proc~~rfft_1d_ex~2~~CalledByGraph proc~rfft_1d_ex~2 rfft_1d_ex interface~fftex~2 fftex interface~fftex~2->proc~rfft_1d_ex~2 proc~c_itfft~2 c_itfft proc~c_itfft~2->interface~fftex~2 proc~d_itfft~2 d_itfft proc~d_itfft~2->interface~fftex~2 interface~itfft~2 itfft interface~itfft~2->proc~c_itfft~2 interface~itfft~2->proc~d_itfft~2

Source Code

  subroutine rfft_1d_ex(func)
    real(8),dimension(:)    :: func
    real(8)                 :: ex
    integer                 :: i
    ex=-1.d0
    do i=1,size(func)
       ex=-ex
       func(i)=ex*func(i)
    enddo
  end subroutine rfft_1d_ex