color_index Function

  1. face.F90
  2. face
  3. color_index

private elemental function color_index(color)

Arguments

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

Return Value integer(kind=int32)


Called by

proc~~color_index~2~~CalledByGraph proc~color_index~2 color_index proc~colorize_ascii~2 colorize_ascii proc~colorize_ascii~2->proc~color_index~2 proc~colorize_ucs4~2 colorize_ucs4 proc~colorize_ucs4~2->proc~color_index~2 proc~colorize_default~2 colorize_default proc~colorize_default~2->proc~color_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

color_index

Source Code

   elemental function color_index(color)
   !< Return the array-index corresponding to the queried color.
   !<
   !< @note Because Foreground and backround colors lists share the same name, no matter what array is used to find the color index.
   !< Thus, the foreground array is used.
   character(len=*), intent(in) :: color       !< Color definition.
   integer(int32)               :: color_index !< Index into the colors arrays.
   integer(int32)               :: c           !< Counter.

   color_index = 0
   do c=1, size(COLORS_FG, dim=2)
      if (trim(COLORS_FG(1, c))==trim(adjustl(color))) then
         color_index = c
         exit
      endif
   enddo
   endfunction color_index