FUNCTION limd_get_sz_cp
(input : SET [1:?] OF conductive_interconnect_element_terminal_link_armx) : 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_armx.precedent_point + input[i]\Conductive_interconnect_element_terminal_link_armx.subsequent_point; END_REPEAT; RETURN (SIZEOF(ac)); END_FUNCTION; -- limd_get_sz_cp
|