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~2~~CallsGraph proc~set~2 format_lut%set proc~allocate_colors format_lut%allocate_colors proc~set~2->proc~allocate_colors

Called by

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

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