is_periodic_chain Function

private pure function is_periodic_chain(this, dimen)

Type Bound

chain

Arguments

Type IntentOptional Attributes Name
class(chain), intent(in) :: this
integer, intent(in), optional :: dimen

Return Value logical


Contents

Source Code

is_periodic_chain

Source Code

    logical pure function is_periodic_chain(this, dimen)
        class(chain), intent(in) :: this
        integer, intent(in), optional :: dimen
        debug_function_name("is_periodic_chain")
        ASSERT(.not. present(dimen))
        is_periodic_chain = this%t_periodic(1)
    end function is_periodic_chain