FUNCTION required_1d_nodes
(node_list : LIST [1:?] OF node_representation, order : element_order) : BOOLEAN;
LOCAL
end_nodes : INTEGER;
additional_nodes : INTEGER;
END_LOCAL;
end_nodes := 2;
IF (order = linear) THEN
additional_nodes := 0;
END_IF;
IF (order = quadratic) THEN
additional_nodes := 1;
END_IF;
IF (order = cubic) THEN
additional_nodes := 2;
END_IF;
RETURN (SIZEOF (node_list) = end_nodes + additional_nodes); END_FUNCTION; -- required_1d_nodes
|