style_index Function

  1. face.F90
  2. face
  3. style_index

private elemental function style_index(style)

Arguments

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

Return Value integer(kind=int32)


Called by

proc~~style_index~~CalledByGraph proc~style_index style_index proc~colorize_ascii colorize_ascii proc~colorize_ascii->proc~style_index proc~colorize_default colorize_default proc~colorize_default->proc~style_index proc~colorize_ucs4 colorize_ucs4 proc~colorize_ucs4->proc~style_index interface~colorize colorize interface~colorize->proc~colorize_default proc~colorize_str colorize_str proc~colorize_str->interface~colorize proc~styles_samples styles_samples proc~styles_samples->interface~colorize proc~colorize_str~2 colorize_str proc~colorize_str~2->interface~colorize program~face_test_colors face_test_colors program~face_test_colors->interface~colorize program~face_test_styles~2 face_test_styles program~face_test_styles~2->interface~colorize program~face_test_styles~3 face_test_styles program~face_test_styles~3->interface~colorize program~face_test_colors~4 face_test_colors program~face_test_colors~4->interface~colorize proc~colors_samples colors_samples proc~colors_samples->interface~colorize program~face_test_styles face_test_styles program~face_test_styles->interface~colorize program~face_test_colors~2 face_test_colors program~face_test_colors~2->interface~colorize program~face_test_colors~3 face_test_colors program~face_test_colors~3->interface~colorize program~face_test_styles~4 face_test_styles program~face_test_styles~4->interface~colorize program~face_test_basic face_test_basic program~face_test_basic->proc~styles_samples program~face_test_basic->proc~colors_samples program~face_test_basic~2 face_test_basic program~face_test_basic~2->proc~styles_samples program~face_test_basic~2->proc~colors_samples program~face_test_basic~3 face_test_basic program~face_test_basic~3->proc~styles_samples program~face_test_basic~3->proc~colors_samples program~face_test_basic~4 face_test_basic program~face_test_basic~4->proc~styles_samples program~face_test_basic~4->proc~colors_samples

Contents

Source Code

style_index

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