get_length_cube Function

private pure function get_length_cube(this, dimen)

Type Bound

cube

Arguments

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

Return Value integer


Contents

Source Code

get_length_cube

Source Code

    integer pure function get_length_cube(this, dimen)
        class(cube), intent(in) :: this
        integer, intent(in), optional :: dimen
#ifdef DEBUG_
        character(*), parameter :: this_routine = "get_length_cube"
#endif

        ASSERT(present(dimen))
        ASSERT(dimen > 0)
        ASSERT(dimen <= 3)

        get_length_cube = this%length(dimen)

    end function get_length_cube