Anonymous user
Bitmap/Fortran: Difference between revisions
fixed improper use of the "where" statement
No edit summary |
(fixed improper use of the "where" statement) |
||
Line 36:
type(rgb), intent(out) :: color
integer, intent(in) :: red, green, blue
color%red = 255
color%red = 0
else
color%red = red
end
color%green = 255
color%green = 0
else
color%green = green
end
color%blue = 255
color%blue = 0
else
color%blue = blue
end
end subroutine set_color
| |||