less_than_double Module Procedure

module procedure less_than_double elemental module function less_than_double(actual, expected_ceiling) result(test_diagnosis)

Arguments

Type	Intent	Optional	Attributes		Name
double precision,	intent(in)			::	actual
double precision,	intent(in)			::	expected_ceiling

Return Value type(test_diagnosis_t)