get Subroutine

private pure subroutine get(this, name, r, g, b, c, m, y, k, decimal, hex, h, s, v, hl, sl, vl, xyz_x, xyz_y, xyz_z)

Type Bound

color

Arguments

Type IntentOptional Attributes Name
class(color), intent(inout) :: this
character(len=:), intent(out), optional, allocatable :: name
integer(kind=ik), intent(out), optional :: r
integer(kind=ik), intent(out), optional :: g
integer(kind=ik), intent(out), optional :: b
integer(kind=ik), intent(out), optional :: c
integer(kind=ik), intent(out), optional :: m
integer(kind=ik), intent(out), optional :: y
integer(kind=ik), intent(out), optional :: k
integer(kind=ik), intent(out), optional :: decimal
character(len=7), intent(out), optional :: hex
real(kind=rk), intent(out), optional :: h
real(kind=rk), intent(out), optional :: s
real(kind=rk), intent(out), optional :: v
real(kind=rk), intent(out), optional :: hl
real(kind=rk), intent(out), optional :: sl
real(kind=rk), intent(out), optional :: vl
real(kind=rk), intent(out), optional :: xyz_x
real(kind=rk), intent(out), optional :: xyz_y
real(kind=rk), intent(out), optional :: xyz_z

Calls

proc~~get~~CallsGraph proc~get color%get proc~get_cmyk color%get_cmyk proc~get->proc~get_cmyk proc~get_decimal color%get_decimal proc~get->proc~get_decimal proc~get_hex color%get_hex proc~get->proc~get_hex proc~get_hsl color%get_hsl proc~get->proc~get_hsl proc~get_hsv color%get_hsv proc~get->proc~get_hsv proc~get_name color%get_name proc~get->proc~get_name proc~get_rgb color%get_rgb proc~get->proc~get_rgb proc~get_xyz color%get_xyz proc~get->proc~get_xyz

Called by

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

Source Code

   pure subroutine get(this, name, r,g,b, c,m,y,k, decimal, hex, h,s,v, hl,sl,vl, xyz_x,xyz_y,xyz_z)
      class(color), intent(inout) :: this
      character(len=:), allocatable, intent(out), optional :: name
      integer(ik),  intent(out), optional :: r, g, b, c, m, y, k, decimal
      character(len=7), intent(out), optional :: hex
      real(rk),     intent(out), optional :: h, s, v, hl, sl, vl, xyz_x, xyz_y, xyz_z

      if (present(name))                                                 call this%get_name(name)
      if (present(r) .and. present(g) .and. present(b))                  call this%get_rgb(r, g, b)
      if (present(c) .and. present(m) .and. present(y) .and. present(k)) call this%get_cmyk(c, m, y, k)
      if (present(decimal))                                              call this%get_decimal(decimal)
      if (present(hex))                                                  call this%get_hex(hex)
      if (present(h) .and. present(s) .and. present(v))                  call this%get_hsv(h, s, v)
      if (present(hl) .and. present(sl) .and. present(vl))               call this%get_hsl(hl, sl, vl)
      if (present(xyz_x) .and. present(xyz_y) .and. present(xyz_z))      call this%get_xyz(xyz_x, xyz_y, xyz_z)

   end subroutine get