print_decimal Subroutine

private impure elemental subroutine print_decimal(this)

Type Bound

color

Arguments

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

Called by

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

Source Code

   elemental impure subroutine print_decimal(this)
      class(color), intent(in) :: this
      print'(a,g0)', 'decimal: ', this%decimal
   end subroutine print_decimal