less_than_real Module Procedure

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

Arguments

Type IntentOptional Attributes Name
real, intent(in) :: actual
real, intent(in) :: expected_ceiling

Return Value type(test_diagnosis_t)