14 lines
310 B
Ada
14 lines
310 B
Ada
|
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;
|