set_ndim Subroutine

private subroutine set_ndim(this, n_dim)

Type Bound

lattice

Arguments

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

Contents

Source Code

set_ndim

Source Code

    subroutine set_ndim(this, n_dim)
        class(lattice) :: this
        integer, intent(in) :: n_dim

        this%n_dim = n_dim

    end subroutine set_ndim