ComputeVertices Subroutine

public subroutine ComputeVertices(this)

Type Bound

rectangle

Arguments

Type	Intent	Optional	Attributes		Name
class(rectangle),	intent(inout)			::	this