allocate_colors Subroutine

private pure elemental subroutine allocate_colors(this)

Type Bound

format_lut

Arguments

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

Called by

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

Source Code

   pure elemental subroutine allocate_colors(this)
      class(format_lut), intent(inout) :: this
      if (allocated(this%colors)) deallocate(this%colors)
      allocate(this%colors(this%num_colors, this%dim_colors))
   end subroutine allocate_colors