blob: 247e7dc639c3fbeb33ccbfeb6981050904a355f1 [file] [log] [blame]
package Opt1 is
type Dimention_Length is array (1 .. 16) of Natural;
type Dimension_Indexes is array (Positive range <>) of Positive;
function De_Linear_Index
(Index : Natural;
D : Natural;
Ind_Lengths : Dimention_Length)
return Dimension_Indexes;
end Opt1;