reset_pattern_distance Subroutine

public subroutine reset_pattern_distance(pattern_distance)

Reset pattern distance to start of pattern

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=wp),	intent(out)			::	pattern_distance