cfft_1d_ex Subroutine

public subroutine cfft_1d_ex(func)

Arguments

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

Called by

proc~~cfft_1d_ex~2~~CalledByGraph proc~cfft_1d_ex~2 cfft_1d_ex interface~fftex~2 fftex interface~fftex~2->proc~cfft_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 cfft_1d_ex(func)
    complex(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 cfft_1d_ex