Lines Matching full:shapes

353 function get_all_area(shapes)
355   type(shape_array) :: shapes(:)
361   do i = 1, size(shapes)
362     get_all_area = get_all_area + shapes(i)%item%get_area()
389   type(shape_array), dimension(2) :: shapes
391   allocate (triangle::shapes(1)%item)
392   allocate (rectangle::shapes(2)%item)
394   do i = 1, size(shapes)
395     call shapes(i)%item%init(i)
398   call set_base_values(shapes(1)%item, 2.0, 1.5)
399   call set_base_values(shapes(2)%item, 5.0, 4.5)
401   area = get_all_area(shapes)
405   deallocate(shapes(1)%item)
406   deallocate(shapes(2)%item)
436 get_all_area = get_all_area + shapes(i)%item%get_area()
714 allocate(triangle::shapes(1)%item)
715 allocate(rectangle::shapes(2)%item)
740 deallocate(shapes(1)%item)
741 deallocate(shapes(2)%item)