within_real_percentage Module Procedure

module procedure within_real_percentage elemental module function within_real_percentage(operands, percentage_tolerance) result(test_diagnosis)

Arguments

Type	Intent	Optional	Attributes		Name
type(operands_t),	intent(in)			::	operands
real,	intent(in)			::	percentage_tolerance

Return Value type(test_diagnosis_t)