FUNCTION consistent_set_values
(values_and_locations : SET [1:?] OF GENERIC; variable : GENERIC) : BOOLEAN;
LOCAL vv_type : STRING; fv_type : SET [1:?] OF STRING; i : INTEGER; END_LOCAL;
vv_type := variable_value_type (variable);
REPEAT i := 1 TO HIINDEX (values_and_locations);
fv_type := TYPEOF (values_and_locations[i].simple_value);
IF NOT (('FINITE_ELEMENT_ANALYSIS_CONTROL_AND_RESULT_SCHEMA.' + 'UNSPECIFIED_VALUE') IN fv_type) THEN
IF NOT (vv_type IN fv_type) THEN RETURN (FALSE); END_IF;
END_IF;
END_REPEAT;
RETURN (TRUE); END_FUNCTION; -- consistent_set_values
|