segment_pattern Subroutine

private pure subroutine segment_pattern(self, factor, bits)

The dash pattern: its factor and 16 pattern bits.

Type Bound

SegmentArtist

Arguments

Type IntentOptional Attributes Name
class(SegmentArtist), intent(in) :: self
integer, intent(out) :: factor

window units per bit, 16 bits
integer, intent(out) :: bits

window units per bit, 16 bits

Source Code

    pure subroutine segment_pattern(self, factor, bits)
        class(SegmentArtist), intent(in) :: self
        integer, intent(out) :: factor, bits                !! window units per bit, 16 bits
        factor = self%pattern_factor
        bits = self%pattern_
    end subroutine segment_pattern