set_length_aim_chain Subroutine

private subroutine set_length_aim_chain(this, length_x, length_y, length_z)

Type Bound

aim_chain

Arguments

Type IntentOptional Attributes Name
class(aim_chain) :: this
integer, intent(in) :: length_x
integer, intent(in) :: length_y
integer, intent(in), optional :: length_z

Source Code

    subroutine set_length_aim_chain(this, length_x, length_y, length_z)
        class(aim_chain) :: this
        integer, intent(in) :: length_x, length_y
        integer, intent(in), optional :: length_z
        unused_var(length_x)
        if (present(length_z)) then
            unused_var(length_z)
        end if

        unused_var(length_x)
        unused_var(length_z)

        ! as a definition make the length, even for multiple impurity chains
        ! as bath_sites + 1
        this%length = length_y + 1

    end subroutine set_length_aim_chain