--- a/SortLib.def
+++ b/SortLib.def
@@ -70,6 +70,14 @@
(* as descibed in Wirths "Algorithmen und Datenstrukturen" *)
(*----------------------------------------------------------------*)
+PROCEDURE ShellMetznerSort(VAR X : ARRAY OF LONGREAL;
+ N : CARDINAL);
+
+ (*---------------------------------------------------------------*)
+ (* Sorts the N values stored in array X in ascending order by *)
+ (* Shell-Metzner sort *)
+ (*---------------------------------------------------------------*)
+
PROCEDURE HeapSort(VAR A : ARRAY OF LONGREAL;
n : INTEGER);
@@ -98,7 +106,7 @@
num : INTEGER);
(*----------------------------------------------------------------*)
- (* Nicht recursive Version von MergeSort (aufsteigende Ordnung) *)
+ (* Nicht rekursive Version von MergeSort (aufsteigende Ordnung) *)
(*----------------------------------------------------------------*)
PROCEDURE MergeSort(VAR a : VEKTOR;