getCircleRectangle Subroutine

public subroutine getCircleRectangle(obj, type_of_circle, circle)

Arguments

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

Contents

None