FUNCTION fatp_get_tj
(input : SET [0:?] OF part_connected_terminals_element_armx) : SET [0:?] OF part_connected_terminals_topological_junction;
LOCAL
tj : SET OF Part_connected_terminals_topological_junction := [];
i : INTEGER := 0;
END_LOCAL;
REPEAT i := 1 TO SIZEOF(input) BY 1;
IF ('FUNCTIONAL_ASSIGNMENT_TO_PART_XIM.PART_CONNECTED_TERMINALS_TOPOLOGICAL_JUNCTION' IN TYPEOF(input[i].start_terminus)) THEN
tj := tj + input[i].start_terminus;
END_IF;
IF ('FUNCTIONAL_ASSIGNMENT_TO_PART_XIM.PART_CONNECTED_TERMINALS_TOPOLOGICAL_JUNCTION' IN TYPEOF(input[i].end_terminus)) THEN
tj := tj + input[i].end_terminus;
END_IF;
END_REPEAT;
RETURN(tj); END_FUNCTION; -- fatp_get_tj
|