heron_formula Function

public pure function heron_formula(a, b, c) result(s)

海伦公式计算三角形面积

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=sk_real_kind),	intent(in)			::	a	三边长 (m)
real(kind=sk_real_kind),	intent(in)			::	b	三边长 (m)
real(kind=sk_real_kind),	intent(in)			::	c	三边长 (m)

Return Value real(kind=sk_real_kind)

Contents