LOCAL group : stratum_technology_occurrence_group_xim := input ; root_group : stratum_technology_occurrence_group_xim := ? ; stack : local_linear_stack_armx := ? ; END_LOCAL ; REPEAT WHILE ( root_group = ? ) ; IF  ( SIZEOF ( group . parent ) = 1 ) THEN  group := group . parent [ 1 ] ; ELSE root_group := group ; END_IF  ; END_REPEAT ; IF 'lksoft_extensions_xim.sequential_stratum_technology_occurrence_group_xim' IN TYPEOF ( root_group ) THEN stack := USEDIN ( root_group , 'part_template_2d_shape_xim.local_linear_stack_armx.' + 'root_xim' ) [ 1 ] ; END_IF ; RETURN ( stack ) ;