set_impurity Subroutine

private subroutine set_impurity(this, flag)

Type Bound

site

Arguments

Type IntentOptional Attributes Name
class(site) :: this
logical, intent(in) :: flag

Source Code

    subroutine set_impurity(this, flag)
        class(site) :: this
        logical, intent(in) :: flag

        this%t_impurity = flag

    end subroutine set_impurity