set_hsl Subroutine

private pure elemental subroutine set_hsl(this, h, s, l)

Type Bound

color

Arguments

Type IntentOptional Attributes Name
class(color), intent(inout) :: this
real(kind=rk), intent(in) :: h
real(kind=rk), intent(in) :: s
real(kind=rk), intent(in) :: l

Called by

proc~~set_hsl~~CalledByGraph proc~set_hsl color%set_hsl proc~set color%set proc~set->proc~set_hsl proc~set_by_name color%set_by_name proc~set->proc~set_by_name proc~initialize_colors initialize_colors proc~initialize_colors->proc~set program~demo_color demo_color program~demo_color->proc~set proc~find_nearest color%find_nearest program~demo_color->proc~find_nearest proc~print_available_colors color%print_available_colors program~demo_color->proc~print_available_colors proc~save_available_colors color%save_available_colors program~demo_color->proc~save_available_colors program~example26 example26 program~example26->proc~set program~example27 example27 program~example27->proc~set program~example27->proc~find_nearest program~example28 example28 program~example28->proc~set proc~find_nearest->proc~initialize_colors proc~print_available_colors->proc~initialize_colors proc~save_available_colors->proc~initialize_colors proc~set_by_name->proc~initialize_colors program~example29 example29 program~example29->proc~print_available_colors program~example29->proc~save_available_colors

Source Code

   elemental pure subroutine set_hsl(this, h, s, l)
      class(color), intent(inout) :: this
      real(rk),    intent(in)    :: h, s, l

      this%hl = h
      this%sl = s
      this%vl = l
   end subroutine set_hsl