set_name Subroutine

private pure elemental subroutine set_name(this, name)

Type Bound

color

Arguments

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

Called by

proc~~set_name~~CalledByGraph proc~set_name color%set_name proc~set color%set proc~set->proc~set_name program~demo_color demo_color program~demo_color->proc~set program~example26 example26 program~example26->proc~set program~example27 example27 program~example27->proc~set program~example28 example28 program~example28->proc~set

Source Code

   elemental pure subroutine set_name(this, name)
      class(color), intent(inout) :: this
      character(len=*), intent(in) :: name

      this%color_name = trim(name)
   end subroutine set_name