gcc/ada/libgnat/s-dgmgop.ads

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