getCircleTriangle Subroutine

public subroutine getCircleTriangle(obj, type_of_circle, circle)

Arguments

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

Contents

None