27 real function get_shape_area( this )
29 class(
shape),
intent(in) :: this
68 real,
intent(in) :: width
69 real,
intent(in),
optional :: height
72 if (
present(height) )
then 82 real,
intent(in) :: width
83 real,
intent(in),
optional :: height
real function get_rectangle_area(this)
subroutine square_size(this, width, height)
real function get_square_area(this)
subroutine rectangle_size(this, width, height)