FUNCTION "SortRealArray" : Void

{ S7_Optimized_Access := 'TRUE' }

VERSION : 0.1

VAR_IN_OUT

a : Array[*] of Real;

END_VAR

VAR_TEMP

i : Int;

j : Int;

r_temp : Real;

END_VAR

BEGIN

FOR #i := LOWER_BOUND(ARR:=#a, DIM:=1) TO UPPER_BOUND(ARR:=#a, DIM:=1) DO

FOR #j := UPPER_BOUND(ARR := #a, DIM := 1) TO #i BY -1 DO

IF #a[#i] < #a[#j] THEN

#r_temp := #a[#j];

#a[#j] := #a[#i];

#a[#i] := #r_temp;

END_IF;

END_FOR;

END_FOR;

END_FUNCTION