set_r_vec Subroutine

private subroutine set_r_vec(this, r_vec)

Type Bound

site

Arguments

Type IntentOptional Attributes Name
class(site) :: this
integer, intent(in) :: r_vec(3)

Contents

Source Code

set_r_vec

Source Code

    subroutine set_r_vec(this, r_vec)
        class(site) :: this
        integer, intent(in) :: r_vec(3)

        this%r_vec = r_vec

    end subroutine set_r_vec