get_pattern_length Function

public function get_pattern_length(pattern, pattern_size)

Calculate total length of pattern cycle Following KISS principle - simple sum calculation

Arguments

Type IntentOptional Attributes Name
real(kind=wp), intent(in) :: pattern(20)
integer, intent(in) :: pattern_size

Return Value real(kind=wp)