color_index Function

private 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.

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: color

Color definition.

Return Value integer(kind=int32)

Index into the colors arrays.


Called by

proc~~color_index~~CalledByGraph proc~color_index color_index proc~colorize_default colorize_default proc~colorize_default->proc~color_index interface~colorize colorize interface~colorize->proc~colorize_default proc~colors_samples colors_samples proc~colors_samples->interface~colorize proc~styles_samples styles_samples proc~styles_samples->interface~colorize program~face_test_colors face_test_colors program~face_test_colors->interface~colorize program~face_test_styles face_test_styles program~face_test_styles->interface~colorize program~face_test_basic face_test_basic program~face_test_basic->proc~colors_samples program~face_test_basic->proc~styles_samples

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