set_num_colors Subroutine

private pure elemental subroutine set_num_colors(this, num_colors)

Type Bound

format_lut

Arguments

Type IntentOptional Attributes Name
class(format_lut), intent(inout) :: this
integer, intent(in) :: num_colors

Called by

proc~~set_num_colors~~CalledByGraph proc~set_num_colors format_lut%set_num_colors proc~import format_lut%import proc~import->proc~set_num_colors

Source Code

   pure elemental subroutine set_num_colors(this, num_colors)
      class(format_lut), intent(inout) :: this
      integer,           intent(in)    :: num_colors
      this%num_colors = num_colors
   end subroutine set_num_colors