get_line_pattern Subroutine

public subroutine get_line_pattern(linestyle, pattern, pattern_size)

Get line pattern array for given style Following DRY principle - centralized pattern definitions

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	linestyle
real(kind=wp),	intent(out)			::	pattern(20)
integer,	intent(out)			::	pattern_size