ary_idx_to_slc  IS OP  ary  idx  - convert idx to slc, based on ary  
	ary_idx_to_slc  IS OP  ary  idx  
	FOR	idx  WITH  idxA  DO  resFltL  :=  link  resFltL  [ary_idx_to_slc  ary  idx]  ;  ENDFOR  ;  
	IF		(isAtm  idx)  THEN  resFltL  :=  [ary_idx_to_slc  ary  idx]  ;  
		resFltL  :=  ary  EACHRIGHT ary_idx_to_slc  resFltL  ;  
   ary_idx_to_slc  IS OP  ary  idx  - convert idx to slc, based on ary  
	ary_idx_to_slc  IS OP  ary  idx  
	FOR	idx  WITH  idxA  DO  resFltL  :=  link  resFltL  [ary_idx_to_slc  ary  idx]  ;  ENDFOR  ;  
	IF		(isAtm  idx)  THEN  resFltL  :=  [ary_idx_to_slc  ary  idx]  ;  
		resFltL  :=  ary  EACHRIGHT ary_idx_to_slc  resFltL  ;  
   ary_idx_to_slc  IS OP  ary  idx  - convert idx to slc, based on ary  
	ary_idx_to_slc  IS OP  ary  idx  
	FOR	idx  WITH  idxA  DO  resFltL  :=  link  resFltL  [ary_idx_to_slc  ary  idx]  ;  ENDFOR  ;  
	IF		(isAtm  idx)  THEN  resFltL  :=  [ary_idx_to_slc  ary  idx]  ;  
		resFltL  :=  ary  EACHRIGHT ary_idx_to_slc  resFltL  ;  
   ary_idx_to_slc  IS OP  ary  idx  - convert idx to slc, based on ary  
	ary_idx_to_slc  IS OP  ary  idx  
	FOR	idx  WITH  idxA  DO  resFltL  :=  link  resFltL  [ary_idx_to_slc  ary  idx]  ;  ENDFOR  ;  
	IF		(isAtm  idx)  THEN  resFltL  :=  [ary_idx_to_slc  ary  idx]  ;  
		resFltL  :=  ary  EACHRIGHT ary_idx_to_slc  resFltL  ;  
   ary_idx_to_slc  IS OP  ary  idx  - convert idx to slc, based on ary  
	ary_idx_to_slc  IS OP  ary  idx  
	FOR	idx  WITH  idxA  DO  resFltL  :=  link  resFltL  [ary_idx_to_slc  ary  idx]  ;  ENDFOR  ;  
	IF		(isAtm  idx)  THEN  resFltL  :=  [ary_idx_to_slc  ary  idx]  ;  
		resFltL  :=  ary  EACHRIGHT ary_idx_to_slc  resFltL  ;  
   ary_idx_to_slc  IS OP  ary  idx  - convert idx to slc, based on ary  
	ary_idx_to_slc  IS OP  ary  idx  
	FOR	idx  WITH  idxA  DO  resFltL  :=  link  resFltL  [ary_idx_to_slc  ary  idx]  ;  ENDFOR  ;  
	IF		(isAtm  idx)  THEN  resFltL  :=  [ary_idx_to_slc  ary  idx]  ;  
		resFltL  :=  ary  EACHRIGHT ary_idx_to_slc  resFltL  ;  
   ary_idx_to_slc  IS OP  ary  idx  - convert idx to slc, based on ary  
	ary_idx_to_slc  IS OP  ary  idx  
	FOR	idx  WITH  idxA  DO  resFltL  :=  link  resFltL  [ary_idx_to_slc  ary  idx]  ;  ENDFOR  ;  
	IF		(isAtm  idx)  THEN  resFltL  :=  [ary_idx_to_slc  ary  idx]  ;  
		resFltL  :=  ary  EACHRIGHT ary_idx_to_slc  resFltL  ;  
   ary_idx_to_slc  IS OP  ary  idx  - convert idx to slc, based on ary  
	ary_idx_to_slc  IS OP  ary  idx  
	FOR	idx  WITH  idxA  DO  resFltL  :=  link  resFltL  [ary_idx_to_slc  ary  idx]  ;  ENDFOR  ;  
	IF		(isAtm  idx)  THEN  resFltL  :=  [ary_idx_to_slc  ary  idx]  ;  
		resFltL  :=  ary  EACHRIGHT ary_idx_to_slc  resFltL  ;  
   ary_idx_to_slc  IS OP  ary  idx  - convert idx to slc, based on ary  
	ary_idx_to_slc  IS OP  ary  idx  
	FOR	idx  WITH  idxA  DO  resFltL  :=  link  resFltL  [ary_idx_to_slc  ary  idx]  ;  ENDFOR  ;  
	IF		(isAtm  idx)  THEN  resFltL  :=  [ary_idx_to_slc  ary  idx]  ;  
		resFltL  :=  ary  EACHRIGHT ary_idx_to_slc  resFltL  ;  
   ary_idx_to_slc  IS OP  ary  idx  - convert idx to slc, based on ary  
	ary_idx_to_slc  IS OP  ary  idx  
	FOR	idx  WITH  idxA  DO  resFltL  :=  link  resFltL  [ary_idx_to_slc  ary  idx]  ;  ENDFOR  ;  
	IF		(isAtm  idx)  THEN  resFltL  :=  [ary_idx_to_slc  ary  idx]  ;  
		resFltL  :=  ary  EACHRIGHT ary_idx_to_slc  resFltL  ;  
   ary_idx_to_slc  IS OP  ary  idx  - convert idx to slc, based on ary  
	ary_idx_to_slc  IS OP  ary  idx  
	FOR	idx  WITH  idxA  DO  resFltL  :=  link  resFltL  [ary_idx_to_slc  ary  idx]  ;  ENDFOR  ;  
	IF		(isAtm  idx)  THEN  resFltL  :=  [ary_idx_to_slc  ary  idx]  ;  
		resFltL  :=  ary  EACHRIGHT ary_idx_to_slc  resFltL  ;  
   ary_idx_to_slc  IS OP  ary  idx  - convert idx to slc, based on ary  
	ary_idx_to_slc  IS OP  ary  idx  
	FOR	idx  WITH  idxA  DO  resFltL  :=  link  resFltL  [ary_idx_to_slc  ary  idx]  ;  ENDFOR  ;  
	IF		(isAtm  idx)  THEN  resFltL  :=  [ary_idx_to_slc  ary  idx]  ;  
		resFltL  :=  ary  EACHRIGHT ary_idx_to_slc  resFltL  ;  
   ary_idx_to_slc  IS OP  ary  idx  - convert idx to slc, based on ary  
	ary_idx_to_slc  IS OP  ary  idx  
	FOR	idx  WITH  idxA  DO  resFltL  :=  link  resFltL  [ary_idx_to_slc  ary  idx]  ;  ENDFOR  ;  
	IF		(isAtm  idx)  THEN  resFltL  :=  [ary_idx_to_slc  ary  idx]  ;  
		resFltL  :=  ary  EACHRIGHT ary_idx_to_slc  resFltL  ;