dispersion_rel_not_implemented Function

  1. lattice_mod.F90
  2. lattice_mod
  3. dispersion_rel_not_implemented

private function dispersion_rel_not_implemented(this, k_vec) result(disp)

Type Bound

lattice

Arguments

Type IntentOptional Attributes Name
class(lattice) :: this
integer, intent(in) :: k_vec(3)

Return Value real(kind=dp)


Contents

Source Code

dispersion_rel_not_implemented

Source Code

    function dispersion_rel_not_implemented(this, k_vec) result(disp)
        class(lattice) :: this
        integer, intent(in) :: k_vec(3)
        real(dp) :: disp
        character(*), parameter :: this_routine = "dispersion_rel"

        unused_var(this)
        unused_var(k_vec)

        call stop_all(this_routine, &
                      "dispersion relation not yet implemented for this lattice type!")
#ifdef WARNING_WORKAROUND_
        disp = 0.0_dp
        unused_var(this)
        unused_var(k_vec)
#endif

    end function dispersion_rel_not_implemented