3 type Mks_Int_Type
is new Integer
6 (Unit_Name
=> Meter
, Unit_Symbol
=> 'm', Dim_Symbol
=> 'L'),
7 (Unit_Name
=> Kilogram
, Unit_Symbol
=> "kg", Dim_Symbol
=> 'M'),
8 (Unit_Name
=> Second
, Unit_Symbol
=> 's', Dim_Symbol
=> 'T'),
9 (Unit_Name
=> Ampere
, Unit_Symbol
=> 'A', Dim_Symbol
=> 'I'),
10 (Unit_Name
=> Kelvin
, Unit_Symbol
=> 'K', Dim_Symbol
=> '@'),
11 (Unit_Name
=> Mole
, Unit_Symbol
=> "mol", Dim_Symbol
=> 'N'),
12 (Unit_Name
=> Candela
, Unit_Symbol
=> "cd", Dim_Symbol
=> 'J'));
14 subtype Int_Length
is Mks_Int_Type
16 Dimension
=> (Symbol
=> 'm',
20 subtype Int_Speed
is Mks_Int_Type