set_nsites Subroutine

private subroutine set_nsites(this, n_sites)

Type Bound

lattice

Arguments

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

Source Code

    subroutine set_nsites(this, n_sites)
        class(lattice) :: this
        integer, intent(in) :: n_sites

        this%n_sites = n_sites

    end subroutine set_nsites