FUNCTION limd_get_sz_cp
(input : SET [1:?] OF Conductive_interconnect_element_terminal_link) : INTEGER;
LOCAL
ac : SET OF Conductive_interconnect_element_terminal := [];
END_LOCAL;
REPEAT i := 1 TO HIINDEX(input);
ac := ac +
input[i]\Conductive_interconnect_element_terminal_link.precedent_point +
input[i]\Conductive_interconnect_element_terminal_link.subsequent_point;
END_REPEAT;
RETURN (SIZEOF(ac)); END_FUNCTION; -- limd_get_sz_cp
|