get_hsl Subroutine

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

Type Bound

color

Arguments

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

Called by

proc~~get_hsl~~CalledByGraph proc~get_hsl color%get_hsl proc~get color%get proc~get->proc~get_hsl program~demo_color demo_color program~demo_color->proc~get program~example26 example26 program~example26->proc~get

Source Code

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

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