area Interface

public interface area

Contents

Module Procedures


Module Procedures

private pure function area3l(a, b, c) result(area)

Area of a triangle
三角形面积

Arguments

Type IntentOptional Attributes Name
real(kind=sk_real_kind), intent(in) :: a(3)
real(kind=sk_real_kind), intent(in) :: b(3)
real(kind=sk_real_kind), intent(in) :: c(3)

Return Value real(kind=sk_real_kind)

private pure function area4l(a, b, c, d) result(area)

Area of a quadrilateral
四边形面积

Arguments

Type IntentOptional Attributes Name
real(kind=sk_real_kind), intent(in) :: a(3)
real(kind=sk_real_kind), intent(in) :: b(3)
real(kind=sk_real_kind), intent(in) :: c(3)
real(kind=sk_real_kind), intent(in) :: d(3)

Return Value real(kind=sk_real_kind)