home *** CD-ROM | disk | FTP | other *** search
/ Programmer's ROM - The Computer Language Library / programmersrom.iso / ada / piwg / z000016a.ada < prev    next >
Encoding:
Text File  |  1988-05-03  |  13.4 KB  |  558 lines
  1.  
  2.  
  3. with PHYSICAL_CONVERSION_CONSTANT ; use PHYSICAL_CONVERSION_CONSTANT ;
  4. with PHYSICAL_REAL ; use PHYSICAL_REAL ;
  5.  
  6. package body PHYSICAL_UNITS_CONVERSION_MKS is
  7.  
  8.   function MKS ( ITEM : LENGTH_ENGLISH ) return LENGTH_MKS is
  9.  
  10.   begin
  11.     return DIMENSION ( UNDIMENSION( ITEM )) * FOOT_TO_METER ;
  12.   end MKS ;
  13.  
  14.   function MKS ( ITEM : LENGTH_PICOMETER ) return LENGTH_MKS is
  15.  
  16.   begin
  17.     return DIMENSION ( UNDIMENSION( ITEM )) / METER_TO_PICOMETER ;
  18.   end MKS ;
  19.  
  20.   function MKS ( ITEM : LENGTH_NANOMETER ) return LENGTH_MKS is
  21.  
  22.   begin
  23.     return DIMENSION ( UNDIMENSION( ITEM )) / METER_TO_NANOMETER ;
  24.   end MKS ;
  25.  
  26.   function MKS ( ITEM : LENGTH_MICROMETER ) return LENGTH_MKS is
  27.  
  28.   begin
  29.     return DIMENSION ( UNDIMENSION( ITEM )) / METER_TO_MICROMETER ;
  30.   end MKS ;
  31.  
  32.   function MKS ( ITEM : LENGTH_MILLIMETER ) return LENGTH_MKS is
  33.  
  34.   begin
  35.     return DIMENSION ( UNDIMENSION( ITEM )) / METER_TO_MILLIMETER ;
  36.   end MKS ;
  37.  
  38.   function MKS ( ITEM : LENGTH_CENTIMETER ) return LENGTH_MKS is
  39.  
  40.   begin
  41.     return DIMENSION ( UNDIMENSION( ITEM )) / METER_TO_CENTIMETER ;
  42.   end MKS ;
  43.  
  44.   function MKS ( ITEM : LENGTH_DECIMETER ) return LENGTH_MKS is
  45.  
  46.   begin
  47.     return DIMENSION ( UNDIMENSION( ITEM )) / METER_TO_DECIMETER ;
  48.   end MKS ;
  49.  
  50.   function MKS ( ITEM : LENGTH_DECAMETER ) return LENGTH_MKS is
  51.  
  52.   begin
  53.     return DIMENSION ( UNDIMENSION( ITEM )) / METER_TO_DECAMETER ;
  54.   end MKS ;
  55.  
  56.   function MKS ( ITEM : LENGTH_HECTOMETER ) return LENGTH_MKS is
  57.  
  58.   begin
  59.     return DIMENSION ( UNDIMENSION( ITEM )) / METER_TO_HECTOMETER ;
  60.   end MKS ;
  61.  
  62.   function MKS ( ITEM : LENGTH_KILOMETER ) return LENGTH_MKS is
  63.  
  64.   begin
  65.     return DIMENSION ( UNDIMENSION( ITEM )) / METER_TO_KILOMETER ;
  66.   end MKS ;
  67.  
  68.   function MKS ( ITEM : LENGTH_MEGAMETER ) return LENGTH_MKS is
  69.  
  70.   begin
  71.     return DIMENSION ( UNDIMENSION( ITEM )) / METER_TO_MEGAMETER ;
  72.   end MKS ;
  73.  
  74.   function MKS ( ITEM : LENGTH_GIGAMETER ) return LENGTH_MKS is
  75.  
  76.   begin
  77.     return DIMENSION ( UNDIMENSION( ITEM )) / METER_TO_GIGAMETER ;
  78.   end MKS ;
  79.  
  80.   function MKS ( ITEM : LENGTH_ANGSTROM ) return LENGTH_MKS is
  81.  
  82.   begin
  83.     return DIMENSION ( UNDIMENSION( ITEM )) / METER_TO_ANGSTROM ;
  84.   end MKS ;
  85.  
  86.   function MKS ( ITEM : MASS_ENGLISH ) return MASS_MKS is
  87.  
  88.   begin
  89.     return DIMENSION ( UNDIMENSION( ITEM )) * POUND_TO_KILOGRAM ;
  90.   end MKS ;
  91.  
  92.   function MKS ( ITEM : MASS_MILLIGRAM ) return MASS_MKS is
  93.  
  94.   begin
  95.     return DIMENSION ( UNDIMENSION( ITEM )) / KILOGRAM_TO_MILLIGRAM ;
  96.   end MKS ;
  97.  
  98.   function MKS ( ITEM : MASS_GRAM ) return MASS_MKS is
  99.  
  100.   begin
  101.     return DIMENSION ( UNDIMENSION( ITEM )) / KILOGRAM_TO_GRAM ;
  102.   end MKS ;
  103.  
  104.   function MKS ( ITEM : MASS_TON_METRIC ) return MASS_MKS is
  105.  
  106.   begin
  107.     return DIMENSION ( UNDIMENSION( ITEM )) / KILOGRAM_TO_TON_METRIC ;
  108.   end MKS ;
  109.  
  110.   function MKS ( ITEM : TIME_PICOSECOND ) return TIME_SECOND is
  111.  
  112.   begin
  113.     return DIMENSION ( UNDIMENSION( ITEM )) / SECOND_TO_PICOSECOND ;
  114.   end MKS ;
  115.  
  116.   function MKS ( ITEM : TIME_NANOSECOND ) return TIME_SECOND is
  117.  
  118.   begin
  119.     return DIMENSION ( UNDIMENSION( ITEM )) / SECOND_TO_NANOSECOND ;
  120.   end MKS ;
  121.  
  122.   function MKS ( ITEM : TIME_MICROSECOND ) return TIME_SECOND is
  123.  
  124.   begin
  125.     return DIMENSION ( UNDIMENSION( ITEM )) / SECOND_TO_MICROSECOND ;
  126.   end MKS ;
  127.  
  128.   function MKS ( ITEM : TIME_MILLISECOND ) return TIME_SECOND is
  129.  
  130.   begin
  131.     return DIMENSION ( UNDIMENSION( ITEM )) / SECOND_TO_MILLISECOND ;
  132.   end MKS ;
  133.  
  134.   function MKS ( ITEM : TIME_CENTISECOND ) return TIME_SECOND is
  135.  
  136.   begin
  137.     return DIMENSION ( UNDIMENSION( ITEM )) / SECOND_TO_CENTISECOND ;
  138.   end MKS ;
  139.  
  140.   function MKS ( ITEM : TIME_KILOSECOND ) return TIME_SECOND is
  141.  
  142.   begin
  143.     return DIMENSION ( UNDIMENSION( ITEM )) / SECOND_TO_KILOSECOND ;
  144.   end MKS ;
  145.  
  146.   function MKS ( ITEM : TIME_MEGASECOND ) return TIME_SECOND is
  147.  
  148.   begin
  149.     return DIMENSION ( UNDIMENSION( ITEM )) / SECOND_TO_MEGASECOND ;
  150.   end MKS ;
  151.  
  152.   function MKS ( ITEM : TIME_GIGASECOND ) return TIME_SECOND is
  153.  
  154.   begin
  155.     return DIMENSION ( UNDIMENSION( ITEM )) / SECOND_TO_GIGASECOND ;
  156.   end MKS ;
  157.  
  158.   function MKS ( ITEM : TIME_MINUTE ) return TIME_SECOND is
  159.  
  160.   begin
  161.     return DIMENSION ( UNDIMENSION( ITEM )) / SECOND_TO_MINUTE ;
  162.   end MKS ;
  163.  
  164.   function MKS ( ITEM : TIME_HOUR ) return TIME_SECOND is
  165.  
  166.   begin
  167.     return DIMENSION ( UNDIMENSION( ITEM )) / SECOND_TO_HOUR ;
  168.   end MKS ;
  169.  
  170.   function MKS ( ITEM : TIME_DAY ) return TIME_SECOND is
  171.  
  172.   begin
  173.     return DIMENSION ( UNDIMENSION( ITEM )) / SECOND_TO_DAY ;
  174.   end MKS ;
  175.  
  176.   function MKS ( ITEM : TIME_FORTNIGHT ) return TIME_SECOND is
  177.  
  178.   begin
  179.     return DIMENSION ( UNDIMENSION( ITEM )) / SECOND_TO_FORTNIGHT ;
  180.   end MKS ;
  181.  
  182.   function MKS ( ITEM : TIME_MONTH ) return TIME_SECOND is
  183.  
  184.   begin
  185.     return DIMENSION ( UNDIMENSION( ITEM )) / SECOND_TO_MONTH ;
  186.   end MKS ;
  187.  
  188.   function MKS ( ITEM : TIME_YEAR ) return TIME_SECOND is
  189.  
  190.   begin
  191.     return DIMENSION ( UNDIMENSION( ITEM )) / SECOND_TO_YEAR ;
  192.   end MKS ;
  193.  
  194.   function MKS ( ITEM : TIME_DECADE ) return TIME_SECOND is
  195.  
  196.   begin
  197.     return DIMENSION ( UNDIMENSION( ITEM )) / SECOND_TO_DECADE ;
  198.   end MKS ;
  199.  
  200.   function MKS ( ITEM : TIME_CENTURY ) return TIME_SECOND is
  201.  
  202.   begin
  203.     return DIMENSION ( UNDIMENSION( ITEM )) / SECOND_TO_CENTURY ;
  204.   end MKS ;
  205.  
  206.   function MKS ( ITEM : TIME_MILLENNIA ) return TIME_SECOND is
  207.  
  208.   begin
  209.     return DIMENSION ( UNDIMENSION( ITEM )) / SECOND_TO_MILLENNIA ;
  210.   end MKS ;
  211.  
  212.   function MKS ( ITEM : CHARGE_AMPERE_HOURS ) return CHARGE_COULOMB is
  213.  
  214.   begin
  215.     return DIMENSION ( UNDIMENSION( ITEM )) ;
  216.   end MKS ;
  217.  
  218.   function MKS ( ITEM : CHARGE_ELECTRON ) return CHARGE_COULOMB is
  219.  
  220.   begin
  221.     return DIMENSION ( UNDIMENSION( ITEM )) ;
  222.   end MKS ;
  223.  
  224.   function MKS ( ITEM : CHARGE_FARADAY ) return CHARGE_COULOMB is
  225.  
  226.   begin
  227.     return DIMENSION ( UNDIMENSION( ITEM )) ;
  228.   end MKS ;
  229.  
  230.   function MKS ( ITEM : TEMPERATURE_CENTIGRADE ) return TEMPERATURE_KELVIN is
  231.  
  232.   begin
  233.     return DIMENSION ( UNDIMENSION( ITEM )) ;
  234.   end MKS ;
  235.  
  236.   function MKS ( ITEM : TEMPERATURE_FARENHEIT ) return TEMPERATURE_KELVIN is
  237.  
  238.   begin
  239.     return DIMENSION ( UNDIMENSION( ITEM )) ;
  240.   end MKS ;
  241.  
  242.   function MKS ( ITEM : ANGLE_SECOND ) return ANGLE_RADIAN is
  243.  
  244.   begin
  245.     return DIMENSION ( UNDIMENSION( ITEM )) ;
  246.   end MKS ;
  247.  
  248.   function MKS ( ITEM : ANGLE_MINUTE ) return ANGLE_RADIAN is
  249.  
  250.   begin
  251.     return DIMENSION ( UNDIMENSION( ITEM )) ;
  252.   end MKS ;
  253.  
  254.   function MKS ( ITEM : ANGLE_DEGREE ) return ANGLE_RADIAN is
  255.  
  256.   begin
  257.     return DIMENSION ( UNDIMENSION( ITEM )) ;
  258.   end MKS ;
  259.  
  260.   function MKS ( ITEM : ANGLE_REVOLUTION ) return ANGLE_RADIAN is
  261.  
  262.   begin
  263.     return DIMENSION ( UNDIMENSION( ITEM )) ;
  264.   end MKS ;
  265.  
  266.   function MKS ( ITEM : ANGLE_BAM ) return ANGLE_RADIAN is
  267.  
  268.   begin
  269.     return DIMENSION ( UNDIMENSION( ITEM )) ;
  270.   end MKS ;
  271.  
  272.   function MKS ( ITEM : AREA_ENGLISH ) return AREA_MKS is
  273.  
  274.   begin
  275.     return DIMENSION ( UNDIMENSION( ITEM )) ;
  276.   end MKS ;
  277.  
  278.   function MKS ( ITEM : AREA_SQUARE_CENTIMETER ) return AREA_MKS is
  279.  
  280.   begin
  281.     return DIMENSION ( UNDIMENSION( ITEM )) ;
  282.   end MKS ;
  283.  
  284.   function MKS ( ITEM : AREA_SQUARE_KILOMETER ) return AREA_MKS is
  285.  
  286.   begin
  287.     return DIMENSION ( UNDIMENSION( ITEM )) ;
  288.   end MKS ;
  289.  
  290.   function MKS ( ITEM : AREA_HECTARE ) return AREA_MKS is
  291.  
  292.   begin
  293.     return DIMENSION ( UNDIMENSION( ITEM )) ;
  294.   end MKS ;
  295.  
  296.   function MKS ( ITEM : VOLUME_ENGLISH ) return VOLUME_MKS is
  297.  
  298.   begin
  299.     return DIMENSION ( UNDIMENSION( ITEM )) ;
  300.   end MKS ;
  301.  
  302.   function MKS ( ITEM : VOLUME_MILLILITER ) return VOLUME_MKS is
  303.  
  304.   begin
  305.     return DIMENSION ( UNDIMENSION( ITEM )) ;
  306.   end MKS ;
  307.  
  308.   function MKS ( ITEM : VOLUME_LITER ) return VOLUME_MKS is
  309.  
  310.   begin
  311.     return DIMENSION ( UNDIMENSION( ITEM )) ;
  312.   end MKS ;
  313.  
  314.   function MKS ( ITEM : VOLUME_KILOLITER ) return VOLUME_MKS is
  315.  
  316.   begin
  317.     return DIMENSION ( UNDIMENSION( ITEM )) ;
  318.   end MKS ;
  319.  
  320.   function MKS ( ITEM : VOLUME_CUBIC_CENTIMETER ) return VOLUME_MKS is
  321.  
  322.   begin
  323.     return DIMENSION ( UNDIMENSION( ITEM )) ;
  324.   end MKS ;
  325.  
  326.   function MKS ( ITEM : VELOCITY_ENGLISH ) return VELOCITY_MKS is
  327.  
  328.   begin
  329.     return DIMENSION ( UNDIMENSION( ITEM )) ;
  330.   end MKS ;
  331.  
  332.   function MKS ( ITEM : VELOCITY_CENTIMETER_PER_SECOND ) return VELOCITY_MKS
  333.       is
  334.  
  335.   begin
  336.     return DIMENSION ( UNDIMENSION( ITEM )) ;
  337.   end MKS ;
  338.  
  339.   function MKS ( ITEM : VELOCITY_KILOMETER_PER_HOUR ) return VELOCITY_MKS is
  340.  
  341.   begin
  342.     return DIMENSION ( UNDIMENSION( ITEM )) ;
  343.   end MKS ;
  344.  
  345.   function MKS ( ITEM : ACCELERATION_ENGLISH ) return ACCELERATION_MKS is
  346.  
  347.   begin
  348.     return DIMENSION ( UNDIMENSION( ITEM )) ;
  349.   end MKS ;
  350.  
  351.   function MKS ( ITEM : FORCE_DYNE ) return FORCE_MKS is
  352.  
  353.   begin
  354.     return DIMENSION ( UNDIMENSION( ITEM )) ;
  355.   end MKS ;
  356.  
  357.   function MKS ( ITEM : FORCE_ENGLISH ) return FORCE_MKS is
  358.  
  359.   begin
  360.     return DIMENSION ( UNDIMENSION( ITEM )) ;
  361.   end MKS ;
  362.  
  363.   function MKS ( ITEM : ENERGY_ERG ) return ENERGY_MKS is
  364.  
  365.   begin
  366.     return DIMENSION ( UNDIMENSION( ITEM )) ;
  367.   end MKS ;
  368.  
  369.   function MKS ( ITEM : ENERGY_GRAM_CALORIE ) return ENERGY_MKS is
  370.  
  371.   begin
  372.     return DIMENSION ( UNDIMENSION( ITEM )) ;
  373.   end MKS ;
  374.  
  375.   function MKS ( ITEM : ENERGY_KILOGRAM_CALORIE ) return ENERGY_MKS is
  376.  
  377.   begin
  378.     return DIMENSION ( UNDIMENSION( ITEM )) ;
  379.   end MKS ;
  380.  
  381.   function MKS ( ITEM : ENERGY_ENGLISH ) return ENERGY_MKS is
  382.  
  383.   begin
  384.     return DIMENSION ( UNDIMENSION( ITEM )) ;
  385.   end MKS ;
  386.  
  387.   function MKS ( ITEM : POWER_KILOGRAM_CALORIE_PER_SECOND ) return POWER_MKS
  388.       is
  389.  
  390.   begin
  391.     return DIMENSION ( UNDIMENSION( ITEM )) ;
  392.   end MKS ;
  393.  
  394.   function MKS ( ITEM : POWER_KILOGRAN_CALORIE_PER_MINUTE ) return POWER_MKS
  395.       is
  396.  
  397.   begin
  398.     return DIMENSION ( UNDIMENSION( ITEM )) ;
  399.   end MKS ;
  400.  
  401.   function MKS ( ITEM : POWER_HORSEPOWER_METRIC ) return POWER_MKS is
  402.  
  403.   begin
  404.     return DIMENSION ( UNDIMENSION( ITEM )) ;
  405.   end MKS ;
  406.  
  407.   function MKS ( ITEM : DENSITY_ENGLISH ) return DENSITY_MKS is
  408.  
  409.   begin
  410.     return DIMENSION ( UNDIMENSION( ITEM )) ;
  411.   end MKS ;
  412.  
  413.   function MKS ( ITEM : FLOW_RATE_ENGLISH ) return FLOW_RATE_MKS is
  414.  
  415.   begin
  416.     return DIMENSION ( UNDIMENSION( ITEM )) ;
  417.   end MKS ;
  418.  
  419.   function MKS ( ITEM : PRESSURE_ENGLISH ) return PRESSURE_MKS is
  420.  
  421.   begin
  422.     return DIMENSION ( UNDIMENSION( ITEM )) ;
  423.   end MKS ;
  424.  
  425.   function MKS ( ITEM : PRESSURE_ATMOSPHERE_STANDARD ) return PRESSURE_MKS is
  426.  
  427.   begin
  428.     return DIMENSION ( UNDIMENSION( ITEM )) ;
  429.   end MKS ;
  430.  
  431.   function MKS ( ITEM : PRESSURE_MILLIMETER_OF_MERCURY ) return PRESSURE_MKS
  432.       is
  433.  
  434.   begin
  435.     return DIMENSION ( UNDIMENSION( ITEM )) ;
  436.   end MKS ;
  437.  
  438.   function MKS ( ITEM : PRESSURE_BAR ) return PRESSURE_MKS is
  439.  
  440.   begin
  441.     return DIMENSION ( UNDIMENSION( ITEM )) ;
  442.   end MKS ;
  443.  
  444.   function MKS ( ITEM : PRESSURE_MILLIBAR ) return PRESSURE_MKS is
  445.  
  446.   begin
  447.     return DIMENSION ( UNDIMENSION( ITEM )) ;
  448.   end MKS ;
  449.  
  450.   function MKS ( ITEM : PRESSURE_TORR ) return PRESSURE_MKS is
  451.  
  452.   begin
  453.     return DIMENSION ( UNDIMENSION( ITEM )) ;
  454.   end MKS ;
  455.  
  456.   function MKS ( ITEM : CURRENT_MILLIAMPERE ) return CURRENT_AMPERE is
  457.  
  458.   begin
  459.     return DIMENSION ( UNDIMENSION( ITEM )) ;
  460.   end MKS ;
  461.  
  462.   function MKS ( ITEM : CURRENT_MICROAMPERE ) return CURRENT_AMPERE is
  463.  
  464.   begin
  465.     return DIMENSION ( UNDIMENSION( ITEM )) ;
  466.   end MKS ;
  467.  
  468.   function MKS ( ITEM : CURRENT_ABAMPERE ) return CURRENT_AMPERE is
  469.  
  470.   begin
  471.     return DIMENSION ( UNDIMENSION( ITEM )) ;
  472.   end MKS ;
  473.  
  474.   function MKS ( ITEM : CURRENT_STATAMPERE ) return CURRENT_AMPERE is
  475.  
  476.   begin
  477.     return DIMENSION ( UNDIMENSION( ITEM )) ;
  478.   end MKS ;
  479.  
  480.   function MKS ( ITEM : VOLTAGE_MILLIVOLT ) return VOLTAGE_VOLT is
  481.  
  482.   begin
  483.     return DIMENSION ( UNDIMENSION( ITEM )) ;
  484.   end MKS ;
  485.  
  486.   function MKS ( ITEM : VOLTAGE_MICROVOLT ) return VOLTAGE_VOLT is
  487.  
  488.   begin
  489.     return DIMENSION ( UNDIMENSION( ITEM )) ;
  490.   end MKS ;
  491.  
  492.   function MKS ( ITEM : VOLTAGE_KILOVOLT ) return VOLTAGE_VOLT is
  493.  
  494.   begin
  495.     return DIMENSION ( UNDIMENSION( ITEM )) ;
  496.   end MKS ;
  497.  
  498.   function MKS ( ITEM : RESISTANCE_MILLIOHM ) return RESISTANCE_OHM is
  499.  
  500.   begin
  501.     return DIMENSION ( UNDIMENSION( ITEM )) ;
  502.   end MKS ;
  503.  
  504.   function MKS ( ITEM : RESISTANCE_KILOHM ) return RESISTANCE_OHM is
  505.  
  506.   begin
  507.     return DIMENSION ( UNDIMENSION( ITEM )) ;
  508.   end MKS ;
  509.  
  510.   function MKS ( ITEM : RESISTANCE_MEGOHM ) return RESISTANCE_OHM is
  511.  
  512.   begin
  513.     return DIMENSION ( UNDIMENSION( ITEM )) ;
  514.   end MKS ;
  515.  
  516.   function MKS ( ITEM : CAPACITANCE_MICROFARAD ) return CAPACITANCE_FARAD is
  517.  
  518.   begin
  519.     return DIMENSION ( UNDIMENSION( ITEM )) ;
  520.   end MKS ;
  521.  
  522.   function MKS ( ITEM : CAPACITANCE_PICOFARAD ) return CAPACITANCE_FARAD is
  523.  
  524.   begin
  525.     return DIMENSION ( UNDIMENSION( ITEM )) ;
  526.   end MKS ;
  527.  
  528.   function MKS ( ITEM : INDUCTANCE_MILLIHENRY ) return INDUCTANCE_HENRY is
  529.  
  530.   begin
  531.     return DIMENSION ( UNDIMENSION( ITEM )) ;
  532.   end MKS ;
  533.  
  534.   function MKS ( ITEM : INDUCTANCE_MICROHENRY ) return INDUCTANCE_HENRY is
  535.  
  536.   begin
  537.     return DIMENSION ( UNDIMENSION( ITEM )) ;
  538.   end MKS ;
  539.  
  540.   function MKS ( ITEM : FREQUENCY_KILOHERTZ ) return FREQUENCY_HERTZ is
  541.  
  542.   begin
  543.     return DIMENSION ( UNDIMENSION( ITEM )) ;
  544.   end MKS ;
  545.  
  546.   function MKS ( ITEM : FREQUENCY_MEGAHERTZ ) return FREQUENCY_HERTZ is
  547.  
  548.   begin
  549.     return DIMENSION ( UNDIMENSION( ITEM )) ;
  550.   end MKS ;
  551.  
  552.   function MKS ( ITEM : FREQUENCY_GIGAHERTZ ) return FREQUENCY_HERTZ is
  553.  
  554.   begin
  555.     return DIMENSION ( UNDIMENSION( ITEM )) ;
  556.   end MKS ;
  557. end PHYSICAL_UNITS_CONVERSION_MKS ;
  558.