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~~CalledByGraph proc~cfft_1d_ex cfft_1d_ex interface~fftex fftex interface~fftex->proc~cfft_1d_ex

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