set_neighbors Subroutine

private subroutine set_neighbors(this, neighbors)

Type Bound

site

Arguments

Type IntentOptional Attributes Name
class(site) :: this
integer, intent(in) :: neighbors(this%n_neighbors)

Source Code

    subroutine set_neighbors(this, neighbors)
        class(site) :: this
        integer, intent(in) :: neighbors(this%n_neighbors)

        this%neighbors = neighbors

    end subroutine set_neighbors