set_sym Subroutine

private subroutine set_sym(this, orb, sym)

Type Bound

lattice

Arguments

Type IntentOptional Attributes Name
class(lattice) :: this
integer, intent(in) :: orb
integer, intent(in) :: sym

Contents

Source Code

set_sym

Source Code

    subroutine set_sym(this, orb, sym)
        class(lattice) :: this
        integer, intent(in) :: orb, sym

        this%sites(orb)%k_sym = sym

    end subroutine set_sym