1package Opt1 is
2
3   type Dimention_Length is array (1 .. 16) of Natural;
4
5   type Dimension_Indexes is array (Positive range <>) of Positive;
6
7   function De_Linear_Index
8     (Index       : Natural;
9      D           : Natural;
10      Ind_Lengths : Dimention_Length)
11      return Dimension_Indexes;
12
13end Opt1;
14