get_name Subroutine

private pure subroutine get_name(this, name)

Type Bound

color

Arguments

Type IntentOptional Attributes Name
class(color), intent(in) :: this
character(len=:), intent(out), allocatable :: name

Called by

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

Source Code

   pure subroutine get_name(this, name)
      class(color), intent(in) :: this
      character(len=:), allocatable, intent(out) :: name

      name = trim(this%color_name)
   end subroutine get_name