set_index Subroutine

private subroutine set_index(this, ind)

Type Bound

site

Arguments

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

Contents

Source Code


Source Code

    subroutine set_index(this, ind)
        class(site) :: this
        integer, intent(in) :: ind

        this%ind = ind

    end subroutine set_index