styles_samples Subroutine

public subroutine styles_samples()

Arguments

None

Calls

proc~~styles_samples~~CallsGraph proc~styles_samples styles_samples interface~colorize colorize proc~styles_samples->interface~colorize proc~colorize_default colorize_default interface~colorize->proc~colorize_default proc~color_index color_index proc~colorize_default->proc~color_index proc~upper upper proc~colorize_default->proc~upper proc~style_index style_index proc~colorize_default->proc~style_index

Called by

proc~~styles_samples~~CalledByGraph proc~styles_samples styles_samples program~face_test_basic face_test_basic program~face_test_basic->proc~styles_samples program~face_test_basic~2 face_test_basic program~face_test_basic~2->proc~styles_samples program~face_test_basic~3 face_test_basic program~face_test_basic~3->proc~styles_samples program~face_test_basic~4 face_test_basic program~face_test_basic~4->proc~styles_samples

Contents

Source Code


Source Code

   subroutine styles_samples()
   !< Print to standard output all styles samples.
   integer(int32) :: s !< Counter.

   print '(A)', colorize('Styles samples', color_fg='red_intense')
   do s=1, size(STYLES, dim=2)
      print '(A)', '  colorize("'//STYLES(1, s)//'", style="'//STYLES(1, s)//'") => '//&
         colorize(STYLES(1, s), style=STYLES(1, s))//&
         ' code: '//colorize(trim(STYLES(2, s)), color_fg='magenta', style='inverse_on')
   enddo
   endsubroutine styles_samples