function rgb(c) result(num) type(rgb_color),intent(in) :: c integer :: num num = int(c%r)*65536 + int(c%g)*256 + int(c%b) end function rgb