gcc/ada/s-dmotpr.ads

   1 ------------------------------------------------------------------------------
   2 --                                                                          --
   3 --                         GNAT RUN-TIME COMPONENTS                         --
   4 --                                                                          --
   5 --         S Y S T E M . D I M . M K S . O T H E R _ P R E F I X E S        --
   6 --                                                                          --
   7 --                                  S p e c                                 --
   8 --                                                                          --
   9 --           Copyright (C) 2011-2012, Free Software Foundation, Inc.        --
  10 --                                                                          --
  11 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
  12 -- terms of the  GNU General Public License as published  by the Free Soft- --
  13 -- ware  Foundation;  either version 3,  or (at your option) any later ver- --
  14 -- sion.  GNAT is distributed in the hope that it will be useful, but WITH- --
  15 -- OUT ANY WARRANTY;  without even the  implied warranty of MERCHANTABILITY --
  16 -- or FITNESS FOR A PARTICULAR PURPOSE.                                     --
  17 --                                                                          --
  18 -- As a special exception under Section 7 of GPL version 3, you are granted --
  19 -- additional permissions described in the GCC Runtime Library Exception,   --
  20 -- version 3.1, as published by the Free Software Foundation.               --
  21 --                                                                          --
  22 -- You should have received a copy of the GNU General Public License and    --
  23 -- a copy of the GCC Runtime Library Exception along with this program;     --
  24 -- see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see    --
  25 -- <http://www.gnu.org/licenses/>.                                          --
  26 --                                                                          --
  27 -- GNAT was originally developed  by the GNAT team at  New York University. --
  28 -- Extensive contributions were provided by Ada Core Technologies Inc.      --
  29 --                                                                          --
  30 ------------------------------------------------------------------------------
  31
  32 --  Package that defines some other prefixes for the MKS base unit system.
  33
  34 --  These prefixes have been defined in a child package in order to avoid too
  35 --  many constant declarations in System.Dim_Mks.
  36
  37 package System.Dim.Mks.Other_Prefixes is
  38
  39    --  SI prefixes for Meter
  40
  41    ym  : constant Length := 1.0E-24;  -- yocto
  42    zm  : constant Length := 1.0E-21;  -- zepto
  43    am  : constant Length := 1.0E-18;  -- atto
  44    fm  : constant Length := 1.0E-15;  -- femto
  45    pm  : constant Length := 1.0E-12;  -- pico
  46    nm  : constant Length := 1.0E-09;  -- nano
  47    Gm  : constant Length := 1.0E+09;  -- giga
  48    Tm  : constant Length := 1.0E+12;  -- tera
  49    Pem : constant Length := 1.0E+15;  -- peta
  50    Em  : constant Length := 1.0E+18;  -- exa
  51    Zem : constant Length := 1.0E+21;  -- zetta
  52    Yom : constant Length := 1.0E+24;  -- yotta
  53
  54    --  SI prefixes for Kilogram
  55
  56    yg  : constant Mass := 1.0E-27;  -- yocto
  57    zg  : constant Mass := 1.0E-24;  -- zepto
  58    ag  : constant Mass := 1.0E-21;  -- atto
  59    fg  : constant Mass := 1.0E-18;  -- femto
  60    pg  : constant Mass := 1.0E-15;  -- pico
  61    ng  : constant Mass := 1.0E-12;  -- nano
  62    Gg  : constant Mass := 1.0E+06;  -- giga
  63    Tg  : constant Mass := 1.0E+09;  -- tera
  64    Peg : constant Mass := 1.0E+13;  -- peta
  65    Eg  : constant Mass := 1.0E+15;  -- exa
  66    Zeg : constant Mass := 1.0E+18;  -- zetta
  67    Yog : constant Mass := 1.0E+21;  -- yotta
  68
  69    --  SI prefixes for Second
  70
  71    ys  : constant Time := 1.0E-24;  -- yocto
  72    zs  : constant Time := 1.0E-21;  -- zepto
  73    as  : constant Time := 1.0E-18;  -- atto
  74    fs  : constant Time := 1.0E-15;  -- femto
  75    ps  : constant Time := 1.0E-12;  -- pico
  76    ns  : constant Time := 1.0E-09;  -- nano
  77    Gs  : constant Time := 1.0E+09;  -- giga
  78    Ts  : constant Time := 1.0E+12;  -- tera
  79    Pes : constant Time := 1.0E+15;  -- peta
  80    Es  : constant Time := 1.0E+18;  -- exa
  81    Zes : constant Time := 1.0E+21;  -- zetta
  82    Yos : constant Time := 1.0E+24;  -- yotta
  83
  84    --  SI prefixes for Ampere
  85
  86    yA  : constant Electric_Current := 1.0E-24;  -- yocto
  87    zA  : constant Electric_Current := 1.0E-21;  -- zepto
  88    aA  : constant Electric_Current := 1.0E-18;  -- atto
  89    fA  : constant Electric_Current := 1.0E-15;  -- femto
  90    nA  : constant Electric_Current := 1.0E-09;  -- nano
  91    uA  : constant Electric_Current := 1.0E-06;  -- micro (u)
  92    GA  : constant Electric_Current := 1.0E+09;  -- giga
  93    TA  : constant Electric_Current := 1.0E+12;  -- tera
  94    PeA : constant Electric_Current := 1.0E+15;  -- peta
  95    EA  : constant Electric_Current := 1.0E+18;  -- exa
  96    ZeA : constant Electric_Current := 1.0E+21;  -- zetta
  97    YoA : constant Electric_Current := 1.0E+24;  -- yotta
  98
  99    --  SI prefixes for Kelvin
 100
 101    yK  : constant Thermodynamic_Temperature := 1.0E-24;  -- yocto
 102    zK  : constant Thermodynamic_Temperature := 1.0E-21;  -- zepto
 103    aK  : constant Thermodynamic_Temperature := 1.0E-18;  -- atto
 104    fK  : constant Thermodynamic_Temperature := 1.0E-15;  -- femto
 105    pK  : constant Thermodynamic_Temperature := 1.0E-12;  -- pico
 106    nK  : constant Thermodynamic_Temperature := 1.0E-09;  -- nano
 107    uK  : constant Thermodynamic_Temperature := 1.0E-06;  -- micro (u)
 108    mK  : constant Thermodynamic_Temperature := 1.0E-03;  -- milli
 109    cK  : constant Thermodynamic_Temperature := 1.0E-02;  -- centi
 110    dK  : constant Thermodynamic_Temperature := 1.0E-01;  -- deci
 111    daK : constant Thermodynamic_Temperature := 1.0E+01;  -- deka
 112    hK  : constant Thermodynamic_Temperature := 1.0E+02;  -- hecto
 113    kK  : constant Thermodynamic_Temperature := 1.0E+03;  -- kilo
 114    MeK : constant Thermodynamic_Temperature := 1.0E+06;  -- mega
 115    GK  : constant Thermodynamic_Temperature := 1.0E+09;  -- giga
 116    TK  : constant Thermodynamic_Temperature := 1.0E+12;  -- tera
 117    PeK : constant Thermodynamic_Temperature := 1.0E+15;  -- peta
 118    EK  : constant Thermodynamic_Temperature := 1.0E+18;  -- exa
 119    ZeK : constant Thermodynamic_Temperature := 1.0E+21;  -- zetta
 120    YoK : constant Thermodynamic_Temperature := 1.0E+24;  -- yotta
 121
 122    --  SI prefixes for Mole
 123
 124    ymol  : constant Amount_Of_Substance := 1.0E-24;  -- yocto
 125    zmol  : constant Amount_Of_Substance := 1.0E-21;  -- zepto
 126    amol  : constant Amount_Of_Substance := 1.0E-18;  -- atto
 127    fmol  : constant Amount_Of_Substance := 1.0E-15;  -- femto
 128    pmol  : constant Amount_Of_Substance := 1.0E-12;  -- pico
 129    nmol  : constant Amount_Of_Substance := 1.0E-09;  -- nano
 130    umol  : constant Amount_Of_Substance := 1.0E-06;  -- micro (u)
 131    mmol  : constant Amount_Of_Substance := 1.0E-03;  -- milli
 132    cmol  : constant Amount_Of_Substance := 1.0E-02;  -- centi
 133    dmol  : constant Amount_Of_Substance := 1.0E-01;  -- deci
 134    damol : constant Amount_Of_Substance := 1.0E+01;  -- deka
 135    hmol  : constant Amount_Of_Substance := 1.0E+02;  -- hecto
 136    kmol  : constant Amount_Of_Substance := 1.0E+03;  -- kilo
 137    Memol : constant Amount_Of_Substance := 1.0E+06;  -- mega
 138    Gmol  : constant Amount_Of_Substance := 1.0E+09;  -- giga
 139    Tmol  : constant Amount_Of_Substance := 1.0E+12;  -- tera
 140    Pemol : constant Amount_Of_Substance := 1.0E+15;  -- peta
 141    Emol  : constant Amount_Of_Substance := 1.0E+18;  -- exa
 142    Zemol : constant Amount_Of_Substance := 1.0E+21;  -- zetta
 143    Yomol : constant Amount_Of_Substance := 1.0E+24;  -- yotta
 144
 145    --  SI prefixes for Candela
 146
 147    ycd  : constant Luminous_Intensity := 1.0E-24;  -- yocto
 148    zcd  : constant Luminous_Intensity := 1.0E-21;  -- zepto
 149    acd  : constant Luminous_Intensity := 1.0E-18;  -- atto
 150    fcd  : constant Luminous_Intensity := 1.0E-15;  -- femto
 151    pcd  : constant Luminous_Intensity := 1.0E-12;  -- pico
 152    ncd  : constant Luminous_Intensity := 1.0E-09;  -- nano
 153    ucd  : constant Luminous_Intensity := 1.0E-06;  -- micro (u)
 154    mcd  : constant Luminous_Intensity := 1.0E-03;  -- milli
 155    ccd  : constant Luminous_Intensity := 1.0E-02;  -- centi
 156    dcd  : constant Luminous_Intensity := 1.0E-01;  -- deci
 157    dacd : constant Luminous_Intensity := 1.0E+01;  -- deka
 158    hcd  : constant Luminous_Intensity := 1.0E+02;  -- hecto
 159    kcd  : constant Luminous_Intensity := 1.0E+03;  -- kilo
 160    Mecd : constant Luminous_Intensity := 1.0E+06;  -- mega
 161    Gcd  : constant Luminous_Intensity := 1.0E+09;  -- giga
 162    Tcd  : constant Luminous_Intensity := 1.0E+12;  -- tera
 163    Pecd : constant Luminous_Intensity := 1.0E+15;  -- peta
 164    Ecd  : constant Luminous_Intensity := 1.0E+18;  -- exa
 165    Zecd : constant Luminous_Intensity := 1.0E+21;  -- zetta
 166    Yocd : constant Luminous_Intensity := 1.0E+24;  -- yotta
 167
 168 end System.Dim.Mks.Other_Prefixes;