is_impurity_site Function

private function is_impurity_site(this, ind)

Type Bound

aim

Arguments

Type IntentOptional Attributes Name
class(aim) :: this
integer, intent(in) :: ind

Return Value logical


Contents

Source Code

is_impurity_site

Source Code

    logical function is_impurity_site(this, ind)
        class(aim) :: this
        integer, intent(in) :: ind
        character(*), parameter :: this_routine = "is_impurity_site"

        ASSERT(ind > 0)
        ASSERT(ind <= this%get_nsites())

        is_impurity_site = this%sites(ind)%is_impurity()

    end function is_impurity_site