advance_pattern_state Subroutine

public subroutine advance_pattern_state(current_distance, segment_length, pattern, pattern_size, pattern_length, new_distance)

Advance pattern state for continuous rendering Following SRP - handles only state advancement

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=wp),	intent(in)			::	current_distance
real(kind=wp),	intent(in)			::	segment_length
real(kind=wp),	intent(in)			::	pattern(20)
integer,	intent(in)			::	pattern_size
real(kind=wp),	intent(in)			::	pattern_length
real(kind=wp),	intent(out)			::	new_distance