fft_farray Function

public function fft_farray(L, dt, df) result(freq)

Arguments

Type IntentOptional Attributes Name
integer :: L
real(kind=8) :: dt
real(kind=8), optional :: df

Return Value real(kind=8), dimension(L)


Calls

proc~~fft_farray~~CallsGraph proc~fft_farray fft_farray proc~fft_fmax fft_fmax proc~fft_farray->proc~fft_fmax proc~linspace~2 linspace proc~fft_farray->proc~linspace~2

Source Code

  function fft_farray(L,dt,df) result(freq)
    integer              :: L
    real(8)              :: dt
    real(8),optional     :: df
    real(8)              :: wmax,dw
    real(8),dimension(L) :: freq
    wmax = fft_fmax(L,dt)
    freq = linspace(-wmax,wmax,L,iend=.false.,mesh=dw)
    if(present(df))df=dw
  end function fft_farray