set_end_scale Subroutine

private subroutine set_end_scale(self, scale)

Set the scale of all three end sources (with relative ends: the length drawn per unit of the stored vector, e.g. km per newton). Only this artist's segments are written again.

Type Bound

SegmentArtist

Arguments

Type IntentOptional Attributes Name
class(SegmentArtist), intent(inout) :: self
real(kind=wp), intent(in) :: scale

the end sources' scale (e.g. km per newton)

Source Code

    subroutine set_end_scale(self, scale)
        class(SegmentArtist), intent(inout) :: self
        real(wp), intent(in) :: scale                       !! the end sources' scale (e.g. km per newton)
        if (all(self%end_%scale == scale)) return
        self%end_%scale = scale
        self%default_data = .false.
        self%seen_generation = -1
    end subroutine set_end_scale