print_name Subroutine

private impure elemental subroutine print_name(this)

Type Bound

color

Arguments

Type IntentOptional Attributes Name
class(color), intent(in) :: this

Called by

proc~~print_name~~CalledByGraph proc~print_name color%print_name proc~print color%print proc~print->proc~print_name

Source Code

   elemental impure subroutine print_name(this)
      class(color), intent(in) :: this
      print '(a,a)', 'color name: ', trim(this%color_name)
   end subroutine print_name