style_index Function

private elemental function style_index(style)

Arguments

TypeIntentOptionalAttributesName
character(len=*), intent(in) :: style

Return Value integer(kind=int32)


Called by

proc~~style_index~2~~CalledByGraph proc~style_index~2 style_index proc~colorize_ascii~2 colorize_ascii proc~colorize_ascii~2->proc~style_index~2 proc~colorize_ucs4~2 colorize_ucs4 proc~colorize_ucs4~2->proc~style_index~2 proc~colorize_default~2 colorize_default proc~colorize_default~2->proc~style_index~2 interface~colorize~2 colorize interface~colorize~2->proc~colorize_default~2 proc~colors_samples~2 colors_samples proc~colors_samples~2->interface~colorize~2 proc~styles_samples~2 styles_samples proc~styles_samples~2->interface~colorize~2

Contents

Source Code


Source Code

   elemental function style_index(style)
   !< Return the array-index corresponding to the queried style.
   character(len=*), intent(in) :: style       !< Style definition.
   integer(int32)               :: style_index !< Index into the styles array.
   integer(int32)               :: s           !< Counter.

   style_index = 0
   do s=1, size(STYLES, dim=2)
      if (trim(STYLES(1, s))==trim(adjustl(style))) then
         style_index = s
         exit
      endif
   enddo
   endfunction style_index