MODULE array_type EXPORTS Main;

TYPE
    array_int 	    = ARRAY OF INTEGER;
    
(* varianten fuer ein 2D array *)
    array_int_2D_1  = ARRAY OF ARRAY OF INTEGER;
    array_int_2D_2  = ARRAY OF array_int;
    
(* varianten fuer ein 3D array *)
    array_int_3D_1  = ARRAY OF ARRAY OF ARRAY OF INTEGER;
    array_int_3D_2  = ARRAY OF ARRAY OF array_int;
    array_int_3D_3  = ARRAY OF array_int_2D_2;

(* zeiger auf ein 3D array *)
    array_ptr	    = REF array_int_3D_3;
    
(* natuerlich gehen auch arrays mit festen grenzen ;) *)
    array	    = ARRAY [1..4] OF INTEGER;
    

(* an diesen stellen werden typen dann interessant *)

PROCEDURE print_array_1(array : ARRAY OF ARRAY OF ARRAY OF INTEGER) =
BEGIN
    (* komplizierte variante der parameteruebergabe *)
    (* und das ist nur ein parameter !!!	    *)
END print_array_1;

PROCEDURE print_array_2(array : array_int_3D_3) =
BEGIN
    (* die einfachere Variante, wobei egal ist,     *)
    (* welchen der 3 array-Typen man verwendet	    *)
END print_array_2;

BEGIN

END array_type.