Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(color), | intent(inout) | :: | this | |||
class(color), | intent(in) | :: | from |
elemental pure subroutine copy_color(this, from) class(color), intent(inout) :: this class(color), intent(in) :: from this%r = from%r this%g = from%g this%b = from%b this%c = from%c this%m = from%m this%y = from%y this%k = from%k this%decimal = from%decimal this%hex = from%hex this%h = from%h this%s = from%s this%v = from%v this%hl = from%hl this%sl = from%sl this%vl = from%vl this%color_name = from%color_name end subroutine copy_color