getCircleRectangle Subroutine

public subroutine getCircleRectangle(obj, type_of_circle, circle)

Type Bound

Rectangle_

Arguments

Type	Intent	Optional	Attributes		Name
class(Rectangle_),	intent(in)			::	obj
character(len=*),	intent(in)			::	type_of_circle
type(Circle_),	intent(inout)			::	circle