(* SCHEMA finite_element_analysis_control_and_result_schema; *)
FUNCTION consistent_list_values
(values : LIST [1:?] OF field_value;
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);
fv_type := TYPEOF (values[i]);
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;
Generated by STEP Tools® EXPRESS to HTML Converter
2012-03-27T17:14:00-04:00