set Subroutine

private pure subroutine set(this, num_colors, dim_colors, colors)

Type Bound

format_lut

Arguments

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

Calls

proc~~set~~CallsGraph proc~set format_lut%set proc~allocate_colors format_lut%allocate_colors proc~set->proc~allocate_colors

Called by

proc~~set~~CalledByGraph proc~set format_lut%set program~test15 test15 program~test15->proc~set

Source Code

   pure subroutine set(this, num_colors, dim_colors, colors)
      class(format_lut),       intent(inout) :: this
      integer,                 intent(in)    :: num_colors, dim_colors
      integer, dimension(:,:), intent(in)    :: colors

      this%num_colors = num_colors
      this%dim_colors = dim_colors
      call this%allocate_colors()
      this%colors = colors
   end subroutine set