Programmer's ROM - The Computer Language Library/programmersrom.iso/ada/test/piwgc.src

Text File | 1988-05-03 | 521.3 KB | 16,673 lines

::::::::::
piwgc831.inc
::::::::::
--
-- PIWG TAPE_8_31_86, Part C
--
Z000001.ADA
Z000002.ADA
Z000003.ADA
Z000004.ADA
Z000005.ADA
Z000006.ADA
Z000007.ADA
Z000008.ADA
Z000009.ADA
Z000010.ADA
Z000011.ADA
Z000012.ADA
Z000013.ADA
Z000014.ADA
Z000015.ADA
Z000016.ADA
Z000016A.ADA
Z000017.ADA
Z000017A.ADA
Z000018.ADA
Z000020.ADA
Z000021.ADA
Z000022.ADA
Z000023.ADA
Z000110.ADA
Z000111.ADA
Z000111.COM
Z000111D.CLI
Z000111D.COM
Z000112.ADA
Z000113.ADA
Z000114.ADA
Z00011D.L86
Z000121.ADA
Z000122.ADA
Z000123.ADA
Z000124.ADA
Z000131.ADA
Z000132.ADA
Z000133.ADA
Z000134.ADA
Z000141.ADA
Z000142.ADA
Z000143.ADA
Z000151.ADA
Z000152.ADA
Z000153.ADA
Z000161.ADA
Z000162.ADA
Z000171.ADA
Z000172.ADA
Z000173.ADA
Z000181.ADA
Z000182.ADA
Z000183.ADA
Z000184.ADA
Z000191.ADA
Z000192.ADA
Z000193.ADA
::::::::::
Z000001.ADA
::::::::::
with TEXT_IO ; use TEXT_IO ;
package FLT_IO is new FLOAT_IO ( FLOAT ) ;
::::::::::
Z000002.ADA
::::::::::

package REFUNCT is

-- stripped down real functions package
-- this should work on any compiler on any computer

  function EXP10 ( X : FLOAT ) return FLOAT ;

  function "**" ( X , Y : FLOAT ) return FLOAT ;

  function LOG10 ( X : FLOAT ) return FLOAT ;

  function SQRT ( X : FLOAT ) return FLOAT ;

end REFUNCT ;

package body REFUNCT is

  function EXP10 ( X : FLOAT ) return FLOAT is
    C1 : constant FLOAT := 1.15129277603 ;
    C2 : constant FLOAT := 0.66273088429 ;
    C3 : constant FLOAT := 0.25439357484 ;
    C4 : constant FLOAT := 0.07295173666 ;
    C5 : constant FLOAT := 0.01742111988 ;
    C6 : constant FLOAT := 0.00255491796 ;
    C7 : constant FLOAT := 0.00093264267 ;
    X1 : FLOAT ;
    Y : FLOAT ;
    TEN_PWR : FLOAT ;
  begin
    X1 := abs ( X ) ;
    TEN_PWR := 1.0 ;
    while X1 >= 1.0 loop
      TEN_PWR := TEN_PWR * 10.0 ;
      X1 := X1 - 1.0 ;
    end loop ;
    Y := 1.0 + ( C1 +( C2 +( C3 +( C4 +( C5 +( C6 + C7 * X1 ) * X1) * X1) * X1
       ) * X1) * X1) * X1 ;
    Y := Y * Y * TEN_PWR ;
    if X < 0.0 then
      Y := 1.0 / Y ;
    end if ;
    return Y ;
  end EXP10 ;

  function "**" ( X , Y : FLOAT ) return FLOAT is
  begin
    if X = 0.0 then
      return 0.0 ;
    elsif Y = 0.0 then
      return 1.0 ;
    else
      return EXP10 ( Y * LOG10( X )) ;
    end if ;
  end "**" ;

  function LOG10 ( X : FLOAT ) return FLOAT is
    C1 : constant FLOAT := 0.868591718 ;
    C3 : constant FLOAT := 0.289335524 ;
    C5 : constant FLOAT := 0.177522071 ;
    C7 : constant FLOAT := 0.094376476 ;
    C9 : constant FLOAT := 0.191337714 ;
    C_R10 : constant FLOAT := 3.1622777 ;
    Y : FLOAT ;
    X_NORM : FLOAT ;
    X_LOG : FLOAT ;
    FRAC : FLOAT ;
    FRAC_2 : FLOAT ;
  begin
    X_LOG := 0.5 ;
    X_NORM := X ;
    if X >= 10.0 then
      while X_NORM >= 10.0  -- REDUCE TO 1.0 .. 10.0
          loop
        X_LOG := X_LOG + 1.0 ;
        X_NORM := X_NORM * 0.1 ;
      end loop ;
    else
      while X_NORM < 1.0  -- REDUCE TO 1.0 .. 10.0
          loop
        X_LOG := X_LOG - 1.0 ;
        X_NORM := X_NORM * 10.0 ;
      end loop ;
    end if ;
    FRAC := ( X_NORM - C_R10 ) / ( X_NORM + C_R10 ) ;
    FRAC_2 := FRAC * FRAC ;
    Y := ( C1 +( C3 +( C5 +( C7 + C9 * FRAC_2 ) * FRAC_2) * FRAC_2) * FRAC_2)
        * FRAC ;
    return Y + X_LOG ;
  end LOG10 ;

  function SQRT ( X : FLOAT ) return FLOAT is
    Y , ROOT_PWR , X_NORM : FLOAT ;
    A : constant FLOAT := 2.1902 ;
    B : constant FLOAT := - 3.0339 ;
    C : constant FLOAT := 1.5451 ;
  begin
    X_NORM := X ;
    ROOT_PWR := 1.0 ;
    if X > 1.0 then -- REDUCE TO 0.25 .. 1.0
      while X_NORM > 1.0 loop
        ROOT_PWR := ROOT_PWR * 2.0 ;
        X_NORM := X_NORM * 0.25 ;
      end loop ;
    else
      while X_NORM < 0.25 loop
        ROOT_PWR := ROOT_PWR * 0.5 ;
        X_NORM := X_NORM * 4.0 ;
      end loop ;
    end if ;
    Y := A + B / ( C + X_NORM ) ;
    Y := 0.5 * ( Y + X_NORM / Y ) ;
    Y := 0.5 * ( Y + X_NORM / Y ) ;
    Y := Y * ROOT_PWR ;
    return Y ;
  end SQRT ;

end REFUNCT ;
::::::::::
Z000003.ADA
::::::::::

-- The purpose of this package is to define an Ada type that has exactly
-- the operations that are valid for any physical quantity. This package
-- is then used by the packages that define many physical units. These
-- packages are used in turn by packages that define operators on physical
-- units that produce other physical units. Additional packages in this
-- set provide for outputting of physical units, conversions between
-- physical units, and other functions needed when working with physical
-- units.
--

package PHYSICAL_REAL is

  type REAL is private ;

--                Operators available for all types derived from REAL
--
--     implicit :    :=    =     /=
--
--
--             Physical quantities with the same units can be added
--             preserving their physical units.

  function "+" ( LEFT , RIGHT : REAL ) return REAL ;

--             Physical quantities with the same units can be subtracted
--             preserving their physical units.

  function "-" ( LEFT , RIGHT : REAL ) return REAL ;

--             Multiplying a physical quantity by itself does not produce
--             the same physical quantity and thus must not be allowed.
--             Multiplying a physical quantity by a non dimensional quantity
--             does preserve the units of the physical quantity.

  function "*" ( LEFT : FLOAT ;
                 RIGHT : REAL ) return REAL ;

  function "*" ( LEFT : REAL ;
                 RIGHT : FLOAT ) return REAL ;

--             Dividing a physical quantity by a non dimensional quantity
--             preserves the units of the physical quantity.

  function "/" ( LEFT : REAL ;
                 RIGHT : FLOAT ) return REAL ;

--             Dividing a physical quantity by itself produces
--             a non dimensional value.

  function "/" ( LEFT , RIGHT : REAL ) return FLOAT ;

--               The absolute value of a physical quantity retains the
--               same physical units.

  function "abs" ( LEFT : REAL ) return REAL ;

--             Equality and inequality are implicitly defined. The other
--             relational operators must be explicitly defined.

  function "<" ( LEFT , RIGHT : REAL ) return BOOLEAN ;

  function ">" ( LEFT , RIGHT : REAL ) return BOOLEAN ;

  function "<=" ( LEFT , RIGHT : REAL ) return BOOLEAN ;

  function ">=" ( LEFT , RIGHT : REAL ) return BOOLEAN ;

--              The primary purpose of this function for the user is
--              to make constants into values of a specific physical
--              unit.
--              The use of this function in the set of physics packages
--              is to apply the required Ada type to the result of a
--              non dimensional computation.

  function DIMENSION ( LEFT : FLOAT ) return REAL ;

--              The use of this function in the set of physics packages
--              is to take any physical quantity and get a non dimensional
--              value in the base floating point arithmetic type in order
--              to preform computation. This should not be needed by users
--              of the set of physics packages.

  function UNDIMENSION ( LEFT : REAL ) return FLOAT ;

--    For compilers that can make use of INLINE

  pragma INLINE ( "+" , "-" , "*" , "/" , "abs" , "<" , ">" , "<=" , ">=" ,
      DIMENSION , UNDIMENSION ) ;

--
private
  type REAL is new FLOAT ;
end PHYSICAL_REAL ;

package body PHYSICAL_REAL is

  function "+" ( LEFT , RIGHT : REAL ) return REAL is

  begin
    return REAL ( FLOAT( LEFT ) + FLOAT ( RIGHT )) ;
  end "+" ;

  function "-" ( LEFT , RIGHT : REAL ) return REAL is

  begin
    return REAL ( FLOAT( LEFT ) - FLOAT ( RIGHT )) ;
  end "-" ;

  function "*" ( LEFT : FLOAT ;
                 RIGHT : REAL ) return REAL is

  begin
    return REAL ( LEFT * FLOAT( RIGHT )) ;
  end "*" ;

  function "*" ( LEFT : REAL ;
                 RIGHT : FLOAT ) return REAL is

  begin
    return REAL ( FLOAT( LEFT ) * RIGHT) ;
  end "*" ;

  function "/" ( LEFT : REAL ;
                 RIGHT : FLOAT ) return REAL is

  begin
    return REAL ( FLOAT( LEFT ) / RIGHT) ;
  end "/" ;

  function "/" ( LEFT , RIGHT : REAL ) return FLOAT is

  begin
    return FLOAT ( LEFT ) / FLOAT ( RIGHT ) ;
  end "/" ;

  function "abs" ( LEFT : REAL ) return REAL is

  begin
    return REAL ( abs( FLOAT( LEFT ))) ;
  end "abs" ;

  function "<" ( LEFT , RIGHT : REAL ) return BOOLEAN is

  begin
    return FLOAT ( LEFT ) < FLOAT ( RIGHT ) ;
  end "<" ;

  function ">" ( LEFT , RIGHT : REAL ) return BOOLEAN is

  begin
    return FLOAT ( LEFT ) > FLOAT ( RIGHT ) ;
  end ">" ;

  function "<=" ( LEFT , RIGHT : REAL ) return BOOLEAN is

  begin
    return FLOAT ( LEFT ) <= FLOAT ( RIGHT ) ;
  end "<=" ;

  function ">=" ( LEFT , RIGHT : REAL ) return BOOLEAN is

  begin
    return FLOAT ( LEFT ) >= FLOAT ( RIGHT ) ;
  end ">=" ;

  function DIMENSION ( LEFT : FLOAT ) return REAL is

  begin
    return REAL ( LEFT ) ;
  end DIMENSION ;

  function UNDIMENSION ( LEFT : REAL ) return FLOAT is

  begin
    return FLOAT ( LEFT ) ;
  end UNDIMENSION ;

end PHYSICAL_REAL ;
::::::::::
Z000004.ADA
::::::::::
with PHYSICAL_REAL ; use PHYSICAL_REAL ;

package PHYSICAL_UNITS_BASIC is

-- This package specification defines Ada types for physical
-- quantities. A number of other packages use this package
-- specification in order to provide a comprehensive dimension
-- checking and units conversion system.
--
--              PHYSICAL QUANTITIES AND THEIR ASSOCIATED DIMENSIONS
--
--   Errors can occur in writing equations to solve problems in classical
--physics. Many of these errors can be prevented by performing a dimensionality
--check on the equations. All physical quantities have a fundamental dimension
--that is independent of the units of measurement. The basic physical dimensions
--are: length, mass, time, electrical charge, temperature and luminous intens-
--ity.There are a number of systems of units for measuring physical quantities.
--The MKS system is based on meter, kilogram, second  measurement.
--The CGS system is based on centimeter, gram, second  measurement.
--The English system is based on feet, pound, second  measurement.
--A few physical dimensions and the associated measurement unit in
--these three systems are :
--
--
--      Physical Quantity                           Unit System
--        Dimension                         MKS         CGS          English
--
--        length                            meter       centimeter   feet
--
--        mass                              kilogram    gram         pound mass
--
--        time                              second      second       second
--
--        force                             newton      dyne         poundal
--
--        energy                            joule       erg          B.t.u.
--
--
--   The checking of a physical equation has two aspects. The first is to check
--the dimensionality. The dimensionality is independent of the unit system. The
--second is to check that a consistent system of units is used in the equation.
--   An example of a dimensionality check is using the basic equation F=ma to
--determine that force has the dimension  mass x length / time squared, then
--              2
--check if  F=mv /r  is dimensionally correct. The check is performed by
--expanding the dimensions, e.g.  mass x (length/time) x (length/time) / length.
--with the dimensions expected for force from the basic equation F=ma. As
--expected, centripetal force has the same dimensionality as the force from
--Newton's second law of motion.
--
--                    THE ALGEBRA OF DIMENSIONALITY
--
--   The dimension of any physical quantity can be written as
--
--                  a   b   c   d   e   f
--                 L   M   T   Q   C   K
--
--where a,b,c,d,e and f are integers such as -4, -3, -2 , -1, 0, 1, 2, 3, 4
--and L is length, M is mass, T is time, Q is charge, C is luminous intensity
--and K is temperature. An exponent of zero means the dimension does not apply
--to the physical quantity. The normal rules of algebra for exponents apply
--for combining dimensions.
--
--   In order to add or subtract two physical quantities the quantities must
--have the same dimension. The resulting physical quantity has the same
--dimensions. Physical quantities with the same dimension in different
--systems of units can be added or subtracted by multiplying one of
--the quantities by a units conversion factor to obtain compatible units.
--
--   The multiplication of two physical quantities results in a new physical
--quantity that has the sum of the exponents of the dimensions of the initial
--two quantities.
--
--   The division of one physical quantity by another results in a new physical
--quantity that has the dimension of the exponents of the first quantity minus
--the exponents of the second quantity.
--
--   Taking the square root of a physical quantity results in a new physical
--quantity having a dimension with exponents half of the initial dimension.
--
--   Raising a physical quantity to a power results in a new physical quantity
--having a dimension with the exponents multiplied by the power.
--
--                                     2                2  2    2 -2
--          e.g. v has dimension L/T, v  has dimension L /T or L T
--
--   The derivative of a physical quantity with respect to another physical
--quantity results in a new physical quantity with the exponents of the
--first dimension minus the exponents of the other dimension.
--         e.g.  v has dimension L/T, t has dimension T,
--
--                                           2
--               then dv/dt has dimension L/T
--
--   The integral of a physical quantity over the range of another physical
--quantity results in a new physical quantity that has a dimension with the
--sum of the exponents of the two quantities.
--
--         e.g.  v has dimension L/T, t has dimension T,
--               then  integral v dt  has dimension  L/T * T or L
--
--
-- The initial thought was to have metric units and English units
-- in separate package specifications. This proved inpractical
-- because time in seconds is both metric and English. Many other
-- units such as watt of power and Farad of capacitance are in
-- both systems. A further impracticallity arose when considering
-- the design of a units system conversion package. e.g. A package
-- that would provide accurate conversion form meters to inches
-- to micrometers to light years. The one package specification became
-- so large that it was inefficient, so, in order to keep the size
-- reasonable, three packages were created. The basic units, the
-- mechanical units and the electrical units. Then a package
-- called other units came into existance for pragmatic reasons.
--
-- Notice that there is not a type called LENGTH because
-- adding length in meters to length in feet is not allowed.
-- Even LENGTH_METRIC and LENGTH_ENGLISH are not acceptable
-- because meters can not be added to centimeters and inches can
-- not be added to feet. Further complication arises because of
-- seconds of time and seconds of arc. There can be ounces of
-- milk ( liquid measure ) and ounces of sugar ( weight measure ).
-- There can be quarts of milk and quarts of strawberries ( dry
-- measure ). Thus the decision was made that every Ada type
-- would be a dimension name followed by a unit name.
--
-- Now, more choices had to be made. Unit names such as
--  DENSITY_KILOGRAM_PER_CUBIC_METER or DENSITY_TONS_PER_CUBIC_YARD
-- start getting long and there are many combinations. The number
-- of combinations for density are all the units of mass times all
-- the units of volume. Thus a subset of all possible units was
-- chosen with the additional short hand notation of _MKS for
-- the meter, kilogram, second system of units and the _ENGLISH for
-- the foot, pound, second system. Additional qualifiers are added
-- to clarify such as VOLUME_QUART_LIQUID and VOLUME_QUART_DRY.
--
-- Some other compromises were made:
--       Only a few units were entered as both singular and plural.
--       The choice of names is the authors. A committee could expand
--       the list. For example a meter can be a length or a distance,
--       length is used as the type and distance is a subtype.
--       A user may provide additional local subtype names for units
--       and thus has the full capability for alternate type names.
--
--   The comments below are organized to present the physical quantity name with
--associated information. The second column is one of the typical symbols used
--for the physical quantity. The third column is the dimension of the physical
--quantity expressed in terms of the fundamental dimensions. The fourth column
--is the name of the unit in the MKS measurement system. The fifth column
--is the typical MKS unit equation. An independent table presents conversion
--factors from the MKS measurement system to other measurement systems.
--   Physics developed over a period of many years by many people from a variety
--of disciplines. Thus, there is ambiguity and duplication of symbols.
--
--
--PHYSICAL QUANTITY         SYMBOL  DIMENSION   MEASUREMENT UNIT  UNIT EQUATION
--_________________         ______  _________   ________________  ______________
--
--
--                                  BASIC UNITS
--
--length                     s       L           meter              m
--wave length                lambda  "             "                "
--
  type LENGTH_MKS is new REAL ;
  subtype LENGTH_METER is LENGTH_MKS ;
  subtype LENGTH_METERS is LENGTH_MKS ;  -- This could be done for every type
  subtype DISTANCE_METER is LENGTH_MKS ;  -- with plurals and alias and
  subtype DISTANCE_METERS is LENGTH_MKS ;  -- plurals for the alias
  subtype WAVE_LENGTH_MKS is LENGTH_MKS ;
  subtype WAVE_LENGTH_METER is LENGTH_MKS ;
  type LENGTH_ENGLISH is new REAL ;
  subtype LENGTH_FOOT is LENGTH_ENGLISH ;
  subtype LENGTH_FEET is LENGTH_ENGLISH ;
  type LENGTH_PICOMETER is new REAL ;
  type LENGTH_NANOMETER is new REAL ;
  type LENGTH_MICROMETER is new REAL ;
  type LENGTH_MILLIMETER is new REAL ;
  type LENGTH_CENTIMETER is new REAL ;
  type LENGTH_DECIMETER is new REAL ;
  type LENGTH_DECAMETER is new REAL ;
  type LENGTH_HECTOMETER is new REAL ;
  type LENGTH_KILOMETER is new REAL ;
  type LENGTH_MEGAMETER is new REAL ;
  type LENGTH_GIGAMETER is new REAL ;
  type LENGTH_ANGSTROM is new REAL ;
  type LENGTH_MIL is new REAL ;
  type LENGTH_INCH is new REAL ;
  type LENGTH_YARD is new REAL ;
  type LENGTH_FATHOM is new REAL ;
  type LENGTH_ROD is new REAL ;
  type LENGTH_CHAIN_SURVEYOR is new REAL ;
  type LENGTH_CHAIN_ENGINEER is new REAL ;
  type LENGTH_FURLONG is new REAL ;
  type LENGTH_MILE is new REAL ;
  subtype LENGTH_MILE_STATUTE is LENGTH_MILE ;
  type LENGTH_MILE_NAUTICAL is new REAL ;
  type LENGTH_LEAGUE_LAND is new REAL ;
  type LENGTH_LEAGUE_MARINE is new REAL ;
  type LENGTH_LIGHT_YEAR is new REAL ;

--
--mass                       m       M           kilogram           Kg
--
  type MASS_MKS is new REAL ;
  subtype MASS_KILOGRAM is MASS_MKS ;
  type MASS_ENGLISH is new REAL ;
  subtype MASS_POUND is MASS_ENGLISH ;
  subtype MASS_POUND_AVDP is MASS_ENGLISH ;
  type MASS_POUND_TROY is new REAL ;
  subtype MASS_POUND_APOTHECARY is MASS_POUND_TROY ;
  type MASS_MILLIGRAM is new REAL ;
  type MASS_GRAM is new REAL ;
  type MASS_GRAIN is new REAL ; -- same inall English systems
  type MASS_PENNYWEIGHT_TROY is new REAL ;
  type MASS_CARAT_TROY is new REAL ;
  type MASS_SCRUPLE is new REAL ;
  type MASS_DRAM_AVDP is new REAL ;
  type MASS_OUNCE_AVDP is new REAL ;
  type MASS_OUNCE_TROY is new REAL ;
  type MASS_TON_SHORT is new REAL ;
  type MASS_TON_LONG is new REAL ;
  type MASS_TON_METRIC is new REAL ;

--
--time                       t       T           second             sec
--
  type TIME_SECOND is new REAL ;
  subtype TIME_SECONDS is TIME_SECOND ;
  type TIME_PICOSECOND is new REAL ;
  type TIME_NANOSECOND is new REAL ;
  type TIME_MICROSECOND is new REAL ;
  type TIME_MILLISECOND is new REAL ;
  type TIME_CENTISECOND is new REAL ;
  type TIME_KILOSECOND is new REAL ;
  type TIME_MEGASECOND is new REAL ;
  type TIME_GIGASECOND is new REAL ;
  type TIME_MINUTE is new REAL ;
  type TIME_HOUR is new REAL ;
  type TIME_DAY is new REAL ;
  type TIME_FORTNIGHT is new REAL ;
  type TIME_MONTH is new REAL ;
  type TIME_YEAR is new REAL ;
  type TIME_DECADE is new REAL ;
  type TIME_CENTURY is new REAL ;
  type TIME_MILLENNIA is new REAL ;

--
--electric charge            q       Q           coulomb            c
--  electric flux
--
  type CHARGE_COULOMB is new REAL ;
  subtype CHARGE_AMPERE_SECOND is CHARGE_COULOMB ;
  type CHARGE_AMPERE_HOURS is new REAL ;
  type CHARGE_ELECTRON is new REAL ;
  type CHARGE_FARADAY is new REAL ;

--
--luminous intensity         I       C           candle             cd
--
  type LUMINOUS_INTENSITY_CANDLE is new REAL ;

--                                                                  o
--temperature                T       K           degree kelvin       K
--
  type TEMPERATURE_KELVIN is new real ;
  type TEMPERATURE_CENTIGRADE is new REAL ;
  subtype TEMPERATURE_CELSIUS is TEMPERATURE_CENTIGRADE ;
  type TEMPERATURE_FARENHEIT is new REAL ;

--
--angle                      theta   none        radian             none
--
  type ANGLE_RADIAN is new REAL ;
  subtype ANGLE_RADIANS is ANGLE_RADIAN ;
  subtype PLANE_ANGLE_RADIANS is ANGLE_RADIAN ;
  type ANGLE_SECOND is new REAL ;
  type ANGLE_MINUTE is new REAL ;
  type ANGLE_DEGREE is new REAL ;
  type ANGLE_REVOLUTION is new REAL ;
  type ANGLE_BAM is new REAL ;

--
--solid angle                phi     none        steradian          none
--
  type SOLID_ANGLE_STERADIAN is new REAL ;
--
end PHYSICAL_UNITS_BASIC ;
::::::::::
Z000005.ADA
::::::::::
with PHYSICAL_REAL ; use PHYSICAL_REAL ;

package PHYSICAL_UNITS_MECHANICAL is

-- This package specification defines Ada types for physical
-- quantities generally in the mechanical context.
--
-- This package is the logical continuation of PHYSICAL_UNITS_BASIC
--
--
--                                 DERIVED MECHANICAL UNITS
--
--
--                                    2                              2
--area                       A       L           square meter       m
--
  type AREA_MKS is new REAL ;
  subtype AREA_SQUARE_METER is AREA_MKS ;
  subtype AREA_SQUARE_METERS is AREA_MKS ;
  type AREA_ENGLISH is new REAL ;
  subtype AREA_SQUARE_FEET is AREA_ENGLISH ;
  subtype AREA_SQUARE_FOOT is AREA_ENGLISH ;
  type AREA_SQUARE_CENTIMETER is new REAL ;
  type AREA_SQUARE_KILOMETER is new REAL ;
  type AREA_SQUARE_INCH is new REAL ;
  type AREA_SQUARE_YARD is new REAL ;
  type AREA_SQUARE_MILE is new REAL ;
  type AREA_ACRE is new REAL ;
  type AREA_CIRCULAR_MIL is new REAL ;
  type AREA_HECTARE is new REAL ;
  type AREA_TOWNSHIP is new REAL ;

--
--                                    3                              3
--volume                     V       L           stere              m
--
  type VOLUME_MKS is new REAL ;
  subtype VOLUME_STERE is VOLUME_MKS ;
  subtype VOLUME_CUBIC_METER is VOLUME_MKS ;
  type VOLUME_ENGLISH is new REAL ;
  subtype VOLUME_CUBIC_FEET is VOLUME_ENGLISH ;
  type VOLUME_MILLILITER is new REAL ;
  type VOLUME_LITER is new REAL ;
  type VOLUME_KILOLITER is new REAL ;
  type VOLUME_CUBIC_CENTIMETER is new REAL ;
  type VOLUME_CUBIC_INCH is new REAL ;
  type VOLUME_CUBIC_YARD is new REAL ;
  type VOLUME_CUBIC_MILE is new REAL ;
  type VOLUME_TEASPOON is new REAL ;
  type VOLUME_TABLESPOON is new REAL ;
  type VOLUME_OUNCE_FLUID is new REAL ;
  type VOLUME_JIGGER is new REAL ;
  type VOLUME_CUP is new REAL ;
  type VOLUME_PINT_LIQUID is new REAL ;
  type VOLUME_QUART_LIQUID is new REAL ;
  type VOLUME_GALLON is new REAL ;
  type VOLUME_KEG is new REAL ;
  type VOLUME_BARREL is new REAL ;
  type VOLUME_PINT_DRY is new REAL ;
  type VOLUME_QUART_DRY is new REAL ;
  type VOLUME_PECK is new REAL ;
  type VOLUME_BUSHEL is new REAL ;
  type VOLUME_CORD is new REAL ;

--
--velocity                   v       L/T         meter per second   m/sec
--
  type VELOCITY_MKS is new REAL ;
  subtype VELOCITY_METER_PER_SECOND is VELOCITY_MKS ;
  type VELOCITY_ENGLISH is new REAL ;
  subtype VELOCITY_FEET_PER_SECOND is VELOCITY_ENGLISH ;
  type VELOCITY_CENTIMETER_PER_SECOND is new REAL ;
  type VELOCITY_KILOMETER_PER_HOUR is new REAL ;
  type VELOCITY_INCHES_PER_SECOND is new REAL ;
  type VELOCITY_MILE_PER_HOUR is new REAL ;
  type VELOCITY_MILES_PER_SECOND is new REAL ;
  type VELOCITY_INCHES_PER_MINUTE is new REAL ;
  type VELOCITY_FEET_PER_MINUTE is new REAL ;
  type VELOCITY_MILES_PER_HOUR is new REAL ;
  type VELOCITY_KNOTS is new REAL ;
  type VELOCITY_FURLONG_PER_FORTNIGHT is new REAL ;

--
--angular velocity           omega   1/T         radians per second 1/sec
--
  type ANGULAR_VELOCITY is new REAL ;
  subtype ANGULAR_VELOCITY_RADIANS_PER_SECOND is ANGULAR_VELOCITY ;
  type ANGULAR_VELOCITY_DEGREES_PER_SECOND is new REAL ;
  type ANGULAR_VELOCITY_REVOLUTIONS_PER_MINUTE is new REAL ;
  type ANGULAR_VELOCITY_REVOLUTIONS_PER_SECOND is new REAL ;

--
--                                      2                                2
--acceleration               a       L/T         meter per second   m/sec
--                                               squared
--
  type ACCELERATION_MKS is new REAL ;
  subtype ACCELERATION_METER_PER_SECOND_SQUARED is ACCELERATION_MKS ;
  type ACCELERATION_ENGLISH is new REAL ;
  subtype ACCELERATION_FEET_PER_SECOND_SQUARED is ACCELERATION_ENGLISH ;

--
--                                      2                                2
--angular acceleration       alpha   1/T         radians per        1/sec
--                                               square second
--
  type ANGULAR_ACCELERATION is new REAL ;
  subtype ANGULAR_ACCELERATION_RADIANS_PER_SECOND_SQUARED is
                 ANGULAR_ACCELERATION ;
  type ANGULAR_ACCELERATION_REVOLUTIONS_PER_MINUTE_SQUARED is new REAL ;

--
--                                       2                                  2
--force                      F       ML/T        newton             Kg m/sec
--
  type FORCE_MKS is new REAL ;
  subtype FORCE_NEWTON is FORCE_MKS ;
  subtype FORCE_KILOGRAM_METER_PER_SECOND_SQUARED is FORCE_MKS ;
  type FORCE_DYNE is new REAL ;
  type FORCE_ENGLISH is new REAL ;
  subtype FORCE_POUNDAL is FORCE_ENGLISH ;
  subtype FORCE_POUND_FOOT_PER_PER_SECOND_SQUARED is FORCE_ENGLISH ;

--
--                                     2  2                             2    2
--energy                     E       ML /T       joule              Kg m /sec
--work                       W         "           "                   "
--heat                       Q         "           "                   "
--torque (moment)            T         "         newton meter          "
--
  type ENERGY_MKS is new REAL ;
  subtype WORK_MKS is ENERGY_MKS ;
  subtype HEAT_MKS is ENERGY_MKS ;
  subtype TORQUE_MKS is ENERGY_MKS ;
  subtype ENERGY_JOULE is ENERGY_MKS ;
  subtype ENERGY_NEWTON_METER is ENERGY_MKS ;
  subtype ENERGY_KILOGRAM_METER_SQUARED_PER_SECOND_SQUARED is ENERGY_MKS ;
  type ENERGY_ERG is new REAL ;
  type ENERGY_GRAM_CALORIE is new REAL ;
  type ENERGY_KILOGRAM_CALORIE is new REAL ;
  type ENERGY_ENGLISH is new REAL ;
  subtype ENERGY_B_T_U is ENERGY_ENGLISH ;
  type ENERGY_FOOT_POUND is new REAL ;
  type ENERGY_KILOWATT_HOUR is new REAL ;
  type ENERGY_HORSEPOWER_HOUR is new REAL ;

--
--                                     2  3
--power                      P       ML /T       watt               joule/sec
--
  type POWER_MKS is new REAL ;
  subtype POWER_WATT is POWER_MKS ;
  subtype POWER_JOULE_PER_SECOND is POWER_MKS ;
  subtype POWER_VOLT_AMPERE is POWER_MKS ;
  type POWER_KILOGRAM_CALORIE_PER_SECOND is new REAL ;
  type POWER_KILOGRAN_CALORIE_PER_MINUTE is new REAL ;
  type POWER_HORSEPOWER_MECHANICAL is new REAL ;
  type POWER_HORSEPOWER_ELECTRICAL is new REAL ;
  type POWER_HORSEPOWER_METRIC is new REAL ;
  type POWER_HORSEPOWER_BOILER is new REAL ;
  type POWER_B_T_U_PER_MINUTE is new REAL ;
  type POWER_B_T_U_PER_HOUR is new REAL ;
  type POWER_FOOT_POUND_PER_MINUTE is new REAL ;
  type POWER_FOOT_POUND_PER_SECOND is new REAL ;

--
--                                      3                               3
--density                    D       M/L         kilogram per       Kg/m
--                                               cubic meter
--
  type DENSITY_MKS is new REAL ;
  subtype DENSITY_KILOGRAM_PER_CUBIC_METER is DENSITY_MKS ;
  type DENSITY_ENGLISH is new REAL ;
  subtype DENSITY_POUND_PER_CUBIC_FOOT is DENSITY_ENGLISH ;

--
--                                    3                              3
--flow rate                  f       L /T        cubic meter per    m /sec
--                                               second
--
  type FLOW_RATE_MKS is new REAL ;
  subtype FLOW_RATE_CUBIC_METER_PER_SECOND is FLOW_RATE_MKS ;
  type FLOW_RATE_ENGLISH is new REAL ;
  subtype FLOW_RATE_CUBIC_FEET_PER_SECOND is FLOW_RATE_ENGLISH ;
  type FLOW_RATE_GALLON_PER_MINUTE is new REAL ;
  type FLOW_RATE_CUBIC_FEET_PER_MINUTE is new REAL ;

--
--                                       2                                  2
--pressure                   P       M/LT        pascal             Kg/m sec
-- stress                                        newton per
-- energy density                                square meter
--
  type PRESSURE_MKS is new REAL ;
  subtype PRESSURE_PASCAL is PRESSURE_MKS ;
  subtype PRESSURE_NEWTON_PER_SQUARE_METER is PRESSURE_MKS ;
  subtype PRESSURE_FORCE_PER_AREA_MKS is PRESSURE_MKS ;
  subtype PRESSURE_JOULE_PER_CUBIC_METER is PRESSURE_MKS ;
  subtype PRESSURE_ENERGY_DENSITY_MKS is PRESSURE_MKS ;
  type PRESSURE_ENGLISH is new REAL ;
  subtype PRESSURE_POUND_PER_SQUARE_FOOT is PRESSURE_ENGLISH ;
  type PRESSURE_TON_PER_SQUARE_FOOT is new REAL ;
  type PRESSURE_ATMOSPHERE_STANDARD is new REAL ;
  type PRESSURE_FEET_OF_WATER is new REAL ;
  type PRESSURE_INCHES_OF_MERCURY is new REAL ;
  type PRESSURE_MILLIMETER_OF_MERCURY is new REAL ;
  type PRESSURE_BAR is new REAL ;
  type PRESSURE_MILLIBAR is new REAL ;
  type PRESSURE_TORR is new REAL ;

--
--momentum                   p       ML/T        newton second       Kg m/sec
--
  type MOMENTUM_MKS is new REAL ;
  subtype MOMENTUM_NEWTON_SECOND is MOMENTUM_MKS ;
  subtype MOMENTUM_KILOGRAM_METER_PER_SECOND is MOMENTUM_MKS ;

--
--                                     2                                2
--inertia                    I       ML /T       joule second       Kg m /sec
--
  type INERTIA_MKS is new REAL ;
  subtype INERTIA_JOULE_SECOND is INERTIA_MKS ;
  subtype INERTIA_KILOGRAM_METER_SQUARED_PER_SECOND is INERTIA_MKS ;

--
--                                     2                                2
--moment of inertia          M       ML          kilogram           Kg m
--                                               meter squared
--
  type MOMENT_OF_INERTIA_MKS is new REAL ;
  subtype MOMENT_OF_INERTIA_KILOGRAM_METER_SQUARED is MOMENT_OF_INERTIA_MKS ;

--
--                                    2                                2
--kinematic viscosity        v       M /T        kilogram squared    Kg /sec
--                                               per second
--
  type KINEMATIC_VISCOSITY_MKS is new REAL ;
  subtype KINEMATIC_VISCOSITY_KILOGRAM_SQUARED_PER_SECOND is
          KINEMATIC_VISCOSITY_MKS ;
--
--dynamic viscosity          d       M/LT        newton second       Kg/m sec
--                                               per square meter
--
  type DYNAMIC_VISCOSITY_MKS is new REAL ;
  subtype DYNAMIC_VISCOSITY_NEWTON_PER_SQUARE_METER is DYNAMIC_VISCOSITY_MKS ;
  subtype DYNAMIC_VISCOSITY_KILOGRAM_PER_METER_SECOND is DYNAMIC_VISCOSITY_MKS ;
--
--
--luminous flux              phi     C           lumen (4Pi candle   cd sr
--                                               for point source)
--
  type LUMINOUS_FLUX_LUMEN is new REAL ;

--
--                                      2                                   2
--illumination               E       C/L         lumen per           cd sr/m
--                                               square meter
--
  type ILLUMINATION_MKS is new REAL ;
  subtype ILLUMINATION_LUMEN_PER_SQUARE_METER is ILLUMINATION_MKS ;

--
--                                      2                                 2
--luminance                  l       C/L         lux                  cd/m
--                                               square meter
--
  type LUMINANCE_MKS is new REAL ;
  subtype LUMINANCE_LUX is LUMINANCE_MKS ;
  subtype LUMINANCE_CANDLE_PER_SQUARE_METER is LUMINANCE_MKS ;

--
--
--                                     2  2                             2
--entropy                    S       ML /T K     joule per degree   Kg m /
--                                                                      2 o
--                                                                   sec   K
--
  type ENTROPY_MKS is new REAL ;
  subtype SPECIFIC_HEAT_MKS is ENTROPY_MKS ;
  subtype SPECIFIC_HEAT_JOULE_PER_DEGREE_KELVIN is ENTROPY_MKS ;
  type SPECIFIC_HEAT_B_T_U_PER_POUND_DEGREE_FARENHEIT is new REAL ;

--
end PHYSICAL_UNITS_MECHANICAL ;
::::::::::
Z000006.ADA
::::::::::
with PHYSICAL_REAL ; use PHYSICAL_REAL ;

package PHYSICAL_UNITS_ELECTRICAL is

-- This package specification defines Ada types for physical
-- quantities related to electrical units. It ia a logical
-- extension of PHYSICAL_UNITS_MECHANICAL .
--
--
--
--                                  DERIVED ELECTRICAL
--
--electric current           I       Q/T         ampere             c/sec
--  magnetomotive force

  type CURRENT_AMPERE is new REAL ;
  type CURRENT_MILLIAMPERE is new REAL ;
  type CURRENT_MICROAMPERE is new REAL ;
  type CURRENT_ABAMPERE is new REAL ;
  type CURRENT_STATAMPERE is new REAL ;

--
--                                     2  2                             2    2
--voltage                    E       ML /T Q     volt               Kg m /sec c
--  potential difference
--  electromotive force

  type VOLTAGE_VOLT is new REAL ;
  type VOLTAGE_MILLIVOLT is new REAL ;
  type VOLTAGE_MICROVOLT is new REAL ;
  type VOLTAGE_KILOVOLT is new REAL ;

--
--                                     2   2                            2      2
--electric resistance        R       ML /TQ      ohm                Kg m /sec c
--
  type RESISTANCE_OHM is new REAL ;
  type RESISTANCE_MILLIOHM is new REAL ;
  type RESISTANCE_KILOHM is new REAL ;
  type RESISTANCE_MEGOHM is new REAL ;

--
--                                     3   2                            3      2
--electric resistivity       rho     ML /TQ     ohm meter           Kg m /sec c
--
  type RESISTIVITY_OHM_METER is new REAL ;

--
--                                     2   2                             2     2
--electric conductance       G       TQ /ML      mho                sec c /Kg m
--
  type CONDUCTANCE_MHO is new REAL ;

--
--                                     2   3                             2     3
--conductivity               sigma   TQ /ML      mho per meter      sec c /Kg m
--
  type CONDUCTIVITY_MHO_PER_METER is new REAL ;

--
--
--                                    2 2   2                          2 2     2
--capacitance                C       T Q /ML     farad              sec c /Kg m
--
  type CAPACITANCE_FARAD is new REAL ;
  type CAPACITANCE_MICROFARAD is new REAL ;
  type CAPACITANCE_PICOFARAD is new REAL ;

--
--
--                                     2  2                             2  2
--inductance                 L       ML /Q       henry              Kg m /c
--                                               weber per ampere
--                                               volt second per ampere

--
  type INDUCTANCE_HENRY is new REAL ;
  type INDUCTANCE_MILLIHENRY is new REAL ;
  type INDUCTANCE_MICROHENRY is new REAL ;

--
--                                       2                                 2
--current density            J       Q/TL        ampere per         c/sec m
--                                               square meter
--
  type CURRENT_DENSITY_AMPERE_PER_SQUARE_METER is new REAL ;

--
--                                      3                              3
--charge density             rho     Q/L         coulomb per        c/m
--                                               cubic meter
--
  type CHARGE_DENSITY_COULOMB_PER_CUBIC_METER is new REAL ;

--                                     2                                2
--magnetic flux              F       ML /TQ      weber              Kq m /sec c
--                                               volt second
--
  type MAGNETIC_FLUX_WEBER is new REAL ;

--
--magnetic flux density,     B       M/TQ        tesla              Kq/sec c
--   magnetic induction                          weber per square meter
--
  type MAGNETIC_FLUX_DENSITY is new REAL ;
  subtype MAGNETIC_FLUX_DENSITY_TESLA is MAGNETIC_FLUX_DENSITY ;
  subtype MAGNETIC_FLUX_DENSITY_WEBER_PER_SQUARE_METER is
          MAGNETIC_FLUX_DENSITY ;

--
--magnetic intensity         H       Q/LT        ampere per meter   c/m sec
--  magnetic field strength
--
  type MAGNETIC_INTENSITY is new REAL ;
  subtype MAGNETIC_INTENSITY_AMPERE_PER_METER is MAGNETIC_INTENSITY ;

--
--
--magnetic vector potential  A       ML/TQ       weber/meter        Kg m/sec c
--
  type MAGNETIC_VECTOR_POTENTIAL_WEBER_PER_METER is new REAL ;

--
--                                       2                                  2
--electric field intensity   E       ML/T Q      volt/meter         Kg m/sec c
--  electric field strength                      newton per coulomb
--
  type ELECTRIC_FIELD is new REAL ;
  subtype ELECTRIC_FIELD_INTENSITY_VOLT_PER_METER is
          ELECTRIC_FIELD ;

--
--                                      2                              2
--electric displacement      D       Q/L         coulomb per        c/m
--                                               square meter
--
  type ELECTRIC_DISPLACEMENT is new REAL ;
  subtype ELECTRIC_DISPLACEMENT_COULOMB_PER_SQUARE_METER is
          ELECTRIC_DISPLACEMENT ;

--
--                                       2                                2
--permeability               mu      ML/Q        henry per meter    Kg m/c
--
  type PERMEABILITY is new REAL ;
  subtype PERMEABILITY_HENRY_PER_METER is PERMEABILITY ;

--
--                                    2 2   3                          2 2     3
--permittivity,              epsi    T Q /ML     farad per meter    sec c /Kg m
--  dielectric constant
--
  type PERMITTIVITY is new REAL ;
  subtype PERMITTIVITY_FARAD_PER_METER is PERMITTIVITY ;
  subtype DIELECTRIC_CONSTANT is PERMITTIVITY ;

--
--                                                                     -1
--frequency                  f       Pi/T        hertz              sec
--
  type FREQUENCY_HERTZ is new REAL ;
  type FREQUENCY_KILOHERTZ is new REAL ;
  type FREQUENCY_MEGAHERTZ is new REAL ;
  type FREQUENCY_GIGAHERTZ is new REAL ;

--
--                                                                     -1
--angular frequency          omega   1/T         radians per second sec
--
  type ANGULAR_FREQUENCY_RADIAN_PER_SECOND is new REAL ;

--
end PHYSICAL_UNITS_ELECTRICAL ;
::::::::::
Z000007.ADA
::::::::::
with PHYSICAL_REAL ; use PHYSICAL_REAL ;

package PHYSICAL_UNITS_OTHER is

-- This package specification defines Ada types for physical
-- units that occur as intermediate results.
-- A number of other packages use this package.
--
--
--   The comments below are organized to present the physical quantity unit with
--associated information. The first column is the dimension of the physical
--quantity expressed in terms of the fundamental dimensions. The second column
--is the typical MKS unit equation.
--
-- DIMENSION   UNIT EQUATION
-- _________   _____________
--
--                TYPES NEEDED FOR COMPUTATIONS
--
--    2            2
--   T          sec
  type TIME_SECOND_SQUARED is new REAL ;

--
--   2  2        2    2
--  L /T        m /sec
  type VELOCITY_SQUARED_MKS is new REAL ;
  subtype VELOCITY_MKS_SQUARED is VELOCITY_SQUARED_MKS ;

--    2  2            o
--  ML /T K     joule/ K
  type JOULE_PER_DEGREE_KELVIN is new REAL ;

--
--    3  2 2
--  ML /T Q     m/farad
  type METER_PER_FARAD is new REAL ;

--
--   2 4  4 2       2
--  M L /T Q    volt
  type VOLT_SQUARED  is new REAL ;

--
--   2  2             2
--  Q /T        ampere
  type AMPERE_SQUARED is new REAL ;

--
--     2
--  Q/T         ampere/sec
  type AMPERE_PER_SECOND is new REAL ;

--
--    2  3
--  ML /T Q     volt/sec
  type VOLT_PER_SECOND is new REAL ;

--
--   2   2
--  L /MT
  type ACCELERATION_PER_KILOGRAM is new REAL ;

--
end PHYSICAL_UNITS_OTHER ;
::::::::::
Z000008.ADA
::::::::::
with PHYSICAL_UNITS_BASIC ; use PHYSICAL_UNITS_BASIC ;
with PHYSICAL_UNITS_MECHANICAL ; use PHYSICAL_UNITS_MECHANICAL ;
with PHYSICAL_UNITS_OTHER ; use PHYSICAL_UNITS_OTHER ;

-- This package defines operators needed to evaluate equations of
-- physics using dimensional and units checking. Only MKS units
-- are used. A conversion package is available to convert from
-- other metric units and English units to the MKS units.
--
-- This package is not complete. Completeness would imply all
-- possible operators that combine physical dimensions and yeild
-- other physical dimensions. Users can provide local definitions
-- or this package can be augmented.
--

package MKS_PHYSICS_MECHANICAL is

  function "*" ( LEFT , RIGHT : LENGTH_MKS ) return AREA_MKS ;

  function SQRT ( LEFT : AREA_MKS ) return LENGTH_MKS ;

  function "**" ( LEFT : LENGTH_MKS ;
                  RIGHT : INTEGER ) return AREA_MKS ;

  function "**" ( LEFT : LENGTH_MKS ;
                  RIGHT : INTEGER ) return VOLUME_MKS ;

  function "*" ( LEFT : AREA_MKS ;
                 RIGHT : LENGTH_MKS ) return VOLUME_MKS ;

  function "*" ( LEFT : LENGTH_MKS ;
                 RIGHT : AREA_MKS ) return VOLUME_MKS ;

  function CUBE_ROOT ( LEFT : VOLUME_MKS ) return LENGTH_MKS ;

  function "/" ( LEFT : VOLUME_MKS ;
                 RIGHT : LENGTH_MKS ) return AREA_MKS ;

  function "/" ( LEFT : LENGTH_MKS ;
                 RIGHT : TIME_SECOND ) return VELOCITY_MKS ;

  function "/" ( LEFT : LENGTH_MKS ;
                 RIGHT : TIME_SECOND_SQUARED ) return ACCELERATION_MKS ;

  function "*" ( LEFT , RIGHT : TIME_SECOND ) return TIME_SECOND_SQUARED ;

  function "**" ( LEFT : TIME_SECOND ;
                  RIGHT : INTEGER ) return TIME_SECOND_SQUARED ;

  function "**" ( LEFT : VELOCITY_MKS ;
                  RIGHT : INTEGER ) return VELOCITY_SQUARED_MKS ;

  function SQRT ( LEFT : TIME_SECOND_SQUARED ) return TIME_SECOND ;

  function "*" ( LEFT , RIGHT : VELOCITY_MKS ) return VELOCITY_SQUARED_MKS ;

  function SQRT ( LEFT : VELOCITY_SQUARED_MKS ) return VELOCITY_MKS ;

  function "*" ( LEFT : ACCELERATION_MKS ;
                 RIGHT : TIME_SECOND_SQUARED ) return LENGTH_MKS ;

  function "/" ( LEFT : LENGTH_MKS ;
                 RIGHT : ACCELERATION_MKS ) return TIME_SECOND_SQUARED ;

  function "*" ( LEFT : ACCELERATION_MKS ;
                 RIGHT : LENGTH_MKS ) return VELOCITY_SQUARED_MKS ;

  function "*" ( LEFT : LENGTH_MKS ;
                 RIGHT : ACCELERATION_MKS ) return VELOCITY_SQUARED_MKS ;

  function "*" ( LEFT : ACCELERATION_MKS ;
                 RIGHT : TIME_SECOND ) return VELOCITY_MKS ;

  function "*" ( LEFT : TIME_SECOND ;
                 RIGHT : ACCELERATION_MKS ) return VELOCITY_MKS ;

  function "*" ( LEFT : MASS_MKS ;
                 RIGHT : ACCELERATION_MKS ) return FORCE_MKS ;

  function "*" ( LEFT : ACCELERATION_MKS ;
                 RIGHT : MASS_MKS ) return FORCE_MKS ;

  function "*" ( LEFT : PRESSURE_MKS ;
                 RIGHT : AREA_MKS ) return FORCE_MKS ;

  function "*" ( LEFT : AREA_MKS ;
                 RIGHT : PRESSURE_MKS ) return FORCE_MKS ;

  function "/" ( LEFT : POWER_MKS ;
                 RIGHT : VELOCITY_MKS ) return FORCE_MKS ;

  function "/" ( LEFT : ENERGY_MKS ;
                 RIGHT : LENGTH_MKS ) return FORCE_MKS ;

  function "*" ( LEFT : PRESSURE_MKS ;
                 RIGHT : VOLUME_MKS ) return ENERGY_MKS ;

  function "*" ( LEFT : VOLUME_MKS ;
                 RIGHT : PRESSURE_MKS ) return ENERGY_MKS ;

  function "*" ( LEFT : FORCE_MKS ;
                 RIGHT : LENGTH_MKS ) return ENERGY_MKS ;

  function "*" ( LEFT : LENGTH_MKS ;
                 RIGHT : FORCE_MKS ) return ENERGY_MKS ;

  function "*" ( LEFT : MASS_MKS ;
                 RIGHT : VELOCITY_SQUARED_MKS ) return ENERGY_MKS ;

  function "*" ( LEFT : VELOCITY_SQUARED_MKS ;
                 RIGHT : MASS_MKS ) return ENERGY_MKS ;

  function "*" ( LEFT : POWER_MKS ;
                 RIGHT : TIME_SECOND ) return ENERGY_MKS ;

  function "*" ( LEFT : TIME_SECOND ;
                 RIGHT : POWER_MKS ) return ENERGY_MKS ;

  function "*" ( LEFT : FORCE_MKS ;
                 RIGHT : VELOCITY_MKS ) return POWER_MKS ;

  function "*" ( LEFT : VELOCITY_MKS ;
                 RIGHT : FORCE_MKS ) return POWER_MKS ;

  function "/" ( LEFT : ENERGY_MKS ;
                 RIGHT : TIME_SECOND ) return POWER_MKS ;


  pragma INLINE ( "*", "/" , "**", SQRT ) ;

end MKS_PHYSICS_MECHANICAL ;

with REFUNCT ; use REFUNCT ;
with PHYSICAL_REAL ; use PHYSICAL_REAL ;

package body MKS_PHYSICS_MECHANICAL is

  function "*" ( LEFT , RIGHT : LENGTH_MKS ) return AREA_MKS is

  begin
    return AREA_MKS'  --
        ( DIMENSION( UNDIMENSION( LEFT ) * UNDIMENSION ( RIGHT ))) ;
  end "*" ;

  function SQRT ( LEFT : AREA_MKS ) return LENGTH_MKS is

  begin
    return LENGTH_MKS' ( DIMENSION( SQRT( UNDIMENSION( LEFT )))) ;
  end SQRT ;

  function "**" ( LEFT : LENGTH_MKS ;
                  RIGHT : INTEGER ) return AREA_MKS is

  begin
    if RIGHT /= 2 then
      raise NUMERIC_ERROR ;
    end if ;
    return AREA_MKS'  --
        ( DIMENSION( UNDIMENSION( LEFT ) * UNDIMENSION ( LEFT ))) ;
  end "**" ;

  function "**" ( LEFT : LENGTH_MKS ;
                  RIGHT : INTEGER ) return VOLUME_MKS is

  begin
    if RIGHT /= 3 then
      raise NUMERIC_ERROR ;
    end if ;
    return VOLUME_MKS'  --
        ( DIMENSION( UNDIMENSION( LEFT ) * UNDIMENSION ( LEFT ) * UNDIMENSION
        ( LEFT ))) ;
  end "**" ;

  function "*" ( LEFT : AREA_MKS ;
                 RIGHT : LENGTH_MKS ) return VOLUME_MKS is

  begin
    return VOLUME_MKS'  --
        ( DIMENSION( UNDIMENSION( LEFT ) * UNDIMENSION ( RIGHT ))) ;
  end "*" ;

  function "*" ( LEFT : LENGTH_MKS ;
                 RIGHT : AREA_MKS ) return VOLUME_MKS is

  begin
    return VOLUME_MKS'  --
        ( DIMENSION( UNDIMENSION( LEFT ) * UNDIMENSION ( RIGHT ))) ;
  end "*" ;

  function CUBE_ROOT ( LEFT : VOLUME_MKS ) return LENGTH_MKS is

  begin
    return LENGTH_MKS' ( DIMENSION( UNDIMENSION( LEFT ) ** ( 1.0 / 3.0 ))) ;
  end CUBE_ROOT ;

  function "/" ( LEFT : VOLUME_MKS ;
                 RIGHT : LENGTH_MKS ) return AREA_MKS is

  begin
    return AREA_MKS'  --
        ( DIMENSION( UNDIMENSION( LEFT ) / UNDIMENSION ( RIGHT ))) ;
  end "/" ;

  function "/" ( LEFT : LENGTH_MKS ;
                 RIGHT : TIME_SECOND ) return VELOCITY_MKS is

  begin
    return VELOCITY_MKS'  --
        ( DIMENSION( UNDIMENSION( LEFT ) / UNDIMENSION ( RIGHT ))) ;
  end "/" ;

  function "/" ( LEFT : LENGTH_MKS ;
                 RIGHT : TIME_SECOND_SQUARED ) return ACCELERATION_MKS is

  begin
    return ACCELERATION_MKS'  --
        ( DIMENSION( UNDIMENSION( LEFT ) / UNDIMENSION ( RIGHT ))) ;
  end "/" ;

  function "*" ( LEFT , RIGHT : TIME_SECOND ) return TIME_SECOND_SQUARED is

  begin
    return TIME_SECOND_SQUARED'  --
        ( DIMENSION( UNDIMENSION( LEFT ) * UNDIMENSION ( RIGHT ))) ;
  end "*" ;

  function "**" ( LEFT : TIME_SECOND ;
                  RIGHT : INTEGER ) return TIME_SECOND_SQUARED is

  begin
    if RIGHT /= 2 then
      raise NUMERIC_ERROR ;
    end if ;
    return TIME_SECOND_SQUARED'  --
        ( DIMENSION( UNDIMENSION( LEFT ) * UNDIMENSION ( LEFT ))) ;
  end "**" ;

  function "**" ( LEFT : VELOCITY_MKS ;
                  RIGHT : INTEGER ) return VELOCITY_SQUARED_MKS is

  begin
    if RIGHT /= 2 then
      raise NUMERIC_ERROR ;
    end if ;
    return VELOCITY_SQUARED_MKS'  --
        ( DIMENSION( UNDIMENSION( LEFT ) * UNDIMENSION ( LEFT ))) ;
  end "**" ;

  function SQRT ( LEFT : TIME_SECOND_SQUARED ) return TIME_SECOND is

  begin
    return TIME_SECOND' ( DIMENSION( SQRT( UNDIMENSION( LEFT )))) ;
  end SQRT ;

  function "*" ( LEFT , RIGHT : VELOCITY_MKS ) return VELOCITY_SQUARED_MKS is

  begin
    return VELOCITY_SQUARED_MKS'  --
        ( DIMENSION( UNDIMENSION( LEFT ) * UNDIMENSION ( RIGHT ))) ;
  end "*" ;

  function SQRT ( LEFT : VELOCITY_SQUARED_MKS ) return VELOCITY_MKS is

  begin
    return VELOCITY_MKS' ( DIMENSION( SQRT( UNDIMENSION( LEFT )))) ;
  end SQRT ;

  function "*" ( LEFT : ACCELERATION_MKS ;
                 RIGHT : TIME_SECOND_SQUARED ) return LENGTH_MKS is

  begin
    return LENGTH_MKS'  --
        ( DIMENSION( UNDIMENSION( LEFT ) * UNDIMENSION ( RIGHT ))) ;
  end "*" ;

  function "/" ( LEFT : LENGTH_MKS ;
                 RIGHT : ACCELERATION_MKS ) return TIME_SECOND_SQUARED is

  begin
    return TIME_SECOND_SQUARED'  --
        ( DIMENSION( UNDIMENSION( LEFT ) / UNDIMENSION ( RIGHT ))) ;
  end "/" ;

  function "*" ( LEFT : ACCELERATION_MKS ;
                 RIGHT : LENGTH_MKS ) return VELOCITY_SQUARED_MKS is

  begin
    return VELOCITY_SQUARED_MKS'  --
        ( DIMENSION( UNDIMENSION( LEFT ) * UNDIMENSION ( RIGHT ))) ;
  end "*" ;

  function "*" ( LEFT : LENGTH_MKS ;
                 RIGHT : ACCELERATION_MKS ) return VELOCITY_SQUARED_MKS is

  begin
    return VELOCITY_SQUARED_MKS'  --
        ( DIMENSION( UNDIMENSION( LEFT ) * UNDIMENSION ( RIGHT ))) ;
  end "*" ;

  function "*" ( LEFT : ACCELERATION_MKS ;
                 RIGHT : TIME_SECOND ) return VELOCITY_MKS is

  begin
    return VELOCITY_MKS'  --
        ( DIMENSION( UNDIMENSION( LEFT ) * UNDIMENSION ( RIGHT ))) ;
  end "*" ;

  function "*" ( LEFT : TIME_SECOND ;
                 RIGHT : ACCELERATION_MKS ) return VELOCITY_MKS is

  begin
    return VELOCITY_MKS'  --
        ( DIMENSION( UNDIMENSION( LEFT ) * UNDIMENSION ( RIGHT ))) ;
  end "*" ;

  function "*" ( LEFT : MASS_MKS ;
                 RIGHT : ACCELERATION_MKS ) return FORCE_MKS is

  begin
    return FORCE_MKS'  --
        ( DIMENSION( UNDIMENSION( LEFT ) * UNDIMENSION ( RIGHT ))) ;
  end "*" ;

  function "*" ( LEFT : ACCELERATION_MKS ;
                 RIGHT : MASS_MKS ) return FORCE_MKS is

  begin
    return FORCE_MKS'  --
        ( DIMENSION( UNDIMENSION( LEFT ) * UNDIMENSION ( RIGHT ))) ;
  end "*" ;

  function "*" ( LEFT : PRESSURE_MKS ;
                 RIGHT : AREA_MKS ) return FORCE_MKS is

  begin
    return FORCE_MKS'  --
        ( DIMENSION( UNDIMENSION( LEFT ) * UNDIMENSION ( RIGHT ))) ;
  end "*" ;

  function "*" ( LEFT : AREA_MKS ;
                 RIGHT : PRESSURE_MKS ) return FORCE_MKS is

  begin
    return FORCE_MKS'  --
        ( DIMENSION( UNDIMENSION( LEFT ) * UNDIMENSION ( RIGHT ))) ;
  end "*" ;

  function "/" ( LEFT : POWER_MKS ;
                 RIGHT : VELOCITY_MKS ) return FORCE_MKS is

  begin
    return FORCE_MKS'  --
        ( DIMENSION( UNDIMENSION( LEFT ) / UNDIMENSION ( RIGHT ))) ;
  end "/" ;

  function "/" ( LEFT : ENERGY_MKS ;
                 RIGHT : LENGTH_MKS ) return FORCE_MKS is

  begin
    return FORCE_MKS'  --
        ( DIMENSION( UNDIMENSION( LEFT ) / UNDIMENSION ( RIGHT ))) ;
  end "/" ;

  function "*" ( LEFT : PRESSURE_MKS ;
                 RIGHT : VOLUME_MKS ) return ENERGY_MKS is

  begin
    return ENERGY_MKS'  --
        ( DIMENSION( UNDIMENSION( LEFT ) * UNDIMENSION ( RIGHT ))) ;
  end "*" ;

  function "*" ( LEFT : VOLUME_MKS ;
                 RIGHT : PRESSURE_MKS ) return ENERGY_MKS is

  begin
    return ENERGY_MKS'  --
        ( DIMENSION( UNDIMENSION( LEFT ) * UNDIMENSION ( RIGHT ))) ;
  end "*" ;

  function "*" ( LEFT : FORCE_MKS ;
                 RIGHT : LENGTH_MKS ) return ENERGY_MKS is

  begin
    return ENERGY_MKS'  --
        ( DIMENSION( UNDIMENSION( LEFT ) * UNDIMENSION ( RIGHT ))) ;
  end "*" ;

  function "*" ( LEFT : LENGTH_MKS ;
                 RIGHT : FORCE_MKS ) return ENERGY_MKS is

  begin
    return ENERGY_MKS'  --
        ( DIMENSION( UNDIMENSION( LEFT ) * UNDIMENSION ( RIGHT ))) ;
  end "*" ;

  function "*" ( LEFT : MASS_MKS ;
                 RIGHT : VELOCITY_SQUARED_MKS ) return ENERGY_MKS is

  begin
    return ENERGY_MKS'  --
        ( DIMENSION( UNDIMENSION( LEFT ) * UNDIMENSION ( RIGHT ))) ;
  end "*" ;

  function "*" ( LEFT : VELOCITY_SQUARED_MKS ;
                 RIGHT : MASS_MKS ) return ENERGY_MKS is

  begin
    return ENERGY_MKS'  --
        ( DIMENSION( UNDIMENSION( LEFT ) * UNDIMENSION ( RIGHT ))) ;
  end "*" ;

  function "*" ( LEFT : POWER_MKS ;
                 RIGHT : TIME_SECOND ) return ENERGY_MKS is

  begin
    return ENERGY_MKS'  --
        ( DIMENSION( UNDIMENSION( LEFT ) * UNDIMENSION ( RIGHT ))) ;
  end "*" ;

  function "*" ( LEFT : TIME_SECOND ;
                 RIGHT : POWER_MKS ) return ENERGY_MKS is

  begin
    return ENERGY_MKS'  --
        ( DIMENSION( UNDIMENSION( LEFT ) * UNDIMENSION ( RIGHT ))) ;
  end "*" ;

  function "*" ( LEFT : FORCE_MKS ;
                 RIGHT : VELOCITY_MKS ) return POWER_MKS is

  begin
    return POWER_MKS'  --
        ( DIMENSION( UNDIMENSION( LEFT ) * UNDIMENSION ( RIGHT ))) ;
  end "*" ;

  function "*" ( LEFT : VELOCITY_MKS ;
                 RIGHT : FORCE_MKS ) return POWER_MKS is

  begin
    return POWER_MKS'  --
        ( DIMENSION( UNDIMENSION( LEFT ) * UNDIMENSION ( RIGHT ))) ;
  end "*" ;

  function "/" ( LEFT : ENERGY_MKS ;
                 RIGHT : TIME_SECOND ) return POWER_MKS is

  begin
    return POWER_MKS'  --
        ( DIMENSION( UNDIMENSION( LEFT ) / UNDIMENSION ( RIGHT ))) ;
  end "/" ;
end MKS_PHYSICS_MECHANICAL ;
::::::::::
Z000009.ADA
::::::::::
with PHYSICAL_UNITS_BASIC ; use PHYSICAL_UNITS_BASIC ;
with PHYSICAL_UNITS_MECHANICAL ; use PHYSICAL_UNITS_MECHANICAL ;
with PHYSICAL_UNITS_ELECTRICAL ; use PHYSICAL_UNITS_ELECTRICAL ;
with PHYSICAL_UNITS_OTHER ; use PHYSICAL_UNITS_OTHER ;

-- This package defines operators needed to evaluate equations of
-- physics using dimensional and units checking. Only MKS units
-- are used. A conversion package is available to convert from
-- other metric units and English units to the MKS units.
--
-- This package is not complete. Completeness would imply all
-- possible operators that combine physical dimensions and yeild
-- other physical dimensions. Users can provide local definitions
-- or this package can be augmented.
--

package MKS_PHYSICS_ELECTRICAL is

  function "/" ( LEFT : VOLTAGE_VOLT ;
                 RIGHT : CURRENT_AMPERE ) return RESISTANCE_OHM ;

  function "/" ( LEFT : CURRENT_AMPERE ;
                 RIGHT : VOLTAGE_VOLT ) return CONDUCTANCE_MHO ;

  function "/" ( LEFT : VOLTAGE_VOLT ;
                 RIGHT : RESISTANCE_OHM ) return CURRENT_AMPERE ;

  function "*" ( LEFT : RESISTANCE_OHM ;
                 RIGHT : CURRENT_AMPERE ) return VOLTAGE_VOLT ;

  function "*" ( LEFT : CURRENT_AMPERE ;
                 RIGHT : RESISTANCE_OHM ) return VOLTAGE_VOLT ;

  function "*" ( LEFT : INDUCTANCE_HENRY ;
                 RIGHT : AMPERE_PER_SECOND ) return VOLTAGE_VOLT ;

  function "/" ( LEFT : CAPACITANCE_FARAD ;
                 RIGHT : VOLT_PER_SECOND ) return CURRENT_AMPERE ;

  function "/" ( LEFT : VOLTAGE_VOLT ;
                 RIGHT : TIME_SECOND ) return VOLT_PER_SECOND ;

  function "/" ( LEFT : CURRENT_AMPERE ;
                 RIGHT : TIME_SECOND ) return AMPERE_PER_SECOND ;

  function "*" ( LEFT : PERMITTIVITY ;
                 RIGHT : LENGTH_METER ) return CAPACITANCE_FARAD ;

  function "*" ( LEFT : PERMEABILITY ;
                 RIGHT : LENGTH_METER ) return INDUCTANCE_HENRY ;

  function "/" ( LEFT : CURRENT_AMPERE ;
                 RIGHT : LENGTH_METER ) return MAGNETIC_INTENSITY ;

  function "/" ( LEFT : VOLTAGE_VOLT ;
                 RIGHT : LENGTH_METER ) return ELECTRIC_FIELD ;

  function "*" ( LEFT : PERMITTIVITY ;
                 RIGHT : ELECTRIC_FIELD ) return ELECTRIC_DISPLACEMENT ;

  function "*" ( LEFT : ELECTRIC_FIELD ;
                 RIGHT : PERMITTIVITY ) return ELECTRIC_DISPLACEMENT ;

  function "*" ( LEFT : PERMEABILITY ;
                 RIGHT : MAGNETIC_INTENSITY ) return MAGNETIC_FLUX_DENSITY ;

  function "*" ( LEFT : ELECTRIC_FIELD ;
                 RIGHT : PERMEABILITY ) return MAGNETIC_FLUX_DENSITY ;

-- Note: Relations between power, energy, force and pressure are in
--       MKS_PHYSICS_MECHANICAL. Operators to yeild power, energy,
--       force and pressure ( energy density ) from electrical units
--       are provided in this package
--

  function "*" ( LEFT : CURRENT_AMPERE ;
                 RIGHT : VOLTAGE_VOLT ) return POWER_WATT ;

  function "*" ( LEFT : VOLTAGE_VOLT ;
                 RIGHT : CURRENT_AMPERE ) return POWER_WATT ;

  function "*" ( LEFT : AMPERE_SQUARED ;
                 RIGHT : RESISTANCE_OHM ) return POWER_WATT ;

  function "*" ( LEFT : RESISTANCE_OHM ;
                 RIGHT : AMPERE_SQUARED ) return POWER_WATT ;

  function "/" ( LEFT : VOLT_SQUARED ;
                 RIGHT : RESISTANCE_OHM ) return POWER_WATT ;

  function "*" ( LEFT : CAPACITANCE_FARAD ;
                 RIGHT : VOLT_SQUARED ) return ENERGY_JOULE ;

  function "*" ( LEFT : INDUCTANCE_HENRY ;
                 RIGHT : AMPERE_SQUARED ) return ENERGY_JOULE ;

-- energy density (pressure) := D * E

  function "*" ( LEFT : ELECTRIC_DISPLACEMENT ;
                 RIGHT : ELECTRIC_FIELD ) return PRESSURE_MKS ;

  function "*" ( LEFT : ELECTRIC_FIELD ;
                 RIGHT : ELECTRIC_DISPLACEMENT ) return PRESSURE_MKS ;

-- energy density (pressure) := B * H

  function "*" ( LEFT : MAGNETIC_FLUX_DENSITY ;
                 RIGHT : MAGNETIC_INTENSITY ) return PRESSURE_MKS ;

  function "*" ( LEFT : MAGNETIC_INTENSITY ;
                 RIGHT : MAGNETIC_FLUX_DENSITY ) return PRESSURE_MKS ;

-- intermediate results

  function "*" ( LEFT , RIGHT : VOLTAGE_VOLT ) return VOLT_SQUARED ;

  function "**" ( LEFT : VOLTAGE_VOLT ;
                  RIGHT : INTEGER ) return VOLT_SQUARED ;

  function SQRT ( LEFT : VOLT_SQUARED ) return VOLTAGE_VOLT ;

  function "*" ( LEFT , RIGHT : CURRENT_AMPERE ) return AMPERE_SQUARED ;

  function "**" ( LEFT : CURRENT_AMPERE ;
                  RIGHT : INTEGER ) return AMPERE_SQUARED ;

  function SQRT ( LEFT : AMPERE_SQUARED ) return CURRENT_AMPERE ;

  pragma INLINE ( "*" , "/" , "**" , SQRT ) ;
end MKS_PHYSICS_ELECTRICAL ;
with REFUNCT ; use REFUNCT ;
with PHYSICAL_REAL ; use PHYSICAL_REAL ;

package body MKS_PHYSICS_ELECTRICAL is

  function "/" ( LEFT : VOLTAGE_VOLT ;
                 RIGHT : CURRENT_AMPERE ) return RESISTANCE_OHM is

  begin
    return RESISTANCE_OHM'  --
        ( DIMENSION( UNDIMENSION( LEFT ) / UNDIMENSION ( RIGHT ))) ;
  end "/" ;

  function "/" ( LEFT : CURRENT_AMPERE ;
                 RIGHT : VOLTAGE_VOLT ) return CONDUCTANCE_MHO is

  begin
    return CONDUCTANCE_MHO'  --
        ( DIMENSION( UNDIMENSION( LEFT ) / UNDIMENSION ( RIGHT ))) ;
  end "/" ;

  function "/" ( LEFT : VOLTAGE_VOLT ;
                 RIGHT : RESISTANCE_OHM ) return CURRENT_AMPERE is

  begin
    return CURRENT_AMPERE'  --
        ( DIMENSION( UNDIMENSION( LEFT ) / UNDIMENSION ( RIGHT ))) ;
  end "/" ;

  function "*" ( LEFT : RESISTANCE_OHM ;
                 RIGHT : CURRENT_AMPERE ) return VOLTAGE_VOLT is

  begin
    return VOLTAGE_VOLT'  --
        ( DIMENSION( UNDIMENSION( LEFT ) * UNDIMENSION ( RIGHT ))) ;
  end "*" ;

  function "*" ( LEFT : CURRENT_AMPERE ;
                 RIGHT : RESISTANCE_OHM ) return VOLTAGE_VOLT is

  begin
    return VOLTAGE_VOLT'  --
        ( DIMENSION( UNDIMENSION( LEFT ) * UNDIMENSION ( RIGHT ))) ;
  end "*" ;

  function "*" ( LEFT : INDUCTANCE_HENRY ;
                 RIGHT : AMPERE_PER_SECOND ) return VOLTAGE_VOLT is

  begin
    return VOLTAGE_VOLT'  --
        ( DIMENSION( UNDIMENSION( LEFT ) * UNDIMENSION ( RIGHT ))) ;
  end "*" ;

  function "/" ( LEFT : CAPACITANCE_FARAD ;
                 RIGHT : VOLT_PER_SECOND ) return CURRENT_AMPERE is

  begin
    return CURRENT_AMPERE'  --
        ( DIMENSION( UNDIMENSION( LEFT ) / UNDIMENSION ( RIGHT ))) ;
  end "/" ;

  function "/" ( LEFT : VOLTAGE_VOLT ;
                 RIGHT : TIME_SECOND ) return VOLT_PER_SECOND is

  begin
    return VOLT_PER_SECOND'  --
        ( DIMENSION( UNDIMENSION( LEFT ) / UNDIMENSION ( RIGHT ))) ;
  end "/" ;

  function "/" ( LEFT : CURRENT_AMPERE ;
                 RIGHT : TIME_SECOND ) return AMPERE_PER_SECOND is

  begin
    return AMPERE_PER_SECOND'  --
        ( DIMENSION( UNDIMENSION( LEFT ) / UNDIMENSION ( RIGHT ))) ;
  end "/" ;

  function "*" ( LEFT : PERMITTIVITY ;
                 RIGHT : LENGTH_METER ) return CAPACITANCE_FARAD is

  begin
    return CAPACITANCE_FARAD'  --
        ( DIMENSION( UNDIMENSION( LEFT ) * UNDIMENSION ( RIGHT ))) ;
  end "*" ;

  function "*" ( LEFT : PERMEABILITY ;
                 RIGHT : LENGTH_METER ) return INDUCTANCE_HENRY is

  begin
    return INDUCTANCE_HENRY'  --
        ( DIMENSION( UNDIMENSION( LEFT ) * UNDIMENSION ( RIGHT ))) ;
  end "*" ;

  function "/" ( LEFT : CURRENT_AMPERE ;
                 RIGHT : LENGTH_METER ) return MAGNETIC_INTENSITY is

  begin
    return MAGNETIC_INTENSITY'  --
        ( DIMENSION( UNDIMENSION( LEFT ) / UNDIMENSION ( RIGHT ))) ;
  end "/" ;

  function "/" ( LEFT : VOLTAGE_VOLT ;
                 RIGHT : LENGTH_METER ) return ELECTRIC_FIELD is

  begin
    return ELECTRIC_FIELD'  --
        ( DIMENSION( UNDIMENSION( LEFT ) / UNDIMENSION ( RIGHT ))) ;
  end "/" ;

  function "*" ( LEFT : PERMITTIVITY ;
                 RIGHT : ELECTRIC_FIELD ) return ELECTRIC_DISPLACEMENT is

  begin
    return ELECTRIC_DISPLACEMENT'  --
        ( DIMENSION( UNDIMENSION( LEFT ) * UNDIMENSION ( RIGHT ))) ;
  end "*" ;

  function "*" ( LEFT : ELECTRIC_FIELD ;
                 RIGHT : PERMITTIVITY ) return ELECTRIC_DISPLACEMENT is

  begin
    return ELECTRIC_DISPLACEMENT'  --
        ( DIMENSION( UNDIMENSION( LEFT ) * UNDIMENSION ( RIGHT ))) ;
  end "*" ;

  function "*" ( LEFT : PERMEABILITY ;
                 RIGHT : MAGNETIC_INTENSITY ) return MAGNETIC_FLUX_DENSITY is

  begin
    return MAGNETIC_FLUX_DENSITY'  --
        ( DIMENSION( UNDIMENSION( LEFT ) * UNDIMENSION ( RIGHT ))) ;
  end "*" ;

  function "*" ( LEFT : ELECTRIC_FIELD ;
                 RIGHT : PERMEABILITY ) return MAGNETIC_FLUX_DENSITY is

  begin
    return MAGNETIC_FLUX_DENSITY'  --
        ( DIMENSION( UNDIMENSION( LEFT ) * UNDIMENSION ( RIGHT ))) ;
  end "*" ;

  function "*" ( LEFT : CURRENT_AMPERE ;
                 RIGHT : VOLTAGE_VOLT ) return POWER_WATT is

  begin
    return POWER_WATT'  --
        ( DIMENSION( UNDIMENSION( LEFT ) * UNDIMENSION ( RIGHT ))) ;
  end "*" ;

  function "*" ( LEFT : VOLTAGE_VOLT ;
                 RIGHT : CURRENT_AMPERE ) return POWER_WATT is

  begin
    return POWER_WATT'  --
        ( DIMENSION( UNDIMENSION( LEFT ) * UNDIMENSION ( RIGHT ))) ;
  end "*" ;

  function "*" ( LEFT : AMPERE_SQUARED ;
                 RIGHT : RESISTANCE_OHM ) return POWER_WATT is

  begin
    return POWER_WATT'  --
        ( DIMENSION( UNDIMENSION( LEFT ) * UNDIMENSION ( RIGHT ))) ;
  end "*" ;

  function "*" ( LEFT : RESISTANCE_OHM ;
                 RIGHT : AMPERE_SQUARED ) return POWER_WATT is

  begin
    return POWER_WATT'  --
        ( DIMENSION( UNDIMENSION( LEFT ) * UNDIMENSION ( RIGHT ))) ;
  end "*" ;

  function "/" ( LEFT : VOLT_SQUARED ;
                 RIGHT : RESISTANCE_OHM ) return POWER_WATT is

  begin
    return POWER_WATT'  --
        ( DIMENSION( UNDIMENSION( LEFT ) / UNDIMENSION ( RIGHT ))) ;
  end "/" ;

  function "*" ( LEFT : CAPACITANCE_FARAD ;
                 RIGHT : VOLT_SQUARED ) return ENERGY_JOULE is

  begin
    return ENERGY_JOULE'  --
        ( DIMENSION( UNDIMENSION( LEFT ) * UNDIMENSION ( RIGHT ))) ;
  end "*" ;

  function "*" ( LEFT : INDUCTANCE_HENRY ;
                 RIGHT : AMPERE_SQUARED ) return ENERGY_JOULE is

  begin
    return ENERGY_JOULE'  --
        ( DIMENSION( UNDIMENSION( LEFT ) * UNDIMENSION ( RIGHT ))) ;
  end "*" ;

  function "*" ( LEFT : ELECTRIC_DISPLACEMENT ;
                 RIGHT : ELECTRIC_FIELD ) return PRESSURE_MKS is

  begin
    return PRESSURE_MKS'  --
        ( DIMENSION( UNDIMENSION( LEFT ) * UNDIMENSION ( RIGHT ))) ;
  end "*" ;

  function "*" ( LEFT : ELECTRIC_FIELD ;
                 RIGHT : ELECTRIC_DISPLACEMENT ) return PRESSURE_MKS is

  begin
    return PRESSURE_MKS'  --
        ( DIMENSION( UNDIMENSION( LEFT ) * UNDIMENSION ( RIGHT ))) ;
  end "*" ;

  function "*" ( LEFT : MAGNETIC_FLUX_DENSITY ;
                 RIGHT : MAGNETIC_INTENSITY ) return PRESSURE_MKS is

  begin
    return PRESSURE_MKS'  --
        ( DIMENSION( UNDIMENSION( LEFT ) * UNDIMENSION ( RIGHT ))) ;
  end "*" ;

  function "*" ( LEFT : MAGNETIC_INTENSITY ;
                 RIGHT : MAGNETIC_FLUX_DENSITY ) return PRESSURE_MKS is

  begin
    return PRESSURE_MKS'  --
        ( DIMENSION( UNDIMENSION( LEFT ) * UNDIMENSION ( RIGHT ))) ;
  end "*" ;

  function "*" ( LEFT , RIGHT : VOLTAGE_VOLT ) return VOLT_SQUARED is

  begin
    return VOLT_SQUARED'  --
        ( DIMENSION( UNDIMENSION( LEFT ) * UNDIMENSION ( RIGHT ))) ;
  end "*" ;

  function "**" ( LEFT : VOLTAGE_VOLT ;
                  RIGHT : INTEGER ) return VOLT_SQUARED is

  begin
    if RIGHT /= 2 then
      raise NUMERIC_ERROR ;
    end if ;
    return VOLT_SQUARED'  --
        ( DIMENSION( UNDIMENSION( LEFT ) * UNDIMENSION ( LEFT ))) ;
  end "**" ;

  function SQRT ( LEFT : VOLT_SQUARED ) return VOLTAGE_VOLT is

  begin
    return VOLTAGE_VOLT' ( DIMENSION( SQRT( UNDIMENSION( LEFT )))) ;
  end SQRT ;

  function "*" ( LEFT , RIGHT : CURRENT_AMPERE ) return AMPERE_SQUARED is

  begin
    return AMPERE_SQUARED'  --
        ( DIMENSION( UNDIMENSION( LEFT ) * UNDIMENSION ( RIGHT ))) ;
  end "*" ;

  function "**" ( LEFT : CURRENT_AMPERE ;
                  RIGHT : INTEGER ) return AMPERE_SQUARED is

  begin
    if RIGHT /= 2 then
      raise NUMERIC_ERROR ;
    end if ;
    return AMPERE_SQUARED'  --
        ( DIMENSION( UNDIMENSION( LEFT ) * UNDIMENSION ( LEFT ))) ;
  end "**" ;

  function SQRT ( LEFT : AMPERE_SQUARED ) return CURRENT_AMPERE is

  begin
    return CURRENT_AMPERE' ( DIMENSION( SQRT( UNDIMENSION( LEFT )))) ;
  end SQRT ;
end MKS_PHYSICS_ELECTRICAL ;
::::::::::
Z000010.ADA
::::::::::
with PHYSICAL_UNITS_BASIC ; use PHYSICAL_UNITS_BASIC ;
with PHYSICAL_UNITS_MECHANICAL ; use PHYSICAL_UNITS_MECHANICAL ;
with PHYSICAL_UNITS_ELECTRICAL ; use PHYSICAL_UNITS_ELECTRICAL ;
with PHYSICAL_UNITS_OTHER ; use PHYSICAL_UNITS_OTHER ;

package PHYSICAL_CONSTANT is

--
--   There are a number of physical constants that are used in equations
-- to solve problems in physics. Errors may occur because the dimensionality
-- and/or units of the physical constant are not known. The table below
-- presents some physical constants with their typical symbol, dimension,
-- nominal value and unit of measure in the MKS system.
--
--   The Ada named munber is then given with the Ada type corresponding
-- to the required dimension and unit.
--
--PHYSICAL CONSTANT           SYMBOL  DIMENSION   MKS VALUE        UNIT
--_________________           ______  _________   _________        ____
--
--
--Pi, ratio of circumference   Pi      none        3.14159265       radians
--      to diameter
--
  PI : constant := 3.14159265 ;

--
--                                        3                             3
--air density, normal          rho     M/L         1.2929           Kg/m
--   conditions
--
  AIR_DENSITY : constant DENSITY_MKS := DIMENSION ( 1.2929 ) ;

--
--air molecule, mass           m       M           4.81E-26         Kg
--
  MASS_AIR_MOLECULE : constant MASS_MKS := DIMENSION ( 4.81E-26 ) ;

--
--air molecule,                w       M           0.028952         Kg/mole
-- kilogram molecular weight
--
  MOLECULAR_WEIGHT_AIR_MOLECULE : constant MASS_MKS := DIMENSION ( 0.028952 )
      ;

--
--                                         2                                2
--atmospheric pressure         A       M/LT        1.01325          newton/m
--
  ATMOSPHERIC_PRESSURE : constant PRESSURE_MKS := DIMENSION ( 1.01325 ) ;

--
--Avogadro's number            N       none        6.023E+23        molecules in
--  molecules in a kilogram mole                                          a mole
--
  AVOGADROS_NUMBER : constant := 6.02257E+23 ;

--
--                                       2  2                             o
--Boltzmann's constant         k       ML /T K     1.380E-23        joule/ K
--
  BOLTZMANNS : constant JOULE_PER_DEGREE_KELVIN := DIMENSION ( 1.380E-23 ) ;

--
--                                       2  2
--electron volt                e       ML /T       1.60210E-10      joule
--
  ELECTRON_VOLT : constant ENERGY_MKS := DIMENSION ( 1.60210E-10 ) ;

--
--                                       3  2 2                         2    -2
--electrostatic constant       k       ML /T Q     8.987E+9         nt m/coulomb
--  reciprocal permittivity                                          m/farad
--
  ELECTROSTATIC : constant METER_PER_FARAD := DIMENSION ( 8.987E+9 ) ;

--
--elementary charge            e       Q           1.6021892E-19    coulomb
--
  ELEMENTARY_CHARGE : constant CHARGE_COULOMB := DIMENSION ( 1.6021892E-19 ) ;

--
--electron mass                m       M           9.1066E-31       Kg
--                              e
--
  MASS_ELECTRON : constant MASS_MKS := DIMENSION ( 9.1066E-31 ) ;

--
--faraday                      f       L/T         9.648456E+4      coulomb/mole
--
  FARADAY : constant VELOCITY_MKS := DIMENSION ( 9.648456E+4 ) ;

--
--                                       2  2                             o
--gas constant of a mole       R       ML /T K     8.3144           joule/ K
--
  GAS : constant JOULE_PER_DEGREE_KELVIN := DIMENSION ( 8.3144 ) ;

--
--                                        2                              2
--gravity (earth)              g       L/T         9.80665          m/sec
--
  GRAVITY : constant ACCELERATION_MKS := DIMENSION ( 9.800665 ) ;

--
--
--hydrogen atom mass           m       M           1.6734E-27       Kg
--                              h
--
  MASS_HYDROGEN_ATOM : constant MASS_MKS := DIMENSION ( 1.6734E-27 ) ;

--
--hydrogen atom                w       M           1.0079E-3        Kg/mole
--  kilogram atomic weight
--
  MOLECULAR_WEIGHT_HYDROGEN_ATOM : constant MASS_MKS := DIMENSION ( 1.0079E-3
      ) ;

--
--                                       2   2
--impedance of free space      Z       ML /TQ      120Pi            ohm
--                              0
--
  IMPEDANCE_FREE_SPACE : constant RESISTANCE_OHM := DIMENSION ( 120.0 * PI ) ;

--
--mechanical equivalent        J       none        4186.05          joule/
--   of heat                                                          Kg calorie
--
  MECHANICAL_HEAT : constant := 4186.05 ;

--
--                                      2 2   3
--permittivity (vacuum)        epsi    T Q /ML     8.854E-12        farad/meter
--                                 0
--
  PERMITTIVITY_VACUUM : constant PERMITTIVITY_FARAD_PER_METER := DIMENSION (
      8.854E-12 ) ;

--
--                                         2
--permeability (vacuum)        mu      ML/Q        4Pi E-7          henry/meter
--                               0
  PERMEABITITY_VACUUM : constant PERMEABILITY_HENRY_PER_METER := DIMENSION (
      4.0E-7 * PI ) ;

--                                       2
--Planck's constant            h       ML /T       6.624E-34        joule second
--
  PLANCKS : constant INERTIA_MKS := DIMENSION ( 6.624E-34 ) ;

--
--speed of light (vacuum)      c       L/T         2.99792458E+8    meter/second
--
  SPEED_OF_LIGHT : constant VELOCITY_MKS := DIMENSION ( 2.99792458E+8 ) ;

--
--speed of sound (air)         s       L/T         331.45           meter/second
--
  SPEED_OF_SOUND : constant VELOCITY_MKS := DIMENSION ( 331.45 ) ;

--
--                                      2   2                           2   2
--universal gravitational      G       L /MT       6.6720E-12       nt m /Kg
--    constant
--
  U_G_C : constant ACCELERATION_PER_KILOGRAM := DIMENSION ( 6.6720E-12 ) ;

--
end PHYSICAL_CONSTANT ;
::::::::::
Z000011.ADA
::::::::::
with PHYSICAL_UNITS_BASIC ; use PHYSICAL_UNITS_BASIC ;

package PHYSICAL_UNITS_OUTPUT_BASIC is

-- This package specification defines a simple PUT for Ada types for physical
-- quantities. The initial thought was to have metric units and English units
-- in separate package specifications. This proved inpractical
-- because time in seconds is both metric and English. Many other
-- units such as watt of power and Farad of capacitance are in
-- both systems. Thus, in order to keep the packages reasonable sizes,
-- the packages are basic units, mechanical units and electrical units.
--
-- Notice that there is not a procedure PUT defined for LENGTH_METER
-- or for that matter, any " subtype " defined in the package PHYSICAL_UNITS.
-- It is unnecessary and happens to be illegal ada.

  procedure PUT ( ITEM : LENGTH_MKS ) ;

  procedure PUT ( ITEM : LENGTH_ENGLISH ) ;

  procedure PUT ( ITEM : LENGTH_PICOMETER ) ;

  procedure PUT ( ITEM : LENGTH_NANOMETER ) ;

  procedure PUT ( ITEM : LENGTH_MICROMETER ) ;

  procedure PUT ( ITEM : LENGTH_MILLIMETER ) ;

  procedure PUT ( ITEM : LENGTH_CENTIMETER ) ;

  procedure PUT ( ITEM : LENGTH_DECIMETER ) ;

  procedure PUT ( ITEM : LENGTH_DECAMETER ) ;

  procedure PUT ( ITEM : LENGTH_HECTOMETER ) ;

  procedure PUT ( ITEM : LENGTH_KILOMETER ) ;

  procedure PUT ( ITEM : LENGTH_MEGAMETER ) ;

  procedure PUT ( ITEM : LENGTH_GIGAMETER ) ;

  procedure PUT ( ITEM : LENGTH_ANGSTROM ) ;

  procedure PUT ( ITEM : LENGTH_MIL ) ;

  procedure PUT ( ITEM : LENGTH_INCH ) ;

  procedure PUT ( ITEM : LENGTH_YARD ) ;

  procedure PUT ( ITEM : LENGTH_FATHOM ) ;

  procedure PUT ( ITEM : LENGTH_ROD ) ;

  procedure PUT ( ITEM : LENGTH_CHAIN_SURVEYOR ) ;

  procedure PUT ( ITEM : LENGTH_CHAIN_ENGINEER ) ;

  procedure PUT ( ITEM : LENGTH_FURLONG ) ;

  procedure PUT ( ITEM : LENGTH_MILE ) ;

  procedure PUT ( ITEM : LENGTH_MILE_NAUTICAL ) ;

  procedure PUT ( ITEM : LENGTH_LEAGUE_LAND ) ;

  procedure PUT ( ITEM : LENGTH_LEAGUE_MARINE ) ;

  procedure PUT ( ITEM : LENGTH_LIGHT_YEAR ) ;

  procedure PUT ( ITEM : MASS_MKS ) ;

  procedure PUT ( ITEM : MASS_ENGLISH ) ;

  procedure PUT ( ITEM : MASS_POUND_TROY ) ;

  procedure PUT ( ITEM : MASS_MILLIGRAM ) ;

  procedure PUT ( ITEM : MASS_GRAM ) ;

  procedure PUT ( ITEM : MASS_GRAIN ) ;

  procedure PUT ( ITEM : MASS_PENNYWEIGHT_TROY ) ;

  procedure PUT ( ITEM : MASS_CARAT_TROY ) ;

  procedure PUT ( ITEM : MASS_SCRUPLE ) ;

  procedure PUT ( ITEM : MASS_DRAM_AVDP ) ;

  procedure PUT ( ITEM : MASS_OUNCE_AVDP ) ;

  procedure PUT ( ITEM : MASS_OUNCE_TROY ) ;

  procedure PUT ( ITEM : MASS_TON_SHORT ) ;

  procedure PUT ( ITEM : MASS_TON_LONG ) ;

  procedure PUT ( ITEM : MASS_TON_METRIC ) ;

  procedure PUT ( ITEM : TIME_SECOND ) ;

  procedure PUT ( ITEM : TIME_PICOSECOND ) ;

  procedure PUT ( ITEM : TIME_NANOSECOND ) ;

  procedure PUT ( ITEM : TIME_MICROSECOND ) ;

  procedure PUT ( ITEM : TIME_MILLISECOND ) ;

  procedure PUT ( ITEM : TIME_CENTISECOND ) ;

  procedure PUT ( ITEM : TIME_KILOSECOND ) ;

  procedure PUT ( ITEM : TIME_MEGASECOND ) ;

  procedure PUT ( ITEM : TIME_GIGASECOND ) ;

  procedure PUT ( ITEM : TIME_MINUTE ) ;

  procedure PUT ( ITEM : TIME_HOUR ) ;

  procedure PUT ( ITEM : TIME_DAY ) ;

  procedure PUT ( ITEM : TIME_FORTNIGHT ) ;

  procedure PUT ( ITEM : TIME_MONTH ) ;

  procedure PUT ( ITEM : TIME_YEAR ) ;

  procedure PUT ( ITEM : TIME_DECADE ) ;

  procedure PUT ( ITEM : TIME_CENTURY ) ;

  procedure PUT ( ITEM : TIME_MILLENNIA ) ;

  procedure PUT ( ITEM : CHARGE_COULOMB ) ;

  procedure PUT ( ITEM : CHARGE_ELECTRON ) ;

  procedure PUT ( ITEM : CHARGE_FARADAY ) ;

  procedure PUT ( ITEM : CHARGE_AMPERE_HOURS ) ;

  procedure PUT ( ITEM : LUMINOUS_INTENSITY_CANDLE ) ;

  procedure PUT ( ITEM : TEMPERATURE_KELVIN ) ;

  procedure PUT ( ITEM : TEMPERATURE_CENTIGRADE ) ;

  procedure PUT ( ITEM : TEMPERATURE_FARENHEIT ) ;

  procedure PUT ( ITEM : ANGLE_RADIAN ) ;

  procedure PUT ( ITEM : ANGLE_SECOND ) ;

  procedure PUT ( ITEM : ANGLE_MINUTE ) ;

  procedure PUT ( ITEM : ANGLE_DEGREE ) ;

  procedure PUT ( ITEM : ANGLE_REVOLUTION ) ;

  procedure PUT ( ITEM : ANGLE_BAM ) ;

  procedure PUT ( ITEM : SOLID_ANGLE_STERADIAN ) ;

end PHYSICAL_UNITS_OUTPUT_BASIC ;
with PHYSICAL_REAL ; use PHYSICAL_REAL ;
with TEXT_IO ; use TEXT_IO ;
with FLT_IO ; use FLT_IO ;

package body PHYSICAL_UNITS_OUTPUT_BASIC is

  procedure PUT ( ITEM : LENGTH_MKS ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " meter " ) ;
  end PUT ;

  procedure PUT ( ITEM : LENGTH_ENGLISH ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " feet " ) ;
  end PUT ;

  procedure PUT ( ITEM : LENGTH_PICOMETER ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " picometer " ) ;
  end PUT ;

  procedure PUT ( ITEM : LENGTH_NANOMETER ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " nanometer " ) ;
  end PUT ;

  procedure PUT ( ITEM : LENGTH_MICROMETER ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " micrometer " ) ;
  end PUT ;

  procedure PUT ( ITEM : LENGTH_MILLIMETER ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " millimeter " ) ;
  end PUT ;

  procedure PUT ( ITEM : LENGTH_CENTIMETER ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " centimeter " ) ;
  end PUT ;

  procedure PUT ( ITEM : LENGTH_DECIMETER ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " decimeter " ) ;
  end PUT ;

  procedure PUT ( ITEM : LENGTH_DECAMETER ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " decameter " ) ;
  end PUT ;

  procedure PUT ( ITEM : LENGTH_HECTOMETER ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " hectometer " ) ;
  end PUT ;

  procedure PUT ( ITEM : LENGTH_KILOMETER ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " kilometer " ) ;
  end PUT ;

  procedure PUT ( ITEM : LENGTH_MEGAMETER ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " megameter " ) ;
  end PUT ;

  procedure PUT ( ITEM : LENGTH_GIGAMETER ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " gigameter " ) ;
  end PUT ;

  procedure PUT ( ITEM : LENGTH_ANGSTROM ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " angstrom " ) ;
  end PUT ;

  procedure PUT ( ITEM : LENGTH_MIL ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " mil " ) ;
  end PUT ;

  procedure PUT ( ITEM : LENGTH_INCH ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " inch " ) ;
  end PUT ;

  procedure PUT ( ITEM : LENGTH_YARD ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " yard " ) ;
  end PUT ;

  procedure PUT ( ITEM : LENGTH_FATHOM ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " fathom " ) ;
  end PUT ;

  procedure PUT ( ITEM : LENGTH_ROD ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " rod " ) ;
  end PUT ;

  procedure PUT ( ITEM : LENGTH_CHAIN_SURVEYOR ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " chain (surveyor) " ) ;
  end PUT ;

  procedure PUT ( ITEM : LENGTH_CHAIN_ENGINEER ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " chain (engineer) " ) ;
  end PUT ;

  procedure PUT ( ITEM : LENGTH_FURLONG ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " furlong " ) ;
  end PUT ;

  procedure PUT ( ITEM : LENGTH_MILE ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " mile " ) ;
  end PUT ;

  procedure PUT ( ITEM : LENGTH_MILE_NAUTICAL ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " mile (nautical) " ) ;
  end PUT ;

  procedure PUT ( ITEM : LENGTH_LEAGUE_LAND ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " league (land) " ) ;
  end PUT ;

  procedure PUT ( ITEM : LENGTH_LEAGUE_MARINE ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " league (marine) " ) ;
  end PUT ;

  procedure PUT ( ITEM : LENGTH_LIGHT_YEAR ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " light year " ) ;
  end PUT ;

  procedure PUT ( ITEM : MASS_MKS ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " kilogram " ) ;
  end PUT ;

  procedure PUT ( ITEM : MASS_ENGLISH ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " pound " ) ;
  end PUT ;

  procedure PUT ( ITEM : MASS_POUND_TROY ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " pound (troy) " ) ;
  end PUT ;

  procedure PUT ( ITEM : MASS_MILLIGRAM ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " milligram " ) ;
  end PUT ;

  procedure PUT ( ITEM : MASS_GRAM ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " gram " ) ;
  end PUT ;

  procedure PUT ( ITEM : MASS_GRAIN ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " grain " ) ;
  end PUT ;

  procedure PUT ( ITEM : MASS_PENNYWEIGHT_TROY ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " pennyweight (troy) " ) ;
  end PUT ;

  procedure PUT ( ITEM : MASS_CARAT_TROY ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " carat (troy) " ) ;
  end PUT ;

  procedure PUT ( ITEM : MASS_SCRUPLE ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " scruple " ) ;
  end PUT ;

  procedure PUT ( ITEM : MASS_DRAM_AVDP ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " dram (avdp.) " ) ;
  end PUT ;

  procedure PUT ( ITEM : MASS_OUNCE_AVDP ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " ounce " ) ;
  end PUT ;

  procedure PUT ( ITEM : MASS_OUNCE_TROY ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " ounce (troy) " ) ;
  end PUT ;

  procedure PUT ( ITEM : MASS_TON_SHORT ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " ton (short) " ) ;
  end PUT ;

  procedure PUT ( ITEM : MASS_TON_LONG ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " ton (long) " ) ;
  end PUT ;

  procedure PUT ( ITEM : MASS_TON_METRIC ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " ton (metric) " ) ;
  end PUT ;

  procedure PUT ( ITEM : TIME_SECOND ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " second " ) ;
  end PUT ;

  procedure PUT ( ITEM : TIME_PICOSECOND ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " picosecond " ) ;
  end PUT ;

  procedure PUT ( ITEM : TIME_NANOSECOND ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " nanosecond " ) ;
  end PUT ;

  procedure PUT ( ITEM : TIME_MICROSECOND ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " microsecond " ) ;
  end PUT ;

  procedure PUT ( ITEM : TIME_MILLISECOND ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " millisecond " ) ;
  end PUT ;

  procedure PUT ( ITEM : TIME_CENTISECOND ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " centisecond " ) ;
  end PUT ;

  procedure PUT ( ITEM : TIME_KILOSECOND ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " kilosecond " ) ;
  end PUT ;

  procedure PUT ( ITEM : TIME_MEGASECOND ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " megasecond " ) ;
  end PUT ;

  procedure PUT ( ITEM : TIME_GIGASECOND ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " gigasecond " ) ;
  end PUT ;

  procedure PUT ( ITEM : TIME_MINUTE ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " minute " ) ;
  end PUT ;

  procedure PUT ( ITEM : TIME_HOUR ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " hour " ) ;
  end PUT ;

  procedure PUT ( ITEM : TIME_DAY ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " day " ) ;
  end PUT ;

  procedure PUT ( ITEM : TIME_FORTNIGHT ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " fortnight " ) ;
  end PUT ;

  procedure PUT ( ITEM : TIME_MONTH ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " month " ) ;
  end PUT ;

  procedure PUT ( ITEM : TIME_YEAR ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " year " ) ;
  end PUT ;

  procedure PUT ( ITEM : TIME_DECADE ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " decade " ) ;
  end PUT ;

  procedure PUT ( ITEM : TIME_CENTURY ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " century " ) ;
  end PUT ;

  procedure PUT ( ITEM : TIME_MILLENNIA ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " millennia " ) ;
  end PUT ;

  procedure PUT ( ITEM : CHARGE_COULOMB ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " coulomb " ) ;
  end PUT ;

  procedure PUT ( ITEM : CHARGE_ELECTRON ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " charge (electron) " ) ;
  end PUT ;

  procedure PUT ( ITEM : CHARGE_FARADAY ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " faraday " ) ;
  end PUT ;

  procedure PUT ( ITEM : CHARGE_AMPERE_HOURS ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " ampere hour " ) ;
  end PUT ;

  procedure PUT ( ITEM : LUMINOUS_INTENSITY_CANDLE ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " candel " ) ;
  end PUT ;

  procedure PUT ( ITEM : TEMPERATURE_KELVIN ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " degree kelvin " ) ;
  end PUT ;

  procedure PUT ( ITEM : TEMPERATURE_CENTIGRADE ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " degree centigrade " ) ;
  end PUT ;

  procedure PUT ( ITEM : TEMPERATURE_FARENHEIT ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " degree farenheit " ) ;
  end PUT ;

  procedure PUT ( ITEM : ANGLE_RADIAN ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " radian " ) ;
  end PUT ;

  procedure PUT ( ITEM : ANGLE_SECOND ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " second (angle) " ) ;
  end PUT ;

  procedure PUT ( ITEM : ANGLE_MINUTE ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " minute ( angle) " ) ;
  end PUT ;

  procedure PUT ( ITEM : ANGLE_DEGREE ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " degree (angle) " ) ;
  end PUT ;

  procedure PUT ( ITEM : ANGLE_REVOLUTION ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " revolution " ) ;
  end PUT ;

  procedure PUT ( ITEM : ANGLE_BAM ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " bam " ) ;
  end PUT ;

  procedure PUT ( ITEM : SOLID_ANGLE_STERADIAN ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " steradian " ) ;
  end PUT ;

end PHYSICAL_UNITS_OUTPUT_BASIC ;
::::::::::
Z000012.ADA
::::::::::
with PHYSICAL_UNITS_MECHANICAL ; use PHYSICAL_UNITS_MECHANICAL ;

package PHYSICAL_UNITS_OUTPUT_MECHANICAL is

-- This package specification defines a simple PUT for Ada types for physical
-- quantities generally mechanical in nature.
--
-- Notice that there is not a procedure PUT defined for LENGTH_METER
-- or for that matter, any " subtype " defined in the package PHYSICAL_UNITS.
-- It is unnecessary and happens to be illegal ada.

  procedure PUT ( ITEM : AREA_MKS ) ;

  procedure PUT ( ITEM : AREA_ENGLISH ) ;

  procedure PUT ( ITEM : AREA_SQUARE_CENTIMETER ) ;

  procedure PUT ( ITEM : AREA_SQUARE_KILOMETER ) ;

  procedure PUT ( ITEM : AREA_SQUARE_INCH ) ;

  procedure PUT ( ITEM : AREA_SQUARE_YARD ) ;

  procedure PUT ( ITEM : AREA_SQUARE_MILE ) ;

  procedure PUT ( ITEM : AREA_ACRE ) ;

  procedure PUT ( ITEM : AREA_CIRCULAR_MIL ) ;

  procedure PUT ( ITEM : AREA_HECTARE ) ;

  procedure PUT ( ITEM : AREA_TOWNSHIP ) ;

  procedure PUT ( ITEM : VOLUME_MKS ) ;

  procedure PUT ( ITEM : VOLUME_ENGLISH ) ;

  procedure PUT ( ITEM : VOLUME_MILLILITER ) ;

  procedure PUT ( ITEM : VOLUME_LITER ) ;

  procedure PUT ( ITEM : VOLUME_KILOLITER ) ;

  procedure PUT ( ITEM : VOLUME_CUBIC_CENTIMETER ) ;

  procedure PUT ( ITEM : VOLUME_CUBIC_INCH ) ;

  procedure PUT ( ITEM : VOLUME_CUBIC_YARD ) ;

  procedure PUT ( ITEM : VOLUME_CUBIC_MILE ) ;

  procedure PUT ( ITEM : VOLUME_TEASPOON ) ;

  procedure PUT ( ITEM : VOLUME_TABLESPOON ) ;

  procedure PUT ( ITEM : VOLUME_OUNCE_FLUID ) ;

  procedure PUT ( ITEM : VOLUME_JIGGER ) ;

  procedure PUT ( ITEM : VOLUME_CUP ) ;

  procedure PUT ( ITEM : VOLUME_PINT_LIQUID ) ;

  procedure PUT ( ITEM : VOLUME_QUART_LIQUID ) ;

  procedure PUT ( ITEM : VOLUME_GALLON ) ;

  procedure PUT ( ITEM : VOLUME_KEG ) ;

  procedure PUT ( ITEM : VOLUME_BARREL ) ;

  procedure PUT ( ITEM : VOLUME_PINT_DRY ) ;

  procedure PUT ( ITEM : VOLUME_QUART_DRY ) ;

  procedure PUT ( ITEM : VOLUME_PECK ) ;

  procedure PUT ( ITEM : VOLUME_BUSHEL ) ;

  procedure PUT ( ITEM : VOLUME_CORD ) ;

  procedure PUT ( ITEM : VELOCITY_MKS ) ;

  procedure PUT ( ITEM : VELOCITY_ENGLISH ) ;

  procedure PUT ( ITEM : VELOCITY_CENTIMETER_PER_SECOND ) ;

  procedure PUT ( ITEM : VELOCITY_KILOMETER_PER_HOUR ) ;

  procedure PUT ( ITEM : VELOCITY_INCHES_PER_SECOND ) ;

  procedure PUT ( ITEM : VELOCITY_MILE_PER_HOUR ) ;

  procedure PUT ( ITEM : VELOCITY_MILES_PER_SECOND ) ;

  procedure PUT ( ITEM : VELOCITY_INCHES_PER_MINUTE ) ;

  procedure PUT ( ITEM : VELOCITY_FEET_PER_MINUTE ) ;

  procedure PUT ( ITEM : VELOCITY_MILES_PER_HOUR ) ;

  procedure PUT ( ITEM : VELOCITY_KNOTS ) ;

  procedure PUT ( ITEM : VELOCITY_FURLONG_PER_FORTNIGHT ) ;

  procedure PUT ( ITEM : ANGULAR_VELOCITY ) ;

  procedure PUT ( ITEM : ANGULAR_VELOCITY_DEGREES_PER_SECOND ) ;

  procedure PUT ( ITEM : ANGULAR_VELOCITY_REVOLUTIONS_PER_MINUTE ) ;

  procedure PUT ( ITEM : ANGULAR_VELOCITY_REVOLUTIONS_PER_SECOND ) ;

  procedure PUT ( ITEM : ACCELERATION_MKS ) ;

  procedure PUT ( ITEM : ACCELERATION_ENGLISH ) ;

  procedure PUT ( ITEM : ANGULAR_ACCELERATION ) ;

  procedure PUT ( ITEM : ANGULAR_ACCELERATION_REVOLUTIONS_PER_MINUTE_SQUARED )
      ;

  procedure PUT ( ITEM : FORCE_MKS ) ;

  procedure PUT ( ITEM : FORCE_DYNE ) ;

  procedure PUT ( ITEM : FORCE_ENGLISH ) ;

  procedure PUT ( ITEM : ENERGY_MKS ) ;

  procedure PUT ( ITEM : ENERGY_ERG ) ;

  procedure PUT ( ITEM : ENERGY_GRAM_CALORIE ) ;

  procedure PUT ( ITEM : ENERGY_KILOGRAM_CALORIE ) ;

  procedure PUT ( ITEM : ENERGY_B_T_U ) ;

  procedure PUT ( ITEM : ENERGY_FOOT_POUND ) ;

  procedure PUT ( ITEM : ENERGY_KILOWATT_HOUR ) ;

  procedure PUT ( ITEM : ENERGY_HORSEPOWER_HOUR ) ;

  procedure PUT ( ITEM : POWER_MKS ) ;

  procedure PUT ( ITEM : POWER_KILOGRAM_CALORIE_PER_SECOND ) ;

  procedure PUT ( ITEM : POWER_KILOGRAN_CALORIE_PER_MINUTE ) ;

  procedure PUT ( ITEM : POWER_HORSEPOWER_MECHANICAL ) ;

  procedure PUT ( ITEM : POWER_HORSEPOWER_ELECTRICAL ) ;

  procedure PUT ( ITEM : POWER_HORSEPOWER_METRIC ) ;

  procedure PUT ( ITEM : POWER_HORSEPOWER_BOILER ) ;

  procedure PUT ( ITEM : POWER_B_T_U_PER_MINUTE ) ;

  procedure PUT ( ITEM : POWER_B_T_U_PER_HOUR ) ;

  procedure PUT ( ITEM : POWER_FOOT_POUND_PER_MINUTE ) ;

  procedure PUT ( ITEM : POWER_FOOT_POUND_PER_SECOND ) ;

  procedure PUT ( ITEM : DENSITY_MKS ) ;

  procedure PUT ( ITEM : DENSITY_ENGLISH ) ;

  procedure PUT ( ITEM : FLOW_RATE_MKS ) ;

  procedure PUT ( ITEM : FLOW_RATE_GALLON_PER_MINUTE ) ;

  procedure PUT ( ITEM : FLOW_RATE_ENGLISH ) ;

  procedure PUT ( ITEM : FLOW_RATE_CUBIC_FEET_PER_MINUTE ) ;

  procedure PUT ( ITEM : PRESSURE_MKS ) ;

  procedure PUT ( ITEM : PRESSURE_ENGLISH ) ;

  procedure PUT ( ITEM : PRESSURE_TON_PER_SQUARE_FOOT ) ;

  procedure PUT ( ITEM : PRESSURE_ATMOSPHERE_STANDARD ) ;

  procedure PUT ( ITEM : PRESSURE_FEET_OF_WATER ) ;

  procedure PUT ( ITEM : PRESSURE_INCHES_OF_MERCURY ) ;

  procedure PUT ( ITEM : PRESSURE_MILLIMETER_OF_MERCURY ) ;

  procedure PUT ( ITEM : PRESSURE_BAR ) ;

  procedure PUT ( ITEM : PRESSURE_MILLIBAR ) ;

  procedure PUT ( ITEM : PRESSURE_TORR ) ;

  procedure PUT ( ITEM : MOMENTUM_MKS ) ;

  procedure PUT ( ITEM : INERTIA_MKS ) ;

  procedure PUT ( ITEM : MOMENT_OF_INERTIA_MKS ) ;

  procedure PUT ( ITEM : KINEMATIC_VISCOSITY_MKS ) ;

  procedure PUT ( ITEM : DYNAMIC_VISCOSITY_MKS ) ;

  procedure PUT ( ITEM : LUMINOUS_FLUX_LUMEN ) ;

  procedure PUT ( ITEM : ILLUMINATION_MKS ) ;

  procedure PUT ( ITEM : LUMINANCE_MKS ) ;

  procedure PUT ( ITEM : ENTROPY_MKS ) ;

  procedure PUT ( ITEM : SPECIFIC_HEAT_B_T_U_PER_POUND_DEGREE_FARENHEIT ) ;

end PHYSICAL_UNITS_OUTPUT_MECHANICAL ;
with PHYSICAL_REAL ; use PHYSICAL_REAL ;
with TEXT_IO ; use TEXT_IO ;
with FLT_IO ; use FLT_IO ;

package body PHYSICAL_UNITS_OUTPUT_MECHANICAL is

  procedure PUT ( ITEM : AREA_MKS ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " square meter" ) ;
  end PUT ;

  procedure PUT ( ITEM : AREA_ENGLISH ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " square foot " ) ;
  end PUT ;

  procedure PUT ( ITEM : AREA_SQUARE_CENTIMETER ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " square centimeter " ) ;
  end PUT ;

  procedure PUT ( ITEM : AREA_SQUARE_KILOMETER ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " square kilometer " ) ;
  end PUT ;

  procedure PUT ( ITEM : AREA_SQUARE_INCH ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " square inch " ) ;
  end PUT ;

  procedure PUT ( ITEM : AREA_SQUARE_YARD ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " square yard " ) ;
  end PUT ;

  procedure PUT ( ITEM : AREA_SQUARE_MILE ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " square mile " ) ;
  end PUT ;

  procedure PUT ( ITEM : AREA_ACRE ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " acre " ) ;
  end PUT ;

  procedure PUT ( ITEM : AREA_CIRCULAR_MIL ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " circular mil " ) ;
  end PUT ;

  procedure PUT ( ITEM : AREA_HECTARE ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " hectare " ) ;
  end PUT ;

  procedure PUT ( ITEM : AREA_TOWNSHIP ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " township " ) ;
  end PUT ;

  procedure PUT ( ITEM : VOLUME_MKS ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " cubic meter " ) ;
  end PUT ;

  procedure PUT ( ITEM : VOLUME_ENGLISH ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " cubic foot " ) ;
  end PUT ;

  procedure PUT ( ITEM : VOLUME_MILLILITER ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " milliliter " ) ;
  end PUT ;

  procedure PUT ( ITEM : VOLUME_LITER ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " liter " ) ;
  end PUT ;

  procedure PUT ( ITEM : VOLUME_KILOLITER ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " kiloliter " ) ;
  end PUT ;

  procedure PUT ( ITEM : VOLUME_CUBIC_CENTIMETER ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " cubic centimeter " ) ;
  end PUT ;

  procedure PUT ( ITEM : VOLUME_CUBIC_INCH ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " cubic inch " ) ;
  end PUT ;

  procedure PUT ( ITEM : VOLUME_CUBIC_YARD ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " cubic yard " ) ;
  end PUT ;

  procedure PUT ( ITEM : VOLUME_CUBIC_MILE ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " cubic mile " ) ;
  end PUT ;

  procedure PUT ( ITEM : VOLUME_TEASPOON ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " teaspoon " ) ;
  end PUT ;

  procedure PUT ( ITEM : VOLUME_TABLESPOON ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " tablespoon " ) ;
  end PUT ;

  procedure PUT ( ITEM : VOLUME_OUNCE_FLUID ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " ounce (fluid) " ) ;
  end PUT ;

  procedure PUT ( ITEM : VOLUME_JIGGER ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " jigger " ) ;
  end PUT ;

  procedure PUT ( ITEM : VOLUME_CUP ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " cup " ) ;
  end PUT ;

  procedure PUT ( ITEM : VOLUME_PINT_LIQUID ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " pint (liquid) " ) ;
  end PUT ;

  procedure PUT ( ITEM : VOLUME_QUART_LIQUID ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " quart (liquid) " ) ;
  end PUT ;

  procedure PUT ( ITEM : VOLUME_GALLON ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " gallon " ) ;
  end PUT ;

  procedure PUT ( ITEM : VOLUME_KEG ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " keg " ) ;
  end PUT ;

  procedure PUT ( ITEM : VOLUME_BARREL ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " barrel " ) ;
  end PUT ;

  procedure PUT ( ITEM : VOLUME_PINT_DRY ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " pint (dry) " ) ;
  end PUT ;

  procedure PUT ( ITEM : VOLUME_QUART_DRY ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " quart (dry) " ) ;
  end PUT ;

  procedure PUT ( ITEM : VOLUME_PECK ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " peck " ) ;
  end PUT ;

  procedure PUT ( ITEM : VOLUME_BUSHEL ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " bushel " ) ;
  end PUT ;

  procedure PUT ( ITEM : VOLUME_CORD ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " cord " ) ;
  end PUT ;

  procedure PUT ( ITEM : VELOCITY_MKS ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " meter per second " ) ;
  end PUT ;

  procedure PUT ( ITEM : VELOCITY_ENGLISH ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " foot per second " ) ;
  end PUT ;

  procedure PUT ( ITEM : VELOCITY_CENTIMETER_PER_SECOND ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " centimeter per second " ) ;
  end PUT ;

  procedure PUT ( ITEM : VELOCITY_KILOMETER_PER_HOUR ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " kilometer per hour " ) ;
  end PUT ;

  procedure PUT ( ITEM : VELOCITY_INCHES_PER_SECOND ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " inches per second " ) ;
  end PUT ;

  procedure PUT ( ITEM : VELOCITY_MILE_PER_HOUR ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " mile per hour " ) ;
  end PUT ;

  procedure PUT ( ITEM : VELOCITY_MILES_PER_SECOND ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " miles per second " ) ;
  end PUT ;

  procedure PUT ( ITEM : VELOCITY_INCHES_PER_MINUTE ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " inches per minute " ) ;
  end PUT ;

  procedure PUT ( ITEM : VELOCITY_FEET_PER_MINUTE ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " feet per minute " ) ;
  end PUT ;

  procedure PUT ( ITEM : VELOCITY_MILES_PER_HOUR ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " miles per hour " ) ;
  end PUT ;

  procedure PUT ( ITEM : VELOCITY_KNOTS ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " knots " ) ;
  end PUT ;

  procedure PUT ( ITEM : VELOCITY_FURLONG_PER_FORTNIGHT ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " furlong per fortnight " ) ;
  end PUT ;

  procedure PUT ( ITEM : ANGULAR_VELOCITY ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " radian per second " ) ;
  end PUT ;

  procedure PUT ( ITEM : ANGULAR_VELOCITY_DEGREES_PER_SECOND ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " degrees per second " ) ;
  end PUT ;

  procedure PUT ( ITEM : ANGULAR_VELOCITY_REVOLUTIONS_PER_MINUTE ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " revolutions per minute " ) ;
  end PUT ;

  procedure PUT ( ITEM : ANGULAR_VELOCITY_REVOLUTIONS_PER_SECOND ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " revolutions per second " ) ;
  end PUT ;

  procedure PUT ( ITEM : ACCELERATION_MKS ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " meter per second squared " ) ;
  end PUT ;

  procedure PUT ( ITEM : ACCELERATION_ENGLISH ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " foot per second squared " ) ;
  end PUT ;

  procedure PUT ( ITEM : ANGULAR_ACCELERATION ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " radians per second squared " ) ;
  end PUT ;

  procedure PUT ( ITEM : ANGULAR_ACCELERATION_REVOLUTIONS_PER_MINUTE_SQUARED )
      is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " revolutions per minute squared " ) ;
  end PUT ;

  procedure PUT ( ITEM : FORCE_MKS ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " newton " ) ;
  end PUT ;

  procedure PUT ( ITEM : FORCE_DYNE ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " dyne " ) ;
  end PUT ;

  procedure PUT ( ITEM : FORCE_ENGLISH ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " poundal " ) ;
  end PUT ;

  procedure PUT ( ITEM : ENERGY_MKS ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " joule " ) ;
  end PUT ;

  procedure PUT ( ITEM : ENERGY_ERG ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " erg " ) ;
  end PUT ;

  procedure PUT ( ITEM : ENERGY_GRAM_CALORIE ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " gram calorie " ) ;
  end PUT ;

  procedure PUT ( ITEM : ENERGY_KILOGRAM_CALORIE ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " kilogram calorie " ) ;
  end PUT ;

  procedure PUT ( ITEM : ENERGY_B_T_U ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " B.T.U. " ) ;
  end PUT ;

  procedure PUT ( ITEM : ENERGY_FOOT_POUND ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " foot pound " ) ;
  end PUT ;

  procedure PUT ( ITEM : ENERGY_KILOWATT_HOUR ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " kilowat hour " ) ;
  end PUT ;

  procedure PUT ( ITEM : ENERGY_HORSEPOWER_HOUR ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " horsepower hour " ) ;
  end PUT ;

  procedure PUT ( ITEM : POWER_MKS ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " watt " ) ;
  end PUT ;

  procedure PUT ( ITEM : POWER_KILOGRAM_CALORIE_PER_SECOND ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " kilogram calorie per second " ) ;
  end PUT ;

  procedure PUT ( ITEM : POWER_KILOGRAN_CALORIE_PER_MINUTE ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " kilogram calorie per minute " ) ;
  end PUT ;

  procedure PUT ( ITEM : POWER_HORSEPOWER_MECHANICAL ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " horsepower (mechanical) " ) ;
  end PUT ;

  procedure PUT ( ITEM : POWER_HORSEPOWER_ELECTRICAL ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " horsepower (electrical) " ) ;
  end PUT ;

  procedure PUT ( ITEM : POWER_HORSEPOWER_METRIC ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " horsepower ( metric) " ) ;
  end PUT ;

  procedure PUT ( ITEM : POWER_HORSEPOWER_BOILER ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " horsepower (boiler) " ) ;
  end PUT ;

  procedure PUT ( ITEM : POWER_B_T_U_PER_MINUTE ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " B.T.U. per minute " ) ;
  end PUT ;

  procedure PUT ( ITEM : POWER_B_T_U_PER_HOUR ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " B.T.U. per hour " ) ;
  end PUT ;

  procedure PUT ( ITEM : POWER_FOOT_POUND_PER_MINUTE ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " foot pound per minute " ) ;
  end PUT ;

  procedure PUT ( ITEM : POWER_FOOT_POUND_PER_SECOND ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " foot pound per second " ) ;
  end PUT ;

  procedure PUT ( ITEM : DENSITY_MKS ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " kilogram per cubic meter " ) ;
  end PUT ;

  procedure PUT ( ITEM : DENSITY_ENGLISH ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " pound per cubic foot " ) ;
  end PUT ;

  procedure PUT ( ITEM : FLOW_RATE_MKS ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " cubic meter per second " ) ;
  end PUT ;

  procedure PUT ( ITEM : FLOW_RATE_GALLON_PER_MINUTE ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " gallon per minute " ) ;
  end PUT ;

  procedure PUT ( ITEM : FLOW_RATE_ENGLISH ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " cubic feet per second " ) ;
  end PUT ;

  procedure PUT ( ITEM : FLOW_RATE_CUBIC_FEET_PER_MINUTE ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " cubic feet per minute " ) ;
  end PUT ;

  procedure PUT ( ITEM : PRESSURE_MKS ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " pascal " ) ;
  end PUT ;

  procedure PUT ( ITEM : PRESSURE_ENGLISH ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " pound per square foot " ) ;
  end PUT ;

  procedure PUT ( ITEM : PRESSURE_TON_PER_SQUARE_FOOT ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " ton per square foot " ) ;
  end PUT ;

  procedure PUT ( ITEM : PRESSURE_ATMOSPHERE_STANDARD ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " atmosphere " ) ;
  end PUT ;

  procedure PUT ( ITEM : PRESSURE_FEET_OF_WATER ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " feet of water " ) ;
  end PUT ;

  procedure PUT ( ITEM : PRESSURE_INCHES_OF_MERCURY ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " inches of mercury " ) ;
  end PUT ;

  procedure PUT ( ITEM : PRESSURE_MILLIMETER_OF_MERCURY ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " millimeter of mercury " ) ;
  end PUT ;

  procedure PUT ( ITEM : PRESSURE_BAR ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " bar " ) ;
  end PUT ;

  procedure PUT ( ITEM : PRESSURE_MILLIBAR ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " millibar " ) ;
  end PUT ;

  procedure PUT ( ITEM : PRESSURE_TORR ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " torr " ) ;
  end PUT ;

  procedure PUT ( ITEM : MOMENTUM_MKS ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " newton per second " ) ;
  end PUT ;

  procedure PUT ( ITEM : INERTIA_MKS ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " joule second " ) ;
  end PUT ;

  procedure PUT ( ITEM : MOMENT_OF_INERTIA_MKS ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " kilogram meter squared " ) ;
  end PUT ;

  procedure PUT ( ITEM : KINEMATIC_VISCOSITY_MKS ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " meter squared per second " ) ;
  end PUT ;

  procedure PUT ( ITEM : DYNAMIC_VISCOSITY_MKS ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " newton second per square meter " ) ;
  end PUT ;

  procedure PUT ( ITEM : LUMINOUS_FLUX_LUMEN ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " lumen " ) ;
  end PUT ;

  procedure PUT ( ITEM : ILLUMINATION_MKS ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " lumen per square meter " ) ;
  end PUT ;

  procedure PUT ( ITEM : LUMINANCE_MKS ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " lux " ) ;
  end PUT ;

  procedure PUT ( ITEM : ENTROPY_MKS ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " joule per degree centegrade " ) ;
  end PUT ;

  procedure PUT ( ITEM : SPECIFIC_HEAT_B_T_U_PER_POUND_DEGREE_FARENHEIT ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " B.T.U. per pound degree farenheit " ) ;
  end PUT ;

end PHYSICAL_UNITS_OUTPUT_MECHANICAL ;
::::::::::
Z000013.ADA
::::::::::
with PHYSICAL_UNITS_ELECTRICAL ; use PHYSICAL_UNITS_ELECTRICAL ;

package PHYSICAL_UNITS_OUTPUT_ELECTRICAL is

-- This package specification defines a simple PUT for Ada types for physical
-- quantities of electrical units.
--
-- Notice that there is not a procedure PUT defined for LENGTH_METER
-- or for that matter, any " subtype " defined in the package PHYSICAL_UNITS.
-- It is unnecessary and happens to be illegal ada.

  procedure PUT ( ITEM : CURRENT_AMPERE ) ;

  procedure PUT ( ITEM : CURRENT_MILLIAMPERE ) ;

  procedure PUT ( ITEM : CURRENT_MICROAMPERE ) ;

  procedure PUT ( ITEM : CURRENT_ABAMPERE ) ;

  procedure PUT ( ITEM : CURRENT_STATAMPERE ) ;

  procedure PUT ( ITEM : VOLTAGE_VOLT ) ;

  procedure PUT ( ITEM : VOLTAGE_MILLIVOLT ) ;

  procedure PUT ( ITEM : VOLTAGE_MICROVOLT ) ;

  procedure PUT ( ITEM : VOLTAGE_KILOVOLT ) ;

  procedure PUT ( ITEM : RESISTANCE_OHM ) ;

  procedure PUT ( ITEM : RESISTANCE_MILLIOHM ) ;

  procedure PUT ( ITEM : RESISTANCE_KILOHM ) ;

  procedure PUT ( ITEM : RESISTANCE_MEGOHM ) ;

  procedure PUT ( ITEM : RESISTIVITY_OHM_METER ) ;

  procedure PUT ( ITEM : CONDUCTANCE_MHO ) ;

  procedure PUT ( ITEM : CONDUCTIVITY_MHO_PER_METER ) ;

  procedure PUT ( ITEM : CAPACITANCE_FARAD ) ;

  procedure PUT ( ITEM : CAPACITANCE_MICROFARAD ) ;

  procedure PUT ( ITEM : CAPACITANCE_PICOFARAD ) ;

  procedure PUT ( ITEM : INDUCTANCE_HENRY ) ;

  procedure PUT ( ITEM : INDUCTANCE_MILLIHENRY ) ;

  procedure PUT ( ITEM : INDUCTANCE_MICROHENRY ) ;

  procedure PUT ( ITEM : CURRENT_DENSITY_AMPERE_PER_SQUARE_METER ) ;

  procedure PUT ( ITEM : CHARGE_DENSITY_COULOMB_PER_CUBIC_METER ) ;

  procedure PUT ( ITEM : MAGNETIC_FLUX_WEBER ) ;

  procedure PUT ( ITEM : MAGNETIC_FLUX_DENSITY_TESLA ) ;

  procedure PUT ( ITEM : MAGNETIC_INTENSITY_AMPERE_PER_METER ) ;

  procedure PUT ( ITEM : MAGNETIC_VECTOR_POTENTIAL_WEBER_PER_METER ) ;

  procedure PUT ( ITEM : ELECTRIC_FIELD_INTENSITY_VOLT_PER_METER ) ;

  procedure PUT ( ITEM : ELECTRIC_DISPLACEMENT_COULOMB_PER_SQUARE_METER ) ;

  procedure PUT ( ITEM : PERMEABILITY_HENRY_PER_METER ) ;

  procedure PUT ( ITEM : PERMITTIVITY_FARAD_PER_METER ) ;

  procedure PUT ( ITEM : FREQUENCY_HERTZ ) ;

  procedure PUT ( ITEM : FREQUENCY_KILOHERTZ ) ;

  procedure PUT ( ITEM : FREQUENCY_MEGAHERTZ ) ;

  procedure PUT ( ITEM : FREQUENCY_GIGAHERTZ ) ;

  procedure PUT ( ITEM : ANGULAR_FREQUENCY_RADIAN_PER_SECOND ) ;

--
end PHYSICAL_UNITS_OUTPUT_ELECTRICAL ;
with PHYSICAL_REAL ; use PHYSICAL_REAL ;
with TEXT_IO ; use TEXT_IO ;
with FLT_IO ; use FLT_IO ;

package body PHYSICAL_UNITS_OUTPUT_ELECTRICAL is

  procedure PUT ( ITEM : CURRENT_AMPERE ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " ampere " ) ;
  end PUT ;

  procedure PUT ( ITEM : CURRENT_MILLIAMPERE ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " milliampere " ) ;
  end PUT ;

  procedure PUT ( ITEM : CURRENT_MICROAMPERE ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " microampere " ) ;
  end PUT ;

  procedure PUT ( ITEM : CURRENT_ABAMPERE ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " abampere " ) ;
  end PUT ;

  procedure PUT ( ITEM : CURRENT_STATAMPERE ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " statampere " ) ;
  end PUT ;

  procedure PUT ( ITEM : VOLTAGE_VOLT ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " volt " ) ;
  end PUT ;

  procedure PUT ( ITEM : VOLTAGE_MILLIVOLT ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " millivolt " ) ;
  end PUT ;

  procedure PUT ( ITEM : VOLTAGE_MICROVOLT ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " microvolt " ) ;
  end PUT ;

  procedure PUT ( ITEM : VOLTAGE_KILOVOLT ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " kilovolt " ) ;
  end PUT ;

  procedure PUT ( ITEM : RESISTANCE_OHM ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " ohm " ) ;
  end PUT ;

  procedure PUT ( ITEM : RESISTANCE_MILLIOHM ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " milliohm " ) ;
  end PUT ;

  procedure PUT ( ITEM : RESISTANCE_KILOHM ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " kilohm " ) ;
  end PUT ;

  procedure PUT ( ITEM : RESISTANCE_MEGOHM ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " megohm " ) ;
  end PUT ;

  procedure PUT ( ITEM : RESISTIVITY_OHM_METER ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " ohm meter " ) ;
  end PUT ;

  procedure PUT ( ITEM : CONDUCTANCE_MHO ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " mho " ) ;
  end PUT ;

  procedure PUT ( ITEM : CONDUCTIVITY_MHO_PER_METER ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " mho per meter " ) ;
  end PUT ;

  procedure PUT ( ITEM : CAPACITANCE_FARAD ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " farad " ) ;
  end PUT ;

  procedure PUT ( ITEM : CAPACITANCE_MICROFARAD ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " microfarad " ) ;
  end PUT ;

  procedure PUT ( ITEM : CAPACITANCE_PICOFARAD ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " picofarad " ) ;
  end PUT ;

  procedure PUT ( ITEM : INDUCTANCE_HENRY ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " henry " ) ;
  end PUT ;

  procedure PUT ( ITEM : INDUCTANCE_MILLIHENRY ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " millihenry " ) ;
  end PUT ;

  procedure PUT ( ITEM : INDUCTANCE_MICROHENRY ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " microhenry " ) ;
  end PUT ;

  procedure PUT ( ITEM : CURRENT_DENSITY_AMPERE_PER_SQUARE_METER ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " ampere per square meter " ) ;
  end PUT ;

  procedure PUT ( ITEM : CHARGE_DENSITY_COULOMB_PER_CUBIC_METER ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " coulomb per cubic meter " ) ;
  end PUT ;

  procedure PUT ( ITEM : MAGNETIC_FLUX_WEBER ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " weber " ) ;
  end PUT ;

  procedure PUT ( ITEM : MAGNETIC_FLUX_DENSITY_TESLA ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " tesla " ) ;
  end PUT ;

  procedure PUT ( ITEM : MAGNETIC_INTENSITY_AMPERE_PER_METER ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " ampere per meter " ) ;
  end PUT ;

  procedure PUT ( ITEM : MAGNETIC_VECTOR_POTENTIAL_WEBER_PER_METER ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " weber per meter " ) ;
  end PUT ;

  procedure PUT ( ITEM : ELECTRIC_FIELD_INTENSITY_VOLT_PER_METER ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " volt per meter " ) ;
  end PUT ;

  procedure PUT ( ITEM : ELECTRIC_DISPLACEMENT_COULOMB_PER_SQUARE_METER ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " coulomb per square meter " ) ;
  end PUT ;

  procedure PUT ( ITEM : PERMEABILITY_HENRY_PER_METER ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " henry per meter " ) ;
  end PUT ;

  procedure PUT ( ITEM : PERMITTIVITY_FARAD_PER_METER ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " farad per meter " ) ;
  end PUT ;

  procedure PUT ( ITEM : FREQUENCY_HERTZ ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " hertz " ) ;
  end PUT ;

  procedure PUT ( ITEM : FREQUENCY_KILOHERTZ ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " kilohertz " ) ;
  end PUT ;

  procedure PUT ( ITEM : FREQUENCY_MEGAHERTZ ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " megahertz " ) ;
  end PUT ;

  procedure PUT ( ITEM : FREQUENCY_GIGAHERTZ ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " gigahertz " ) ;
  end PUT ;

  procedure PUT ( ITEM : ANGULAR_FREQUENCY_RADIAN_PER_SECOND ) is

  begin
    PUT ( UNDIMENSION( ITEM )) ;
    PUT ( " radian per second " ) ;
  end PUT ;

--
end PHYSICAL_UNITS_OUTPUT_ELECTRICAL ;
::::::::::
Z000014.ADA
::::::::::

package PHYSICAL_CONVERSION_CONSTANT is

-- short names for constants used to derive other constants
  C : constant := 2.997925E8 ;
  PI : constant := 3.14159 ;

--
-- length
--
  FOOT_TO_METER : constant := 0.3048 ; -- exact
  METER_TO_FOOT : constant := 1.0 / FOOT_TO_METER ;
  FOOT_TO_MIL : constant := 12.0 * 1000.0 ;
  FOOT_TO_INCH : constant := 12.0 ;
  FOOT_TO_YARD : constant := 1.0 / 3.0 ;
  FOOT_TO_FATHOM : constant := 1.0 / 6.0 ;
  FOOT_TO_CABLES_LENGTH : constant := FOOT_TO_FATHOM / 100.0 ;
  FOOT_TO_CABLES_LENGTH_U_S_NAVY : constant := FOOT_TO_FATHOM / 120.0 ;
  FOOT_TO_ROD : constant := 1.0 / 16.5 ;  -- also POLE or PERCH
  FOOT_TO_LINK_SURVEYOR : constant := 100.0 / 66.0 ;  -- 1/100 chain
  FOOT_TO_CHAIN_SURVEYOR : constant := 1.0 / 66.0 ;  -- or Gunter's 1/80 mile
  FOOT_TO_LINK_ENGINEER : constant := 1.0 ;
  FOOT_TO_CHAIN_ENGINEER : constant := 1.0 / 100.0 ;
  FOOT_TO_FURLONG : constant := 1.0 / 660.0 ;  -- 40 rods or 1/8 mile
  FOOT_TO_MILE_STATUTE : constant := 1.0 / 5280 ;
  FOOT_TO_MILE_NAUTICAL : constant := 1.0 / 6000.0 ;  -- 10 CABLES_LENGTH

--                      length of a minute of longitude at the equator
--                      exactly 1.852 kilometers
  FOOT_TO_MILE_NAUTICAL_INTERNATIONAL : constant := 1.0 / 6076.11549 ;
  FOOT_TO_LEAGUE_LAND : constant := FOOT_TO_MILE_STATUTE / 3.0 ;
  FOOT_TO_LEAGUE_MARINE : constant := FOOT_TO_MILE_NAUTICAL / 3.0 ;
  FOOT_TO_LIGHT_YEAR : constant := 1.0 / 3.103647E16 ;
  MILE_TO_FOOT : constant := 5_280.0 ;
  METER_TO_PICOMETER : constant := 1.0E12 ;
  METER_TO_ANGSTROM : constant := 1.0E10 ;
  METER_TO_NANOMETER : constant := 1.0E9 ;
  METER_TO_MICROMETER : constant := 1.0E6 ;
  METER_TO_MILLIMETER : constant := 1000.0 ;
  METER_TO_CENTIMETER : constant := 100.0 ;
  METER_TO_DECIMETER : constant := 10.0 ;
  METER_TO_DECAMETER : constant := 0.1 ;
  METER_TO_HECTOMETER : constant := 0.01 ;
  METER_TO_KILOMETER : constant := 0.001 ;
  METER_TO_MYRIAMETER : constant := 0.0001 ;
  METER_TO_MEGAMETER : constant := 1.0E-6 ;
  METER_TO_GIGAMETER : constant := 1.0E-9 ;

--
-- mass
--
  KILOGRAM_TO_POUND : constant := 2.204622341 ;  -- avdp Avoirdupois
  KILOGRAM_TO_GRAIN : constant := 1.0 / 0.0648E-3 ;  -- all systems
  KILOGRAM_TO_CARAT : constant := 5000.0 ;  -- exact
  POUND_TO_KILOGRAM : constant := 1.0 / KILOGRAM_TO_POUND ;
  POUND_TO_POUND_TROY : constant := 7000.0 / 5760.0 ;  -- Troy or Apothecary
  POUND_TO_HUNDREDWEIGHT : constant := 0.01 ;  -- avdp
  POUND_TO_STONE : constant := 112.0 ;
  POUND_TO_TON_SHORT : constant := 1.0 / 2000.0 ;  -- avdp
  POUND_TO_TON_LONG : constant := 1.0 / 2240.0 ;  -- avdp
  DRAM_TO_GRAM : constant := 1.772 ;
  POUND_TO_OUNCE : constant := 16.0 ;  -- avdp
  POUND_TO_DRAM : constant := 256.0 ;  -- avdp , ounce is 16 drams
  POUND_TO_GRAIN : constant := 7000.0 ;  -- avdp
  POUND_TROY_TO_GRAIN : constant := 5700.0 ;  -- CHECK. A GRAIN IS A GRAIN
  POUND_TROY_TO_PENNYWEIGHT : constant := 240.0 ;  -- troy
  POUND_TROY_TO_CARAT : constant := 5760.0 / 3.086 ;  -- troy (exact metric)
  POUND_TROY_TO_OUNCE_TROY : constant := 12.0 ;
  POUND_TROY_TO_DRAM : constant := 8.0 * 16.0 ;  -- apoth
  POUND_TROY_TO_SCRUPLE : constant := 24.0 * 12.0 ;  -- apoth
  KILOGRAM_TO_MILLIGRAM : constant := 1.0E6 ;
  KILOGRAM_TO_GRAM : constant := 1000.0 ;
  KILOGRAM_TO_TON_METRIC : constant := 0.001 ;

--
-- time
--
  SECOND_TO_PICOSECOND : constant := 1.0E12 ;
  SECOND_TO_NANOSECOND : constant := 1.0E9 ;
  SECOND_TO_MICROSECOND : constant := 1.0E6 ;
  SECOND_TO_MILLISECOND : constant := 1000.0 ;
  SECOND_TO_CENTISECOND : constant := 100.0 ;
  SECOND_TO_KILOSECOND : constant := 1.0E-3 ;
  SECOND_TO_MEGASECOND : constant := 1.0E-6 ;
  SECOND_TO_GIGASECOND : constant := 1.0E-9 ;
  SECOND_TO_MINUTE : constant := 1.0 / 60.0 ;
  SECOND_TO_HOUR : constant := SECOND_TO_MINUTE / 60.0 ;
  SECOND_TO_DAY : constant := SECOND_TO_HOUR / 24.0 ;
  SECOND_TO_FORTNIGHT : constant := SECOND_TO_DAY / 14.0 ;
  SECOND_TO_YEAR : constant := SECOND_TO_DAY / 365.241 ;
  SECOND_TO_MONTH : constant := SECOND_TO_YEAR * 12.0 ;
  SECOND_TO_DECADE : constant := SECOND_TO_YEAR / 10.0 ;
  SECOND_TO_CENTURY : constant := SECOND_TO_YEAR / 100.0 ;
  SECOND_TO_MILLENNIA : constant := SECOND_TO_YEAR / 1000.0 ;

--
-- electric charge, electric flux
--
  COULOMB_TO_AMPERE_SECOND : constant := 1.0 ;  -- definition
  COULOMB_TO_ABCOULOMB : constant := 0.1 ;  -- cgs emu
  COULOMB_TO_STSTCOULOMB : constant := 10.0 * C ;  -- cgs esu
  AMPERE_SECOND_TO_AMPERE_HOURS : constant := 1.0 / 3600.0 ;
  AMPERE_SECOND_TO_ELECTRON : constant := 1.0 / 1.60193E-19 ;
  AMPERE_SECOND_TO_FARADAY : constant := 1.0365E-5 ;

--
-- luminous intensity, the flux emitted by 1 candel is 4 Pi lumens
--
  CANDLE_TO_CANDEL : constant := 1.0 ;  -- see LUX, LUMEN, PHOT

--
-- temperature ( built into equations )
--
  CENTIGRADE_TO_CELSIOUS : constant := 1.0 ;

--
-- angle
--
  DEGREE_TO_RADIAN : constant := 0.0174533 ;
  RADIAN_TO_DEGREE : constant := 57.295780 ;
  RADIAN_TO_MINUTE : constant := RADIAN_TO_DEGREE * 60.0 ;
  RADIAN_TO_SECOND : constant := RADIAN_TO_MINUTE * 60.0 ;
  RADIAN_TO_REVOLUTION : constant := 1.0 / ( 2.0 * PI ) ;
  RADIAN_TO_BAM : constant := 1.0 / PI ;

--
-- solid angle
--
  STERADIAN_TO_AREA_OF_SPHERE : constant := 1.0 / ( 4.0 * PI ) ;

--
-- area
--
  SQUARE_METER_TO_SQUARE_FOOT : constant := METER_TO_FOOT * METER_TO_FOOT ;
  SQUARE_FOOT_TO_SQUARE_METER : constant := FOOT_TO_METER * FOOT_TO_METER ;

--
-- volume
--
  CUBIC_METER_TO_CUBIC_FOOT : constant := SQUARE_METER_TO_SQUARE_FOOT *
      METER_TO_FOOT ;
  CUBIC_FOOT_TO_CUBIC_METER : constant := SQUARE_FOOT_TO_SQUARE_METER *
      FOOT_TO_METER ;

--
-- velocity
--
  METER_PER_SECOND_TO_FOOT_PER_SECOND : constant := METER_TO_FOOT ;

--
-- angular velocity
--
  RADIAN_PER_SECOND_TO_DEGREE_PER_SECOND : constant := RADIAN_TO_DEGREE ;

--
-- acceleration
--
  METER_PER_SECOND_SQUARED_TO_FOOT_PER_SECOND_SQUARED : constant :=
      METER_TO_FOOT ;

--
-- angular acceleration
--
  RADIAN_PER_SECOND_SQUARED_TO_DEGREE_PER_SECOND_SQUARED : constant :=
      RADIAN_TO_DEGREE ;

--
-- force
--
  POUNDS_TO_POUNDALS : constant := 32.1725 ;
  NEWTON_TO_DYNE : constant := 1.0E5 ;  -- cgs
  NEWTON_TO_POUND : constant := KILOGRAM_TO_POUND * METER_TO_FOOT ;
  NEWTON_TO_POUNDAL : constant := 7.23300 ;

--
-- energy, work, heat, torque ( moment )
--
  JOULE_TO_ERG : constant := 1.0E7 ;  -- cgs

--
-- power
--
  WATT_TO_ERG_PER_SECOND : constant := 1.0E7 ;  -- cgs

--
-- density
--
  KILOGRAM_PER_CUBIC_METER_TO_POUND_PER_CUBIC_FOOT : constant :=
      KILOGRAM_TO_POUND / CUBIC_METER_TO_CUBIC_FOOT ;

--
-- flow rate
--
  CUBIC_METER_PER_SECOND_TO_CUBIC_FOOT_PER_SECOND : constant :=
      CUBIC_METER_TO_CUBIC_FOOT ;

--
-- pressure, stress, energy density
--
  PASCAL_TO_NEWTON_PER_SQUARE_METER : constant := 1.0 ;
  PASCAL_TO_POUND_PER_SQUARE_FOOT : constant := NEWTON_TO_POUND /
      SQUARE_METER_TO_SQUARE_FOOT ;

--
-- momentum
--
  NEWTON_SECOND_TO_POUND_SECOND : constant := NEWTON_TO_POUND ;

--
-- inertia
--
  JOULE_SECOND_TO_POUND_SQUARE_FOOT_PER_SECOND : constant := KILOGRAM_TO_POUND
      * SQUARE_METER_TO_SQUARE_FOOT ;

--
-- moment of inertia
--
  KILOGRAM_SQUARE_METER_TO_POUND_SQUARE_FOOT : constant := KILOGRAM_TO_POUND *
      SQUARE_METER_TO_SQUARE_FOOT ;

--
-- kinematic viscosity
--
  KILOGRAM_SQUARED_PER_SECOND_TO_POUND_SQUARED_PER_SECOND : constant :=
      KILOGRAM_TO_POUND * KILOGRAM_TO_POUND ;

--
-- viscosity, dynamic viscosity
--
  KILOGRAM_PER_METER_SECOND_TO_POUND_PER_FOOT_SECOND : constant :=
      KILOGRAM_TO_POUND / METER_TO_FOOT ;

--
-- luminous flux
--
  LUMEN_TO_LUMEN : constant := 1.0 ;

--
-- illumination
--
  LUMEN_PER_SQUARE_METER_TO_LUX : constant := 1.0 ;  -- metre candle
  LUMEN_PER_SQUARE_METER_TO_FOOT_CANDLE : constant := 10.76 ;  -- lumen/ sq ft
  LUMEN_PER_SQUARE_METER_TO_PHOT : constant := 1.0E4 ;  -- cm candle

--
-- luminance
--
  CANDEL_PER_SQUARE_METER_TO_LUX : constant := 1.0 ;

--
-- entropy
--
  JOULE_PER_DEGREE_KELVIN_TO_B_T_U_PER_POUND_DEGREE_FARENHEIT : constant :=
      999999999.99999999999 ;  -- ?

--
-- electric current, magnetomotive force, I
--
  AMPERE_TO_ABAMPERE : constant := 0.1 ;  -- cgs emu
  AMPERE_TO_STATAMPERE : constant := 10.0 * C ;  -- cgs esu
  AMPERE_TO_GILBERT : constant := 4.0 * PI / 10.0 ;
  AMPERE_TO_AMPERE_TURN : constant := 1.0 ;

--
-- voltage, potential difference, electromotive force ( emf ), E
--
  VOLT_TO_ABVOLT : constant := 1.0E8 ;  -- cgs emu
  VOLT_TO_STSTVOLT : constant := 1.0E6 * C ;

--
-- electric resistance, R
--
  OHM_TO_ABOHM : constant := 1.0E9 ;  -- cgs emu
  OHM_TO_STATOHM : constant := 1.0E5 * C * C ;  -- cgs esu

--
-- electric resistivity
--
  OHM_METER_TO_ABOHM_CENTIMETER : constant := 1.0E11 ;

--
-- electric conductance, G
--
  MHO_TO_ABMHO : constant := 1.0E-9 ;  -- cgs emu

--
-- electric conductivity
--
  MHO_PER_METER_TO_ABMHO_PER_CENTIMETER : constant := 1.0E-11 ;  -- cgs emu

--
-- capacitance, C
--
  FARAD_TO_ABFARAD : constant := 1.0E-9 ;  -- cgs emu
  FARAD_TO_STATFARAD : constant := 1.0E-5 * C * C ;  -- cgs esu
  FARAD_TO_MICROFARAD : constant := 1.0E6 ;
  FARAD_TO_PICOFARAD : constant := 1.0E12 ;

--
-- inductance, L
--
  HENRY_TO_ABHENRY : constant := 1.0E9 ;  -- cgs emu
  HENRY_TO_STATHENRY : constant := 1.0E5 / ( C * C ) ;  -- cgs esu
  HENRY_TO_MILLIHENRY : constant := 1000.0 ;
  HENRY_TO_MICROHENRY : constant := 1.0E6 ;

--
-- current density, J
--
  AMPERE_PER_SQUARE_METER : constant := 1.0 ;

--
-- charge density
--
  COULOMB_PER_CUBIC_METER : constant := 1.0 ;

--
-- magnetic flux, magnetic pole
--
  WEBER_TO_MAXWELL : constant := 1.0E8 ;  -- cgs
  WEBER_TO_VOLT_SECOND : constant := 1.0 ;
  WEBER_TO_POLE : constant := 1.0E8 / ( 4.0 * PI ) ;  -- cgs

--
-- magnetic flux density, magnetic induction, B
--
  TESLA_TO_WEBER_PER_SQUARE_METER : constant := 1.0 ;
  TESLA_TO_GAUSS : constant := 1.0E4 ;  -- cgs

--
-- magnetic intensity, magnetic field strength, H
--
  AMPERE_PER_METER_TO_OERSTED : constant := 0.01 * 4.0 * PI ;
  AMPERE_PER_METER_TO_NEWTON_PER_WEBER : constant := 1.0 ;

--
-- magnetic vector potential, A
--
  WEBER_PER_METER : constant := 1.0 ;

--
-- electric fiels strength, electric field intensity, E
--
  VOLT_PER_METER_TO_NEWTON_PER_COULOMB : constant := 1.0 ;

--
-- electric displacement, D
--
  ELECTRIC_DISPLACEMENT_TO_COULOMB_PER_SQUARE_METER : constant := 1.0 ;

--
-- permeability
--
  PERMEABILITY_TO_HENRY_PER_METER : constant := 1.0 ;

--
-- permittivity, dielectric constant
--
  PERMITTIVITY_TO_FARAD_PER_METER : constant := 1.0 ;

--
-- frequency
--
  HERTZ_TO_KILOHERTZ : constant := 1.0E-3 ;
  HERTZ_TO_MEGAHERTZ : constant := 1.0E-6 ;
  HERTZ_TO_GIGAHERTZ : constant := 1.0E-9 ;
  HERTZ_TO_RADIAN_PER_SECOND : constant := 1.0 / ( 2.0 * PI ) ;

--
-- angular frequency, omega = 2 Pi f
--
  RADIAN_PER_SECOND_TO_HERTZ : constant := 2.0 * PI ;

--
end PHYSICAL_CONVERSION_CONSTANT ;
::::::::::
Z000015.ADA
::::::::::

-- The combinational problem of converting from every unit to every
-- other units of the same dimension is too large to be practical.
--
-- The compromise solution is to provide:
--   MKS,     conversion of every metric unit to the corresponding MKS unit
--   MKS,     conversion of primary English unit to corresponding MKS unit
--   ENGLISH, conversion of every English unit to the primary English unit
--   ENGLISH, conversion of every MKS unit to corresponding primary English unit
--   CONVERT, conversion from primary English unit to other English units
--   CONVERT, conversion from MKS unit to other metric units
--
-- The overloaded function MKS returns the MKS value.
--
-- The overloaded function ENGLISH returns the primary English value.
--
-- The overloaded function CONVERT returns all units
--                                         other than MKS or primary English
--
-- Note: Any of these functions may need to be called with qualification.
--       Usually, MKS and ENGLISH will not require qualification.
--       Almost always, CONVERT will require qualification.
--
--         PUT ( LENGTH_CENTIMETER' ( CONVERT ( SOME_LENGTH ) ) ) ;
--
--      DO NOT get the concept of units conversion confused with the
--      Ada concept of type conversion. An Ada type conversion CAN NOT
--      change meters to feet.
--

with PHYSICAL_UNITS_BASIC ; use PHYSICAL_UNITS_BASIC ;
with PHYSICAL_UNITS_MECHANICAL ; use PHYSICAL_UNITS_MECHANICAL ;
with PHYSICAL_UNITS_ELECTRICAL ; use PHYSICAL_UNITS_ELECTRICAL ;

package PHYSICAL_UNITS_CONVERSION is

  function CONVERT ( ITEM : LENGTH_ENGLISH ) return LENGTH_INCH ;

  function CONVERT ( ITEM : LENGTH_MKS ) return LENGTH_CENTIMETER ;

end PHYSICAL_UNITS_CONVERSION ;


with PHYSICAL_CONVERSION_CONSTANT ; use PHYSICAL_CONVERSION_CONSTANT ;
with PHYSICAL_REAL ; use PHYSICAL_REAL ;

package body PHYSICAL_UNITS_CONVERSION is
-- This will be filled in for all CONVERT functions

  function CONVERT ( ITEM : LENGTH_ENGLISH ) return LENGTH_INCH is
  begin
    return DIMENSION ( UNDIMENSION( ITEM )) * FOOT_TO_INCH ;
  end CONVERT ;

  function CONVERT ( ITEM : LENGTH_MKS ) return LENGTH_CENTIMETER is
  begin
    return DIMENSION ( UNDIMENSION( ITEM )) * METER_TO_CENTIMETER ;
  end CONVERT ;

end PHYSICAL_UNITS_CONVERSION ;
::::::::::
Z000016.ADA
::::::::::

-- The combinational problem of converting from every unit to every
-- other units of the same dimension is too large to be practical.
--
-- The compromise solution is to provide:
--   MKS,     conversion of every metric unit to the corresponding MKS unit
--   MKS,     conversion of primary English unit to corresponding MKS unit
--   ENGLISH, conversion of every English unit to the primary English unit
--   ENGLISH, conversion of every MKS unit to corresponding primary English unit
--   CONVERT, conversion from primary English unit to other English units
--   CONVERT, conversion from MKS unit to other metric units
--
-- The overloaded function MKS returns the MKS value.
--
-- The overloaded function ENGLISH returns the primary English value.
--
-- The overloaded function CONVERT returns all units
--                                         other than MKS or primary English
--
-- Note: Any of these functions may need to be called with qualification.
--       Usually, MKS and ENGLISH will not require qualification.
--       Almost always, CONVERT will require qualification.
--
--         PUT ( LENGTH_CENTIMETER' ( CONVERT ( SOME_LENGTH ) ) ) ;
--
--      DO NOT get the concept of units conversion confused with the
--      Ada concept of type conversion. An Ada type conversion CAN NOT
--      change meters to feet.
--
with PHYSICAL_UNITS_BASIC ; use PHYSICAL_UNITS_BASIC ;
with PHYSICAL_UNITS_MECHANICAL ; use PHYSICAL_UNITS_MECHANICAL ;
with PHYSICAL_UNITS_ELECTRICAL ; use PHYSICAL_UNITS_ELECTRICAL ;

package PHYSICAL_UNITS_CONVERSION_MKS is

  function MKS ( ITEM : LENGTH_ENGLISH ) return LENGTH_MKS ;

  function MKS ( ITEM : LENGTH_PICOMETER ) return LENGTH_MKS ;

  function MKS ( ITEM : LENGTH_NANOMETER ) return LENGTH_MKS ;

  function MKS ( ITEM : LENGTH_MICROMETER ) return LENGTH_MKS ;

  function MKS ( ITEM : LENGTH_MILLIMETER ) return LENGTH_MKS ;

  function MKS ( ITEM : LENGTH_CENTIMETER ) return LENGTH_MKS ;

  function MKS ( ITEM : LENGTH_DECIMETER ) return LENGTH_MKS ;

  function MKS ( ITEM : LENGTH_DECAMETER ) return LENGTH_MKS ;

  function MKS ( ITEM : LENGTH_HECTOMETER ) return LENGTH_MKS ;

  function MKS ( ITEM : LENGTH_KILOMETER ) return LENGTH_MKS ;

  function MKS ( ITEM : LENGTH_MEGAMETER ) return LENGTH_MKS ;

  function MKS ( ITEM : LENGTH_GIGAMETER ) return LENGTH_MKS ;

  function MKS ( ITEM : LENGTH_ANGSTROM ) return LENGTH_MKS ;

  function MKS ( ITEM : MASS_ENGLISH ) return MASS_MKS ;

  function MKS ( ITEM : MASS_MILLIGRAM ) return MASS_MKS ;

  function MKS ( ITEM : MASS_GRAM ) return MASS_MKS ;

  function MKS ( ITEM : MASS_TON_METRIC ) return MASS_MKS ;

  function MKS ( ITEM : TIME_PICOSECOND ) return TIME_SECOND ;

  function MKS ( ITEM : TIME_NANOSECOND ) return TIME_SECOND ;

  function MKS ( ITEM : TIME_MICROSECOND ) return TIME_SECOND ;

  function MKS ( ITEM : TIME_MILLISECOND ) return TIME_SECOND ;

  function MKS ( ITEM : TIME_CENTISECOND ) return TIME_SECOND ;

  function MKS ( ITEM : TIME_KILOSECOND ) return TIME_SECOND ;

  function MKS ( ITEM : TIME_MEGASECOND ) return TIME_SECOND ;

  function MKS ( ITEM : TIME_GIGASECOND ) return TIME_SECOND ;

  function MKS ( ITEM : TIME_MINUTE ) return TIME_SECOND ;

  function MKS ( ITEM : TIME_HOUR ) return TIME_SECOND ;

  function MKS ( ITEM : TIME_DAY ) return TIME_SECOND ;

  function MKS ( ITEM : TIME_FORTNIGHT ) return TIME_SECOND ;

  function MKS ( ITEM : TIME_MONTH ) return TIME_SECOND ;

  function MKS ( ITEM : TIME_YEAR ) return TIME_SECOND ;

  function MKS ( ITEM : TIME_DECADE ) return TIME_SECOND ;

  function MKS ( ITEM : TIME_CENTURY ) return TIME_SECOND ;

  function MKS ( ITEM : TIME_MILLENNIA ) return TIME_SECOND ;

  function MKS ( ITEM : CHARGE_AMPERE_HOURS ) return CHARGE_COULOMB ;

  function MKS ( ITEM : CHARGE_ELECTRON ) return CHARGE_COULOMB ;

  function MKS ( ITEM : CHARGE_FARADAY ) return CHARGE_COULOMB ;

  function MKS ( ITEM : TEMPERATURE_CENTIGRADE ) return TEMPERATURE_KELVIN ;

  function MKS ( ITEM : TEMPERATURE_FARENHEIT ) return TEMPERATURE_KELVIN ;

  function MKS ( ITEM : ANGLE_SECOND ) return ANGLE_RADIAN ;

  function MKS ( ITEM : ANGLE_MINUTE ) return ANGLE_RADIAN ;

  function MKS ( ITEM : ANGLE_DEGREE ) return ANGLE_RADIAN ;

  function MKS ( ITEM : ANGLE_REVOLUTION ) return ANGLE_RADIAN ;

  function MKS ( ITEM : ANGLE_BAM ) return ANGLE_RADIAN ;

  function MKS ( ITEM : AREA_ENGLISH ) return AREA_MKS ;

  function MKS ( ITEM : AREA_SQUARE_CENTIMETER ) return AREA_MKS ;

  function MKS ( ITEM : AREA_SQUARE_KILOMETER ) return AREA_MKS ;

  function MKS ( ITEM : AREA_HECTARE ) return AREA_MKS ;

  function MKS ( ITEM : VOLUME_ENGLISH ) return VOLUME_MKS ;

  function MKS ( ITEM : VOLUME_MILLILITER ) return VOLUME_MKS ;

  function MKS ( ITEM : VOLUME_LITER ) return VOLUME_MKS ;

  function MKS ( ITEM : VOLUME_KILOLITER ) return VOLUME_MKS ;

  function MKS ( ITEM : VOLUME_CUBIC_CENTIMETER ) return VOLUME_MKS ;

  function MKS ( ITEM : VELOCITY_ENGLISH ) return VELOCITY_MKS ;

  function MKS ( ITEM : VELOCITY_CENTIMETER_PER_SECOND ) return VELOCITY_MKS ;

  function MKS ( ITEM : VELOCITY_KILOMETER_PER_HOUR ) return VELOCITY_MKS ;

  function MKS ( ITEM : ACCELERATION_ENGLISH ) return ACCELERATION_MKS ;

  function MKS ( ITEM : FORCE_DYNE ) return FORCE_MKS ;

  function MKS ( ITEM : FORCE_ENGLISH ) return FORCE_MKS ;

  function MKS ( ITEM : ENERGY_ERG ) return ENERGY_MKS ;

  function MKS ( ITEM : ENERGY_GRAM_CALORIE ) return ENERGY_MKS ;

  function MKS ( ITEM : ENERGY_KILOGRAM_CALORIE ) return ENERGY_MKS ;

  function MKS ( ITEM : ENERGY_ENGLISH ) return ENERGY_MKS ;

  function MKS ( ITEM : POWER_KILOGRAM_CALORIE_PER_SECOND ) return POWER_MKS ;

  function MKS ( ITEM : POWER_KILOGRAN_CALORIE_PER_MINUTE ) return POWER_MKS ;

  function MKS ( ITEM : POWER_HORSEPOWER_METRIC ) return POWER_MKS ;

  function MKS ( ITEM : DENSITY_ENGLISH ) return DENSITY_MKS ;

  function MKS ( ITEM : FLOW_RATE_ENGLISH ) return FLOW_RATE_MKS ;

  function MKS ( ITEM : PRESSURE_ENGLISH ) return PRESSURE_MKS ;

  function MKS ( ITEM : PRESSURE_ATMOSPHERE_STANDARD ) return PRESSURE_MKS ;

  function MKS ( ITEM : PRESSURE_MILLIMETER_OF_MERCURY ) return PRESSURE_MKS ;

  function MKS ( ITEM : PRESSURE_BAR ) return PRESSURE_MKS ;

  function MKS ( ITEM : PRESSURE_MILLIBAR ) return PRESSURE_MKS ;

  function MKS ( ITEM : PRESSURE_TORR ) return PRESSURE_MKS ;

  function MKS ( ITEM : CURRENT_MILLIAMPERE ) return CURRENT_AMPERE ;

  function MKS ( ITEM : CURRENT_MICROAMPERE ) return CURRENT_AMPERE ;

  function MKS ( ITEM : CURRENT_ABAMPERE ) return CURRENT_AMPERE ;

  function MKS ( ITEM : CURRENT_STATAMPERE ) return CURRENT_AMPERE ;

  function MKS ( ITEM : VOLTAGE_MILLIVOLT ) return VOLTAGE_VOLT ;

  function MKS ( ITEM : VOLTAGE_MICROVOLT ) return VOLTAGE_VOLT ;

  function MKS ( ITEM : VOLTAGE_KILOVOLT ) return VOLTAGE_VOLT ;

  function MKS ( ITEM : RESISTANCE_MILLIOHM ) return RESISTANCE_OHM ;

  function MKS ( ITEM : RESISTANCE_KILOHM ) return RESISTANCE_OHM ;

  function MKS ( ITEM : RESISTANCE_MEGOHM ) return RESISTANCE_OHM ;

  function MKS ( ITEM : CAPACITANCE_MICROFARAD ) return CAPACITANCE_FARAD ;

  function MKS ( ITEM : CAPACITANCE_PICOFARAD ) return CAPACITANCE_FARAD ;

  function MKS ( ITEM : INDUCTANCE_MILLIHENRY ) return INDUCTANCE_HENRY ;

  function MKS ( ITEM : INDUCTANCE_MICROHENRY ) return INDUCTANCE_HENRY ;

  function MKS ( ITEM : FREQUENCY_KILOHERTZ ) return FREQUENCY_HERTZ ;

  function MKS ( ITEM : FREQUENCY_MEGAHERTZ ) return FREQUENCY_HERTZ ;

  function MKS ( ITEM : FREQUENCY_GIGAHERTZ ) return FREQUENCY_HERTZ ;

end PHYSICAL_UNITS_CONVERSION_MKS ;
::::::::::
Z000016A.ADA
::::::::::


with PHYSICAL_CONVERSION_CONSTANT ; use PHYSICAL_CONVERSION_CONSTANT ;
with PHYSICAL_REAL ; use PHYSICAL_REAL ;

package body PHYSICAL_UNITS_CONVERSION_MKS is

  function MKS ( ITEM : LENGTH_ENGLISH ) return LENGTH_MKS is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) * FOOT_TO_METER ;
  end MKS ;

  function MKS ( ITEM : LENGTH_PICOMETER ) return LENGTH_MKS is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) / METER_TO_PICOMETER ;
  end MKS ;

  function MKS ( ITEM : LENGTH_NANOMETER ) return LENGTH_MKS is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) / METER_TO_NANOMETER ;
  end MKS ;

  function MKS ( ITEM : LENGTH_MICROMETER ) return LENGTH_MKS is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) / METER_TO_MICROMETER ;
  end MKS ;

  function MKS ( ITEM : LENGTH_MILLIMETER ) return LENGTH_MKS is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) / METER_TO_MILLIMETER ;
  end MKS ;

  function MKS ( ITEM : LENGTH_CENTIMETER ) return LENGTH_MKS is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) / METER_TO_CENTIMETER ;
  end MKS ;

  function MKS ( ITEM : LENGTH_DECIMETER ) return LENGTH_MKS is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) / METER_TO_DECIMETER ;
  end MKS ;

  function MKS ( ITEM : LENGTH_DECAMETER ) return LENGTH_MKS is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) / METER_TO_DECAMETER ;
  end MKS ;

  function MKS ( ITEM : LENGTH_HECTOMETER ) return LENGTH_MKS is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) / METER_TO_HECTOMETER ;
  end MKS ;

  function MKS ( ITEM : LENGTH_KILOMETER ) return LENGTH_MKS is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) / METER_TO_KILOMETER ;
  end MKS ;

  function MKS ( ITEM : LENGTH_MEGAMETER ) return LENGTH_MKS is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) / METER_TO_MEGAMETER ;
  end MKS ;

  function MKS ( ITEM : LENGTH_GIGAMETER ) return LENGTH_MKS is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) / METER_TO_GIGAMETER ;
  end MKS ;

  function MKS ( ITEM : LENGTH_ANGSTROM ) return LENGTH_MKS is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) / METER_TO_ANGSTROM ;
  end MKS ;

  function MKS ( ITEM : MASS_ENGLISH ) return MASS_MKS is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) * POUND_TO_KILOGRAM ;
  end MKS ;

  function MKS ( ITEM : MASS_MILLIGRAM ) return MASS_MKS is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) / KILOGRAM_TO_MILLIGRAM ;
  end MKS ;

  function MKS ( ITEM : MASS_GRAM ) return MASS_MKS is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) / KILOGRAM_TO_GRAM ;
  end MKS ;

  function MKS ( ITEM : MASS_TON_METRIC ) return MASS_MKS is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) / KILOGRAM_TO_TON_METRIC ;
  end MKS ;

  function MKS ( ITEM : TIME_PICOSECOND ) return TIME_SECOND is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) / SECOND_TO_PICOSECOND ;
  end MKS ;

  function MKS ( ITEM : TIME_NANOSECOND ) return TIME_SECOND is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) / SECOND_TO_NANOSECOND ;
  end MKS ;

  function MKS ( ITEM : TIME_MICROSECOND ) return TIME_SECOND is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) / SECOND_TO_MICROSECOND ;
  end MKS ;

  function MKS ( ITEM : TIME_MILLISECOND ) return TIME_SECOND is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) / SECOND_TO_MILLISECOND ;
  end MKS ;

  function MKS ( ITEM : TIME_CENTISECOND ) return TIME_SECOND is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) / SECOND_TO_CENTISECOND ;
  end MKS ;

  function MKS ( ITEM : TIME_KILOSECOND ) return TIME_SECOND is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) / SECOND_TO_KILOSECOND ;
  end MKS ;

  function MKS ( ITEM : TIME_MEGASECOND ) return TIME_SECOND is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) / SECOND_TO_MEGASECOND ;
  end MKS ;

  function MKS ( ITEM : TIME_GIGASECOND ) return TIME_SECOND is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) / SECOND_TO_GIGASECOND ;
  end MKS ;

  function MKS ( ITEM : TIME_MINUTE ) return TIME_SECOND is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) / SECOND_TO_MINUTE ;
  end MKS ;

  function MKS ( ITEM : TIME_HOUR ) return TIME_SECOND is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) / SECOND_TO_HOUR ;
  end MKS ;

  function MKS ( ITEM : TIME_DAY ) return TIME_SECOND is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) / SECOND_TO_DAY ;
  end MKS ;

  function MKS ( ITEM : TIME_FORTNIGHT ) return TIME_SECOND is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) / SECOND_TO_FORTNIGHT ;
  end MKS ;

  function MKS ( ITEM : TIME_MONTH ) return TIME_SECOND is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) / SECOND_TO_MONTH ;
  end MKS ;

  function MKS ( ITEM : TIME_YEAR ) return TIME_SECOND is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) / SECOND_TO_YEAR ;
  end MKS ;

  function MKS ( ITEM : TIME_DECADE ) return TIME_SECOND is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) / SECOND_TO_DECADE ;
  end MKS ;

  function MKS ( ITEM : TIME_CENTURY ) return TIME_SECOND is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) / SECOND_TO_CENTURY ;
  end MKS ;

  function MKS ( ITEM : TIME_MILLENNIA ) return TIME_SECOND is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) / SECOND_TO_MILLENNIA ;
  end MKS ;

  function MKS ( ITEM : CHARGE_AMPERE_HOURS ) return CHARGE_COULOMB is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end MKS ;

  function MKS ( ITEM : CHARGE_ELECTRON ) return CHARGE_COULOMB is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end MKS ;

  function MKS ( ITEM : CHARGE_FARADAY ) return CHARGE_COULOMB is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end MKS ;

  function MKS ( ITEM : TEMPERATURE_CENTIGRADE ) return TEMPERATURE_KELVIN is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end MKS ;

  function MKS ( ITEM : TEMPERATURE_FARENHEIT ) return TEMPERATURE_KELVIN is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end MKS ;

  function MKS ( ITEM : ANGLE_SECOND ) return ANGLE_RADIAN is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end MKS ;

  function MKS ( ITEM : ANGLE_MINUTE ) return ANGLE_RADIAN is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end MKS ;

  function MKS ( ITEM : ANGLE_DEGREE ) return ANGLE_RADIAN is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end MKS ;

  function MKS ( ITEM : ANGLE_REVOLUTION ) return ANGLE_RADIAN is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end MKS ;

  function MKS ( ITEM : ANGLE_BAM ) return ANGLE_RADIAN is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end MKS ;

  function MKS ( ITEM : AREA_ENGLISH ) return AREA_MKS is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end MKS ;

  function MKS ( ITEM : AREA_SQUARE_CENTIMETER ) return AREA_MKS is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end MKS ;

  function MKS ( ITEM : AREA_SQUARE_KILOMETER ) return AREA_MKS is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end MKS ;

  function MKS ( ITEM : AREA_HECTARE ) return AREA_MKS is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end MKS ;

  function MKS ( ITEM : VOLUME_ENGLISH ) return VOLUME_MKS is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end MKS ;

  function MKS ( ITEM : VOLUME_MILLILITER ) return VOLUME_MKS is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end MKS ;

  function MKS ( ITEM : VOLUME_LITER ) return VOLUME_MKS is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end MKS ;

  function MKS ( ITEM : VOLUME_KILOLITER ) return VOLUME_MKS is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end MKS ;

  function MKS ( ITEM : VOLUME_CUBIC_CENTIMETER ) return VOLUME_MKS is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end MKS ;

  function MKS ( ITEM : VELOCITY_ENGLISH ) return VELOCITY_MKS is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end MKS ;

  function MKS ( ITEM : VELOCITY_CENTIMETER_PER_SECOND ) return VELOCITY_MKS
      is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end MKS ;

  function MKS ( ITEM : VELOCITY_KILOMETER_PER_HOUR ) return VELOCITY_MKS is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end MKS ;

  function MKS ( ITEM : ACCELERATION_ENGLISH ) return ACCELERATION_MKS is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end MKS ;

  function MKS ( ITEM : FORCE_DYNE ) return FORCE_MKS is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end MKS ;

  function MKS ( ITEM : FORCE_ENGLISH ) return FORCE_MKS is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end MKS ;

  function MKS ( ITEM : ENERGY_ERG ) return ENERGY_MKS is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end MKS ;

  function MKS ( ITEM : ENERGY_GRAM_CALORIE ) return ENERGY_MKS is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end MKS ;

  function MKS ( ITEM : ENERGY_KILOGRAM_CALORIE ) return ENERGY_MKS is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end MKS ;

  function MKS ( ITEM : ENERGY_ENGLISH ) return ENERGY_MKS is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end MKS ;

  function MKS ( ITEM : POWER_KILOGRAM_CALORIE_PER_SECOND ) return POWER_MKS
      is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end MKS ;

  function MKS ( ITEM : POWER_KILOGRAN_CALORIE_PER_MINUTE ) return POWER_MKS
      is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end MKS ;

  function MKS ( ITEM : POWER_HORSEPOWER_METRIC ) return POWER_MKS is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end MKS ;

  function MKS ( ITEM : DENSITY_ENGLISH ) return DENSITY_MKS is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end MKS ;

  function MKS ( ITEM : FLOW_RATE_ENGLISH ) return FLOW_RATE_MKS is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end MKS ;

  function MKS ( ITEM : PRESSURE_ENGLISH ) return PRESSURE_MKS is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end MKS ;

  function MKS ( ITEM : PRESSURE_ATMOSPHERE_STANDARD ) return PRESSURE_MKS is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end MKS ;

  function MKS ( ITEM : PRESSURE_MILLIMETER_OF_MERCURY ) return PRESSURE_MKS
      is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end MKS ;

  function MKS ( ITEM : PRESSURE_BAR ) return PRESSURE_MKS is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end MKS ;

  function MKS ( ITEM : PRESSURE_MILLIBAR ) return PRESSURE_MKS is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end MKS ;

  function MKS ( ITEM : PRESSURE_TORR ) return PRESSURE_MKS is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end MKS ;

  function MKS ( ITEM : CURRENT_MILLIAMPERE ) return CURRENT_AMPERE is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end MKS ;

  function MKS ( ITEM : CURRENT_MICROAMPERE ) return CURRENT_AMPERE is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end MKS ;

  function MKS ( ITEM : CURRENT_ABAMPERE ) return CURRENT_AMPERE is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end MKS ;

  function MKS ( ITEM : CURRENT_STATAMPERE ) return CURRENT_AMPERE is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end MKS ;

  function MKS ( ITEM : VOLTAGE_MILLIVOLT ) return VOLTAGE_VOLT is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end MKS ;

  function MKS ( ITEM : VOLTAGE_MICROVOLT ) return VOLTAGE_VOLT is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end MKS ;

  function MKS ( ITEM : VOLTAGE_KILOVOLT ) return VOLTAGE_VOLT is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end MKS ;

  function MKS ( ITEM : RESISTANCE_MILLIOHM ) return RESISTANCE_OHM is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end MKS ;

  function MKS ( ITEM : RESISTANCE_KILOHM ) return RESISTANCE_OHM is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end MKS ;

  function MKS ( ITEM : RESISTANCE_MEGOHM ) return RESISTANCE_OHM is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end MKS ;

  function MKS ( ITEM : CAPACITANCE_MICROFARAD ) return CAPACITANCE_FARAD is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end MKS ;

  function MKS ( ITEM : CAPACITANCE_PICOFARAD ) return CAPACITANCE_FARAD is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end MKS ;

  function MKS ( ITEM : INDUCTANCE_MILLIHENRY ) return INDUCTANCE_HENRY is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end MKS ;

  function MKS ( ITEM : INDUCTANCE_MICROHENRY ) return INDUCTANCE_HENRY is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end MKS ;

  function MKS ( ITEM : FREQUENCY_KILOHERTZ ) return FREQUENCY_HERTZ is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end MKS ;

  function MKS ( ITEM : FREQUENCY_MEGAHERTZ ) return FREQUENCY_HERTZ is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end MKS ;

  function MKS ( ITEM : FREQUENCY_GIGAHERTZ ) return FREQUENCY_HERTZ is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end MKS ;
end PHYSICAL_UNITS_CONVERSION_MKS ;
::::::::::
Z000017.ADA
::::::::::

-- The combinational problem of converting from every unit to every
-- other units of the same dimension is too large to be practical.
--
-- The compromise solution is to provide:
--   MKS,     conversion of every metric unit to the corresponding MKS unit
--   MKS,     conversion of primary English unit to corresponding MKS unit
--   ENGLISH, conversion of every English unit to the primary English unit
--   ENGLISH, conversion of every MKS unit to corresponding primary English unit
--   CONVERT, conversion from primary English unit to other English units
--   CONVERT, conversion from MKS unit to other metric units
--
-- The overloaded function MKS returns the MKS value.
--
-- The overloaded function ENGLISH returns the primary English value.
--
-- The overloaded function CONVERT returns all units
--                                         other than MKS or primary English
--
-- Note: Any of these functions may need to be called with qualification.
--       Usually, MKS and ENGLISH will not require qualification.
--       Almost always, CONVERT will require qualification.
--
--         PUT ( LENGTH_CENTIMETER' ( CONVERT ( SOME_LENGTH ) ) ) ;
--
--      DO NOT get the concept of units conversion confused with the
--      Ada concept of type conversion. An Ada type conversion CAN NOT
--      change meters to feet.
--
with PHYSICAL_UNITS_BASIC ; use PHYSICAL_UNITS_BASIC ;
with PHYSICAL_UNITS_MECHANICAL ; use PHYSICAL_UNITS_MECHANICAL ;
with PHYSICAL_UNITS_ELECTRICAL ; use PHYSICAL_UNITS_ELECTRICAL ;

package PHYSICAL_UNITS_CONVERSION_ENGLISH is

  function ENGLISH ( ITEM : LENGTH_MKS ) return LENGTH_ENGLISH ;

  function ENGLISH ( ITEM : LENGTH_MIL ) return LENGTH_ENGLISH ;

  function ENGLISH ( ITEM : LENGTH_INCH ) return LENGTH_ENGLISH ;

  function ENGLISH ( ITEM : LENGTH_YARD ) return LENGTH_ENGLISH ;

  function ENGLISH ( ITEM : LENGTH_FATHOM ) return LENGTH_ENGLISH ;

  function ENGLISH ( ITEM : LENGTH_ROD ) return LENGTH_ENGLISH ;

  function ENGLISH ( ITEM : LENGTH_CHAIN_SURVEYOR ) return LENGTH_ENGLISH ;

  function ENGLISH ( ITEM : LENGTH_CHAIN_ENGINEER ) return LENGTH_ENGLISH ;

  function ENGLISH ( ITEM : LENGTH_FURLONG ) return LENGTH_ENGLISH ;

  function ENGLISH ( ITEM : LENGTH_MILE ) return LENGTH_ENGLISH ;

  function ENGLISH ( ITEM : LENGTH_MILE_NAUTICAL ) return LENGTH_ENGLISH ;

  function ENGLISH ( ITEM : LENGTH_LEAGUE_LAND ) return LENGTH_ENGLISH ;

  function ENGLISH ( ITEM : LENGTH_LEAGUE_MARINE ) return LENGTH_ENGLISH ;

  function ENGLISH ( ITEM : LENGTH_LIGHT_YEAR ) return LENGTH_ENGLISH ;

  function ENGLISH ( ITEM : MASS_MKS ) return MASS_ENGLISH ;

  function ENGLISH ( ITEM : MASS_POUND_TROY ) return MASS_ENGLISH ;

  function ENGLISH ( ITEM : MASS_GRAIN ) return MASS_ENGLISH ;

  function ENGLISH ( ITEM : MASS_PENNYWEIGHT_TROY ) return MASS_ENGLISH ;

  function ENGLISH ( ITEM : MASS_CARAT_TROY ) return MASS_ENGLISH ;

  function ENGLISH ( ITEM : MASS_SCRUPLE ) return MASS_ENGLISH ;

  function ENGLISH ( ITEM : MASS_DRAM_AVDP ) return MASS_ENGLISH ;

  function ENGLISH ( ITEM : MASS_OUNCE_AVDP ) return MASS_ENGLISH ;

  function ENGLISH ( ITEM : MASS_OUNCE_TROY ) return MASS_ENGLISH ;

  function ENGLISH ( ITEM : MASS_TON_SHORT ) return MASS_ENGLISH ;

  function ENGLISH ( ITEM : MASS_TON_LONG ) return MASS_ENGLISH ;

  function ENGLISH ( ITEM : TEMPERATURE_KELVIN ) return TEMPERATURE_FARENHEIT
      ;

  function ENGLISH ( ITEM : TEMPERATURE_CENTIGRADE ) return
      TEMPERATURE_FARENHEIT ;

  function ENGLISH ( ITEM : AREA_MKS ) return AREA_ENGLISH ;

  function ENGLISH ( ITEM : AREA_SQUARE_INCH ) return AREA_ENGLISH ;

  function ENGLISH ( ITEM : AREA_SQUARE_YARD ) return AREA_ENGLISH ;

  function ENGLISH ( ITEM : AREA_SQUARE_MILE ) return AREA_ENGLISH ;

  function ENGLISH ( ITEM : AREA_ACRE ) return AREA_ENGLISH ;

  function ENGLISH ( ITEM : AREA_CIRCULAR_MIL ) return AREA_ENGLISH ;

  function ENGLISH ( ITEM : AREA_HECTARE ) return AREA_ENGLISH ;

  function ENGLISH ( ITEM : AREA_TOWNSHIP ) return AREA_ENGLISH ;

  function ENGLISH ( ITEM : VOLUME_MKS ) return VOLUME_ENGLISH ;

  function ENGLISH ( ITEM : VOLUME_CUBIC_INCH ) return VOLUME_ENGLISH ;

  function ENGLISH ( ITEM : VOLUME_CUBIC_YARD ) return VOLUME_ENGLISH ;

  function ENGLISH ( ITEM : VOLUME_CUBIC_MILE ) return VOLUME_ENGLISH ;

  function ENGLISH ( ITEM : VOLUME_TEASPOON ) return VOLUME_ENGLISH ;

  function ENGLISH ( ITEM : VOLUME_TABLESPOON ) return VOLUME_ENGLISH ;

  function ENGLISH ( ITEM : VOLUME_OUNCE_FLUID ) return VOLUME_ENGLISH ;

  function ENGLISH ( ITEM : VOLUME_JIGGER ) return VOLUME_ENGLISH ;

  function ENGLISH ( ITEM : VOLUME_CUP ) return VOLUME_ENGLISH ;

  function ENGLISH ( ITEM : VOLUME_PINT_LIQUID ) return VOLUME_ENGLISH ;

  function ENGLISH ( ITEM : VOLUME_QUART_LIQUID ) return VOLUME_ENGLISH ;

  function ENGLISH ( ITEM : VOLUME_GALLON ) return VOLUME_ENGLISH ;

  function ENGLISH ( ITEM : VOLUME_KEG ) return VOLUME_ENGLISH ;

  function ENGLISH ( ITEM : VOLUME_BARREL ) return VOLUME_ENGLISH ;

  function ENGLISH ( ITEM : VOLUME_PINT_DRY ) return VOLUME_ENGLISH ;

  function ENGLISH ( ITEM : VOLUME_QUART_DRY ) return VOLUME_ENGLISH ;

  function ENGLISH ( ITEM : VOLUME_PECK ) return VOLUME_ENGLISH ;

  function ENGLISH ( ITEM : VOLUME_BUSHEL ) return VOLUME_ENGLISH ;

  function ENGLISH ( ITEM : VOLUME_CORD ) return VOLUME_ENGLISH ;

  function ENGLISH ( ITEM : VELOCITY_MKS ) return VELOCITY_ENGLISH ;

  function ENGLISH ( ITEM : VELOCITY_INCHES_PER_SECOND ) return
      VELOCITY_ENGLISH ;

  function ENGLISH ( ITEM : VELOCITY_MILE_PER_HOUR ) return VELOCITY_ENGLISH ;

  function ENGLISH ( ITEM : VELOCITY_MILES_PER_SECOND ) return
      VELOCITY_ENGLISH ;

  function ENGLISH ( ITEM : VELOCITY_INCHES_PER_MINUTE ) return
      VELOCITY_ENGLISH ;

  function ENGLISH ( ITEM : VELOCITY_FEET_PER_MINUTE ) return VELOCITY_ENGLISH
      ;

  function ENGLISH ( ITEM : VELOCITY_MILES_PER_HOUR ) return VELOCITY_ENGLISH
      ;

  function ENGLISH ( ITEM : VELOCITY_KNOTS ) return VELOCITY_ENGLISH ;

  function ENGLISH ( ITEM : VELOCITY_FURLONG_PER_FORTNIGHT ) return
      VELOCITY_ENGLISH ;

  function ENGLISH ( ITEM : ACCELERATION_MKS ) return ACCELERATION_ENGLISH ;

  function ENGLISH ( ITEM : FORCE_MKS ) return FORCE_ENGLISH ;

  function ENGLISH ( ITEM : ENERGY_MKS ) return ENERGY_ENGLISH ;

  function ENGLISH ( ITEM : ENERGY_FOOT_POUND ) return ENERGY_ENGLISH ;

  function ENGLISH ( ITEM : ENERGY_KILOWATT_HOUR ) return ENERGY_ENGLISH ;

  function ENGLISH ( ITEM : ENERGY_HORSEPOWER_HOUR ) return ENERGY_ENGLISH ;

  function ENGLISH ( ITEM : POWER_HORSEPOWER_MECHANICAL ) return POWER_WATT ;

  function ENGLISH ( ITEM : POWER_HORSEPOWER_ELECTRICAL ) return POWER_WATT ;

  function ENGLISH ( ITEM : POWER_HORSEPOWER_BOILER ) return POWER_WATT ;

  function ENGLISH ( ITEM : POWER_B_T_U_PER_MINUTE ) return POWER_WATT ;

  function ENGLISH ( ITEM : POWER_B_T_U_PER_HOUR ) return POWER_WATT ;

  function ENGLISH ( ITEM : POWER_FOOT_POUND_PER_MINUTE ) return POWER_WATT ;

  function ENGLISH ( ITEM : POWER_FOOT_POUND_PER_SECOND ) return POWER_WATT ;

  function ENGLISH ( ITEM : DENSITY_MKS ) return DENSITY_ENGLISH ;

  function ENGLISH ( ITEM : FLOW_RATE_MKS ) return FLOW_RATE_ENGLISH ;

  function ENGLISH ( ITEM : FLOW_RATE_GALLON_PER_MINUTE ) return
      FLOW_RATE_ENGLISH ;

  function ENGLISH ( ITEM : FLOW_RATE_CUBIC_FEET_PER_MINUTE ) return
      FLOW_RATE_ENGLISH ;

  function ENGLISH ( ITEM : PRESSURE_MKS ) return PRESSURE_ENGLISH ;

  function ENGLISH ( ITEM : PRESSURE_TON_PER_SQUARE_FOOT ) return
      PRESSURE_ENGLISH ;

  function ENGLISH ( ITEM : PRESSURE_FEET_OF_WATER ) return PRESSURE_ENGLISH ;

  function ENGLISH ( ITEM : PRESSURE_INCHES_OF_MERCURY ) return
      PRESSURE_ENGLISH ;

end PHYSICAL_UNITS_CONVERSION_ENGLISH ;
::::::::::
Z000017A.ADA
::::::::::


with PHYSICAL_CONVERSION_CONSTANT ; use PHYSICAL_CONVERSION_CONSTANT ;
with PHYSICAL_REAL ; use PHYSICAL_REAL ;

package body PHYSICAL_UNITS_CONVERSION_ENGLISH is

  function ENGLISH ( ITEM : LENGTH_MKS ) return LENGTH_ENGLISH is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) * METER_TO_FOOT ;
  end ENGLISH ;

  function ENGLISH ( ITEM : LENGTH_MIL ) return LENGTH_ENGLISH is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) / FOOT_TO_MIL ;
  end ENGLISH ;

  function ENGLISH ( ITEM : LENGTH_INCH ) return LENGTH_ENGLISH is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) / FOOT_TO_INCH ;
  end ENGLISH ;

  function ENGLISH ( ITEM : LENGTH_YARD ) return LENGTH_ENGLISH is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) / FOOT_TO_YARD ;
  end ENGLISH ;

  function ENGLISH ( ITEM : LENGTH_FATHOM ) return LENGTH_ENGLISH is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) / FOOT_TO_FATHOM ;
  end ENGLISH ;

  function ENGLISH ( ITEM : LENGTH_ROD ) return LENGTH_ENGLISH is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) / FOOT_TO_ROD ;
  end ENGLISH ;

  function ENGLISH ( ITEM : LENGTH_CHAIN_SURVEYOR ) return LENGTH_ENGLISH is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) / FOOT_TO_CHAIN_SURVEYOR ;
  end ENGLISH ;

  function ENGLISH ( ITEM : LENGTH_CHAIN_ENGINEER ) return LENGTH_ENGLISH is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) / FOOT_TO_CHAIN_ENGINEER ;
  end ENGLISH ;

  function ENGLISH ( ITEM : LENGTH_FURLONG ) return LENGTH_ENGLISH is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) / FOOT_TO_FURLONG ;
  end ENGLISH ;

  function ENGLISH ( ITEM : LENGTH_MILE ) return LENGTH_ENGLISH is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) / FOOT_TO_MILE_STATUTE ;
  end ENGLISH ;

  function ENGLISH ( ITEM : LENGTH_MILE_NAUTICAL ) return LENGTH_ENGLISH is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) / FOOT_TO_MILE_NAUTICAL ;
  end ENGLISH ;

  function ENGLISH ( ITEM : LENGTH_LEAGUE_LAND ) return LENGTH_ENGLISH is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) / FOOT_TO_LEAGUE_LAND ;
  end ENGLISH ;

  function ENGLISH ( ITEM : LENGTH_LEAGUE_MARINE ) return LENGTH_ENGLISH is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) / FOOT_TO_LEAGUE_MARINE ;
  end ENGLISH ;

  function ENGLISH ( ITEM : LENGTH_LIGHT_YEAR ) return LENGTH_ENGLISH is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) / FOOT_TO_LIGHT_YEAR ;
  end ENGLISH ;

  function ENGLISH ( ITEM : MASS_MKS ) return MASS_ENGLISH is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) * KILOGRAM_TO_POUND ;
  end ENGLISH ;

  function ENGLISH ( ITEM : MASS_POUND_TROY ) return MASS_ENGLISH is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) / POUND_TO_POUND_TROY ;
  end ENGLISH ;

  function ENGLISH ( ITEM : MASS_GRAIN ) return MASS_ENGLISH is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) / POUND_TO_GRAIN ;
  end ENGLISH ;

  function ENGLISH ( ITEM : MASS_PENNYWEIGHT_TROY ) return MASS_ENGLISH is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end ENGLISH ;

  function ENGLISH ( ITEM : MASS_CARAT_TROY ) return MASS_ENGLISH is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end ENGLISH ;

  function ENGLISH ( ITEM : MASS_SCRUPLE ) return MASS_ENGLISH is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end ENGLISH ;

  function ENGLISH ( ITEM : MASS_DRAM_AVDP ) return MASS_ENGLISH is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end ENGLISH ;

  function ENGLISH ( ITEM : MASS_OUNCE_AVDP ) return MASS_ENGLISH is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end ENGLISH ;

  function ENGLISH ( ITEM : MASS_OUNCE_TROY ) return MASS_ENGLISH is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end ENGLISH ;

  function ENGLISH ( ITEM : MASS_TON_SHORT ) return MASS_ENGLISH is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end ENGLISH ;

  function ENGLISH ( ITEM : MASS_TON_LONG ) return MASS_ENGLISH is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end ENGLISH ;

  function ENGLISH ( ITEM : TEMPERATURE_KELVIN ) return TEMPERATURE_FARENHEIT
      is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end ENGLISH ;

  function ENGLISH ( ITEM : TEMPERATURE_CENTIGRADE ) return
      TEMPERATURE_FARENHEIT is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end ENGLISH ;

  function ENGLISH ( ITEM : AREA_MKS ) return AREA_ENGLISH is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end ENGLISH ;

  function ENGLISH ( ITEM : AREA_SQUARE_INCH ) return AREA_ENGLISH is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end ENGLISH ;

  function ENGLISH ( ITEM : AREA_SQUARE_YARD ) return AREA_ENGLISH is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end ENGLISH ;

  function ENGLISH ( ITEM : AREA_SQUARE_MILE ) return AREA_ENGLISH is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end ENGLISH ;

  function ENGLISH ( ITEM : AREA_ACRE ) return AREA_ENGLISH is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end ENGLISH ;

  function ENGLISH ( ITEM : AREA_CIRCULAR_MIL ) return AREA_ENGLISH is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end ENGLISH ;

  function ENGLISH ( ITEM : AREA_HECTARE ) return AREA_ENGLISH is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end ENGLISH ;

  function ENGLISH ( ITEM : AREA_TOWNSHIP ) return AREA_ENGLISH is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end ENGLISH ;

  function ENGLISH ( ITEM : VOLUME_MKS ) return VOLUME_ENGLISH is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end ENGLISH ;

  function ENGLISH ( ITEM : VOLUME_CUBIC_INCH ) return VOLUME_ENGLISH is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end ENGLISH ;

  function ENGLISH ( ITEM : VOLUME_CUBIC_YARD ) return VOLUME_ENGLISH is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end ENGLISH ;

  function ENGLISH ( ITEM : VOLUME_CUBIC_MILE ) return VOLUME_ENGLISH is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end ENGLISH ;

  function ENGLISH ( ITEM : VOLUME_TEASPOON ) return VOLUME_ENGLISH is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end ENGLISH ;

  function ENGLISH ( ITEM : VOLUME_TABLESPOON ) return VOLUME_ENGLISH is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end ENGLISH ;

  function ENGLISH ( ITEM : VOLUME_OUNCE_FLUID ) return VOLUME_ENGLISH is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end ENGLISH ;

  function ENGLISH ( ITEM : VOLUME_JIGGER ) return VOLUME_ENGLISH is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end ENGLISH ;

  function ENGLISH ( ITEM : VOLUME_CUP ) return VOLUME_ENGLISH is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end ENGLISH ;

  function ENGLISH ( ITEM : VOLUME_PINT_LIQUID ) return VOLUME_ENGLISH is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end ENGLISH ;

  function ENGLISH ( ITEM : VOLUME_QUART_LIQUID ) return VOLUME_ENGLISH is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end ENGLISH ;

  function ENGLISH ( ITEM : VOLUME_GALLON ) return VOLUME_ENGLISH is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end ENGLISH ;

  function ENGLISH ( ITEM : VOLUME_KEG ) return VOLUME_ENGLISH is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end ENGLISH ;

  function ENGLISH ( ITEM : VOLUME_BARREL ) return VOLUME_ENGLISH is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end ENGLISH ;

  function ENGLISH ( ITEM : VOLUME_PINT_DRY ) return VOLUME_ENGLISH is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end ENGLISH ;

  function ENGLISH ( ITEM : VOLUME_QUART_DRY ) return VOLUME_ENGLISH is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end ENGLISH ;

  function ENGLISH ( ITEM : VOLUME_PECK ) return VOLUME_ENGLISH is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end ENGLISH ;

  function ENGLISH ( ITEM : VOLUME_BUSHEL ) return VOLUME_ENGLISH is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end ENGLISH ;

  function ENGLISH ( ITEM : VOLUME_CORD ) return VOLUME_ENGLISH is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end ENGLISH ;

  function ENGLISH ( ITEM : VELOCITY_MKS ) return VELOCITY_ENGLISH is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end ENGLISH ;

  function ENGLISH ( ITEM : VELOCITY_INCHES_PER_SECOND ) return
      VELOCITY_ENGLISH is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end ENGLISH ;

  function ENGLISH ( ITEM : VELOCITY_MILE_PER_HOUR ) return VELOCITY_ENGLISH
      is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end ENGLISH ;

  function ENGLISH ( ITEM : VELOCITY_MILES_PER_SECOND ) return
      VELOCITY_ENGLISH is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end ENGLISH ;

  function ENGLISH ( ITEM : VELOCITY_INCHES_PER_MINUTE ) return
      VELOCITY_ENGLISH is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end ENGLISH ;

  function ENGLISH ( ITEM : VELOCITY_FEET_PER_MINUTE ) return VELOCITY_ENGLISH
      is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end ENGLISH ;

  function ENGLISH ( ITEM : VELOCITY_MILES_PER_HOUR ) return VELOCITY_ENGLISH
      is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end ENGLISH ;

  function ENGLISH ( ITEM : VELOCITY_KNOTS ) return VELOCITY_ENGLISH is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end ENGLISH ;

  function ENGLISH ( ITEM : VELOCITY_FURLONG_PER_FORTNIGHT ) return
      VELOCITY_ENGLISH is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end ENGLISH ;

  function ENGLISH ( ITEM : ACCELERATION_MKS ) return ACCELERATION_ENGLISH is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end ENGLISH ;

  function ENGLISH ( ITEM : FORCE_MKS ) return FORCE_ENGLISH is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end ENGLISH ;

  function ENGLISH ( ITEM : ENERGY_MKS ) return ENERGY_ENGLISH is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end ENGLISH ;

  function ENGLISH ( ITEM : ENERGY_FOOT_POUND ) return ENERGY_ENGLISH is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end ENGLISH ;

  function ENGLISH ( ITEM : ENERGY_KILOWATT_HOUR ) return ENERGY_ENGLISH is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end ENGLISH ;

  function ENGLISH ( ITEM : ENERGY_HORSEPOWER_HOUR ) return ENERGY_ENGLISH is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end ENGLISH ;

  function ENGLISH ( ITEM : POWER_HORSEPOWER_MECHANICAL ) return POWER_WATT is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end ENGLISH ;

  function ENGLISH ( ITEM : POWER_HORSEPOWER_ELECTRICAL ) return POWER_WATT is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end ENGLISH ;

  function ENGLISH ( ITEM : POWER_HORSEPOWER_BOILER ) return POWER_WATT is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end ENGLISH ;

  function ENGLISH ( ITEM : POWER_B_T_U_PER_MINUTE ) return POWER_WATT is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end ENGLISH ;

  function ENGLISH ( ITEM : POWER_B_T_U_PER_HOUR ) return POWER_WATT is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end ENGLISH ;

  function ENGLISH ( ITEM : POWER_FOOT_POUND_PER_MINUTE ) return POWER_WATT is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end ENGLISH ;

  function ENGLISH ( ITEM : POWER_FOOT_POUND_PER_SECOND ) return POWER_WATT is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end ENGLISH ;

  function ENGLISH ( ITEM : DENSITY_MKS ) return DENSITY_ENGLISH is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end ENGLISH ;

  function ENGLISH ( ITEM : FLOW_RATE_MKS ) return FLOW_RATE_ENGLISH is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end ENGLISH ;

  function ENGLISH ( ITEM : FLOW_RATE_GALLON_PER_MINUTE ) return
      FLOW_RATE_ENGLISH is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end ENGLISH ;

  function ENGLISH ( ITEM : FLOW_RATE_CUBIC_FEET_PER_MINUTE ) return
      FLOW_RATE_ENGLISH is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end ENGLISH ;

  function ENGLISH ( ITEM : PRESSURE_MKS ) return PRESSURE_ENGLISH is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end ENGLISH ;

  function ENGLISH ( ITEM : PRESSURE_TON_PER_SQUARE_FOOT ) return
      PRESSURE_ENGLISH is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end ENGLISH ;

  function ENGLISH ( ITEM : PRESSURE_FEET_OF_WATER ) return PRESSURE_ENGLISH
      is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end ENGLISH ;

  function ENGLISH ( ITEM : PRESSURE_INCHES_OF_MERCURY ) return
      PRESSURE_ENGLISH is

  begin
    return DIMENSION ( UNDIMENSION( ITEM )) ;
  end ENGLISH ;
end PHYSICAL_UNITS_CONVERSION_ENGLISH ;
::::::::::
Z000018.ADA
::::::::::

-- This procedure solves a few physics problems involving
-- time, distance, vecocity and acceleration. All units are
-- in the MKS system of units. Note that all "put" calls
-- on physical quantities are to be printed as the value followed
-- by the unit.
--
-- make available types for physical units
with PHYSICAL_UNITS_BASIC ; use PHYSICAL_UNITS_BASIC ;
with PHYSICAL_UNITS_MECHANICAL ; use PHYSICAL_UNITS_MECHANICAL ;
with PHYSICAL_UNITS_ELECTRICAL ; use PHYSICAL_UNITS_ELECTRICAL ;
with PHYSICAL_UNITS_OTHER ; use PHYSICAL_UNITS_OTHER ;

-- make available operations on MKS types
with MKS_PHYSICS_MECHANICAL ; use MKS_PHYSICS_MECHANICAL ;
with MKS_PHYSICS_ELECTRICAL ; use MKS_PHYSICS_ELECTRICAL ;

-- make available units conversion constants
with PHYSICAL_CONVERSION_CONSTANT ; use PHYSICAL_CONVERSION_CONSTANT ;

-- make PUT available for physical units types
with PHYSICAL_UNITS_OUTPUT_BASIC ; use PHYSICAL_UNITS_OUTPUT_BASIC ;
with PHYSICAL_UNITS_OUTPUT_MECHANICAL ; use PHYSICAL_UNITS_OUTPUT_MECHANICAL ;
with PHYSICAL_UNITS_OUTPUT_ELECTRICAL ; use PHYSICAL_UNITS_OUTPUT_ELECTRICAL ;

--
with TEXT_IO ; use TEXT_IO ;

procedure Z000018 is

--    define acceleration due to gravity
  G : ACCELERATION_MKS := DIMENSION ( 9.80665 ) ;
  FALL : DISTANCE_METER ;
  FALL_TIME : TIME_SECOND ;
  V_FINAL : VELOCITY_METER_PER_SECOND ;
begin
  PUT ( " Test printout and value of acceleration, " ) ;
  PUT ( G ) ;
  PUT_LINE ( " = G " ) ;

-- How far will Ball_1 fall in 1.5 second in earths gravity ?
  FALL := 0.5 * G * TIME_SECOND' ( DIMENSION( 1.5 )) ** 2 ;
  PUT ( FALL ) ;
  NEW_LINE ;

-- Cross check that the time for the ball to fall is 1.5 seconds.
  FALL_TIME := SQRT ( 2.0 * FALL / G ) ;
  PUT ( FALL_TIME ) ;
  NEW_LINE ;

-- Now determine the final velocity if the ball falls another 0.2 meter
-- Method :  square root of initial velocity squared plus twice
--           the acceleration times the distance
  V_FINAL := SQRT (( G * FALL_TIME ) ** 2 + 2.0 * G * FALL) ;
  PUT ( V_FINAL ) ;
  NEW_LINE ;
end Z000018 ;
::::::::::
Z000020.ADA
::::::::::

-- The purpose of this package is to define an Ada type that has exactly
-- the operations that are valid for any physical quantity. This package
-- is then used by the packages that define many physical units. These
-- packages are used in turn by packages that define operators on physical
-- units that produce other physical units. Additional packages in this
-- set provide for outputting of physical units, conversions between
-- physical units, and other functions needed when working with physical
-- units.
--
-- Note: only this package needs to be generic, all other packages inherit
-- the type REAL from the package PHYSICAL_REAL.
--

generic

--         The formal generic parameter ANY_REAL will typically be
--         FLOAT or LONG_FLOAT but can be any Ada real type. This
--         type is to define the underlying computer arithmetic that
--         will be used to evaluate the physical equations.
--         ANY_REAL is a non dimensional quantity. It has no physical units.

  type ANY_REAL is digits <> ;

package GENERIC_PHYSICAL_REAL is

  type REAL is private ;

--                Operators available for all types derived from REAL
--
--     implicit :    :=    =     /=
--
--
--             Physical quantities with the same units can be added
--             preserving their physical units.

  function "+" ( LEFT , RIGHT : REAL ) return REAL ;

--             Physical quantities with the same units can be subtracted
--             preserving their physical units.

  function "-" ( LEFT , RIGHT : REAL ) return REAL ;

--             Multiplying a physical quantity by itself does not produce
--             the same physical quantity and thus must not be allowed.
--             Multiplying a physical quantity by a non dimensional quantity
--             does preserve the units of the physical quantity.

  function "*" ( LEFT : ANY_REAL ;
                 RIGHT : REAL ) return REAL ;

  function "*" ( LEFT : REAL ;
                 RIGHT : ANY_REAL ) return REAL ;

--             Dividing a physical quantity by a non dimensional quantity
--             preserves the units of the physical quantity.

  function "/" ( LEFT : REAL ;
                 RIGHT : ANY_REAL ) return REAL ;

--             Dividing a physical quantity by itself produces
--             a non dimensional value.

  function "/" ( LEFT , RIGHT : REAL ) return ANY_REAL ;

--               The absolute value of a physical quantity retains the
--               same physical units.

  function "abs" ( LEFT : REAL ) return REAL ;

--             Equality and inequality are implicitly defined. The other
--             relational operators must be explicitly defined.

  function "<" ( LEFT , RIGHT : REAL ) return BOOLEAN ;

  function ">" ( LEFT , RIGHT : REAL ) return BOOLEAN ;

  function "<=" ( LEFT , RIGHT : REAL ) return BOOLEAN ;

  function ">=" ( LEFT , RIGHT : REAL ) return BOOLEAN ;

--              The primary purpose of this function for the user is
--              to make constants into values of a specific physical
--              unit.
--              The use of this function in the set of physics packages
--              is to apply the required Ada type to the result of a
--              non dimensional computation.

  function DIMENSION ( LEFT : ANY_REAL ) return REAL ;

--              The use of this function in the set of physics packages
--              is to take any physical quantity and get a non dimensional
--              value in the base floating point arithmetic type in order
--              to preform computation. This should not be needed by users
--              of the set of physics packages.

  function UNDIMENSION ( LEFT : REAL ) return ANY_REAL ;

--    For compilers that can make use of INLINE

  pragma INLINE ( "+" , "-" , "*" , "/" , "abs" , "<" , ">" , "<=" , ">=" ,
      DIMENSION , UNDIMENSION ) ;

--
private
  type REAL is new ANY_REAL ;  -- ANY_REAL is the generic formal parameter
end GENERIC_PHYSICAL_REAL ;

package body GENERIC_PHYSICAL_REAL is

  function "+" ( LEFT , RIGHT : REAL ) return REAL is

  begin
    return REAL ( ANY_REAL( LEFT ) + ANY_REAL ( RIGHT )) ;
  end "+" ;

  function "-" ( LEFT , RIGHT : REAL ) return REAL is

  begin
    return REAL ( ANY_REAL( LEFT ) - ANY_REAL ( RIGHT )) ;
  end "-" ;

  function "*" ( LEFT : ANY_REAL ;
                 RIGHT : REAL ) return REAL is

  begin
    return REAL ( LEFT * ANY_REAL( RIGHT )) ;
  end "*" ;

  function "*" ( LEFT : REAL ;
                 RIGHT : ANY_REAL ) return REAL is

  begin
    return REAL ( ANY_REAL( LEFT ) * RIGHT) ;
  end "*" ;

  function "/" ( LEFT : REAL ;
                 RIGHT : ANY_REAL ) return REAL is

  begin
    return REAL ( ANY_REAL( LEFT ) / RIGHT) ;
  end "/" ;

  function "/" ( LEFT , RIGHT : REAL ) return ANY_REAL is

  begin
    return ANY_REAL ( LEFT ) / ANY_REAL ( RIGHT ) ;
  end "/" ;

  function "abs" ( LEFT : REAL ) return REAL is

  begin
    return REAL ( abs( ANY_REAL( LEFT ))) ;
  end "abs" ;

  function "<" ( LEFT , RIGHT : REAL ) return BOOLEAN is

  begin
    return ANY_REAL ( LEFT ) < ANY_REAL ( RIGHT ) ;
  end "<" ;

  function ">" ( LEFT , RIGHT : REAL ) return BOOLEAN is

  begin
    return ANY_REAL ( LEFT ) > ANY_REAL ( RIGHT ) ;
  end ">" ;

  function "<=" ( LEFT , RIGHT : REAL ) return BOOLEAN is

  begin
    return ANY_REAL ( LEFT ) <= ANY_REAL ( RIGHT ) ;
  end "<=" ;

  function ">=" ( LEFT , RIGHT : REAL ) return BOOLEAN is

  begin
    return ANY_REAL ( LEFT ) >= ANY_REAL ( RIGHT ) ;
  end ">=" ;

  function DIMENSION ( LEFT : ANY_REAL ) return REAL is

  begin
    return REAL ( LEFT ) ;
  end DIMENSION ;

  function UNDIMENSION ( LEFT : REAL ) return ANY_REAL is

  begin
    return ANY_REAL ( LEFT ) ;
  end UNDIMENSION ;

end GENERIC_PHYSICAL_REAL ;

-- The following instantiation is used by many other packages in the
-- set of physical units packages. The instantiated package becomes
-- a withable library unit thus saving the reinstantiation in every
-- other package.
--
with GENERIC_PHYSICAL_REAL ;

package PHYSICAL_REAL is new GENERIC_PHYSICAL_REAL ( FLOAT ) ;
::::::::::
Z000021.ADA
::::::::::

-- This is an attempt to create a file with at least one of each
-- kind of Ada statement, structure, lexical item, operator, etc.
--
-- The problem is the need for some ordering so that completeness can
-- be checked and excessive redundancy prevented. The LRM chapter order
-- is not convenient for Ada that can be compiled.
--
pragma LIST ( ON ) ;

package ALL_STATEMENTS_PACKAGE is

  task ALL_STATEMENTS_TASK is
    entry ALL_STATEMENTS_ENTRY_1 ;
    entry ALL_STATEMENTS_ENTRY_2 ( PARAM_1 : STRING ;
                                   PARAM_2 : INTEGER ) ;
    entry ALL_STATEMENTS_ENTRY_3 ;
    entry ALL_STATEMENTS_ENTRY_4 ( PARAM_1 : STRING ;
                                   PARAM_2 : FLOAT ) ;
  end ALL_STATEMENTS_TASK ;

  task type ALL_STATEMENTS_TASK_TYPE is
    entry ALL_STATEMENTS_ENTRY_1_TYPE ;
  end ALL_STATEMENTS_TASK_TYPE ;

  function FUNCTION_IN_PACKAGE return INTEGER ;

  function FUNCTION_WITH_ARGUMENTS_IN_PACKAGE ( A , B : INTEGER ;
                                                C , D : FLOAT ) return BOOLEAN
     ;

  procedure PROCEDURE_IN_PACKAGE ;

  procedure PROCEDURE_WITH_ARGUMENTS_IN_PACKAGE ( LONG_PARAMETER_NAME : FLOAT
     ;
                                                  SHORT : INTEGER ) ;
  NUMBER_1 : INTEGER := 12 ;
  NUMBER_2 : constant := 1E6 ;
  NUMBER_3 : constant INTEGER := 23_456 ;
  NUMBER_4 : INTEGER := 0_0_0 ;
  NUMBER_5 : FLOAT := 12.0 ;
  NUMBER_6 : constant := 1.0E+6 ;
  NUMBER_7 : constant FLOAT := - 314_159.26E-0_5 ;
  NUMBER_8 : constant := 2#101_101# + 16#FF# - 0_016#AB# ;
  NUMBER_9 : constant := 16#F.F_F#E-2 + 2.0 ;
  type MINE is limited private ;
private
  type MINE is new BOOLEAN ;
  subtype MY_BOOLEAN is BOOLEAN ;
  subtype MY_INT is INTEGER range - 5 .. 3 ;
  type GENDER is ( M , F ) ;
  type PERSON ( SEX : GENDER ) ;
  type PERSON_NAME is access PERSON ;
  type DATE is new INTEGER ;
  type PERSON ( SEX : GENDER ) is
    record
      NAME : STRING ( 1 .. 20 ) ;
      BIRTH : DATE ;
      AGE : INTEGER range 0 .. 130 ;
      case SEX is
        when M =>
          WIFE : PERSON_NAME ( SEX => F ) ;
        when F =>
          HUSBAND : PERSON_NAME ( SEX => M ) ;
      end case ;
    end record ;
  JOHN , PAUL : PERSON_NAME := new PERSON ( SEX => M ) ;
  JANE : PERSON_NAME := new PERSON ( SEX => F ) ;
  ME : PERSON_NAME renames JANE ;
  YOU : PERSON ( SEX => F ) := ME.all ;
  type REP_RECORD is
    record
      I : INTEGER range - 63 .. 63 ;
    end record ;

--  for REP_RECORD use
--    record at mod 4 ;
--      I at 0 range 0 .. 7 ;
--    end record ;
  OBJECT_REP_REC : REP_RECORD ;
  I : INTEGER := OBJECT_REP_REC.I ;
  MY_ERROR : exception ;
  ANOTHER_ERROR : exception renames MY_ERROR ;
  ARRAY_OBJECT : array ( INTEGER( - 1 ) .. 1) of FLOAT := ( - 1.0 , 0.0 , 1.0
     ) ;

  package MY_PACKAGE is  -- dummy for following  renames

    function MY_FUNCTION return INTEGER ;

    procedure MY_PROCEDURE ;
  end MY_PACKAGE ;

  package NEW_NAME renames MY_PACKAGE ; use NEW_NAME ;

  function ANOTHER_FUNCTION return INTEGER renames MY_FUNCTION ;

  procedure ANOTHER_PROCEDURE renames MY_PROCEDURE ;
end ALL_STATEMENTS_PACKAGE ;

with TEXT_IO ; use TEXT_IO ;

package body ALL_STATEMENTS_PACKAGE is

  task body ALL_STATEMENTS_TASK is
  begin
    loop
      select
        when I > 2 =>
          accept ALL_STATEMENTS_ENTRY_1 do
            PUT_LINE ( " accepted 1" ) ;
          end ALL_STATEMENTS_ENTRY_1 ;
          I := I + 1 ;
      or
        when I >= 3 =>
          accept ALL_STATEMENTS_ENTRY_2 ( PARAM_1 : STRING ;
                                          PARAM_2 : INTEGER ) do
            PUT_LINE ( " accepted 2" ) ;
          end ALL_STATEMENTS_ENTRY_2 ;
          accept ALL_STATEMENTS_ENTRY_3 ;  -- no "do"
          accept ALL_STATEMENTS_ENTRY_4 ( PARAM_1 : STRING ;
                                          PARAM_2 : FLOAT ) ;
          I := I + 1 ;
      or
        terminate ;
      end select ;
    end loop ;
  exception
    when CONSTRAINT_ERROR =>
      PUT_LINE ( " too bad " ) ;
  end ALL_STATEMENTS_TASK ;

  task body ALL_STATEMENTS_TASK_TYPE is
  begin
    select
      accept ALL_STATEMENTS_ENTRY_1_TYPE do
        PUT_LINE ( " accepted " ) ;
      end ALL_STATEMENTS_ENTRY_1_TYPE ;
      abort ALL_STATEMENTS_TASK ;
    else
      null ;
    end select ;
    select
      accept ALL_STATEMENTS_ENTRY_1_TYPE do
        PUT_LINE ( " accepted " ) ;
      end ALL_STATEMENTS_ENTRY_1_TYPE ;
    or
      delay 3.5 ;
    end select ;
  exception
    when CONSTRAINT_ERROR =>
      PUT_LINE ( " too bad " ) ;
  end ALL_STATEMENTS_TASK_TYPE ;

  function FUNCTION_IN_PACKAGE return INTEGER is
    B : BOOLEAN ;
    I : INTEGER ;
  begin
    I := abs ( I mod 1 ) rem 1 ;
    B := B or ( B and( not( B xor B ))) ;
    return ( 1 +( 2 * 3 / 4 ) ** ( 3 )) ;
  exception
    when CONSTRAINT_ERROR =>
      raise PROGRAM_ERROR ;
    when others =>
      raise STORAGE_ERROR ;
  end FUNCTION_IN_PACKAGE ;

  function FUNCTION_WITH_ARGUMENTS_IN_PACKAGE ( A , B : INTEGER ;
                                                C , D : FLOAT ) return BOOLEAN
     is
    AA : INTEGER := - 1 ;
    LONG_EXPRESSION : INTEGER := A + A + A + A + A + A + A + A + B + B + B +
       INTEGER ( C ) + INTEGER ( D ) ;
  begin
    raise CONSTRAINT_ERROR ;
  exception
    when NUMERIC_ERROR =>
      raise TASKING_ERROR ;
    when others =>
      return TRUE ;
  end FUNCTION_WITH_ARGUMENTS_IN_PACKAGE ;

  procedure PROCEDURE_IN_PACKAGE is
  begin
    return ;
  exception
    when others =>
      return ;
  end PROCEDURE_IN_PACKAGE ;

  procedure PROCEDURE_WITH_ARGUMENTS_IN_PACKAGE ( LONG_PARAMETER_NAME : FLOAT
     ;
                                                  SHORT : INTEGER ) is
  begin
    null ;
  end PROCEDURE_WITH_ARGUMENTS_IN_PACKAGE ;

  package body MY_PACKAGE is  -- dummy for following  renames

    function MY_FUNCTION return INTEGER is
    begin
      return 1 ;
    end MY_FUNCTION ;

    procedure MY_PROCEDURE is
    begin
      null ;
    end MY_PROCEDURE ;
  end MY_PACKAGE ;
begin
  I := I + 1 ;
exception
  when CONSTRAINT_ERROR =>
    PUT_LINE ( " woopse " ) ;
    if I = 1 then
      I := 2 ;
      if I /= 1 then
        case I is
          when 1 =>
            I := 2 ;
          when 2 | 3 =>
            I := 3 ;
            if 1 > 2 and then
               2 >= 3 then
              raise NUMERIC_ERROR ;
            elsif 2 < 1 or else
               3 <= 2 then
              raise NUMERIC_ERROR ;
            end if ;
          when others =>
            I := 4 ;
        end case ;
      elsif I = 2 then
        I := 4 ;
      else
        I := 3 ;
      end if ;
    end if ;
end ALL_STATEMENTS_PACKAGE ;

with ALL_STATEMENTS_PACKAGE ;

procedure Z000021 ;

procedure ALL_STATEMENTS_PROCEDURE_2 ( I : INTEGER ;
                                       J : INTEGER := 2 ) ;
with ALL_STATEMENTS_PROCEDURE_2 ;
with TEXT_IO ; use TEXT_IO ;

procedure Z000021 is
  I : INTEGER := 2 ;

  procedure DEEP is separate ;

  function SEA return INTEGER is separate ;

  task FISH is
  end FISH ;

  task body FISH is separate ;

  package BAG is

  end BAG ;

  package body BAG is separate ;

begin
  ALL_STATEMENTS_PROCEDURE_2 ( J => 1 , I => 2 ) ;
  BLOCK_NAME_1 :
  begin
    null ;
  end BLOCK_NAME_1 ;
  BLOCK_NAME_2 :
  declare

    package INT_IO is new INTEGER_IO ( INTEGER ) ;

    use INT_IO ;
    S : STRING ( 1 .. 4 ) ;
  begin
    NESTED_BLOCK_NAME :
    declare

      package I_IO is new INTEGER_IO ( INTEGER ) ;

    begin
      null ;
    end NESTED_BLOCK_NAME ;
    S := 'A' & "BC" & 'D' ;
  exception
    when CONSTRAINT_ERROR =>
      PUT_LINE ( " ouch " ) ;
      WHILE_NAME :
      while S /= "----" loop
        S := "-" & "--" & "-" ;
      end loop WHILE_NAME ;
  end BLOCK_NAME_2 ;
  FOR_NAME :
  for I in 1 .. 2 loop
    null ;
  end loop FOR_NAME ;
  PUT_LINE ( " into LOOP_NAME_1 " ) ;
  LOOP_NAME_1 :
  loop
    LOOP_NAME_2 :
    loop
      LOOP_NAME_3 :
      for J in reverse 3 .. 4 loop
        LOOP_NAME_4 :
        loop
          exit ;
        end loop LOOP_NAME_4 ;
        exit LOOP_NAME_2 ;
      end loop LOOP_NAME_3 ;
      exit when I = 3 ;
    end loop LOOP_NAME_2 ;
    exit LOOP_NAME_1 when I = 2 ;
  end loop LOOP_NAME_1 ;
  goto GOTO_LABEL ;
<< GOTO_LABEL >>
  abort FISH ;
  PUT_LINE ( " Z000021 finished " ) ;
end Z000021 ;

function ALL_STATEMENTS_FUNCTION_1 return INTEGER ;
with Z000021 ;
generic
  type FORMAL_TYPE_1 is private ;
  type FORMAL_TYPE_2 is limited private ;
  type FORMAL_TYPE_3 is ( <> ) ;
  type FORMAL_TYPE_4 is range <> ;
  type FORMAL_TYPE_5 is digits <> ;
  type FORMAL_TYPE_6 is delta <> ;
  type FORMAL_TYPE_7 is array ( FORMAL_TYPE_3 ) of FORMAL_TYPE_4 ;
  type FORMAL_TYPE_8 is access FORMAL_TYPE_7 ;

-- the operator symblols on the next 3 functions are formal generic parameters
  with function "+" ( DUMMY_1 , DUMMY_2 : FORMAL_TYPE_1 ) return FORMAL_TYPE_1
     is <> ;
  with function "+" ( DUMMY_1 , DUMMY_2 : FORMAL_TYPE_5 ) return FORMAL_TYPE_5
     is "-" ;
  with function "+" ( DUMMY_1 , DUMMY_2 : FORMAL_TYPE_1 ) return FORMAL_TYPE_6
     ;
  with procedure FORMAL_PROC_1 ( DUMMY_1 : out FORMAL_TYPE_4 ;
                                 DUMMY_2 : in FORMAL_TYPE_6 ) is <> ;
  with procedure FORMAL_PROC_2 is Z000021 ;
  with procedure FORMAL_PROC_3 ( DUMMY_1 : out FORMAL_TYPE_4 ;
                                 DUMMY_2 : in FORMAL_TYPE_5 ) ;

procedure ALL_STATEMENTS_GENPROC ( PARAM : in out FORMAL_TYPE_1 ) ;

procedure ALL_STATEMENTS_GENPROC ( PARAM : in out FORMAL_TYPE_1 ) is
  A : FORMAL_TYPE_1 := PARAM ;
begin
  PARAM := PARAM + A ;
end ALL_STATEMENTS_GENPROC ;

generic
  type FORMAL_1 is private ;
  with function "+" ( DUMMY_1 , DUMMY_2 : FORMAL_1 ) return FORMAL_1 is <> ;

function ALL_STATEMENTS_GENFUNC ( PARAM : FORMAL_1 ) return FORMAL_1 ;

function ALL_STATEMENTS_GENFUNC ( PARAM : FORMAL_1 ) return FORMAL_1 is
  A : FORMAL_1 := PARAM ;
begin
  return PARAM + A ;
end ALL_STATEMENTS_GENFUNC ;

generic

package ALL_STATEMENTS_GENPACK is

end ALL_STATEMENTS_GENPACK ;

package body ALL_STATEMENTS_GENPACK is

begin
  null ;
exception
  when others =>
    raise PROGRAM_ERROR ;
end ALL_STATEMENTS_GENPACK ;

separate ( Z000021 )

procedure DEEP is
begin
  null ;
exception
  when others =>
    null ;
end DEEP ;

separate ( Z000021 )

function SEA return INTEGER is
begin
  return 1 ;
end SEA ;

with ALL_STATEMENTS_GENFUNC ;
with ALL_STATEMENTS_GENPACK , ALL_STATEMENTS_GENPROC ;
separate ( Z000021 )

task body FISH is

  function INSTANTIATE_FUNCTION is new ALL_STATEMENTS_GENFUNC ( INTEGER , "-"
     ) ;

  package INSTANTIATE_PACKAGE is new ALL_STATEMENTS_GENPACK ;

  use INSTANTIATE_PACKAGE ;
  type BOOLEAN_ARRAY_OF_INTEGER is array ( BOOLEAN ) of INTEGER ;
  type ACCESS_TO_ARRAY is access BOOLEAN_ARRAY_OF_INTEGER ;
  subtype INT is INTEGER range 5 .. 7 ;
  type FIX is delta 0.01 range - 1.0 .. 1.0 ;
  MY_FIXED : FIX := FIX'LAST ;
--  type FLT is digits 4 range - 0.01 .. 0.01 ;
  subtype FLT is FLOAT range - 0.01 .. 0.01 ;

  procedure DUMMY_PROC ( A : out INT ;
                         B : in FIX ) is
  begin
    A := INTEGER ( B ) ;
  end DUMMY_PROC ;

  procedure DUMMY_PROC_2 ( A : out INT ;
                           B : in FLT ) is
  begin
    A := INTEGER ( B ) ;
  end DUMMY_PROC_2 ;

  function SUM ( LEFT , RIGHT : INTEGER ) return FIX ;

  procedure INSTANTIATE_PROCEDURE is new ALL_STATEMENTS_GENPROC ( INTEGER ,
     INTEGER , BOOLEAN , INTEGER , FLOAT , FIX , BOOLEAN_ARRAY_OF_INTEGER ,
     ACCESS_TO_ARRAY , "+" , "*" , SUM , DUMMY_PROC , FORMAL_PROC_3 =>
     DUMMY_PROC_2 ) ;

  function SUM ( LEFT , RIGHT : INTEGER ) return FIX is
  begin
    return FIX ( LEFT ) + FIX ( RIGHT ) + FIX'FIRST ;
  end SUM ;
begin
  PUT_LINE ( " gone fishing " ) ;
  MY_FIXED := SUM ( 1 , -1 ) ;
  PUT_LINE ( " end FISH " ) ;
end FISH ;

separate ( Z000021 )

package body BAG is

-- someone was left holding an empty bag
begin
  PUT_LINE ( " in the bag " ) ;
end BAG ;

with TEXT_IO ; use TEXT_IO ;

procedure ALL_STATEMENTS_PROCEDURE_2 ( I : INTEGER ;
                                       J : INTEGER := 2 ) is
begin
  PUT_LINE ( " ALL_STATEMENTS_PROCEDURE_2 " ) ;
end ALL_STATEMENTS_PROCEDURE_2 ;
::::::::::
Z000022.ADA
::::::::::
generic  -- SHELLI VERSION  for use with GENSORTSH.ADA
  type ELEMENT is private ;
  type ANY_ARRAY is array ( INTEGER range <> ) of ELEMENT ;
  with function ">" ( DUMMY1 , DUMMY2 : ELEMENT ) return BOOLEAN is <> ;

package GENSORTSH is

  procedure SHSORT ( ARR1 : in out ANY_ARRAY ) ;

end GENSORTSH ;

package body GENSORTSH is

  procedure SHSORT ( ARR1 : in out ANY_ARRAY ) is

    TEMP : ELEMENT ;
    M , I , J , LIMIT : INTEGER ;
    SIZE : INTEGER := ARR1'LENGTH ;
    OFFSET : INTEGER := 1 - ARR1'FIRST ;
  begin
    M := SIZE ;
    while M > 1 loop  -- log base 2 of SIZE times
      M := M / 2 ;  --   through this loop
      LIMIT := SIZE - M ;
      for J in 1 .. LIMIT loop  -- at most SIZE times
        I := J ;  --               through this loop
        while I > 0 loop  -- this loop depends on data,

--                           statistically about 2.5
--                           times through this loop
--
-- compare on whatever is being sorted
          if ARR1 ( I + OFFSET ) > ARR1 ( I + M + OFFSET ) then

-- interchange,  3 statements for each array
--               being sorted
            TEMP := ARR1 ( I + OFFSET ) ;
            ARR1 ( I + OFFSET ) := ARR1 ( I + M + OFFSET ) ;
            ARR1 ( I + M + OFFSET ) := TEMP ;
            I := I - M ;  -- must check previous entry
          else
            exit ;  -- while I > 0 , previous entries sorted
          end if ;
        end loop ;  -- on while I > 0
      end loop ;  -- on for J in 1..LIMIT
    end loop ;  -- on while M > 1
  end SHSORT ;
end GENSORTSH ;
::::::::::
Z000023.ADA
::::::::::
with GENSORTSH ;
with Z000021 ;
with TEXT_IO ; use TEXT_IO ;

procedure Z000023 is -- a test of five types as elements of arrays
                  -- using the same generic sort routine

   type INT_ARRAY is array( INTEGER range <> ) of INTEGER ;
   INT_DATA : INT_ARRAY(1..4) := ( 3, 4, 1, 2) ;

   type FLT_ARRAY is array( INTEGER range <> ) of FLOAT ;
   FLT_DATA : FLT_ARRAY(1..4) := ( 3.0, 4.0, 1.0, 2.0) ;

   subtype MY_STRING is STRING(1..3) ;
   type STR_ARRAY is array( INTEGER range <> ) of MY_STRING ;
   STR_DATA : STR_ARRAY(1..4) := ( "CCC", "DDD", "AAA", "BBB") ;

   type MY_ENUM is ( FIRST , SECOND, THIRD, FOURTH ) ;
   type ENU_ARRAY is array( INTEGER range <> ) of MY_ENUM ;
   ENU_DATA : ENU_ARRAY(1..4) := ( THIRD, FOURTH, FIRST, SECOND ) ;

   type MY_FIXED is delta 0.01 range - 20.0 .. 20.0 ;
   type FIX_ARRAY is array ( INTEGER range <> ) of MY_FIXED ;
   FIX_DATA : FIX_ARRAY(1..4) :=( 3.1, 4.1, 1.1, 2.1 ) ;

   package INT_SORT_UP is new GENSORTSH(INTEGER,INT_ARRAY) ;
   package INT_SORT_DN is new GENSORTSH(INTEGER,INT_ARRAY,"<") ;
   package FLT_SORT_UP is new GENSORTSH(FLOAT,FLT_ARRAY) ;
   package FLT_SORT_DN is new GENSORTSH(FLOAT,FLT_ARRAY,"<") ;
   package STR_SORT_UP is new GENSORTSH(MY_STRING,STR_ARRAY) ;
   package STR_SORT_DN is new GENSORTSH(MY_STRING,STR_ARRAY,"<") ;
   package ENU_SORT_UP is new GENSORTSH(MY_ENUM,ENU_ARRAY) ;
   package ENU_SORT_DN is new GENSORTSH(MY_ENUM,ENU_ARRAY,"<") ;
   package FIX_SORT_UP is new GENSORTSH(MY_FIXED,FIX_ARRAY) ;
   package FIX_SORT_DN is new GENSORTSH(MY_FIXED,FIX_ARRAY,"<") ;

   package INT_IO  is new INTEGER_IO(INTEGER) ; use INT_IO ;
   package FLT_IO  is new FLOAT_IO(FLOAT) ; use FLT_IO ;
   package ENU_IO  is new ENUMERATION_IO(MY_ENUM) ; use ENU_IO ;
   package FIX_IO  is new FIXED_IO(MY_FIXED) ; use FIX_IO ;

begin
   INT_SORT_UP.SHSORT(INT_DATA) ;
   FLT_SORT_UP.SHSORT(FLT_DATA) ;
   STR_SORT_UP.SHSORT(STR_DATA) ;
   ENU_SORT_UP.SHSORT(ENU_DATA) ;
   FIX_SORT_UP.SHSORT(FIX_DATA) ;

   PUT_LINE(" UP SORTED DATA ") ;
   for I in  INT_DATA'RANGE  loop
     PUT(INT_DATA(I)); PUT(' ');
     PUT(FLT_DATA(I)); PUT(' ');
     PUT(STR_DATA(I)); PUT(' ');
     PUT(ENU_DATA(I)); PUT(' ');
     PUT(FIX_DATA(I)); NEW_LINE;
   end loop ;

   INT_SORT_DN.SHSORT(INT_DATA) ;
   FLT_SORT_DN.SHSORT(FLT_DATA) ;
   STR_SORT_DN.SHSORT(STR_DATA) ;
   ENU_SORT_DN.SHSORT(ENU_DATA) ;
   FIX_SORT_DN.SHSORT(FIX_DATA) ;

   PUT_LINE(" DOWN SORTED DATA ") ;
   for I in  INT_DATA'RANGE  loop
     PUT(INT_DATA(I)); PUT(' ');
     PUT(FLT_DATA(I)); PUT(' ');
     PUT(STR_DATA(I)); PUT(' ');
     PUT(ENU_DATA(I)); PUT(' ');
     PUT(FIX_DATA(I)); NEW_LINE;
   end loop ;
   Z000021 ;
end Z000023 ;
::::::::::
Z000110.ADA
::::::::::
procedure z000110 is -- minimum procedure
begin                -- for compiler overhead timing
  null;
end z000110;
::::::::::
Z000111.ADA
::::::::::
procedure z000111 is
    integer_1, integer_2, integer_3, integer_4, integer_5,
    integer_6, integer_7, integer_8, integer_9, integer_10,
    integer_11, integer_12, integer_13, integer_14, integer_15,
    integer_16, integer_17, integer_18, integer_19, integer_20,
    integer_21, integer_22, integer_23, integer_24, integer_25,
    integer_26, integer_27, integer_28, integer_29, integer_30,
    integer_31, integer_32, integer_33, integer_34, integer_35,
    integer_36, integer_37, integer_38, integer_39, integer_40,
    integer_41, integer_42, integer_43, integer_44, integer_45,
    integer_46, integer_47, integer_48, integer_49, integer_50,
    integer_51, integer_52, integer_53, integer_54, integer_55,
    integer_56, integer_57, integer_58, integer_59, integer_60,
    integer_61, integer_62, integer_63, integer_64, integer_65,
    integer_66, integer_67, integer_68, integer_69, integer_70,
    integer_71, integer_72, integer_73, integer_74, integer_75,
    integer_76, integer_77, integer_78, integer_79, integer_80,
    integer_81, integer_82, integer_83, integer_84, integer_85,
    integer_86, integer_87, integer_88, integer_89, integer_90,
    integer_91, integer_92, integer_93, integer_94, integer_95,
    integer_96, integer_97, integer_98, integer_99, integer_100
        : integer := 1;
    begin
    null;
    end z000111;
::::::::::
Z000111.COM
::::::::::
$ SET VERIFY ! measuring compilation time ( various features vs size )
$ SET NOON
$ SET DEF [.SIGADA.TAPE_8_31_86] ! SIGAda PIWG Compilation Time Test on VAX
$! DELETE [.ADALIB]*.*;* ! -- This should be done manually first
$ ACS CREA LIB [.ADALIB] ! --include library initialization time
$ ACS SET LIB  [.ADALIB]
$ RUN A000051 ! calibration
$ RUN A000051
$ RUN A000051
$ ADA Z000110 ! minimum compile
$ RUN A000051
$ ADA Z000111
$ RUN A000051
$ ADA Z000112
$ RUN A000051
$ ADA Z000113
$ RUN A000051
$ ADA Z000114
$ RUN A000051
$ ADA Z000121
$ RUN A000051
$ ADA Z000122
$ RUN A000051
$ ADA Z000123
$ RUN A000051
$ ADA Z000124
$ RUN A000051
$ ADA Z000131
$ RUN A000051
$ ADA Z000132
$ RUN A000051
$ ADA Z000133
$ RUN A000051
$ ADA Z000134
$ RUN A000051
$ ADA Z000141
$ RUN A000051
$ ADA Z000142
$ RUN A000051
$ ADA Z000143
$ RUN A000051
$ ADA Z000151
$ RUN A000051
$ ADA Z000152
$ RUN A000051
$ ADA Z000153
$ RUN A000051
$ ADA Z000161
$ RUN A000051
$ ADA Z000162
$ RUN A000051
$ ADA Z000171
$ RUN A000051
$ ADA Z000172
$ RUN A000051
$ ADA Z000173
$ RUN A000051
$ ADA Z000181
$ RUN A000051
$ ADA Z000182
$ RUN A000051
$ ADA Z000183
$ RUN A000051
$ ADA Z000184
$ RUN A000051
$ ADA Z000191
$ RUN A000051
$ ADA Z000192
$ RUN A000051
$ ADA Z000193
$ RUN A000051
$ ADA Z000201
$ RUN A000051
$ ADA Z000202
$ RUN A000051
$ ADA Z000203
$ RUN A000051
$ ADA Z000211
$ RUN A000051
$ ADA Z000212
$ RUN A000051
$ ADA Z000213
$ RUN A000051
$ ADA Z000221
$ RUN A000051
$ ADA Z000222
$ RUN A000051
$ ADA Z000223
$ RUN A000051
$ ADA Z000224
$ RUN A000051
$ ADA Z000231
$ RUN A000051
$ ADA Z000232
$ RUN A000051
$ ADA Z000233
$ RUN A000051
$ ADA Z000234
$ RUN A000051
$ ADA Z000241
$ RUN A000051
$ ADA Z000242
$ RUN A000051
$ ADA Z000243
$ RUN A000051
$ ADA Z000244
$ RUN A000051
$ ADA Z000254
$ RUN A000051
$ ADA Z000264
$ RUN A000051
$ ADA Z000274
$ RUN A000051
$ ADA Z000281
$ RUN A000051
$ ADA Z000282
$ RUN A000051
$ ADA Z000283
$ RUN A000051
$ ADA Z000284
$ RUN A000051
$ ADA Z000291
$ RUN A000051
$ ADA Z000292
$ RUN A000051
$ ADA Z000293
$ RUN A000051
$ ADA Z000294
$ RUN A000051
$ ADA Z000295
$ RUN A000051
$ ADA Z000301
$ RUN A000051
$ ADA Z000302
$ RUN A000051
$ ADA Z000303
$ RUN A000051
$ ADA Z000304
$ RUN A000051
$ ADA Z000311
$ RUN A000051
$ ADA Z000312
$ RUN A000051
$ ADA Z000313
$ RUN A000051
$ ADA Z000314
$ RUN A000051
$ ADA Z000315
$ RUN A000051
$ DELETE [.ADALIB]*.*;*
$ RUN A000051
::::::::::
Z000111D.CLI
::::::::::
Data General AOS. RUN THIS THIRD ( after ACOMPILE.CLI and ZCOMPILE.CLI )
( CLEAN OUT LIBRARY FIRST )

XEQ A000052
XEQ A000053
XEQ A000054
ADA Z000110
XEQ A000055
XEQ A000052
XEQ A000053
XEQ A000054
ADA Z000111
XEQ A000055
XEQ A000052
ADA Z000110
XEQ A000053
XEQ A000054
ADA Z000111
XEQ A000055
ADA Z000111
XEQ A000055
ADA Z000112
XEQ A000055
ADA Z000113
XEQ A000055
ADA Z000114
XEQ A000055
ADA Z000121
XEQ A000055
ADA Z000122
XEQ A000055
ADA Z000123
XEQ A000055
ADA Z000124
XEQ A000055
ADA Z000131
XEQ A000055
ADA Z000132
XEQ A000055
ADA Z000133
XEQ A000055
ADA Z000134
XEQ A000055
ADA Z000141
XEQ A000055
ADA Z000142
XEQ A000055
ADA Z000143
XEQ A000055
ADA Z000151
XEQ A000055
ADA Z000152
XEQ A000055
ADA Z000153
XEQ A000055
ADA Z000161
XEQ A000055
ADA Z000162
XEQ A000055
ADA Z000171
XEQ A000055
ADA Z000172
XEQ A000055
ADA Z000173
XEQ A000055
ADA Z000181
XEQ A000055
ADA Z000182
XEQ A000055
ADA Z000183
XEQ A000055
ADA Z000184
XEQ A000055
ADA Z000191
XEQ A000055
ADA Z000192
XEQ A000055
ADA Z000193
XEQ A000055
ADA Z000201
XEQ A000055
ADA Z000202
XEQ A000055
ADA Z000203
XEQ A000055
ADA Z000211
XEQ A000055
ADA Z000212
XEQ A000055
ADA Z000213
XEQ A000055
ADA Z000221
XEQ A000055
ADA Z000222
XEQ A000055
ADA Z000223
XEQ A000055
ADA Z000224
XEQ A000055
ADA Z000231
XEQ A000055
ADA Z000232
XEQ A000055
ADA Z000233
XEQ A000055
ADA Z000234
XEQ A000055
ADA Z000241
XEQ A000055
ADA Z000242
XEQ A000055
ADA Z000243
XEQ A000055
ADA Z000244
XEQ A000055
ADA Z000254
XEQ A000055
ADA Z000264
XEQ A000055
ADA Z000274
XEQ A000055
ADA Z000281
XEQ A000055
ADA Z000282
XEQ A000055
ADA Z000283
XEQ A000055
ADA Z000284
XEQ A000055
ADA Z000291
XEQ A000055
ADA Z000292
XEQ A000055
ADA Z000293
XEQ A000055
ADA Z000294
XEQ A000055
ADA Z000295
XEQ A000055
ADA Z000301
XEQ A000055
ADA Z000302
XEQ A000055
ADA Z000303
XEQ A000055
ADA Z000304
XEQ A000055
ADA Z000311
XEQ A000055
ADA Z000312
XEQ A000055
ADA Z000313
XEQ A000055
ADA Z000314
XEQ A000055
ADA Z000315
XEQ A000055
XEQ A000052
XEQ A000053
XEQ A000054
XEQ A000055
::::::::::
Z000111D.COM
::::::::::
$! RUN THIS THIRD ( after ACOMPILE.COM and ZCOMPILE.COM )
$ SET VERIFY ! measure compilation time ( various features vs time )
$ SET NOON ! uses disk and measures incremental time.
$ SET DEF [.SIGADA.TAPE_8_31_86] ! SIGAda PIWG Compilation Time Test on VAX
$! DELETE [.ADALIB]*.*;* ! -- This should be done manually first
$ ACS CREA LIB [.ADALIB] ! --include library initialization time
$ ACS SET LIB  [.ADALIB]
$ RUN A000052
$ RUN A000053
$ RUN A000054
$ ADA Z000110
$ RUN A000055 ! time for minimum compile
$ RUN A000052
$ RUN A000053
$ RUN A000054
$ ADA Z000111
$ RUN A000055 ! time to compile 100 INTEGER declarations
$ RUN A000052
$ ADA Z000110
$ RUN A000053
$ RUN A000054
$ ADA Z000111
$ RUN A000055 ! incremental time to compile 100 INTEGER declarations
$ RUN A000054
$ ADA Z000111
$ RUN A000055 ! incremental time to compile 100 INTEGER declarations
$ RUN A000054
$ ADA Z000112
$ RUN A000055 ! incremental time to compile 200 INTEGER declarations
$ RUN A000054
$ ADA Z000113
$ RUN A000055 ! incremental time to compile 500 INTEGER declarations
$ RUN A000054
$ ADA Z000114
$ RUN A000055 ! incremental time to compile 1000 INTEGER declarations
$ RUN A000054
$ ADA Z000121
$ RUN A000055 ! incremental time to compile and initialize 100 INTEGERS
$ RUN A000054
$ ADA Z000122
$ RUN A000055
$ RUN A000054
$ ADA Z000123
$ RUN A000055
$ RUN A000054
$ ADA Z000124
$ RUN A000055
$ RUN A000054
$ ADA Z000131
$ RUN A000055
$ RUN A000054
$ ADA Z000132
$ RUN A000055
$ RUN A000054
$ ADA Z000133
$ RUN A000055
$ RUN A000054
$ ADA Z000134
$ RUN A000055
$ RUN A000054
$ ADA Z000141
$ RUN A000055
$ RUN A000054
$ ADA Z000142
$ RUN A000055
$ RUN A000054
$ ADA Z000143
$ RUN A000055
$ RUN A000054
$ ADA Z000151
$ RUN A000055
$ RUN A000054
$ ADA Z000152
$ RUN A000055
$ RUN A000054
$ ADA Z000153
$ RUN A000055
$ RUN A000054
$ ADA Z000161
$ RUN A000055
$ RUN A000054
$ ADA Z000162
$ RUN A000055
$ RUN A000054
$ ADA Z000171
$ RUN A000055
$ RUN A000054
$ ADA Z000172
$ RUN A000055
$ RUN A000054
$ ADA Z000173
$ RUN A000055
$ RUN A000054
$ ADA Z000181
$ RUN A000055
$ RUN A000054
$ ADA Z000182
$ RUN A000055
$ RUN A000054
$ ADA Z000183
$ RUN A000055
$ RUN A000054
$ ADA Z000184
$ RUN A000055
$ RUN A000054
$ ADA Z000191
$ RUN A000055
$ RUN A000054
$ ADA Z000192
$ RUN A000055
$ RUN A000054
$ ADA Z000193
$ RUN A000055
$ RUN A000054
$ ADA Z000201
$ RUN A000055
$ RUN A000054
$ ADA Z000202
$ RUN A000055
$ RUN A000054
$ ADA Z000203
$ RUN A000055
$ RUN A000054
$ ADA Z000211
$ RUN A000055
$ RUN A000054
$ ADA Z000212
$ RUN A000055
$ RUN A000054
$ ADA Z000213
$ RUN A000055
$ RUN A000054
$ ADA Z000221
$ RUN A000055
$ RUN A000054
$ ADA Z000222
$ RUN A000055
$ RUN A000054
$ ADA Z000223
$ RUN A000055
$ RUN A000054
$ ADA Z000224
$ RUN A000055
$ RUN A000054
$ ADA Z000231
$ RUN A000055
$ RUN A000054
$ ADA Z000232
$ RUN A000055
$ RUN A000054
$ ADA Z000233
$ RUN A000055
$ RUN A000054
$ ADA Z000234
$ RUN A000055
$ RUN A000054
$ ADA Z000241
$ RUN A000055
$ RUN A000054
$ ADA Z000242
$ RUN A000055
$ RUN A000054
$ ADA Z000243
$ RUN A000055
$ RUN A000054
$ ADA Z000244
$ RUN A000055
$ RUN A000054
$ ADA Z000254
$ RUN A000055
$ RUN A000054
$ ADA Z000264
$ RUN A000055
$ RUN A000054
$ ADA Z000274
$ RUN A000055
$ RUN A000054
$ ADA Z000281
$ RUN A000055
$ RUN A000054
$ ADA Z000282
$ RUN A000055
$ RUN A000054
$ ADA Z000283
$ RUN A000055
$ RUN A000054
$ ADA Z000284
$ RUN A000055
$ RUN A000054
$ ADA Z000291
$ RUN A000055
$ RUN A000054
$ ADA Z000292
$ RUN A000055
$ RUN A000054
$ ADA Z000293
$ RUN A000055
$ RUN A000054
$ ADA Z000294
$ RUN A000055
$ RUN A000054
$ ADA Z000295
$ RUN A000055
$ RUN A000054
$ ADA Z000301
$ RUN A000055
$ RUN A000054
$ ADA Z000302
$ RUN A000055
$ RUN A000054
$ ADA Z000303
$ RUN A000055
$ RUN A000054
$ ADA Z000304
$ RUN A000055
$ RUN A000054
$ ADA Z000311
$ RUN A000055
$ RUN A000054
$ ADA Z000312
$ RUN A000055
$ RUN A000054
$ ADA Z000313
$ RUN A000055
$ RUN A000054
$ ADA Z000314
$ RUN A000055
$ RUN A000054
$ ADA Z000315
$ RUN A000055
$ RUN A000052 ! zero incremental time
$ RUN A000053
$ RUN A000054
$ DELETE [.ADALIB]*.*;* ! time cleaning out library
$ RUN A000055
::::::::::
Z000112.ADA
::::::::::
procedure z000112 is
    integer_1, integer_2, integer_3, integer_4, integer_5,
    integer_6, integer_7, integer_8, integer_9, integer_10,
    integer_11, integer_12, integer_13, integer_14, integer_15,
    integer_16, integer_17, integer_18, integer_19, integer_20,
    integer_21, integer_22, integer_23, integer_24, integer_25,
    integer_26, integer_27, integer_28, integer_29, integer_30,
    integer_31, integer_32, integer_33, integer_34, integer_35,
    integer_36, integer_37, integer_38, integer_39, integer_40,
    integer_41, integer_42, integer_43, integer_44, integer_45,
    integer_46, integer_47, integer_48, integer_49, integer_50,
    integer_51, integer_52, integer_53, integer_54, integer_55,
    integer_56, integer_57, integer_58, integer_59, integer_60,
    integer_61, integer_62, integer_63, integer_64, integer_65,
    integer_66, integer_67, integer_68, integer_69, integer_70,
    integer_71, integer_72, integer_73, integer_74, integer_75,
    integer_76, integer_77, integer_78, integer_79, integer_80,
    integer_81, integer_82, integer_83, integer_84, integer_85,
    integer_86, integer_87, integer_88, integer_89, integer_90,
    integer_91, integer_92, integer_93, integer_94, integer_95,
    integer_96, integer_97, integer_98, integer_99, integer_100,
    integer_101, integer_102, integer_103, integer_104, integer_105,
    integer_106, integer_107, integer_108, integer_109, integer_110,
    integer_111, integer_112, integer_113, integer_114, integer_115,
    integer_116, integer_117, integer_118, integer_119, integer_120,
    integer_121, integer_122, integer_123, integer_124, integer_125,
    integer_126, integer_127, integer_128, integer_129, integer_130,
    integer_131, integer_132, integer_133, integer_134, integer_135,
    integer_136, integer_137, integer_138, integer_139, integer_140,
    integer_141, integer_142, integer_143, integer_144, integer_145,
    integer_146, integer_147, integer_148, integer_149, integer_150,
    integer_151, integer_152, integer_153, integer_154, integer_155,
    integer_156, integer_157, integer_158, integer_159, integer_160,
    integer_161, integer_162, integer_163, integer_164, integer_165,
    integer_166, integer_167, integer_168, integer_169, integer_170,
    integer_171, integer_172, integer_173, integer_174, integer_175,
    integer_176, integer_177, integer_178, integer_179, integer_180,
    integer_181, integer_182, integer_183, integer_184, integer_185,
    integer_186, integer_187, integer_188, integer_189, integer_190,
    integer_191, integer_192, integer_193, integer_194, integer_195,
    integer_196, integer_197, integer_198, integer_199, integer_200
        : integer := 1;
    begin
    null;
    end z000112;
::::::::::
Z000113.ADA
::::::::::
procedure z000113 is
    integer_1, integer_2, integer_3, integer_4, integer_5,
    integer_6, integer_7, integer_8, integer_9, integer_10,
    integer_11, integer_12, integer_13, integer_14, integer_15,
    integer_16, integer_17, integer_18, integer_19, integer_20,
    integer_21, integer_22, integer_23, integer_24, integer_25,
    integer_26, integer_27, integer_28, integer_29, integer_30,
    integer_31, integer_32, integer_33, integer_34, integer_35,
    integer_36, integer_37, integer_38, integer_39, integer_40,
    integer_41, integer_42, integer_43, integer_44, integer_45,
    integer_46, integer_47, integer_48, integer_49, integer_50,
    integer_51, integer_52, integer_53, integer_54, integer_55,
    integer_56, integer_57, integer_58, integer_59, integer_60,
    integer_61, integer_62, integer_63, integer_64, integer_65,
    integer_66, integer_67, integer_68, integer_69, integer_70,
    integer_71, integer_72, integer_73, integer_74, integer_75,
    integer_76, integer_77, integer_78, integer_79, integer_80,
    integer_81, integer_82, integer_83, integer_84, integer_85,
    integer_86, integer_87, integer_88, integer_89, integer_90,
    integer_91, integer_92, integer_93, integer_94, integer_95,
    integer_96, integer_97, integer_98, integer_99, integer_100,
    integer_101, integer_102, integer_103, integer_104, integer_105,
    integer_106, integer_107, integer_108, integer_109, integer_110,
    integer_111, integer_112, integer_113, integer_114, integer_115,
    integer_116, integer_117, integer_118, integer_119, integer_120,
    integer_121, integer_122, integer_123, integer_124, integer_125,
    integer_126, integer_127, integer_128, integer_129, integer_130,
    integer_131, integer_132, integer_133, integer_134, integer_135,
    integer_136, integer_137, integer_138, integer_139, integer_140,
    integer_141, integer_142, integer_143, integer_144, integer_145,
    integer_146, integer_147, integer_148, integer_149, integer_150,
    integer_151, integer_152, integer_153, integer_154, integer_155,
    integer_156, integer_157, integer_158, integer_159, integer_160,
    integer_161, integer_162, integer_163, integer_164, integer_165,
    integer_166, integer_167, integer_168, integer_169, integer_170,
    integer_171, integer_172, integer_173, integer_174, integer_175,
    integer_176, integer_177, integer_178, integer_179, integer_180,
    integer_181, integer_182, integer_183, integer_184, integer_185,
    integer_186, integer_187, integer_188, integer_189, integer_190,
    integer_191, integer_192, integer_193, integer_194, integer_195,
    integer_196, integer_197, integer_198, integer_199, integer_200,
    integer_201, integer_202, integer_203, integer_204, integer_205,
    integer_206, integer_207, integer_208, integer_209, integer_210,
    integer_211, integer_212, integer_213, integer_214, integer_215,
    integer_216, integer_217, integer_218, integer_219, integer_220,
    integer_221, integer_222, integer_223, integer_224, integer_225,
    integer_226, integer_227, integer_228, integer_229, integer_230,
    integer_231, integer_232, integer_233, integer_234, integer_235,
    integer_236, integer_237, integer_238, integer_239, integer_240,
    integer_241, integer_242, integer_243, integer_244, integer_245,
    integer_246, integer_247, integer_248, integer_249, integer_250,
    integer_251, integer_252, integer_253, integer_254, integer_255,
    integer_256, integer_257, integer_258, integer_259, integer_260,
    integer_261, integer_262, integer_263, integer_264, integer_265,
    integer_266, integer_267, integer_268, integer_269, integer_270,
    integer_271, integer_272, integer_273, integer_274, integer_275,
    integer_276, integer_277, integer_278, integer_279, integer_280,
    integer_281, integer_282, integer_283, integer_284, integer_285,
    integer_286, integer_287, integer_288, integer_289, integer_290,
    integer_291, integer_292, integer_293, integer_294, integer_295,
    integer_296, integer_297, integer_298, integer_299, integer_300,
    integer_301, integer_302, integer_303, integer_304, integer_305,
    integer_306, integer_307, integer_308, integer_309, integer_310,
    integer_311, integer_312, integer_313, integer_314, integer_315,
    integer_316, integer_317, integer_318, integer_319, integer_320,
    integer_321, integer_322, integer_323, integer_324, integer_325,
    integer_326, integer_327, integer_328, integer_329, integer_330,
    integer_331, integer_332, integer_333, integer_334, integer_335,
    integer_336, integer_337, integer_338, integer_339, integer_340,
    integer_341, integer_342, integer_343, integer_344, integer_345,
    integer_346, integer_347, integer_348, integer_349, integer_350,
    integer_351, integer_352, integer_353, integer_354, integer_355,
    integer_356, integer_357, integer_358, integer_359, integer_360,
    integer_361, integer_362, integer_363, integer_364, integer_365,
    integer_366, integer_367, integer_368, integer_369, integer_370,
    integer_371, integer_372, integer_373, integer_374, integer_375,
    integer_376, integer_377, integer_378, integer_379, integer_380,
    integer_381, integer_382, integer_383, integer_384, integer_385,
    integer_386, integer_387, integer_388, integer_389, integer_390,
    integer_391, integer_392, integer_393, integer_394, integer_395,
    integer_396, integer_397, integer_398, integer_399, integer_400,
    integer_401, integer_402, integer_403, integer_404, integer_405,
    integer_406, integer_407, integer_408, integer_409, integer_410,
    integer_411, integer_412, integer_413, integer_414, integer_415,
    integer_416, integer_417, integer_418, integer_419, integer_420,
    integer_421, integer_422, integer_423, integer_424, integer_425,
    integer_426, integer_427, integer_428, integer_429, integer_430,
    integer_431, integer_432, integer_433, integer_434, integer_435,
    integer_436, integer_437, integer_438, integer_439, integer_440,
    integer_441, integer_442, integer_443, integer_444, integer_445,
    integer_446, integer_447, integer_448, integer_449, integer_450,
    integer_451, integer_452, integer_453, integer_454, integer_455,
    integer_456, integer_457, integer_458, integer_459, integer_460,
    integer_461, integer_462, integer_463, integer_464, integer_465,
    integer_466, integer_467, integer_468, integer_469, integer_470,
    integer_471, integer_472, integer_473, integer_474, integer_475,
    integer_476, integer_477, integer_478, integer_479, integer_480,
    integer_481, integer_482, integer_483, integer_484, integer_485,
    integer_486, integer_487, integer_488, integer_489, integer_490,
    integer_491, integer_492, integer_493, integer_494, integer_495,
    integer_496, integer_497, integer_498, integer_499, integer_500
        : integer := 1;
    begin
    null;
    end z000113;
::::::::::
Z000114.ADA
::::::::::
procedure z000114 is
    integer_1, integer_2, integer_3, integer_4, integer_5,
    integer_6, integer_7, integer_8, integer_9, integer_10,
    integer_11, integer_12, integer_13, integer_14, integer_15,
    integer_16, integer_17, integer_18, integer_19, integer_20,
    integer_21, integer_22, integer_23, integer_24, integer_25,
    integer_26, integer_27, integer_28, integer_29, integer_30,
    integer_31, integer_32, integer_33, integer_34, integer_35,
    integer_36, integer_37, integer_38, integer_39, integer_40,
    integer_41, integer_42, integer_43, integer_44, integer_45,
    integer_46, integer_47, integer_48, integer_49, integer_50,
    integer_51, integer_52, integer_53, integer_54, integer_55,
    integer_56, integer_57, integer_58, integer_59, integer_60,
    integer_61, integer_62, integer_63, integer_64, integer_65,
    integer_66, integer_67, integer_68, integer_69, integer_70,
    integer_71, integer_72, integer_73, integer_74, integer_75,
    integer_76, integer_77, integer_78, integer_79, integer_80,
    integer_81, integer_82, integer_83, integer_84, integer_85,
    integer_86, integer_87, integer_88, integer_89, integer_90,
    integer_91, integer_92, integer_93, integer_94, integer_95,
    integer_96, integer_97, integer_98, integer_99, integer_100,
    integer_101, integer_102, integer_103, integer_104, integer_105,
    integer_106, integer_107, integer_108, integer_109, integer_110,
    integer_111, integer_112, integer_113, integer_114, integer_115,
    integer_116, integer_117, integer_118, integer_119, integer_120,
    integer_121, integer_122, integer_123, integer_124, integer_125,
    integer_126, integer_127, integer_128, integer_129, integer_130,
    integer_131, integer_132, integer_133, integer_134, integer_135,
    integer_136, integer_137, integer_138, integer_139, integer_140,
    integer_141, integer_142, integer_143, integer_144, integer_145,
    integer_146, integer_147, integer_148, integer_149, integer_150,
    integer_151, integer_152, integer_153, integer_154, integer_155,
    integer_156, integer_157, integer_158, integer_159, integer_160,
    integer_161, integer_162, integer_163, integer_164, integer_165,
    integer_166, integer_167, integer_168, integer_169, integer_170,
    integer_171, integer_172, integer_173, integer_174, integer_175,
    integer_176, integer_177, integer_178, integer_179, integer_180,
    integer_181, integer_182, integer_183, integer_184, integer_185,
    integer_186, integer_187, integer_188, integer_189, integer_190,
    integer_191, integer_192, integer_193, integer_194, integer_195,
    integer_196, integer_197, integer_198, integer_199, integer_200,
    integer_201, integer_202, integer_203, integer_204, integer_205,
    integer_206, integer_207, integer_208, integer_209, integer_210,
    integer_211, integer_212, integer_213, integer_214, integer_215,
    integer_216, integer_217, integer_218, integer_219, integer_220,
    integer_221, integer_222, integer_223, integer_224, integer_225,
    integer_226, integer_227, integer_228, integer_229, integer_230,
    integer_231, integer_232, integer_233, integer_234, integer_235,
    integer_236, integer_237, integer_238, integer_239, integer_240,
    integer_241, integer_242, integer_243, integer_244, integer_245,
    integer_246, integer_247, integer_248, integer_249, integer_250,
    integer_251, integer_252, integer_253, integer_254, integer_255,
    integer_256, integer_257, integer_258, integer_259, integer_260,
    integer_261, integer_262, integer_263, integer_264, integer_265,
    integer_266, integer_267, integer_268, integer_269, integer_270,
    integer_271, integer_272, integer_273, integer_274, integer_275,
    integer_276, integer_277, integer_278, integer_279, integer_280,
    integer_281, integer_282, integer_283, integer_284, integer_285,
    integer_286, integer_287, integer_288, integer_289, integer_290,
    integer_291, integer_292, integer_293, integer_294, integer_295,
    integer_296, integer_297, integer_298, integer_299, integer_300,
    integer_301, integer_302, integer_303, integer_304, integer_305,
    integer_306, integer_307, integer_308, integer_309, integer_310,
    integer_311, integer_312, integer_313, integer_314, integer_315,
    integer_316, integer_317, integer_318, integer_319, integer_320,
    integer_321, integer_322, integer_323, integer_324, integer_325,
    integer_326, integer_327, integer_328, integer_329, integer_330,
    integer_331, integer_332, integer_333, integer_334, integer_335,
    integer_336, integer_337, integer_338, integer_339, integer_340,
    integer_341, integer_342, integer_343, integer_344, integer_345,
    integer_346, integer_347, integer_348, integer_349, integer_350,
    integer_351, integer_352, integer_353, integer_354, integer_355,
    integer_356, integer_357, integer_358, integer_359, integer_360,
    integer_361, integer_362, integer_363, integer_364, integer_365,
    integer_366, integer_367, integer_368, integer_369, integer_370,
    integer_371, integer_372, integer_373, integer_374, integer_375,
    integer_376, integer_377, integer_378, integer_379, integer_380,
    integer_381, integer_382, integer_383, integer_384, integer_385,
    integer_386, integer_387, integer_388, integer_389, integer_390,
    integer_391, integer_392, integer_393, integer_394, integer_395,
    integer_396, integer_397, integer_398, integer_399, integer_400,
    integer_401, integer_402, integer_403, integer_404, integer_405,
    integer_406, integer_407, integer_408, integer_409, integer_410,
    integer_411, integer_412, integer_413, integer_414, integer_415,
    integer_416, integer_417, integer_418, integer_419, integer_420,
    integer_421, integer_422, integer_423, integer_424, integer_425,
    integer_426, integer_427, integer_428, integer_429, integer_430,
    integer_431, integer_432, integer_433, integer_434, integer_435,
    integer_436, integer_437, integer_438, integer_439, integer_440,
    integer_441, integer_442, integer_443, integer_444, integer_445,
    integer_446, integer_447, integer_448, integer_449, integer_450,
    integer_451, integer_452, integer_453, integer_454, integer_455,
    integer_456, integer_457, integer_458, integer_459, integer_460,
    integer_461, integer_462, integer_463, integer_464, integer_465,
    integer_466, integer_467, integer_468, integer_469, integer_470,
    integer_471, integer_472, integer_473, integer_474, integer_475,
    integer_476, integer_477, integer_478, integer_479, integer_480,
    integer_481, integer_482, integer_483, integer_484, integer_485,
    integer_486, integer_487, integer_488, integer_489, integer_490,
    integer_491, integer_492, integer_493, integer_494, integer_495,
    integer_496, integer_497, integer_498, integer_499, integer_500,
    integer_501, integer_502, integer_503, integer_504, integer_505,
    integer_506, integer_507, integer_508, integer_509, integer_510,
    integer_511, integer_512, integer_513, integer_514, integer_515,
    integer_516, integer_517, integer_518, integer_519, integer_520,
    integer_521, integer_522, integer_523, integer_524, integer_525,
    integer_526, integer_527, integer_528, integer_529, integer_530,
    integer_531, integer_532, integer_533, integer_534, integer_535,
    integer_536, integer_537, integer_538, integer_539, integer_540,
    integer_541, integer_542, integer_543, integer_544, integer_545,
    integer_546, integer_547, integer_548, integer_549, integer_550,
    integer_551, integer_552, integer_553, integer_554, integer_555,
    integer_556, integer_557, integer_558, integer_559, integer_560,
    integer_561, integer_562, integer_563, integer_564, integer_565,
    integer_566, integer_567, integer_568, integer_569, integer_570,
    integer_571, integer_572, integer_573, integer_574, integer_575,
    integer_576, integer_577, integer_578, integer_579, integer_580,
    integer_581, integer_582, integer_583, integer_584, integer_585,
    integer_586, integer_587, integer_588, integer_589, integer_590,
    integer_591, integer_592, integer_593, integer_594, integer_595,
    integer_596, integer_597, integer_598, integer_599, integer_600,
    integer_601, integer_602, integer_603, integer_604, integer_605,
    integer_606, integer_607, integer_608, integer_609, integer_610,
    integer_611, integer_612, integer_613, integer_614, integer_615,
    integer_616, integer_617, integer_618, integer_619, integer_620,
    integer_621, integer_622, integer_623, integer_624, integer_625,
    integer_626, integer_627, integer_628, integer_629, integer_630,
    integer_631, integer_632, integer_633, integer_634, integer_635,
    integer_636, integer_637, integer_638, integer_639, integer_640,
    integer_641, integer_642, integer_643, integer_644, integer_645,
    integer_646, integer_647, integer_648, integer_649, integer_650,
    integer_651, integer_652, integer_653, integer_654, integer_655,
    integer_656, integer_657, integer_658, integer_659, integer_660,
    integer_661, integer_662, integer_663, integer_664, integer_665,
    integer_666, integer_667, integer_668, integer_669, integer_670,
    integer_671, integer_672, integer_673, integer_674, integer_675,
    integer_676, integer_677, integer_678, integer_679, integer_680,
    integer_681, integer_682, integer_683, integer_684, integer_685,
    integer_686, integer_687, integer_688, integer_689, integer_690,
    integer_691, integer_692, integer_693, integer_694, integer_695,
    integer_696, integer_697, integer_698, integer_699, integer_700,
    integer_701, integer_702, integer_703, integer_704, integer_705,
    integer_706, integer_707, integer_708, integer_709, integer_710,
    integer_711, integer_712, integer_713, integer_714, integer_715,
    integer_716, integer_717, integer_718, integer_719, integer_720,
    integer_721, integer_722, integer_723, integer_724, integer_725,
    integer_726, integer_727, integer_728, integer_729, integer_730,
    integer_731, integer_732, integer_733, integer_734, integer_735,
    integer_736, integer_737, integer_738, integer_739, integer_740,
    integer_741, integer_742, integer_743, integer_744, integer_745,
    integer_746, integer_747, integer_748, integer_749, integer_750,
    integer_751, integer_752, integer_753, integer_754, integer_755,
    integer_756, integer_757, integer_758, integer_759, integer_760,
    integer_761, integer_762, integer_763, integer_764, integer_765,
    integer_766, integer_767, integer_768, integer_769, integer_770,
    integer_771, integer_772, integer_773, integer_774, integer_775,
    integer_776, integer_777, integer_778, integer_779, integer_780,
    integer_781, integer_782, integer_783, integer_784, integer_785,
    integer_786, integer_787, integer_788, integer_789, integer_790,
    integer_791, integer_792, integer_793, integer_794, integer_795,
    integer_796, integer_797, integer_798, integer_799, integer_800,
    integer_801, integer_802, integer_803, integer_804, integer_805,
    integer_806, integer_807, integer_808, integer_809, integer_810,
    integer_811, integer_812, integer_813, integer_814, integer_815,
    integer_816, integer_817, integer_818, integer_819, integer_820,
    integer_821, integer_822, integer_823, integer_824, integer_825,
    integer_826, integer_827, integer_828, integer_829, integer_830,
    integer_831, integer_832, integer_833, integer_834, integer_835,
    integer_836, integer_837, integer_838, integer_839, integer_840,
    integer_841, integer_842, integer_843, integer_844, integer_845,
    integer_846, integer_847, integer_848, integer_849, integer_850,
    integer_851, integer_852, integer_853, integer_854, integer_855,
    integer_856, integer_857, integer_858, integer_859, integer_860,
    integer_861, integer_862, integer_863, integer_864, integer_865,
    integer_866, integer_867, integer_868, integer_869, integer_870,
    integer_871, integer_872, integer_873, integer_874, integer_875,
    integer_876, integer_877, integer_878, integer_879, integer_880,
    integer_881, integer_882, integer_883, integer_884, integer_885,
    integer_886, integer_887, integer_888, integer_889, integer_890,
    integer_891, integer_892, integer_893, integer_894, integer_895,
    integer_896, integer_897, integer_898, integer_899, integer_900,
    integer_901, integer_902, integer_903, integer_904, integer_905,
    integer_906, integer_907, integer_908, integer_909, integer_910,
    integer_911, integer_912, integer_913, integer_914, integer_915,
    integer_916, integer_917, integer_918, integer_919, integer_920,
    integer_921, integer_922, integer_923, integer_924, integer_925,
    integer_926, integer_927, integer_928, integer_929, integer_930,
    integer_931, integer_932, integer_933, integer_934, integer_935,
    integer_936, integer_937, integer_938, integer_939, integer_940,
    integer_941, integer_942, integer_943, integer_944, integer_945,
    integer_946, integer_947, integer_948, integer_949, integer_950,
    integer_951, integer_952, integer_953, integer_954, integer_955,
    integer_956, integer_957, integer_958, integer_959, integer_960,
    integer_961, integer_962, integer_963, integer_964, integer_965,
    integer_966, integer_967, integer_968, integer_969, integer_970,
    integer_971, integer_972, integer_973, integer_974, integer_975,
    integer_976, integer_977, integer_978, integer_979, integer_980,
    integer_981, integer_982, integer_983, integer_984, integer_985,
    integer_986, integer_987, integer_988, integer_989, integer_990,
    integer_991, integer_992, integer_993, integer_994, integer_995,
    integer_996, integer_997, integer_998, integer_999, integer_1000
        : integer := 1;
    begin
    null;
    end z000114;
::::::::::
Z00011D.L86
::::::::::
$   SET NOCONTROL_Y
$   SET NOVERIFY
            Batch job executed on node VAX 8650 during day
$   EXIT
$ SET NOVERIFY
%ACS-I-CL_LIBIS, Current program library is PUSERS:[.ADALIB]
$ SET NOON ! uses disk and measures incremental time.
$ SET DEF [.SIGADA.TAPE_8_31_86] ! SIGAda PIWG Compilation Time Test on VAX
$! DELETE [.ADALIB]*.*;* ! -- This should be done manually first
$ ACS CREA LIB [.ADALIB] ! --include library initialization time
%ACS-I-CL_LIBCRE, Library PUSERS:[.SIGADA.TAPE_8_31_86.ADALIB] created
$ ACS SET LIB  [.ADALIB]
%ACS-I-CL_LIBIS, Current program library is PUSERS:[.SIGADA.TAPE_8_31_86.ADALIB]
$ RUN A000052
$ RUN A000053
$ RUN A000054
$ ADA Z000110
$ RUN A000055 ! time for minimum compile
Measurement
CPU Time:        0.68  seconds
Wall Time:       2.91  seconds
$ RUN A000052
$ RUN A000053
$ RUN A000054
$ ADA Z000111
$ RUN A000055 ! time to compile 100 INTEGER declarations
Measurement
CPU Time:        1.20  seconds
Wall Time:       3.74  seconds
$ RUN A000052
$ ADA Z000110
$ RUN A000053
$ RUN A000054
$ ADA Z000111
$ RUN A000055 ! incremental time to compile 100 INTEGER declarations
Measurement
CPU Time:        0.53  seconds
Wall Time:       0.36  seconds
$ RUN A000054
$ ADA Z000111
$ RUN A000055 ! incremental time to compile 100 INTEGER declarations
Measurement
CPU Time:        0.54  seconds
Wall Time:       0.52  seconds
$ RUN A000054
$ ADA Z000112
$ RUN A000055 ! incremental time to compile 200 INTEGER declarations
Measurement
CPU Time:        0.99  seconds
Wall Time:       0.73  seconds
$ RUN A000054
$ ADA Z000113
$ RUN A000055 ! incremental time to compile 500 INTEGER declarations
Measurement
CPU Time:        2.76  seconds
Wall Time:       2.95  seconds
$ RUN A000054
$ ADA Z000114
$ RUN A000055 ! incremental time to compile 1000 INTEGER declarations
Measurement
CPU Time:        5.89  seconds
Wall Time:       5.93  seconds
$ RUN A000054
$ ADA Z000121
$ RUN A000055 ! incremental time to compile and initialize 100 INTEGERS
Measurement
CPU Time:        0.75  seconds
Wall Time:       0.41  seconds
$ RUN A000054
$ ADA Z000122
$ RUN A000055
Measurement
CPU Time:        1.68  seconds
Wall Time:       1.49  seconds
$ RUN A000054
$ ADA Z000123
$ RUN A000055
Measurement
CPU Time:        4.28  seconds
Wall Time:       4.24  seconds
$ RUN A000054
$ ADA Z000124
$ RUN A000055
Measurement
CPU Time:        9.41  seconds
Wall Time:      10.27  seconds
$ RUN A000054
$ ADA Z000131
$ RUN A000055
Measurement
CPU Time:        0.34  seconds
Wall Time:      -0.11  seconds
$ RUN A000054
$ ADA Z000132
$ RUN A000055
Measurement
CPU Time:        0.77  seconds
Wall Time:       0.27  seconds
$ RUN A000054
$ ADA Z000133
$ RUN A000055
Measurement
CPU Time:        1.87  seconds
Wall Time:       1.84  seconds
$ RUN A000054
$ ADA Z000134
$ RUN A000055
Measurement
CPU Time:        3.83  seconds
Wall Time:       3.68  seconds
$ RUN A000054
$ ADA Z000141
$ RUN A000055
Measurement
CPU Time:        1.57  seconds
Wall Time:       1.26  seconds
$ RUN A000054
$ ADA Z000142
$ RUN A000055
Measurement
CPU Time:        3.21  seconds
Wall Time:       3.81  seconds
$ RUN A000054
$ ADA Z000143
$ RUN A000055
Measurement
CPU Time:        9.19  seconds
Wall Time:       9.51  seconds
$ RUN A000054
$ ADA Z000151
$ RUN A000055
Measurement
CPU Time:        1.79  seconds
Wall Time:       1.67  seconds
$ RUN A000054
$ ADA Z000152
$ RUN A000055
Measurement
CPU Time:        3.67  seconds
Wall Time:       3.37  seconds
$ RUN A000054
$ ADA Z000153
$ RUN A000055
Measurement
CPU Time:        9.65  seconds
Wall Time:      10.39  seconds
$ RUN A000054
$ ADA Z000161
$ RUN A000055
Measurement
CPU Time:        2.12  seconds
Wall Time:       1.91  seconds
$ RUN A000054
$ ADA Z000162
$ RUN A000055
Measurement
CPU Time:        4.27  seconds
Wall Time:       4.52  seconds
$ RUN A000054
$ ADA Z000171
$ RUN A000055
Measurement
CPU Time:       69.88  seconds
Wall Time:      75.34  seconds
$ RUN A000054
$ ADA Z000172
$ RUN A000055
Measurement
CPU Time:      190.02  seconds
Wall Time:     226.71  seconds
$ RUN A000054
$ ADA Z000173
$ RUN A000055
Measurement
CPU Time:      960.32  seconds
Wall Time:    1145.94  seconds
$ RUN A000054
$ ADA Z000181
$ RUN A000055
Measurement
CPU Time:        0.48  seconds
Wall Time:       0.78  seconds
$ RUN A000054
$ ADA Z000182
$ RUN A000055
Measurement
CPU Time:        1.13  seconds
Wall Time:       1.12  seconds
$ RUN A000054
$ ADA Z000183
$ RUN A000055
Measurement
CPU Time:        3.04  seconds
Wall Time:       3.15  seconds
$ RUN A000054
$ ADA Z000184
$ RUN A000055
Measurement
CPU Time:        6.09  seconds
Wall Time:       7.44  seconds
$ RUN A000054
$ ADA Z000191
$ RUN A000055
Measurement
CPU Time:        0.38  seconds
Wall Time:       2.70  seconds
$ RUN A000054
$ ADA Z000192
$ RUN A000055
Measurement
CPU Time:        0.47  seconds
Wall Time:       3.61  seconds
$ RUN A000054
$ ADA Z000193
$ RUN A000055
Measurement
CPU Time:        1.44  seconds
Wall Time:       2.01  seconds
$ RUN A000054
$ ADA Z000201
$ RUN A000055
Measurement
CPU Time:        0.25  seconds
Wall Time:       1.00  seconds
$ RUN A000054
$ ADA Z000202
$ RUN A000055
Measurement
CPU Time:        0.49  seconds
Wall Time:       0.89  seconds
$ RUN A000054
$ ADA Z000203
$ RUN A000055
Measurement
CPU Time:        1.47  seconds
Wall Time:       2.92  seconds
$ RUN A000054
$ ADA Z000211
$ RUN A000055
Measurement
CPU Time:        0.42  seconds
Wall Time:       0.75  seconds
$ RUN A000054
$ ADA Z000212
$ RUN A000055
Measurement
CPU Time:        0.81  seconds
Wall Time:       0.93  seconds
$ RUN A000054
$ ADA Z000213
$ RUN A000055
Measurement
CPU Time:        1.84  seconds
Wall Time:       2.06  seconds
$ RUN A000054
$ ADA Z000221
$ RUN A000055
Measurement
CPU Time:        0.16  seconds
Wall Time:       0.11  seconds
$ RUN A000054
$ ADA Z000222
$ RUN A000055
Measurement
CPU Time:        0.50  seconds
Wall Time:       0.38  seconds
$ RUN A000054
$ ADA Z000223
$ RUN A000055
Measurement
CPU Time:        1.55  seconds
Wall Time:       2.83  seconds
$ RUN A000054
$ ADA Z000224
$ RUN A000055
Measurement
CPU Time:        4.76  seconds
Wall Time:       8.17  seconds
$ RUN A000054
$ ADA Z000231
$ RUN A000055
Measurement
CPU Time:        0.46  seconds
Wall Time:       1.72  seconds
$ RUN A000054
$ ADA Z000232
$ RUN A000055
Measurement
CPU Time:        0.92  seconds
Wall Time:       0.76  seconds
$ RUN A000054
$ ADA Z000233
$ RUN A000055
Measurement
CPU Time:        2.86  seconds
Wall Time:       2.93  seconds
$ RUN A000054
$ ADA Z000234
%SYSTEM-F-ACCVIO, access violation, reason mask=00, virtual address=FFF57AF9, PC=000C1860, PSL=03C000A8
$ RUN A000055
Measurement
CPU Time:        5.85  seconds
Wall Time:       5.87  seconds
$ RUN A000054
$ ADA Z000241
$ RUN A000055
Measurement
CPU Time:        0.28  seconds
Wall Time:      -0.15  seconds
$ RUN A000054
$ ADA Z000242
$ RUN A000055
Measurement
CPU Time:        0.53  seconds
Wall Time:       0.39  seconds
$ RUN A000054
$ ADA Z000243
$ RUN A000055
Measurement
CPU Time:        1.36  seconds
Wall Time:       1.28  seconds
$ RUN A000054
$ ADA Z000244
$ RUN A000055
Measurement
CPU Time:        2.70  seconds
Wall Time:       5.98  seconds
$ RUN A000054
$ ADA Z000254
$ RUN A000055
Measurement
CPU Time:        2.06  seconds
Wall Time:       3.54  seconds
$ RUN A000054
$ ADA Z000264
$ RUN A000055
Measurement
CPU Time:       11.76  seconds
Wall Time:      15.70  seconds
$ RUN A000054
$ ADA Z000274
$ RUN A000055
Measurement
CPU Time:       27.13  seconds
Wall Time:      63.83  seconds
$ RUN A000054
$ ADA Z000281
$ RUN A000055
Measurement
CPU Time:        1.06  seconds
Wall Time:       9.19  seconds
$ RUN A000054
$ ADA Z000282
$ RUN A000055
Measurement
CPU Time:        2.75  seconds
Wall Time:      19.41  seconds
$ RUN A000054
$ ADA Z000283
$ RUN A000055
Measurement
CPU Time:        7.38  seconds
Wall Time:      54.88  seconds
$ RUN A000054
$ ADA Z000284
$ RUN A000055
Measurement
CPU Time:       15.14  seconds
Wall Time:     121.73  seconds
$ RUN A000054
$ ADA Z000291
$ RUN A000055
Measurement
CPU Time:        2.25  seconds
Wall Time:      18.19  seconds
$ RUN A000054
$ ADA Z000292
$ RUN A000055
Measurement
CPU Time:        4.92  seconds
Wall Time:      37.86  seconds
$ RUN A000054
$ ADA Z000293
$ RUN A000055
Measurement
CPU Time:       13.44  seconds
Wall Time:     100.12  seconds
$ RUN A000054
$ ADA Z000294
$ RUN A000055
Measurement
CPU Time:       26.78  seconds
Wall Time:     195.43  seconds
$ RUN A000054
$ ADA Z000295
$ RUN A000055
Measurement
CPU Time:       55.89  seconds
Wall Time:     482.34  seconds
$ RUN A000054
$ ADA Z000301
$ RUN A000055
Measurement
CPU Time:        6.70  seconds
Wall Time:      35.84  seconds
$ RUN A000054
$ ADA Z000302
$ RUN A000055
Measurement
CPU Time:       14.83  seconds
Wall Time:      80.30  seconds
$ RUN A000054
$ ADA Z000303
$ RUN A000055
Measurement
CPU Time:       71.27  seconds
Wall Time:     347.74  seconds
$ RUN A000054
$ ADA Z000304
$ RUN A000055
Measurement
CPU Time:      320.33  seconds
Wall Time:    4321.53  seconds
$ RUN A000054
$ ADA Z000311
$ RUN A000055
Measurement
CPU Time:        2.45  seconds
Wall Time:      25.10  seconds
$ RUN A000054
$ ADA Z000312
$ RUN A000055
Measurement
CPU Time:        4.58  seconds
Wall Time:      45.27  seconds
$ RUN A000054
$ ADA Z000313
$ RUN A000055
Measurement
CPU Time:       11.95  seconds
Wall Time:     177.15  seconds
$ RUN A000054
$ ADA Z000314
$ RUN A000055
Measurement
CPU Time:       25.71  seconds
Wall Time:     275.84  seconds
$ RUN A000054
$ ADA Z000315
$ RUN A000055
Measurement
CPU Time:       40.68  seconds
Wall Time:     685.61  seconds
$ RUN A000052 ! zero incremental time
$ RUN A000053
$ RUN A000054
$ DELETE [.ADALIB]*.*;* ! time cleaning out library
$ RUN A000055
Measurement
CPU Time:       24.11  seconds
Wall Time:     971.26  seconds
         job terminated at 17-NOV-1986 09:50:25.48
  Accounting information:
  Buffered I/O count:        48258      Peak working set size:  7500
  Direct I/O count:         109579      Peak page file size:   48582
  Page faults:              512191      Mounted volumes:           0
  Charged CPU time:     0 00:35:04.70   Elapsed time:     0 02:46:57.80
::::::::::
Z000121.ADA
::::::::::
procedure z000121 is
    integer_1: integer := 1;
    integer_2: integer := 2;
    integer_3: integer := 3;
    integer_4: integer := 4;
    integer_5: integer := 5;
    integer_6: integer := 6;
    integer_7: integer := 7;
    integer_8: integer := 8;
    integer_9: integer := 9;
    integer_10: integer := 10;
    integer_11: integer := 11;
    integer_12: integer := 12;
    integer_13: integer := 13;
    integer_14: integer := 14;
    integer_15: integer := 15;
    integer_16: integer := 16;
    integer_17: integer := 17;
    integer_18: integer := 18;
    integer_19: integer := 19;
    integer_20: integer := 20;
    integer_21: integer := 21;
    integer_22: integer := 22;
    integer_23: integer := 23;
    integer_24: integer := 24;
    integer_25: integer := 25;
    integer_26: integer := 26;
    integer_27: integer := 27;
    integer_28: integer := 28;
    integer_29: integer := 29;
    integer_30: integer := 30;
    integer_31: integer := 31;
    integer_32: integer := 32;
    integer_33: integer := 33;
    integer_34: integer := 34;
    integer_35: integer := 35;
    integer_36: integer := 36;
    integer_37: integer := 37;
    integer_38: integer := 38;
    integer_39: integer := 39;
    integer_40: integer := 40;
    integer_41: integer := 41;
    integer_42: integer := 42;
    integer_43: integer := 43;
    integer_44: integer := 44;
    integer_45: integer := 45;
    integer_46: integer := 46;
    integer_47: integer := 47;
    integer_48: integer := 48;
    integer_49: integer := 49;
    integer_50: integer := 50;
    integer_51: integer := 51;
    integer_52: integer := 52;
    integer_53: integer := 53;
    integer_54: integer := 54;
    integer_55: integer := 55;
    integer_56: integer := 56;
    integer_57: integer := 57;
    integer_58: integer := 58;
    integer_59: integer := 59;
    integer_60: integer := 60;
    integer_61: integer := 61;
    integer_62: integer := 62;
    integer_63: integer := 63;
    integer_64: integer := 64;
    integer_65: integer := 65;
    integer_66: integer := 66;
    integer_67: integer := 67;
    integer_68: integer := 68;
    integer_69: integer := 69;
    integer_70: integer := 70;
    integer_71: integer := 71;
    integer_72: integer := 72;
    integer_73: integer := 73;
    integer_74: integer := 74;
    integer_75: integer := 75;
    integer_76: integer := 76;
    integer_77: integer := 77;
    integer_78: integer := 78;
    integer_79: integer := 79;
    integer_80: integer := 80;
    integer_81: integer := 81;
    integer_82: integer := 82;
    integer_83: integer := 83;
    integer_84: integer := 84;
    integer_85: integer := 85;
    integer_86: integer := 86;
    integer_87: integer := 87;
    integer_88: integer := 88;
    integer_89: integer := 89;
    integer_90: integer := 90;
    integer_91: integer := 91;
    integer_92: integer := 92;
    integer_93: integer := 93;
    integer_94: integer := 94;
    integer_95: integer := 95;
    integer_96: integer := 96;
    integer_97: integer := 97;
    integer_98: integer := 98;
    integer_99: integer := 99;
    integer_100: integer := 100;
    begin
    null;
    end z000121;
::::::::::
Z000122.ADA
::::::::::
procedure z000122 is
    integer_1: integer := 1;
    integer_2: integer := 2;
    integer_3: integer := 3;
    integer_4: integer := 4;
    integer_5: integer := 5;
    integer_6: integer := 6;
    integer_7: integer := 7;
    integer_8: integer := 8;
    integer_9: integer := 9;
    integer_10: integer := 10;
    integer_11: integer := 11;
    integer_12: integer := 12;
    integer_13: integer := 13;
    integer_14: integer := 14;
    integer_15: integer := 15;
    integer_16: integer := 16;
    integer_17: integer := 17;
    integer_18: integer := 18;
    integer_19: integer := 19;
    integer_20: integer := 20;
    integer_21: integer := 21;
    integer_22: integer := 22;
    integer_23: integer := 23;
    integer_24: integer := 24;
    integer_25: integer := 25;
    integer_26: integer := 26;
    integer_27: integer := 27;
    integer_28: integer := 28;
    integer_29: integer := 29;
    integer_30: integer := 30;
    integer_31: integer := 31;
    integer_32: integer := 32;
    integer_33: integer := 33;
    integer_34: integer := 34;
    integer_35: integer := 35;
    integer_36: integer := 36;
    integer_37: integer := 37;
    integer_38: integer := 38;
    integer_39: integer := 39;
    integer_40: integer := 40;
    integer_41: integer := 41;
    integer_42: integer := 42;
    integer_43: integer := 43;
    integer_44: integer := 44;
    integer_45: integer := 45;
    integer_46: integer := 46;
    integer_47: integer := 47;
    integer_48: integer := 48;
    integer_49: integer := 49;
    integer_50: integer := 50;
    integer_51: integer := 51;
    integer_52: integer := 52;
    integer_53: integer := 53;
    integer_54: integer := 54;
    integer_55: integer := 55;
    integer_56: integer := 56;
    integer_57: integer := 57;
    integer_58: integer := 58;
    integer_59: integer := 59;
    integer_60: integer := 60;
    integer_61: integer := 61;
    integer_62: integer := 62;
    integer_63: integer := 63;
    integer_64: integer := 64;
    integer_65: integer := 65;
    integer_66: integer := 66;
    integer_67: integer := 67;
    integer_68: integer := 68;
    integer_69: integer := 69;
    integer_70: integer := 70;
    integer_71: integer := 71;
    integer_72: integer := 72;
    integer_73: integer := 73;
    integer_74: integer := 74;
    integer_75: integer := 75;
    integer_76: integer := 76;
    integer_77: integer := 77;
    integer_78: integer := 78;
    integer_79: integer := 79;
    integer_80: integer := 80;
    integer_81: integer := 81;
    integer_82: integer := 82;
    integer_83: integer := 83;
    integer_84: integer := 84;
    integer_85: integer := 85;
    integer_86: integer := 86;
    integer_87: integer := 87;
    integer_88: integer := 88;
    integer_89: integer := 89;
    integer_90: integer := 90;
    integer_91: integer := 91;
    integer_92: integer := 92;
    integer_93: integer := 93;
    integer_94: integer := 94;
    integer_95: integer := 95;
    integer_96: integer := 96;
    integer_97: integer := 97;
    integer_98: integer := 98;
    integer_99: integer := 99;
    integer_100: integer := 100;
    integer_101: integer := 101;
    integer_102: integer := 102;
    integer_103: integer := 103;
    integer_104: integer := 104;
    integer_105: integer := 105;
    integer_106: integer := 106;
    integer_107: integer := 107;
    integer_108: integer := 108;
    integer_109: integer := 109;
    integer_110: integer := 110;
    integer_111: integer := 111;
    integer_112: integer := 112;
    integer_113: integer := 113;
    integer_114: integer := 114;
    integer_115: integer := 115;
    integer_116: integer := 116;
    integer_117: integer := 117;
    integer_118: integer := 118;
    integer_119: integer := 119;
    integer_120: integer := 120;
    integer_121: integer := 121;
    integer_122: integer := 122;
    integer_123: integer := 123;
    integer_124: integer := 124;
    integer_125: integer := 125;
    integer_126: integer := 126;
    integer_127: integer := 127;
    integer_128: integer := 128;
    integer_129: integer := 129;
    integer_130: integer := 130;
    integer_131: integer := 131;
    integer_132: integer := 132;
    integer_133: integer := 133;
    integer_134: integer := 134;
    integer_135: integer := 135;
    integer_136: integer := 136;
    integer_137: integer := 137;
    integer_138: integer := 138;
    integer_139: integer := 139;
    integer_140: integer := 140;
    integer_141: integer := 141;
    integer_142: integer := 142;
    integer_143: integer := 143;
    integer_144: integer := 144;
    integer_145: integer := 145;
    integer_146: integer := 146;
    integer_147: integer := 147;
    integer_148: integer := 148;
    integer_149: integer := 149;
    integer_150: integer := 150;
    integer_151: integer := 151;
    integer_152: integer := 152;
    integer_153: integer := 153;
    integer_154: integer := 154;
    integer_155: integer := 155;
    integer_156: integer := 156;
    integer_157: integer := 157;
    integer_158: integer := 158;
    integer_159: integer := 159;
    integer_160: integer := 160;
    integer_161: integer := 161;
    integer_162: integer := 162;
    integer_163: integer := 163;
    integer_164: integer := 164;
    integer_165: integer := 165;
    integer_166: integer := 166;
    integer_167: integer := 167;
    integer_168: integer := 168;
    integer_169: integer := 169;
    integer_170: integer := 170;
    integer_171: integer := 171;
    integer_172: integer := 172;
    integer_173: integer := 173;
    integer_174: integer := 174;
    integer_175: integer := 175;
    integer_176: integer := 176;
    integer_177: integer := 177;
    integer_178: integer := 178;
    integer_179: integer := 179;
    integer_180: integer := 180;
    integer_181: integer := 181;
    integer_182: integer := 182;
    integer_183: integer := 183;
    integer_184: integer := 184;
    integer_185: integer := 185;
    integer_186: integer := 186;
    integer_187: integer := 187;
    integer_188: integer := 188;
    integer_189: integer := 189;
    integer_190: integer := 190;
    integer_191: integer := 191;
    integer_192: integer := 192;
    integer_193: integer := 193;
    integer_194: integer := 194;
    integer_195: integer := 195;
    integer_196: integer := 196;
    integer_197: integer := 197;
    integer_198: integer := 198;
    integer_199: integer := 199;
    integer_200: integer := 200;
    begin
    null;
    end z000122;
::::::::::
Z000123.ADA
::::::::::
procedure z000123 is
    integer_1: integer := 1;
    integer_2: integer := 2;
    integer_3: integer := 3;
    integer_4: integer := 4;
    integer_5: integer := 5;
    integer_6: integer := 6;
    integer_7: integer := 7;
    integer_8: integer := 8;
    integer_9: integer := 9;
    integer_10: integer := 10;
    integer_11: integer := 11;
    integer_12: integer := 12;
    integer_13: integer := 13;
    integer_14: integer := 14;
    integer_15: integer := 15;
    integer_16: integer := 16;
    integer_17: integer := 17;
    integer_18: integer := 18;
    integer_19: integer := 19;
    integer_20: integer := 20;
    integer_21: integer := 21;
    integer_22: integer := 22;
    integer_23: integer := 23;
    integer_24: integer := 24;
    integer_25: integer := 25;
    integer_26: integer := 26;
    integer_27: integer := 27;
    integer_28: integer := 28;
    integer_29: integer := 29;
    integer_30: integer := 30;
    integer_31: integer := 31;
    integer_32: integer := 32;
    integer_33: integer := 33;
    integer_34: integer := 34;
    integer_35: integer := 35;
    integer_36: integer := 36;
    integer_37: integer := 37;
    integer_38: integer := 38;
    integer_39: integer := 39;
    integer_40: integer := 40;
    integer_41: integer := 41;
    integer_42: integer := 42;
    integer_43: integer := 43;
    integer_44: integer := 44;
    integer_45: integer := 45;
    integer_46: integer := 46;
    integer_47: integer := 47;
    integer_48: integer := 48;
    integer_49: integer := 49;
    integer_50: integer := 50;
    integer_51: integer := 51;
    integer_52: integer := 52;
    integer_53: integer := 53;
    integer_54: integer := 54;
    integer_55: integer := 55;
    integer_56: integer := 56;
    integer_57: integer := 57;
    integer_58: integer := 58;
    integer_59: integer := 59;
    integer_60: integer := 60;
    integer_61: integer := 61;
    integer_62: integer := 62;
    integer_63: integer := 63;
    integer_64: integer := 64;
    integer_65: integer := 65;
    integer_66: integer := 66;
    integer_67: integer := 67;
    integer_68: integer := 68;
    integer_69: integer := 69;
    integer_70: integer := 70;
    integer_71: integer := 71;
    integer_72: integer := 72;
    integer_73: integer := 73;
    integer_74: integer := 74;
    integer_75: integer := 75;
    integer_76: integer := 76;
    integer_77: integer := 77;
    integer_78: integer := 78;
    integer_79: integer := 79;
    integer_80: integer := 80;
    integer_81: integer := 81;
    integer_82: integer := 82;
    integer_83: integer := 83;
    integer_84: integer := 84;
    integer_85: integer := 85;
    integer_86: integer := 86;
    integer_87: integer := 87;
    integer_88: integer := 88;
    integer_89: integer := 89;
    integer_90: integer := 90;
    integer_91: integer := 91;
    integer_92: integer := 92;
    integer_93: integer := 93;
    integer_94: integer := 94;
    integer_95: integer := 95;
    integer_96: integer := 96;
    integer_97: integer := 97;
    integer_98: integer := 98;
    integer_99: integer := 99;
    integer_100: integer := 100;
    integer_101: integer := 101;
    integer_102: integer := 102;
    integer_103: integer := 103;
    integer_104: integer := 104;
    integer_105: integer := 105;
    integer_106: integer := 106;
    integer_107: integer := 107;
    integer_108: integer := 108;
    integer_109: integer := 109;
    integer_110: integer := 110;
    integer_111: integer := 111;
    integer_112: integer := 112;
    integer_113: integer := 113;
    integer_114: integer := 114;
    integer_115: integer := 115;
    integer_116: integer := 116;
    integer_117: integer := 117;
    integer_118: integer := 118;
    integer_119: integer := 119;
    integer_120: integer := 120;
    integer_121: integer := 121;
    integer_122: integer := 122;
    integer_123: integer := 123;
    integer_124: integer := 124;
    integer_125: integer := 125;
    integer_126: integer := 126;
    integer_127: integer := 127;
    integer_128: integer := 128;
    integer_129: integer := 129;
    integer_130: integer := 130;
    integer_131: integer := 131;
    integer_132: integer := 132;
    integer_133: integer := 133;
    integer_134: integer := 134;
    integer_135: integer := 135;
    integer_136: integer := 136;
    integer_137: integer := 137;
    integer_138: integer := 138;
    integer_139: integer := 139;
    integer_140: integer := 140;
    integer_141: integer := 141;
    integer_142: integer := 142;
    integer_143: integer := 143;
    integer_144: integer := 144;
    integer_145: integer := 145;
    integer_146: integer := 146;
    integer_147: integer := 147;
    integer_148: integer := 148;
    integer_149: integer := 149;
    integer_150: integer := 150;
    integer_151: integer := 151;
    integer_152: integer := 152;
    integer_153: integer := 153;
    integer_154: integer := 154;
    integer_155: integer := 155;
    integer_156: integer := 156;
    integer_157: integer := 157;
    integer_158: integer := 158;
    integer_159: integer := 159;
    integer_160: integer := 160;
    integer_161: integer := 161;
    integer_162: integer := 162;
    integer_163: integer := 163;
    integer_164: integer := 164;
    integer_165: integer := 165;
    integer_166: integer := 166;
    integer_167: integer := 167;
    integer_168: integer := 168;
    integer_169: integer := 169;
    integer_170: integer := 170;
    integer_171: integer := 171;
    integer_172: integer := 172;
    integer_173: integer := 173;
    integer_174: integer := 174;
    integer_175: integer := 175;
    integer_176: integer := 176;
    integer_177: integer := 177;
    integer_178: integer := 178;
    integer_179: integer := 179;
    integer_180: integer := 180;
    integer_181: integer := 181;
    integer_182: integer := 182;
    integer_183: integer := 183;
    integer_184: integer := 184;
    integer_185: integer := 185;
    integer_186: integer := 186;
    integer_187: integer := 187;
    integer_188: integer := 188;
    integer_189: integer := 189;
    integer_190: integer := 190;
    integer_191: integer := 191;
    integer_192: integer := 192;
    integer_193: integer := 193;
    integer_194: integer := 194;
    integer_195: integer := 195;
    integer_196: integer := 196;
    integer_197: integer := 197;
    integer_198: integer := 198;
    integer_199: integer := 199;
    integer_200: integer := 200;
    integer_201: integer := 201;
    integer_202: integer := 202;
    integer_203: integer := 203;
    integer_204: integer := 204;
    integer_205: integer := 205;
    integer_206: integer := 206;
    integer_207: integer := 207;
    integer_208: integer := 208;
    integer_209: integer := 209;
    integer_210: integer := 210;
    integer_211: integer := 211;
    integer_212: integer := 212;
    integer_213: integer := 213;
    integer_214: integer := 214;
    integer_215: integer := 215;
    integer_216: integer := 216;
    integer_217: integer := 217;
    integer_218: integer := 218;
    integer_219: integer := 219;
    integer_220: integer := 220;
    integer_221: integer := 221;
    integer_222: integer := 222;
    integer_223: integer := 223;
    integer_224: integer := 224;
    integer_225: integer := 225;
    integer_226: integer := 226;
    integer_227: integer := 227;
    integer_228: integer := 228;
    integer_229: integer := 229;
    integer_230: integer := 230;
    integer_231: integer := 231;
    integer_232: integer := 232;
    integer_233: integer := 233;
    integer_234: integer := 234;
    integer_235: integer := 235;
    integer_236: integer := 236;
    integer_237: integer := 237;
    integer_238: integer := 238;
    integer_239: integer := 239;
    integer_240: integer := 240;
    integer_241: integer := 241;
    integer_242: integer := 242;
    integer_243: integer := 243;
    integer_244: integer := 244;
    integer_245: integer := 245;
    integer_246: integer := 246;
    integer_247: integer := 247;
    integer_248: integer := 248;
    integer_249: integer := 249;
    integer_250: integer := 250;
    integer_251: integer := 251;
    integer_252: integer := 252;
    integer_253: integer := 253;
    integer_254: integer := 254;
    integer_255: integer := 255;
    integer_256: integer := 256;
    integer_257: integer := 257;
    integer_258: integer := 258;
    integer_259: integer := 259;
    integer_260: integer := 260;
    integer_261: integer := 261;
    integer_262: integer := 262;
    integer_263: integer := 263;
    integer_264: integer := 264;
    integer_265: integer := 265;
    integer_266: integer := 266;
    integer_267: integer := 267;
    integer_268: integer := 268;
    integer_269: integer := 269;
    integer_270: integer := 270;
    integer_271: integer := 271;
    integer_272: integer := 272;
    integer_273: integer := 273;
    integer_274: integer := 274;
    integer_275: integer := 275;
    integer_276: integer := 276;
    integer_277: integer := 277;
    integer_278: integer := 278;
    integer_279: integer := 279;
    integer_280: integer := 280;
    integer_281: integer := 281;
    integer_282: integer := 282;
    integer_283: integer := 283;
    integer_284: integer := 284;
    integer_285: integer := 285;
    integer_286: integer := 286;
    integer_287: integer := 287;
    integer_288: integer := 288;
    integer_289: integer := 289;
    integer_290: integer := 290;
    integer_291: integer := 291;
    integer_292: integer := 292;
    integer_293: integer := 293;
    integer_294: integer := 294;
    integer_295: integer := 295;
    integer_296: integer := 296;
    integer_297: integer := 297;
    integer_298: integer := 298;
    integer_299: integer := 299;
    integer_300: integer := 300;
    integer_301: integer := 301;
    integer_302: integer := 302;
    integer_303: integer := 303;
    integer_304: integer := 304;
    integer_305: integer := 305;
    integer_306: integer := 306;
    integer_307: integer := 307;
    integer_308: integer := 308;
    integer_309: integer := 309;
    integer_310: integer := 310;
    integer_311: integer := 311;
    integer_312: integer := 312;
    integer_313: integer := 313;
    integer_314: integer := 314;
    integer_315: integer := 315;
    integer_316: integer := 316;
    integer_317: integer := 317;
    integer_318: integer := 318;
    integer_319: integer := 319;
    integer_320: integer := 320;
    integer_321: integer := 321;
    integer_322: integer := 322;
    integer_323: integer := 323;
    integer_324: integer := 324;
    integer_325: integer := 325;
    integer_326: integer := 326;
    integer_327: integer := 327;
    integer_328: integer := 328;
    integer_329: integer := 329;
    integer_330: integer := 330;
    integer_331: integer := 331;
    integer_332: integer := 332;
    integer_333: integer := 333;
    integer_334: integer := 334;
    integer_335: integer := 335;
    integer_336: integer := 336;
    integer_337: integer := 337;
    integer_338: integer := 338;
    integer_339: integer := 339;
    integer_340: integer := 340;
    integer_341: integer := 341;
    integer_342: integer := 342;
    integer_343: integer := 343;
    integer_344: integer := 344;
    integer_345: integer := 345;
    integer_346: integer := 346;
    integer_347: integer := 347;
    integer_348: integer := 348;
    integer_349: integer := 349;
    integer_350: integer := 350;
    integer_351: integer := 351;
    integer_352: integer := 352;
    integer_353: integer := 353;
    integer_354: integer := 354;
    integer_355: integer := 355;
    integer_356: integer := 356;
    integer_357: integer := 357;
    integer_358: integer := 358;
    integer_359: integer := 359;
    integer_360: integer := 360;
    integer_361: integer := 361;
    integer_362: integer := 362;
    integer_363: integer := 363;
    integer_364: integer := 364;
    integer_365: integer := 365;
    integer_366: integer := 366;
    integer_367: integer := 367;
    integer_368: integer := 368;
    integer_369: integer := 369;
    integer_370: integer := 370;
    integer_371: integer := 371;
    integer_372: integer := 372;
    integer_373: integer := 373;
    integer_374: integer := 374;
    integer_375: integer := 375;
    integer_376: integer := 376;
    integer_377: integer := 377;
    integer_378: integer := 378;
    integer_379: integer := 379;
    integer_380: integer := 380;
    integer_381: integer := 381;
    integer_382: integer := 382;
    integer_383: integer := 383;
    integer_384: integer := 384;
    integer_385: integer := 385;
    integer_386: integer := 386;
    integer_387: integer := 387;
    integer_388: integer := 388;
    integer_389: integer := 389;
    integer_390: integer := 390;
    integer_391: integer := 391;
    integer_392: integer := 392;
    integer_393: integer := 393;
    integer_394: integer := 394;
    integer_395: integer := 395;
    integer_396: integer := 396;
    integer_397: integer := 397;
    integer_398: integer := 398;
    integer_399: integer := 399;
    integer_400: integer := 400;
    integer_401: integer := 401;
    integer_402: integer := 402;
    integer_403: integer := 403;
    integer_404: integer := 404;
    integer_405: integer := 405;
    integer_406: integer := 406;
    integer_407: integer := 407;
    integer_408: integer := 408;
    integer_409: integer := 409;
    integer_410: integer := 410;
    integer_411: integer := 411;
    integer_412: integer := 412;
    integer_413: integer := 413;
    integer_414: integer := 414;
    integer_415: integer := 415;
    integer_416: integer := 416;
    integer_417: integer := 417;
    integer_418: integer := 418;
    integer_419: integer := 419;
    integer_420: integer := 420;
    integer_421: integer := 421;
    integer_422: integer := 422;
    integer_423: integer := 423;
    integer_424: integer := 424;
    integer_425: integer := 425;
    integer_426: integer := 426;
    integer_427: integer := 427;
    integer_428: integer := 428;
    integer_429: integer := 429;
    integer_430: integer := 430;
    integer_431: integer := 431;
    integer_432: integer := 432;
    integer_433: integer := 433;
    integer_434: integer := 434;
    integer_435: integer := 435;
    integer_436: integer := 436;
    integer_437: integer := 437;
    integer_438: integer := 438;
    integer_439: integer := 439;
    integer_440: integer := 440;
    integer_441: integer := 441;
    integer_442: integer := 442;
    integer_443: integer := 443;
    integer_444: integer := 444;
    integer_445: integer := 445;
    integer_446: integer := 446;
    integer_447: integer := 447;
    integer_448: integer := 448;
    integer_449: integer := 449;
    integer_450: integer := 450;
    integer_451: integer := 451;
    integer_452: integer := 452;
    integer_453: integer := 453;
    integer_454: integer := 454;
    integer_455: integer := 455;
    integer_456: integer := 456;
    integer_457: integer := 457;
    integer_458: integer := 458;
    integer_459: integer := 459;
    integer_460: integer := 460;
    integer_461: integer := 461;
    integer_462: integer := 462;
    integer_463: integer := 463;
    integer_464: integer := 464;
    integer_465: integer := 465;
    integer_466: integer := 466;
    integer_467: integer := 467;
    integer_468: integer := 468;
    integer_469: integer := 469;
    integer_470: integer := 470;
    integer_471: integer := 471;
    integer_472: integer := 472;
    integer_473: integer := 473;
    integer_474: integer := 474;
    integer_475: integer := 475;
    integer_476: integer := 476;
    integer_477: integer := 477;
    integer_478: integer := 478;
    integer_479: integer := 479;
    integer_480: integer := 480;
    integer_481: integer := 481;
    integer_482: integer := 482;
    integer_483: integer := 483;
    integer_484: integer := 484;
    integer_485: integer := 485;
    integer_486: integer := 486;
    integer_487: integer := 487;
    integer_488: integer := 488;
    integer_489: integer := 489;
    integer_490: integer := 490;
    integer_491: integer := 491;
    integer_492: integer := 492;
    integer_493: integer := 493;
    integer_494: integer := 494;
    integer_495: integer := 495;
    integer_496: integer := 496;
    integer_497: integer := 497;
    integer_498: integer := 498;
    integer_499: integer := 499;
    integer_500: integer := 500;
    begin
    null;
    end z000123;
::::::::::
Z000124.ADA
::::::::::
procedure z000124 is
    integer_1: integer := 1;
    integer_2: integer := 2;
    integer_3: integer := 3;
    integer_4: integer := 4;
    integer_5: integer := 5;
    integer_6: integer := 6;
    integer_7: integer := 7;
    integer_8: integer := 8;
    integer_9: integer := 9;
    integer_10: integer := 10;
    integer_11: integer := 11;
    integer_12: integer := 12;
    integer_13: integer := 13;
    integer_14: integer := 14;
    integer_15: integer := 15;
    integer_16: integer := 16;
    integer_17: integer := 17;
    integer_18: integer := 18;
    integer_19: integer := 19;
    integer_20: integer := 20;
    integer_21: integer := 21;
    integer_22: integer := 22;
    integer_23: integer := 23;
    integer_24: integer := 24;
    integer_25: integer := 25;
    integer_26: integer := 26;
    integer_27: integer := 27;
    integer_28: integer := 28;
    integer_29: integer := 29;
    integer_30: integer := 30;
    integer_31: integer := 31;
    integer_32: integer := 32;
    integer_33: integer := 33;
    integer_34: integer := 34;
    integer_35: integer := 35;
    integer_36: integer := 36;
    integer_37: integer := 37;
    integer_38: integer := 38;
    integer_39: integer := 39;
    integer_40: integer := 40;
    integer_41: integer := 41;
    integer_42: integer := 42;
    integer_43: integer := 43;
    integer_44: integer := 44;
    integer_45: integer := 45;
    integer_46: integer := 46;
    integer_47: integer := 47;
    integer_48: integer := 48;
    integer_49: integer := 49;
    integer_50: integer := 50;
    integer_51: integer := 51;
    integer_52: integer := 52;
    integer_53: integer := 53;
    integer_54: integer := 54;
    integer_55: integer := 55;
    integer_56: integer := 56;
    integer_57: integer := 57;
    integer_58: integer := 58;
    integer_59: integer := 59;
    integer_60: integer := 60;
    integer_61: integer := 61;
    integer_62: integer := 62;
    integer_63: integer := 63;
    integer_64: integer := 64;
    integer_65: integer := 65;
    integer_66: integer := 66;
    integer_67: integer := 67;
    integer_68: integer := 68;
    integer_69: integer := 69;
    integer_70: integer := 70;
    integer_71: integer := 71;
    integer_72: integer := 72;
    integer_73: integer := 73;
    integer_74: integer := 74;
    integer_75: integer := 75;
    integer_76: integer := 76;
    integer_77: integer := 77;
    integer_78: integer := 78;
    integer_79: integer := 79;
    integer_80: integer := 80;
    integer_81: integer := 81;
    integer_82: integer := 82;
    integer_83: integer := 83;
    integer_84: integer := 84;
    integer_85: integer := 85;
    integer_86: integer := 86;
    integer_87: integer := 87;
    integer_88: integer := 88;
    integer_89: integer := 89;
    integer_90: integer := 90;
    integer_91: integer := 91;
    integer_92: integer := 92;
    integer_93: integer := 93;
    integer_94: integer := 94;
    integer_95: integer := 95;
    integer_96: integer := 96;
    integer_97: integer := 97;
    integer_98: integer := 98;
    integer_99: integer := 99;
    integer_100: integer := 100;
    integer_101: integer := 101;
    integer_102: integer := 102;
    integer_103: integer := 103;
    integer_104: integer := 104;
    integer_105: integer := 105;
    integer_106: integer := 106;
    integer_107: integer := 107;
    integer_108: integer := 108;
    integer_109: integer := 109;
    integer_110: integer := 110;
    integer_111: integer := 111;
    integer_112: integer := 112;
    integer_113: integer := 113;
    integer_114: integer := 114;
    integer_115: integer := 115;
    integer_116: integer := 116;
    integer_117: integer := 117;
    integer_118: integer := 118;
    integer_119: integer := 119;
    integer_120: integer := 120;
    integer_121: integer := 121;
    integer_122: integer := 122;
    integer_123: integer := 123;
    integer_124: integer := 124;
    integer_125: integer := 125;
    integer_126: integer := 126;
    integer_127: integer := 127;
    integer_128: integer := 128;
    integer_129: integer := 129;
    integer_130: integer := 130;
    integer_131: integer := 131;
    integer_132: integer := 132;
    integer_133: integer := 133;
    integer_134: integer := 134;
    integer_135: integer := 135;
    integer_136: integer := 136;
    integer_137: integer := 137;
    integer_138: integer := 138;
    integer_139: integer := 139;
    integer_140: integer := 140;
    integer_141: integer := 141;
    integer_142: integer := 142;
    integer_143: integer := 143;
    integer_144: integer := 144;
    integer_145: integer := 145;
    integer_146: integer := 146;
    integer_147: integer := 147;
    integer_148: integer := 148;
    integer_149: integer := 149;
    integer_150: integer := 150;
    integer_151: integer := 151;
    integer_152: integer := 152;
    integer_153: integer := 153;
    integer_154: integer := 154;
    integer_155: integer := 155;
    integer_156: integer := 156;
    integer_157: integer := 157;
    integer_158: integer := 158;
    integer_159: integer := 159;
    integer_160: integer := 160;
    integer_161: integer := 161;
    integer_162: integer := 162;
    integer_163: integer := 163;
    integer_164: integer := 164;
    integer_165: integer := 165;
    integer_166: integer := 166;
    integer_167: integer := 167;
    integer_168: integer := 168;
    integer_169: integer := 169;
    integer_170: integer := 170;
    integer_171: integer := 171;
    integer_172: integer := 172;
    integer_173: integer := 173;
    integer_174: integer := 174;
    integer_175: integer := 175;
    integer_176: integer := 176;
    integer_177: integer := 177;
    integer_178: integer := 178;
    integer_179: integer := 179;
    integer_180: integer := 180;
    integer_181: integer := 181;
    integer_182: integer := 182;
    integer_183: integer := 183;
    integer_184: integer := 184;
    integer_185: integer := 185;
    integer_186: integer := 186;
    integer_187: integer := 187;
    integer_188: integer := 188;
    integer_189: integer := 189;
    integer_190: integer := 190;
    integer_191: integer := 191;
    integer_192: integer := 192;
    integer_193: integer := 193;
    integer_194: integer := 194;
    integer_195: integer := 195;
    integer_196: integer := 196;
    integer_197: integer := 197;
    integer_198: integer := 198;
    integer_199: integer := 199;
    integer_200: integer := 200;
    integer_201: integer := 201;
    integer_202: integer := 202;
    integer_203: integer := 203;
    integer_204: integer := 204;
    integer_205: integer := 205;
    integer_206: integer := 206;
    integer_207: integer := 207;
    integer_208: integer := 208;
    integer_209: integer := 209;
    integer_210: integer := 210;
    integer_211: integer := 211;
    integer_212: integer := 212;
    integer_213: integer := 213;
    integer_214: integer := 214;
    integer_215: integer := 215;
    integer_216: integer := 216;
    integer_217: integer := 217;
    integer_218: integer := 218;
    integer_219: integer := 219;
    integer_220: integer := 220;
    integer_221: integer := 221;
    integer_222: integer := 222;
    integer_223: integer := 223;
    integer_224: integer := 224;
    integer_225: integer := 225;
    integer_226: integer := 226;
    integer_227: integer := 227;
    integer_228: integer := 228;
    integer_229: integer := 229;
    integer_230: integer := 230;
    integer_231: integer := 231;
    integer_232: integer := 232;
    integer_233: integer := 233;
    integer_234: integer := 234;
    integer_235: integer := 235;
    integer_236: integer := 236;
    integer_237: integer := 237;
    integer_238: integer := 238;
    integer_239: integer := 239;
    integer_240: integer := 240;
    integer_241: integer := 241;
    integer_242: integer := 242;
    integer_243: integer := 243;
    integer_244: integer := 244;
    integer_245: integer := 245;
    integer_246: integer := 246;
    integer_247: integer := 247;
    integer_248: integer := 248;
    integer_249: integer := 249;
    integer_250: integer := 250;
    integer_251: integer := 251;
    integer_252: integer := 252;
    integer_253: integer := 253;
    integer_254: integer := 254;
    integer_255: integer := 255;
    integer_256: integer := 256;
    integer_257: integer := 257;
    integer_258: integer := 258;
    integer_259: integer := 259;
    integer_260: integer := 260;
    integer_261: integer := 261;
    integer_262: integer := 262;
    integer_263: integer := 263;
    integer_264: integer := 264;
    integer_265: integer := 265;
    integer_266: integer := 266;
    integer_267: integer := 267;
    integer_268: integer := 268;
    integer_269: integer := 269;
    integer_270: integer := 270;
    integer_271: integer := 271;
    integer_272: integer := 272;
    integer_273: integer := 273;
    integer_274: integer := 274;
    integer_275: integer := 275;
    integer_276: integer := 276;
    integer_277: integer := 277;
    integer_278: integer := 278;
    integer_279: integer := 279;
    integer_280: integer := 280;
    integer_281: integer := 281;
    integer_282: integer := 282;
    integer_283: integer := 283;
    integer_284: integer := 284;
    integer_285: integer := 285;
    integer_286: integer := 286;
    integer_287: integer := 287;
    integer_288: integer := 288;
    integer_289: integer := 289;
    integer_290: integer := 290;
    integer_291: integer := 291;
    integer_292: integer := 292;
    integer_293: integer := 293;
    integer_294: integer := 294;
    integer_295: integer := 295;
    integer_296: integer := 296;
    integer_297: integer := 297;
    integer_298: integer := 298;
    integer_299: integer := 299;
    integer_300: integer := 300;
    integer_301: integer := 301;
    integer_302: integer := 302;
    integer_303: integer := 303;
    integer_304: integer := 304;
    integer_305: integer := 305;
    integer_306: integer := 306;
    integer_307: integer := 307;
    integer_308: integer := 308;
    integer_309: integer := 309;
    integer_310: integer := 310;
    integer_311: integer := 311;
    integer_312: integer := 312;
    integer_313: integer := 313;
    integer_314: integer := 314;
    integer_315: integer := 315;
    integer_316: integer := 316;
    integer_317: integer := 317;
    integer_318: integer := 318;
    integer_319: integer := 319;
    integer_320: integer := 320;
    integer_321: integer := 321;
    integer_322: integer := 322;
    integer_323: integer := 323;
    integer_324: integer := 324;
    integer_325: integer := 325;
    integer_326: integer := 326;
    integer_327: integer := 327;
    integer_328: integer := 328;
    integer_329: integer := 329;
    integer_330: integer := 330;
    integer_331: integer := 331;
    integer_332: integer := 332;
    integer_333: integer := 333;
    integer_334: integer := 334;
    integer_335: integer := 335;
    integer_336: integer := 336;
    integer_337: integer := 337;
    integer_338: integer := 338;
    integer_339: integer := 339;
    integer_340: integer := 340;
    integer_341: integer := 341;
    integer_342: integer := 342;
    integer_343: integer := 343;
    integer_344: integer := 344;
    integer_345: integer := 345;
    integer_346: integer := 346;
    integer_347: integer := 347;
    integer_348: integer := 348;
    integer_349: integer := 349;
    integer_350: integer := 350;
    integer_351: integer := 351;
    integer_352: integer := 352;
    integer_353: integer := 353;
    integer_354: integer := 354;
    integer_355: integer := 355;
    integer_356: integer := 356;
    integer_357: integer := 357;
    integer_358: integer := 358;
    integer_359: integer := 359;
    integer_360: integer := 360;
    integer_361: integer := 361;
    integer_362: integer := 362;
    integer_363: integer := 363;
    integer_364: integer := 364;
    integer_365: integer := 365;
    integer_366: integer := 366;
    integer_367: integer := 367;
    integer_368: integer := 368;
    integer_369: integer := 369;
    integer_370: integer := 370;
    integer_371: integer := 371;
    integer_372: integer := 372;
    integer_373: integer := 373;
    integer_374: integer := 374;
    integer_375: integer := 375;
    integer_376: integer := 376;
    integer_377: integer := 377;
    integer_378: integer := 378;
    integer_379: integer := 379;
    integer_380: integer := 380;
    integer_381: integer := 381;
    integer_382: integer := 382;
    integer_383: integer := 383;
    integer_384: integer := 384;
    integer_385: integer := 385;
    integer_386: integer := 386;
    integer_387: integer := 387;
    integer_388: integer := 388;
    integer_389: integer := 389;
    integer_390: integer := 390;
    integer_391: integer := 391;
    integer_392: integer := 392;
    integer_393: integer := 393;
    integer_394: integer := 394;
    integer_395: integer := 395;
    integer_396: integer := 396;
    integer_397: integer := 397;
    integer_398: integer := 398;
    integer_399: integer := 399;
    integer_400: integer := 400;
    integer_401: integer := 401;
    integer_402: integer := 402;
    integer_403: integer := 403;
    integer_404: integer := 404;
    integer_405: integer := 405;
    integer_406: integer := 406;
    integer_407: integer := 407;
    integer_408: integer := 408;
    integer_409: integer := 409;
    integer_410: integer := 410;
    integer_411: integer := 411;
    integer_412: integer := 412;
    integer_413: integer := 413;
    integer_414: integer := 414;
    integer_415: integer := 415;
    integer_416: integer := 416;
    integer_417: integer := 417;
    integer_418: integer := 418;
    integer_419: integer := 419;
    integer_420: integer := 420;
    integer_421: integer := 421;
    integer_422: integer := 422;
    integer_423: integer := 423;
    integer_424: integer := 424;
    integer_425: integer := 425;
    integer_426: integer := 426;
    integer_427: integer := 427;
    integer_428: integer := 428;
    integer_429: integer := 429;
    integer_430: integer := 430;
    integer_431: integer := 431;
    integer_432: integer := 432;
    integer_433: integer := 433;
    integer_434: integer := 434;
    integer_435: integer := 435;
    integer_436: integer := 436;
    integer_437: integer := 437;
    integer_438: integer := 438;
    integer_439: integer := 439;
    integer_440: integer := 440;
    integer_441: integer := 441;
    integer_442: integer := 442;
    integer_443: integer := 443;
    integer_444: integer := 444;
    integer_445: integer := 445;
    integer_446: integer := 446;
    integer_447: integer := 447;
    integer_448: integer := 448;
    integer_449: integer := 449;
    integer_450: integer := 450;
    integer_451: integer := 451;
    integer_452: integer := 452;
    integer_453: integer := 453;
    integer_454: integer := 454;
    integer_455: integer := 455;
    integer_456: integer := 456;
    integer_457: integer := 457;
    integer_458: integer := 458;
    integer_459: integer := 459;
    integer_460: integer := 460;
    integer_461: integer := 461;
    integer_462: integer := 462;
    integer_463: integer := 463;
    integer_464: integer := 464;
    integer_465: integer := 465;
    integer_466: integer := 466;
    integer_467: integer := 467;
    integer_468: integer := 468;
    integer_469: integer := 469;
    integer_470: integer := 470;
    integer_471: integer := 471;
    integer_472: integer := 472;
    integer_473: integer := 473;
    integer_474: integer := 474;
    integer_475: integer := 475;
    integer_476: integer := 476;
    integer_477: integer := 477;
    integer_478: integer := 478;
    integer_479: integer := 479;
    integer_480: integer := 480;
    integer_481: integer := 481;
    integer_482: integer := 482;
    integer_483: integer := 483;
    integer_484: integer := 484;
    integer_485: integer := 485;
    integer_486: integer := 486;
    integer_487: integer := 487;
    integer_488: integer := 488;
    integer_489: integer := 489;
    integer_490: integer := 490;
    integer_491: integer := 491;
    integer_492: integer := 492;
    integer_493: integer := 493;
    integer_494: integer := 494;
    integer_495: integer := 495;
    integer_496: integer := 496;
    integer_497: integer := 497;
    integer_498: integer := 498;
    integer_499: integer := 499;
    integer_500: integer := 500;
    integer_501: integer := 501;
    integer_502: integer := 502;
    integer_503: integer := 503;
    integer_504: integer := 504;
    integer_505: integer := 505;
    integer_506: integer := 506;
    integer_507: integer := 507;
    integer_508: integer := 508;
    integer_509: integer := 509;
    integer_510: integer := 510;
    integer_511: integer := 511;
    integer_512: integer := 512;
    integer_513: integer := 513;
    integer_514: integer := 514;
    integer_515: integer := 515;
    integer_516: integer := 516;
    integer_517: integer := 517;
    integer_518: integer := 518;
    integer_519: integer := 519;
    integer_520: integer := 520;
    integer_521: integer := 521;
    integer_522: integer := 522;
    integer_523: integer := 523;
    integer_524: integer := 524;
    integer_525: integer := 525;
    integer_526: integer := 526;
    integer_527: integer := 527;
    integer_528: integer := 528;
    integer_529: integer := 529;
    integer_530: integer := 530;
    integer_531: integer := 531;
    integer_532: integer := 532;
    integer_533: integer := 533;
    integer_534: integer := 534;
    integer_535: integer := 535;
    integer_536: integer := 536;
    integer_537: integer := 537;
    integer_538: integer := 538;
    integer_539: integer := 539;
    integer_540: integer := 540;
    integer_541: integer := 541;
    integer_542: integer := 542;
    integer_543: integer := 543;
    integer_544: integer := 544;
    integer_545: integer := 545;
    integer_546: integer := 546;
    integer_547: integer := 547;
    integer_548: integer := 548;
    integer_549: integer := 549;
    integer_550: integer := 550;
    integer_551: integer := 551;
    integer_552: integer := 552;
    integer_553: integer := 553;
    integer_554: integer := 554;
    integer_555: integer := 555;
    integer_556: integer := 556;
    integer_557: integer := 557;
    integer_558: integer := 558;
    integer_559: integer := 559;
    integer_560: integer := 560;
    integer_561: integer := 561;
    integer_562: integer := 562;
    integer_563: integer := 563;
    integer_564: integer := 564;
    integer_565: integer := 565;
    integer_566: integer := 566;
    integer_567: integer := 567;
    integer_568: integer := 568;
    integer_569: integer := 569;
    integer_570: integer := 570;
    integer_571: integer := 571;
    integer_572: integer := 572;
    integer_573: integer := 573;
    integer_574: integer := 574;
    integer_575: integer := 575;
    integer_576: integer := 576;
    integer_577: integer := 577;
    integer_578: integer := 578;
    integer_579: integer := 579;
    integer_580: integer := 580;
    integer_581: integer := 581;
    integer_582: integer := 582;
    integer_583: integer := 583;
    integer_584: integer := 584;
    integer_585: integer := 585;
    integer_586: integer := 586;
    integer_587: integer := 587;
    integer_588: integer := 588;
    integer_589: integer := 589;
    integer_590: integer := 590;
    integer_591: integer := 591;
    integer_592: integer := 592;
    integer_593: integer := 593;
    integer_594: integer := 594;
    integer_595: integer := 595;
    integer_596: integer := 596;
    integer_597: integer := 597;
    integer_598: integer := 598;
    integer_599: integer := 599;
    integer_600: integer := 600;
    integer_601: integer := 601;
    integer_602: integer := 602;
    integer_603: integer := 603;
    integer_604: integer := 604;
    integer_605: integer := 605;
    integer_606: integer := 606;
    integer_607: integer := 607;
    integer_608: integer := 608;
    integer_609: integer := 609;
    integer_610: integer := 610;
    integer_611: integer := 611;
    integer_612: integer := 612;
    integer_613: integer := 613;
    integer_614: integer := 614;
    integer_615: integer := 615;
    integer_616: integer := 616;
    integer_617: integer := 617;
    integer_618: integer := 618;
    integer_619: integer := 619;
    integer_620: integer := 620;
    integer_621: integer := 621;
    integer_622: integer := 622;
    integer_623: integer := 623;
    integer_624: integer := 624;
    integer_625: integer := 625;
    integer_626: integer := 626;
    integer_627: integer := 627;
    integer_628: integer := 628;
    integer_629: integer := 629;
    integer_630: integer := 630;
    integer_631: integer := 631;
    integer_632: integer := 632;
    integer_633: integer := 633;
    integer_634: integer := 634;
    integer_635: integer := 635;
    integer_636: integer := 636;
    integer_637: integer := 637;
    integer_638: integer := 638;
    integer_639: integer := 639;
    integer_640: integer := 640;
    integer_641: integer := 641;
    integer_642: integer := 642;
    integer_643: integer := 643;
    integer_644: integer := 644;
    integer_645: integer := 645;
    integer_646: integer := 646;
    integer_647: integer := 647;
    integer_648: integer := 648;
    integer_649: integer := 649;
    integer_650: integer := 650;
    integer_651: integer := 651;
    integer_652: integer := 652;
    integer_653: integer := 653;
    integer_654: integer := 654;
    integer_655: integer := 655;
    integer_656: integer := 656;
    integer_657: integer := 657;
    integer_658: integer := 658;
    integer_659: integer := 659;
    integer_660: integer := 660;
    integer_661: integer := 661;
    integer_662: integer := 662;
    integer_663: integer := 663;
    integer_664: integer := 664;
    integer_665: integer := 665;
    integer_666: integer := 666;
    integer_667: integer := 667;
    integer_668: integer := 668;
    integer_669: integer := 669;
    integer_670: integer := 670;
    integer_671: integer := 671;
    integer_672: integer := 672;
    integer_673: integer := 673;
    integer_674: integer := 674;
    integer_675: integer := 675;
    integer_676: integer := 676;
    integer_677: integer := 677;
    integer_678: integer := 678;
    integer_679: integer := 679;
    integer_680: integer := 680;
    integer_681: integer := 681;
    integer_682: integer := 682;
    integer_683: integer := 683;
    integer_684: integer := 684;
    integer_685: integer := 685;
    integer_686: integer := 686;
    integer_687: integer := 687;
    integer_688: integer := 688;
    integer_689: integer := 689;
    integer_690: integer := 690;
    integer_691: integer := 691;
    integer_692: integer := 692;
    integer_693: integer := 693;
    integer_694: integer := 694;
    integer_695: integer := 695;
    integer_696: integer := 696;
    integer_697: integer := 697;
    integer_698: integer := 698;
    integer_699: integer := 699;
    integer_700: integer := 700;
    integer_701: integer := 701;
    integer_702: integer := 702;
    integer_703: integer := 703;
    integer_704: integer := 704;
    integer_705: integer := 705;
    integer_706: integer := 706;
    integer_707: integer := 707;
    integer_708: integer := 708;
    integer_709: integer := 709;
    integer_710: integer := 710;
    integer_711: integer := 711;
    integer_712: integer := 712;
    integer_713: integer := 713;
    integer_714: integer := 714;
    integer_715: integer := 715;
    integer_716: integer := 716;
    integer_717: integer := 717;
    integer_718: integer := 718;
    integer_719: integer := 719;
    integer_720: integer := 720;
    integer_721: integer := 721;
    integer_722: integer := 722;
    integer_723: integer := 723;
    integer_724: integer := 724;
    integer_725: integer := 725;
    integer_726: integer := 726;
    integer_727: integer := 727;
    integer_728: integer := 728;
    integer_729: integer := 729;
    integer_730: integer := 730;
    integer_731: integer := 731;
    integer_732: integer := 732;
    integer_733: integer := 733;
    integer_734: integer := 734;
    integer_735: integer := 735;
    integer_736: integer := 736;
    integer_737: integer := 737;
    integer_738: integer := 738;
    integer_739: integer := 739;
    integer_740: integer := 740;
    integer_741: integer := 741;
    integer_742: integer := 742;
    integer_743: integer := 743;
    integer_744: integer := 744;
    integer_745: integer := 745;
    integer_746: integer := 746;
    integer_747: integer := 747;
    integer_748: integer := 748;
    integer_749: integer := 749;
    integer_750: integer := 750;
    integer_751: integer := 751;
    integer_752: integer := 752;
    integer_753: integer := 753;
    integer_754: integer := 754;
    integer_755: integer := 755;
    integer_756: integer := 756;
    integer_757: integer := 757;
    integer_758: integer := 758;
    integer_759: integer := 759;
    integer_760: integer := 760;
    integer_761: integer := 761;
    integer_762: integer := 762;
    integer_763: integer := 763;
    integer_764: integer := 764;
    integer_765: integer := 765;
    integer_766: integer := 766;
    integer_767: integer := 767;
    integer_768: integer := 768;
    integer_769: integer := 769;
    integer_770: integer := 770;
    integer_771: integer := 771;
    integer_772: integer := 772;
    integer_773: integer := 773;
    integer_774: integer := 774;
    integer_775: integer := 775;
    integer_776: integer := 776;
    integer_777: integer := 777;
    integer_778: integer := 778;
    integer_779: integer := 779;
    integer_780: integer := 780;
    integer_781: integer := 781;
    integer_782: integer := 782;
    integer_783: integer := 783;
    integer_784: integer := 784;
    integer_785: integer := 785;
    integer_786: integer := 786;
    integer_787: integer := 787;
    integer_788: integer := 788;
    integer_789: integer := 789;
    integer_790: integer := 790;
    integer_791: integer := 791;
    integer_792: integer := 792;
    integer_793: integer := 793;
    integer_794: integer := 794;
    integer_795: integer := 795;
    integer_796: integer := 796;
    integer_797: integer := 797;
    integer_798: integer := 798;
    integer_799: integer := 799;
    integer_800: integer := 800;
    integer_801: integer := 801;
    integer_802: integer := 802;
    integer_803: integer := 803;
    integer_804: integer := 804;
    integer_805: integer := 805;
    integer_806: integer := 806;
    integer_807: integer := 807;
    integer_808: integer := 808;
    integer_809: integer := 809;
    integer_810: integer := 810;
    integer_811: integer := 811;
    integer_812: integer := 812;
    integer_813: integer := 813;
    integer_814: integer := 814;
    integer_815: integer := 815;
    integer_816: integer := 816;
    integer_817: integer := 817;
    integer_818: integer := 818;
    integer_819: integer := 819;
    integer_820: integer := 820;
    integer_821: integer := 821;
    integer_822: integer := 822;
    integer_823: integer := 823;
    integer_824: integer := 824;
    integer_825: integer := 825;
    integer_826: integer := 826;
    integer_827: integer := 827;
    integer_828: integer := 828;
    integer_829: integer := 829;
    integer_830: integer := 830;
    integer_831: integer := 831;
    integer_832: integer := 832;
    integer_833: integer := 833;
    integer_834: integer := 834;
    integer_835: integer := 835;
    integer_836: integer := 836;
    integer_837: integer := 837;
    integer_838: integer := 838;
    integer_839: integer := 839;
    integer_840: integer := 840;
    integer_841: integer := 841;
    integer_842: integer := 842;
    integer_843: integer := 843;
    integer_844: integer := 844;
    integer_845: integer := 845;
    integer_846: integer := 846;
    integer_847: integer := 847;
    integer_848: integer := 848;
    integer_849: integer := 849;
    integer_850: integer := 850;
    integer_851: integer := 851;
    integer_852: integer := 852;
    integer_853: integer := 853;
    integer_854: integer := 854;
    integer_855: integer := 855;
    integer_856: integer := 856;
    integer_857: integer := 857;
    integer_858: integer := 858;
    integer_859: integer := 859;
    integer_860: integer := 860;
    integer_861: integer := 861;
    integer_862: integer := 862;
    integer_863: integer := 863;
    integer_864: integer := 864;
    integer_865: integer := 865;
    integer_866: integer := 866;
    integer_867: integer := 867;
    integer_868: integer := 868;
    integer_869: integer := 869;
    integer_870: integer := 870;
    integer_871: integer := 871;
    integer_872: integer := 872;
    integer_873: integer := 873;
    integer_874: integer := 874;
    integer_875: integer := 875;
    integer_876: integer := 876;
    integer_877: integer := 877;
    integer_878: integer := 878;
    integer_879: integer := 879;
    integer_880: integer := 880;
    integer_881: integer := 881;
    integer_882: integer := 882;
    integer_883: integer := 883;
    integer_884: integer := 884;
    integer_885: integer := 885;
    integer_886: integer := 886;
    integer_887: integer := 887;
    integer_888: integer := 888;
    integer_889: integer := 889;
    integer_890: integer := 890;
    integer_891: integer := 891;
    integer_892: integer := 892;
    integer_893: integer := 893;
    integer_894: integer := 894;
    integer_895: integer := 895;
    integer_896: integer := 896;
    integer_897: integer := 897;
    integer_898: integer := 898;
    integer_899: integer := 899;
    integer_900: integer := 900;
    integer_901: integer := 901;
    integer_902: integer := 902;
    integer_903: integer := 903;
    integer_904: integer := 904;
    integer_905: integer := 905;
    integer_906: integer := 906;
    integer_907: integer := 907;
    integer_908: integer := 908;
    integer_909: integer := 909;
    integer_910: integer := 910;
    integer_911: integer := 911;
    integer_912: integer := 912;
    integer_913: integer := 913;
    integer_914: integer := 914;
    integer_915: integer := 915;
    integer_916: integer := 916;
    integer_917: integer := 917;
    integer_918: integer := 918;
    integer_919: integer := 919;
    integer_920: integer := 920;
    integer_921: integer := 921;
    integer_922: integer := 922;
    integer_923: integer := 923;
    integer_924: integer := 924;
    integer_925: integer := 925;
    integer_926: integer := 926;
    integer_927: integer := 927;
    integer_928: integer := 928;
    integer_929: integer := 929;
    integer_930: integer := 930;
    integer_931: integer := 931;
    integer_932: integer := 932;
    integer_933: integer := 933;
    integer_934: integer := 934;
    integer_935: integer := 935;
    integer_936: integer := 936;
    integer_937: integer := 937;
    integer_938: integer := 938;
    integer_939: integer := 939;
    integer_940: integer := 940;
    integer_941: integer := 941;
    integer_942: integer := 942;
    integer_943: integer := 943;
    integer_944: integer := 944;
    integer_945: integer := 945;
    integer_946: integer := 946;
    integer_947: integer := 947;
    integer_948: integer := 948;
    integer_949: integer := 949;
    integer_950: integer := 950;
    integer_951: integer := 951;
    integer_952: integer := 952;
    integer_953: integer := 953;
    integer_954: integer := 954;
    integer_955: integer := 955;
    integer_956: integer := 956;
    integer_957: integer := 957;
    integer_958: integer := 958;
    integer_959: integer := 959;
    integer_960: integer := 960;
    integer_961: integer := 961;
    integer_962: integer := 962;
    integer_963: integer := 963;
    integer_964: integer := 964;
    integer_965: integer := 965;
    integer_966: integer := 966;
    integer_967: integer := 967;
    integer_968: integer := 968;
    integer_969: integer := 969;
    integer_970: integer := 970;
    integer_971: integer := 971;
    integer_972: integer := 972;
    integer_973: integer := 973;
    integer_974: integer := 974;
    integer_975: integer := 975;
    integer_976: integer := 976;
    integer_977: integer := 977;
    integer_978: integer := 978;
    integer_979: integer := 979;
    integer_980: integer := 980;
    integer_981: integer := 981;
    integer_982: integer := 982;
    integer_983: integer := 983;
    integer_984: integer := 984;
    integer_985: integer := 985;
    integer_986: integer := 986;
    integer_987: integer := 987;
    integer_988: integer := 988;
    integer_989: integer := 989;
    integer_990: integer := 990;
    integer_991: integer := 991;
    integer_992: integer := 992;
    integer_993: integer := 993;
    integer_994: integer := 994;
    integer_995: integer := 995;
    integer_996: integer := 996;
    integer_997: integer := 997;
    integer_998: integer := 998;
    integer_999: integer := 999;
    integer_1000: integer := 1000;
    begin
    null;
    end z000124;
::::::::::
Z000131.ADA
::::::::::
procedure z000131 is
    A: array ( 1..100 ) of integer;
    begin
    A := ( 100 => 100, 99 => 99, 98 => 98, 97 => 97, 96 => 96,
        95 => 95, 94 => 94, 93 => 93, 92 => 92, 91 => 91,
        90 => 90, 89 => 89, 88 => 88, 87 => 87, 86 => 86,
        85 => 85, 84 => 84, 83 => 83, 82 => 82, 81 => 81,
        80 => 80, 79 => 79, 78 => 78, 77 => 77, 76 => 76,
        75 => 75, 74 => 74, 73 => 73, 72 => 72, 71 => 71,
        70 => 70, 69 => 69, 68 => 68, 67 => 67, 66 => 66,
        65 => 65, 64 => 64, 63 => 63, 62 => 62, 61 => 61,
        60 => 60, 59 => 59, 58 => 58, 57 => 57, 56 => 56,
        55 => 55, 54 => 54, 53 => 53, 52 => 52, 51 => 51,
        50 => 50, 49 => 49, 48 => 48, 47 => 47, 46 => 46,
        45 => 45, 44 => 44, 43 => 43, 42 => 42, 41 => 41,
        40 => 40, 39 => 39, 38 => 38, 37 => 37, 36 => 36,
        35 => 35, 34 => 34, 33 => 33, 32 => 32, 31 => 31,
        30 => 30, 29 => 29, 28 => 28, 27 => 27, 26 => 26,
        25 => 25, 24 => 24, 23 => 23, 22 => 22, 21 => 21,
        20 => 20, 19 => 19, 18 => 18, 17 => 17, 16 => 16,
        15 => 15, 14 => 14, 13 => 13, 12 => 12, 11 => 11,
        10 => 10, 9 => 9, 8 => 8, 7 => 7, 6 => 6,
        5 => 5, 4 => 4, 3 => 3, 2 => 2, 1 => 1    );
    end z000131;
::::::::::
Z000132.ADA
::::::::::
procedure z000132 is
    A: array ( 1..200 ) of integer;
    begin
    A := (  200 => 200, 199 => 199, 198 => 198, 197 => 197, 196 => 196,
        195 => 195, 194 => 194, 193 => 193, 192 => 192, 191 => 191,
        190 => 190, 189 => 189, 188 => 188, 187 => 187, 186 => 186,
        185 => 185, 184 => 184, 183 => 183, 182 => 182, 181 => 181,
        180 => 180, 179 => 179, 178 => 178, 177 => 177, 176 => 176,
        175 => 175, 174 => 174, 173 => 173, 172 => 172, 171 => 171,
        170 => 170, 169 => 169, 168 => 168, 167 => 167, 166 => 166,
        165 => 165, 164 => 164, 163 => 163, 162 => 162, 161 => 161,
        160 => 160, 159 => 159, 158 => 158, 157 => 157, 156 => 156,
        155 => 155, 154 => 154, 153 => 153, 152 => 152, 151 => 151,
        150 => 150, 149 => 149, 148 => 148, 147 => 147, 146 => 146,
        145 => 145, 144 => 144, 143 => 143, 142 => 142, 141 => 141,
        140 => 140, 139 => 139, 138 => 138, 137 => 137, 136 => 136,
        135 => 135, 134 => 134, 133 => 133, 132 => 132, 131 => 131,
        130 => 130, 129 => 129, 128 => 128, 127 => 127, 126 => 126,
        125 => 125, 124 => 124, 123 => 123, 122 => 122, 121 => 121,
        120 => 120, 119 => 119, 118 => 118, 117 => 117, 116 => 116,
        115 => 115, 114 => 114, 113 => 113, 112 => 112, 111 => 111,
        110 => 110, 109 => 109, 108 => 108, 107 => 107, 106 => 106,
        105 => 105, 104 => 104, 103 => 103, 102 => 102, 101 => 101,
        100 => 100, 99 => 99, 98 => 98, 97 => 97, 96 => 96,
        95 => 95, 94 => 94, 93 => 93, 92 => 92, 91 => 91,
        90 => 90, 89 => 89, 88 => 88, 87 => 87, 86 => 86,
        85 => 85, 84 => 84, 83 => 83, 82 => 82, 81 => 81,
        80 => 80, 79 => 79, 78 => 78, 77 => 77, 76 => 76,
        75 => 75, 74 => 74, 73 => 73, 72 => 72, 71 => 71,
        70 => 70, 69 => 69, 68 => 68, 67 => 67, 66 => 66,
        65 => 65, 64 => 64, 63 => 63, 62 => 62, 61 => 61,
        60 => 60, 59 => 59, 58 => 58, 57 => 57, 56 => 56,
        55 => 55, 54 => 54, 53 => 53, 52 => 52, 51 => 51,
        50 => 50, 49 => 49, 48 => 48, 47 => 47, 46 => 46,
        45 => 45, 44 => 44, 43 => 43, 42 => 42, 41 => 41,
        40 => 40, 39 => 39, 38 => 38, 37 => 37, 36 => 36,
        35 => 35, 34 => 34, 33 => 33, 32 => 32, 31 => 31,
        30 => 30, 29 => 29, 28 => 28, 27 => 27, 26 => 26,
        25 => 25, 24 => 24, 23 => 23, 22 => 22, 21 => 21,
        20 => 20, 19 => 19, 18 => 18, 17 => 17, 16 => 16,
        15 => 15, 14 => 14, 13 => 13, 12 => 12, 11 => 11,
        10 => 10, 9 => 9, 8 => 8, 7 => 7, 6 => 6,
        5 => 5, 4 => 4, 3 => 3, 2 => 2, 1 => 1    );
    end z000132;
::::::::::
Z000133.ADA
::::::::::
procedure z000133 is
    A: array ( 1..500 ) of integer;
    begin
    A := (  500 => 500, 499 => 499, 498 => 498, 497 => 497, 496 => 496,
        495 => 495, 494 => 494, 493 => 493, 492 => 492, 491 => 491,
        490 => 490, 489 => 489, 488 => 488, 487 => 487, 486 => 486,
        485 => 485, 484 => 484, 483 => 483, 482 => 482, 481 => 481,
        480 => 480, 479 => 479, 478 => 478, 477 => 477, 476 => 476,
        475 => 475, 474 => 474, 473 => 473, 472 => 472, 471 => 471,
        470 => 470, 469 => 469, 468 => 468, 467 => 467, 466 => 466,
        465 => 465, 464 => 464, 463 => 463, 462 => 462, 461 => 461,
        460 => 460, 459 => 459, 458 => 458, 457 => 457, 456 => 456,
        455 => 455, 454 => 454, 453 => 453, 452 => 452, 451 => 451,
        450 => 450, 449 => 449, 448 => 448, 447 => 447, 446 => 446,
        445 => 445, 444 => 444, 443 => 443, 442 => 442, 441 => 441,
        440 => 440, 439 => 439, 438 => 438, 437 => 437, 436 => 436,
        435 => 435, 434 => 434, 433 => 433, 432 => 432, 431 => 431,
        430 => 430, 429 => 429, 428 => 428, 427 => 427, 426 => 426,
        425 => 425, 424 => 424, 423 => 423, 422 => 422, 421 => 421,
        420 => 420, 419 => 419, 418 => 418, 417 => 417, 416 => 416,
        415 => 415, 414 => 414, 413 => 413, 412 => 412, 411 => 411,
        410 => 410, 409 => 409, 408 => 408, 407 => 407, 406 => 406,
        405 => 405, 404 => 404, 403 => 403, 402 => 402, 401 => 401,
        400 => 400, 399 => 399, 398 => 398, 397 => 397, 396 => 396,
        395 => 395, 394 => 394, 393 => 393, 392 => 392, 391 => 391,
        390 => 390, 389 => 389, 388 => 388, 387 => 387, 386 => 386,
        385 => 385, 384 => 384, 383 => 383, 382 => 382, 381 => 381,
        380 => 380, 379 => 379, 378 => 378, 377 => 377, 376 => 376,
        375 => 375, 374 => 374, 373 => 373, 372 => 372, 371 => 371,
        370 => 370, 369 => 369, 368 => 368, 367 => 367, 366 => 366,
        365 => 365, 364 => 364, 363 => 363, 362 => 362, 361 => 361,
        360 => 360, 359 => 359, 358 => 358, 357 => 357, 356 => 356,
        355 => 355, 354 => 354, 353 => 353, 352 => 352, 351 => 351,
        350 => 350, 349 => 349, 348 => 348, 347 => 347, 346 => 346,
        345 => 345, 344 => 344, 343 => 343, 342 => 342, 341 => 341,
        340 => 340, 339 => 339, 338 => 338, 337 => 337, 336 => 336,
        335 => 335, 334 => 334, 333 => 333, 332 => 332, 331 => 331,
        330 => 330, 329 => 329, 328 => 328, 327 => 327, 326 => 326,
        325 => 325, 324 => 324, 323 => 323, 322 => 322, 321 => 321,
        320 => 320, 319 => 319, 318 => 318, 317 => 317, 316 => 316,
        315 => 315, 314 => 314, 313 => 313, 312 => 312, 311 => 311,
        310 => 310, 309 => 309, 308 => 308, 307 => 307, 306 => 306,
        305 => 305, 304 => 304, 303 => 303, 302 => 302, 301 => 301,
        300 => 300, 299 => 299, 298 => 298, 297 => 297, 296 => 296,
        295 => 295, 294 => 294, 293 => 293, 292 => 292, 291 => 291,
        290 => 290, 289 => 289, 288 => 288, 287 => 287, 286 => 286,
        285 => 285, 284 => 284, 283 => 283, 282 => 282, 281 => 281,
        280 => 280, 279 => 279, 278 => 278, 277 => 277, 276 => 276,
        275 => 275, 274 => 274, 273 => 273, 272 => 272, 271 => 271,
        270 => 270, 269 => 269, 268 => 268, 267 => 267, 266 => 266,
        265 => 265, 264 => 264, 263 => 263, 262 => 262, 261 => 261,
        260 => 260, 259 => 259, 258 => 258, 257 => 257, 256 => 256,
        255 => 255, 254 => 254, 253 => 253, 252 => 252, 251 => 251,
        250 => 250, 249 => 249, 248 => 248, 247 => 247, 246 => 246,
        245 => 245, 244 => 244, 243 => 243, 242 => 242, 241 => 241,
        240 => 240, 239 => 239, 238 => 238, 237 => 237, 236 => 236,
        235 => 235, 234 => 234, 233 => 233, 232 => 232, 231 => 231,
        230 => 230, 229 => 229, 228 => 228, 227 => 227, 226 => 226,
        225 => 225, 224 => 224, 223 => 223, 222 => 222, 221 => 221,
        220 => 220, 219 => 219, 218 => 218, 217 => 217, 216 => 216,
        215 => 215, 214 => 214, 213 => 213, 212 => 212, 211 => 211,
        210 => 210, 209 => 209, 208 => 208, 207 => 207, 206 => 206,
        205 => 205, 204 => 204, 203 => 203, 202 => 202, 201 => 201,
        200 => 200, 199 => 199, 198 => 198, 197 => 197, 196 => 196,
        195 => 195, 194 => 194, 193 => 193, 192 => 192, 191 => 191,
        190 => 190, 189 => 189, 188 => 188, 187 => 187, 186 => 186,
        185 => 185, 184 => 184, 183 => 183, 182 => 182, 181 => 181,
        180 => 180, 179 => 179, 178 => 178, 177 => 177, 176 => 176,
        175 => 175, 174 => 174, 173 => 173, 172 => 172, 171 => 171,
        170 => 170, 169 => 169, 168 => 168, 167 => 167, 166 => 166,
        165 => 165, 164 => 164, 163 => 163, 162 => 162, 161 => 161,
        160 => 160, 159 => 159, 158 => 158, 157 => 157, 156 => 156,
        155 => 155, 154 => 154, 153 => 153, 152 => 152, 151 => 151,
        150 => 150, 149 => 149, 148 => 148, 147 => 147, 146 => 146,
        145 => 145, 144 => 144, 143 => 143, 142 => 142, 141 => 141,
        140 => 140, 139 => 139, 138 => 138, 137 => 137, 136 => 136,
        135 => 135, 134 => 134, 133 => 133, 132 => 132, 131 => 131,
        130 => 130, 129 => 129, 128 => 128, 127 => 127, 126 => 126,
        125 => 125, 124 => 124, 123 => 123, 122 => 122, 121 => 121,
        120 => 120, 119 => 119, 118 => 118, 117 => 117, 116 => 116,
        115 => 115, 114 => 114, 113 => 113, 112 => 112, 111 => 111,
        110 => 110, 109 => 109, 108 => 108, 107 => 107, 106 => 106,
        105 => 105, 104 => 104, 103 => 103, 102 => 102, 101 => 101,
        100 => 100, 99 => 99, 98 => 98, 97 => 97, 96 => 96,
        95 => 95, 94 => 94, 93 => 93, 92 => 92, 91 => 91,
        90 => 90, 89 => 89, 88 => 88, 87 => 87, 86 => 86,
        85 => 85, 84 => 84, 83 => 83, 82 => 82, 81 => 81,
        80 => 80, 79 => 79, 78 => 78, 77 => 77, 76 => 76,
        75 => 75, 74 => 74, 73 => 73, 72 => 72, 71 => 71,
        70 => 70, 69 => 69, 68 => 68, 67 => 67, 66 => 66,
        65 => 65, 64 => 64, 63 => 63, 62 => 62, 61 => 61,
        60 => 60, 59 => 59, 58 => 58, 57 => 57, 56 => 56,
        55 => 55, 54 => 54, 53 => 53, 52 => 52, 51 => 51,
        50 => 50, 49 => 49, 48 => 48, 47 => 47, 46 => 46,
        45 => 45, 44 => 44, 43 => 43, 42 => 42, 41 => 41,
        40 => 40, 39 => 39, 38 => 38, 37 => 37, 36 => 36,
        35 => 35, 34 => 34, 33 => 33, 32 => 32, 31 => 31,
        30 => 30, 29 => 29, 28 => 28, 27 => 27, 26 => 26,
        25 => 25, 24 => 24, 23 => 23, 22 => 22, 21 => 21,
        20 => 20, 19 => 19, 18 => 18, 17 => 17, 16 => 16,
        15 => 15, 14 => 14, 13 => 13, 12 => 12, 11 => 11,
        10 => 10, 9 => 9, 8 => 8, 7 => 7, 6 => 6,
        5 => 5, 4 => 4, 3 => 3, 2 => 2, 1 => 1    );
    end z000133;
::::::::::
Z000134.ADA
::::::::::
procedure z000134 is
    A: array ( 1..1000 ) of integer;
    begin
    A := ( 1000 => 1000, 999 => 999, 998 => 998, 997 => 997, 996 => 996,
        995 => 995, 994 => 994, 993 => 993, 992 => 992, 991 => 991,
        990 => 990, 989 => 989, 988 => 988, 987 => 987, 986 => 986,
        985 => 985, 984 => 984, 983 => 983, 982 => 982, 981 => 981,
        980 => 980, 979 => 979, 978 => 978, 977 => 977, 976 => 976,
        975 => 975, 974 => 974, 973 => 973, 972 => 972, 971 => 971,
        970 => 970, 969 => 969, 968 => 968, 967 => 967, 966 => 966,
        965 => 965, 964 => 964, 963 => 963, 962 => 962, 961 => 961,
        960 => 960, 959 => 959, 958 => 958, 957 => 957, 956 => 956,
        955 => 955, 954 => 954, 953 => 953, 952 => 952, 951 => 951,
        950 => 950, 949 => 949, 948 => 948, 947 => 947, 946 => 946,
        945 => 945, 944 => 944, 943 => 943, 942 => 942, 941 => 941,
        940 => 940, 939 => 939, 938 => 938, 937 => 937, 936 => 936,
        935 => 935, 934 => 934, 933 => 933, 932 => 932, 931 => 931,
        930 => 930, 929 => 929, 928 => 928, 927 => 927, 926 => 926,
        925 => 925, 924 => 924, 923 => 923, 922 => 922, 921 => 921,
        920 => 920, 919 => 919, 918 => 918, 917 => 917, 916 => 916,
        915 => 915, 914 => 914, 913 => 913, 912 => 912, 911 => 911,
        910 => 910, 909 => 909, 908 => 908, 907 => 907, 906 => 906,
        905 => 905, 904 => 904, 903 => 903, 902 => 902, 901 => 901,
        900 => 900, 899 => 899, 898 => 898, 897 => 897, 896 => 896,
        895 => 895, 894 => 894, 893 => 893, 892 => 892, 891 => 891,
        890 => 890, 889 => 889, 888 => 888, 887 => 887, 886 => 886,
        885 => 885, 884 => 884, 883 => 883, 882 => 882, 881 => 881,
        880 => 880, 879 => 879, 878 => 878, 877 => 877, 876 => 876,
        875 => 875, 874 => 874, 873 => 873, 872 => 872, 871 => 871,
        870 => 870, 869 => 869, 868 => 868, 867 => 867, 866 => 866,
        865 => 865, 864 => 864, 863 => 863, 862 => 862, 861 => 861,
        860 => 860, 859 => 859, 858 => 858, 857 => 857, 856 => 856,
        855 => 855, 854 => 854, 853 => 853, 852 => 852, 851 => 851,
        850 => 850, 849 => 849, 848 => 848, 847 => 847, 846 => 846,
        845 => 845, 844 => 844, 843 => 843, 842 => 842, 841 => 841,
        840 => 840, 839 => 839, 838 => 838, 837 => 837, 836 => 836,
        835 => 835, 834 => 834, 833 => 833, 832 => 832, 831 => 831,
        830 => 830, 829 => 829, 828 => 828, 827 => 827, 826 => 826,
        825 => 825, 824 => 824, 823 => 823, 822 => 822, 821 => 821,
        820 => 820, 819 => 819, 818 => 818, 817 => 817, 816 => 816,
        815 => 815, 814 => 814, 813 => 813, 812 => 812, 811 => 811,
        810 => 810, 809 => 809, 808 => 808, 807 => 807, 806 => 806,
        805 => 805, 804 => 804, 803 => 803, 802 => 802, 801 => 801,
        800 => 800, 799 => 799, 798 => 798, 797 => 797, 796 => 796,
        795 => 795, 794 => 794, 793 => 793, 792 => 792, 791 => 791,
        790 => 790, 789 => 789, 788 => 788, 787 => 787, 786 => 786,
        785 => 785, 784 => 784, 783 => 783, 782 => 782, 781 => 781,
        780 => 780, 779 => 779, 778 => 778, 777 => 777, 776 => 776,
        775 => 775, 774 => 774, 773 => 773, 772 => 772, 771 => 771,
        770 => 770, 769 => 769, 768 => 768, 767 => 767, 766 => 766,
        765 => 765, 764 => 764, 763 => 763, 762 => 762, 761 => 761,
        760 => 760, 759 => 759, 758 => 758, 757 => 757, 756 => 756,
        755 => 755, 754 => 754, 753 => 753, 752 => 752, 751 => 751,
        750 => 750, 749 => 749, 748 => 748, 747 => 747, 746 => 746,
        745 => 745, 744 => 744, 743 => 743, 742 => 742, 741 => 741,
        740 => 740, 739 => 739, 738 => 738, 737 => 737, 736 => 736,
        735 => 735, 734 => 734, 733 => 733, 732 => 732, 731 => 731,
        730 => 730, 729 => 729, 728 => 728, 727 => 727, 726 => 726,
        725 => 725, 724 => 724, 723 => 723, 722 => 722, 721 => 721,
        720 => 720, 719 => 719, 718 => 718, 717 => 717, 716 => 716,
        715 => 715, 714 => 714, 713 => 713, 712 => 712, 711 => 711,
        710 => 710, 709 => 709, 708 => 708, 707 => 707, 706 => 706,
        705 => 705, 704 => 704, 703 => 703, 702 => 702, 701 => 701,
        700 => 700, 699 => 699, 698 => 698, 697 => 697, 696 => 696,
        695 => 695, 694 => 694, 693 => 693, 692 => 692, 691 => 691,
        690 => 690, 689 => 689, 688 => 688, 687 => 687, 686 => 686,
        685 => 685, 684 => 684, 683 => 683, 682 => 682, 681 => 681,
        680 => 680, 679 => 679, 678 => 678, 677 => 677, 676 => 676,
        675 => 675, 674 => 674, 673 => 673, 672 => 672, 671 => 671,
        670 => 670, 669 => 669, 668 => 668, 667 => 667, 666 => 666,
        665 => 665, 664 => 664, 663 => 663, 662 => 662, 661 => 661,
        660 => 660, 659 => 659, 658 => 658, 657 => 657, 656 => 656,
        655 => 655, 654 => 654, 653 => 653, 652 => 652, 651 => 651,
        650 => 650, 649 => 649, 648 => 648, 647 => 647, 646 => 646,
        645 => 645, 644 => 644, 643 => 643, 642 => 642, 641 => 641,
        640 => 640, 639 => 639, 638 => 638, 637 => 637, 636 => 636,
        635 => 635, 634 => 634, 633 => 633, 632 => 632, 631 => 631,
        630 => 630, 629 => 629, 628 => 628, 627 => 627, 626 => 626,
        625 => 625, 624 => 624, 623 => 623, 622 => 622, 621 => 621,
        620 => 620, 619 => 619, 618 => 618, 617 => 617, 616 => 616,
        615 => 615, 614 => 614, 613 => 613, 612 => 612, 611 => 611,
        610 => 610, 609 => 609, 608 => 608, 607 => 607, 606 => 606,
        605 => 605, 604 => 604, 603 => 603, 602 => 602, 601 => 601,
        600 => 600, 599 => 599, 598 => 598, 597 => 597, 596 => 596,
        595 => 595, 594 => 594, 593 => 593, 592 => 592, 591 => 591,
        590 => 590, 589 => 589, 588 => 588, 587 => 587, 586 => 586,
        585 => 585, 584 => 584, 583 => 583, 582 => 582, 581 => 581,
        580 => 580, 579 => 579, 578 => 578, 577 => 577, 576 => 576,
        575 => 575, 574 => 574, 573 => 573, 572 => 572, 571 => 571,
        570 => 570, 569 => 569, 568 => 568, 567 => 567, 566 => 566,
        565 => 565, 564 => 564, 563 => 563, 562 => 562, 561 => 561,
        560 => 560, 559 => 559, 558 => 558, 557 => 557, 556 => 556,
        555 => 555, 554 => 554, 553 => 553, 552 => 552, 551 => 551,
        550 => 550, 549 => 549, 548 => 548, 547 => 547, 546 => 546,
        545 => 545, 544 => 544, 543 => 543, 542 => 542, 541 => 541,
        540 => 540, 539 => 539, 538 => 538, 537 => 537, 536 => 536,
        535 => 535, 534 => 534, 533 => 533, 532 => 532, 531 => 531,
        530 => 530, 529 => 529, 528 => 528, 527 => 527, 526 => 526,
        525 => 525, 524 => 524, 523 => 523, 522 => 522, 521 => 521,
        520 => 520, 519 => 519, 518 => 518, 517 => 517, 516 => 516,
        515 => 515, 514 => 514, 513 => 513, 512 => 512, 511 => 511,
        510 => 510, 509 => 509, 508 => 508, 507 => 507, 506 => 506,
        505 => 505, 504 => 504, 503 => 503, 502 => 502, 501 => 501,
        500 => 500, 499 => 499, 498 => 498, 497 => 497, 496 => 496,
        495 => 495, 494 => 494, 493 => 493, 492 => 492, 491 => 491,
        490 => 490, 489 => 489, 488 => 488, 487 => 487, 486 => 486,
        485 => 485, 484 => 484, 483 => 483, 482 => 482, 481 => 481,
        480 => 480, 479 => 479, 478 => 478, 477 => 477, 476 => 476,
        475 => 475, 474 => 474, 473 => 473, 472 => 472, 471 => 471,
        470 => 470, 469 => 469, 468 => 468, 467 => 467, 466 => 466,
        465 => 465, 464 => 464, 463 => 463, 462 => 462, 461 => 461,
        460 => 460, 459 => 459, 458 => 458, 457 => 457, 456 => 456,
        455 => 455, 454 => 454, 453 => 453, 452 => 452, 451 => 451,
        450 => 450, 449 => 449, 448 => 448, 447 => 447, 446 => 446,
        445 => 445, 444 => 444, 443 => 443, 442 => 442, 441 => 441,
        440 => 440, 439 => 439, 438 => 438, 437 => 437, 436 => 436,
        435 => 435, 434 => 434, 433 => 433, 432 => 432, 431 => 431,
        430 => 430, 429 => 429, 428 => 428, 427 => 427, 426 => 426,
        425 => 425, 424 => 424, 423 => 423, 422 => 422, 421 => 421,
        420 => 420, 419 => 419, 418 => 418, 417 => 417, 416 => 416,
        415 => 415, 414 => 414, 413 => 413, 412 => 412, 411 => 411,
        410 => 410, 409 => 409, 408 => 408, 407 => 407, 406 => 406,
        405 => 405, 404 => 404, 403 => 403, 402 => 402, 401 => 401,
        400 => 400, 399 => 399, 398 => 398, 397 => 397, 396 => 396,
        395 => 395, 394 => 394, 393 => 393, 392 => 392, 391 => 391,
        390 => 390, 389 => 389, 388 => 388, 387 => 387, 386 => 386,
        385 => 385, 384 => 384, 383 => 383, 382 => 382, 381 => 381,
        380 => 380, 379 => 379, 378 => 378, 377 => 377, 376 => 376,
        375 => 375, 374 => 374, 373 => 373, 372 => 372, 371 => 371,
        370 => 370, 369 => 369, 368 => 368, 367 => 367, 366 => 366,
        365 => 365, 364 => 364, 363 => 363, 362 => 362, 361 => 361,
        360 => 360, 359 => 359, 358 => 358, 357 => 357, 356 => 356,
        355 => 355, 354 => 354, 353 => 353, 352 => 352, 351 => 351,
        350 => 350, 349 => 349, 348 => 348, 347 => 347, 346 => 346,
        345 => 345, 344 => 344, 343 => 343, 342 => 342, 341 => 341,
        340 => 340, 339 => 339, 338 => 338, 337 => 337, 336 => 336,
        335 => 335, 334 => 334, 333 => 333, 332 => 332, 331 => 331,
        330 => 330, 329 => 329, 328 => 328, 327 => 327, 326 => 326,
        325 => 325, 324 => 324, 323 => 323, 322 => 322, 321 => 321,
        320 => 320, 319 => 319, 318 => 318, 317 => 317, 316 => 316,
        315 => 315, 314 => 314, 313 => 313, 312 => 312, 311 => 311,
        310 => 310, 309 => 309, 308 => 308, 307 => 307, 306 => 306,
        305 => 305, 304 => 304, 303 => 303, 302 => 302, 301 => 301,
        300 => 300, 299 => 299, 298 => 298, 297 => 297, 296 => 296,
        295 => 295, 294 => 294, 293 => 293, 292 => 292, 291 => 291,
        290 => 290, 289 => 289, 288 => 288, 287 => 287, 286 => 286,
        285 => 285, 284 => 284, 283 => 283, 282 => 282, 281 => 281,
        280 => 280, 279 => 279, 278 => 278, 277 => 277, 276 => 276,
        275 => 275, 274 => 274, 273 => 273, 272 => 272, 271 => 271,
        270 => 270, 269 => 269, 268 => 268, 267 => 267, 266 => 266,
        265 => 265, 264 => 264, 263 => 263, 262 => 262, 261 => 261,
        260 => 260, 259 => 259, 258 => 258, 257 => 257, 256 => 256,
        255 => 255, 254 => 254, 253 => 253, 252 => 252, 251 => 251,
        250 => 250, 249 => 249, 248 => 248, 247 => 247, 246 => 246,
        245 => 245, 244 => 244, 243 => 243, 242 => 242, 241 => 241,
        240 => 240, 239 => 239, 238 => 238, 237 => 237, 236 => 236,
        235 => 235, 234 => 234, 233 => 233, 232 => 232, 231 => 231,
        230 => 230, 229 => 229, 228 => 228, 227 => 227, 226 => 226,
        225 => 225, 224 => 224, 223 => 223, 222 => 222, 221 => 221,
        220 => 220, 219 => 219, 218 => 218, 217 => 217, 216 => 216,
        215 => 215, 214 => 214, 213 => 213, 212 => 212, 211 => 211,
        210 => 210, 209 => 209, 208 => 208, 207 => 207, 206 => 206,
        205 => 205, 204 => 204, 203 => 203, 202 => 202, 201 => 201,
        200 => 200, 199 => 199, 198 => 198, 197 => 197, 196 => 196,
        195 => 195, 194 => 194, 193 => 193, 192 => 192, 191 => 191,
        190 => 190, 189 => 189, 188 => 188, 187 => 187, 186 => 186,
        185 => 185, 184 => 184, 183 => 183, 182 => 182, 181 => 181,
        180 => 180, 179 => 179, 178 => 178, 177 => 177, 176 => 176,
        175 => 175, 174 => 174, 173 => 173, 172 => 172, 171 => 171,
        170 => 170, 169 => 169, 168 => 168, 167 => 167, 166 => 166,
        165 => 165, 164 => 164, 163 => 163, 162 => 162, 161 => 161,
        160 => 160, 159 => 159, 158 => 158, 157 => 157, 156 => 156,
        155 => 155, 154 => 154, 153 => 153, 152 => 152, 151 => 151,
        150 => 150, 149 => 149, 148 => 148, 147 => 147, 146 => 146,
        145 => 145, 144 => 144, 143 => 143, 142 => 142, 141 => 141,
        140 => 140, 139 => 139, 138 => 138, 137 => 137, 136 => 136,
        135 => 135, 134 => 134, 133 => 133, 132 => 132, 131 => 131,
        130 => 130, 129 => 129, 128 => 128, 127 => 127, 126 => 126,
        125 => 125, 124 => 124, 123 => 123, 122 => 122, 121 => 121,
        120 => 120, 119 => 119, 118 => 118, 117 => 117, 116 => 116,
        115 => 115, 114 => 114, 113 => 113, 112 => 112, 111 => 111,
        110 => 110, 109 => 109, 108 => 108, 107 => 107, 106 => 106,
        105 => 105, 104 => 104, 103 => 103, 102 => 102, 101 => 101,
        100 => 100, 99 => 99, 98 => 98, 97 => 97, 96 => 96,
        95 => 95, 94 => 94, 93 => 93, 92 => 92, 91 => 91,
        90 => 90, 89 => 89, 88 => 88, 87 => 87, 86 => 86,
        85 => 85, 84 => 84, 83 => 83, 82 => 82, 81 => 81,
        80 => 80, 79 => 79, 78 => 78, 77 => 77, 76 => 76,
        75 => 75, 74 => 74, 73 => 73, 72 => 72, 71 => 71,
        70 => 70, 69 => 69, 68 => 68, 67 => 67, 66 => 66,
        65 => 65, 64 => 64, 63 => 63, 62 => 62, 61 => 61,
        60 => 60, 59 => 59, 58 => 58, 57 => 57, 56 => 56,
        55 => 55, 54 => 54, 53 => 53, 52 => 52, 51 => 51,
        50 => 50, 49 => 49, 48 => 48, 47 => 47, 46 => 46,
        45 => 45, 44 => 44, 43 => 43, 42 => 42, 41 => 41,
        40 => 40, 39 => 39, 38 => 38, 37 => 37, 36 => 36,
        35 => 35, 34 => 34, 33 => 33, 32 => 32, 31 => 31,
        30 => 30, 29 => 29, 28 => 28, 27 => 27, 26 => 26,
        25 => 25, 24 => 24, 23 => 23, 22 => 22, 21 => 21,
        20 => 20, 19 => 19, 18 => 18, 17 => 17, 16 => 16,
        15 => 15, 14 => 14, 13 => 13, 12 => 12, 11 => 11,
        10 => 10, 9 => 9, 8 => 8, 7 => 7, 6 => 6,
        5 => 5, 4 => 4, 3 => 3, 2 => 2, 1 => 1    );
    end z000134;
::::::::::
Z000141.ADA
::::::::::
procedure z000141 is
    type type_1;
    type type_2;
    type type_3;
    type type_4;
    type type_5;
    type type_6;
    type type_7;
    type type_8;
    type type_9;
    type type_10;
    type type_11;
    type type_12;
    type type_13;
    type type_14;
    type type_15;
    type type_16;
    type type_17;
    type type_18;
    type type_19;
    type type_20;
    type type_21;
    type type_22;
    type type_23;
    type type_24;
    type type_25;
    type type_26;
    type type_27;
    type type_28;
    type type_29;
    type type_30;
    type type_31;
    type type_32;
    type type_33;
    type type_34;
    type type_35;
    type type_36;
    type type_37;
    type type_38;
    type type_39;
    type type_40;
    type type_41;
    type type_42;
    type type_43;
    type type_44;
    type type_45;
    type type_46;
    type type_47;
    type type_48;
    type type_49;
    type type_50;
    type type_51;
    type type_52;
    type type_53;
    type type_54;
    type type_55;
    type type_56;
    type type_57;
    type type_58;
    type type_59;
    type type_60;
    type type_61;
    type type_62;
    type type_63;
    type type_64;
    type type_65;
    type type_66;
    type type_67;
    type type_68;
    type type_69;
    type type_70;
    type type_71;
    type type_72;
    type type_73;
    type type_74;
    type type_75;
    type type_76;
    type type_77;
    type type_78;
    type type_79;
    type type_80;
    type type_81;
    type type_82;
    type type_83;
    type type_84;
    type type_85;
    type type_86;
    type type_87;
    type type_88;
    type type_89;
    type type_90;
    type type_91;
    type type_92;
    type type_93;
    type type_94;
    type type_95;
    type type_96;
    type type_97;
    type type_98;
    type type_99;
    type type_100;
    type type_100 is access type_99;
    type type_99 is access type_98;
    type type_98 is access type_97;
    type type_97 is access type_96;
    type type_96 is access type_95;
    type type_95 is access type_94;
    type type_94 is access type_93;
    type type_93 is access type_92;
    type type_92 is access type_91;
    type type_91 is access type_90;
    type type_90 is access type_89;
    type type_89 is access type_88;
    type type_88 is access type_87;
    type type_87 is access type_86;
    type type_86 is access type_85;
    type type_85 is access type_84;
    type type_84 is access type_83;
    type type_83 is access type_82;
    type type_82 is access type_81;
    type type_81 is access type_80;
    type type_80 is access type_79;
    type type_79 is access type_78;
    type type_78 is access type_77;
    type type_77 is access type_76;
    type type_76 is access type_75;
    type type_75 is access type_74;
    type type_74 is access type_73;
    type type_73 is access type_72;
    type type_72 is access type_71;
    type type_71 is access type_70;
    type type_70 is access type_69;
    type type_69 is access type_68;
    type type_68 is access type_67;
    type type_67 is access type_66;
    type type_66 is access type_65;
    type type_65 is access type_64;
    type type_64 is access type_63;
    type type_63 is access type_62;
    type type_62 is access type_61;
    type type_61 is access type_60;
    type type_60 is access type_59;
    type type_59 is access type_58;
    type type_58 is access type_57;
    type type_57 is access type_56;
    type type_56 is access type_55;
    type type_55 is access type_54;
    type type_54 is access type_53;
    type type_53 is access type_52;
    type type_52 is access type_51;
    type type_51 is access type_50;
    type type_50 is access type_49;
    type type_49 is access type_48;
    type type_48 is access type_47;
    type type_47 is access type_46;
    type type_46 is access type_45;
    type type_45 is access type_44;
    type type_44 is access type_43;
    type type_43 is access type_42;
    type type_42 is access type_41;
    type type_41 is access type_40;
    type type_40 is access type_39;
    type type_39 is access type_38;
    type type_38 is access type_37;
    type type_37 is access type_36;
    type type_36 is access type_35;
    type type_35 is access type_34;
    type type_34 is access type_33;
    type type_33 is access type_32;
    type type_32 is access type_31;
    type type_31 is access type_30;
    type type_30 is access type_29;
    type type_29 is access type_28;
    type type_28 is access type_27;
    type type_27 is access type_26;
    type type_26 is access type_25;
    type type_25 is access type_24;
    type type_24 is access type_23;
    type type_23 is access type_22;
    type type_22 is access type_21;
    type type_21 is access type_20;
    type type_20 is access type_19;
    type type_19 is access type_18;
    type type_18 is access type_17;
    type type_17 is access type_16;
    type type_16 is access type_15;
    type type_15 is access type_14;
    type type_14 is access type_13;
    type type_13 is access type_12;
    type type_12 is access type_11;
    type type_11 is access type_10;
    type type_10 is access type_9;
    type type_9 is access type_8;
    type type_8 is access type_7;
    type type_7 is access type_6;
    type type_6 is access type_5;
    type type_5 is access type_4;
    type type_4 is access type_3;
    type type_3 is access type_2;
    type type_2 is access type_1;
    type type_1 is range 1..500;
    begin
    null;
    end z000141;
::::::::::
Z000142.ADA
::::::::::
procedure z000142 is
    type type_1;
    type type_2;
    type type_3;
    type type_4;
    type type_5;
    type type_6;
    type type_7;
    type type_8;
    type type_9;
    type type_10;
    type type_11;
    type type_12;
    type type_13;
    type type_14;
    type type_15;
    type type_16;
    type type_17;
    type type_18;
    type type_19;
    type type_20;
    type type_21;
    type type_22;
    type type_23;
    type type_24;
    type type_25;
    type type_26;
    type type_27;
    type type_28;
    type type_29;
    type type_30;
    type type_31;
    type type_32;
    type type_33;
    type type_34;
    type type_35;
    type type_36;
    type type_37;
    type type_38;
    type type_39;
    type type_40;
    type type_41;
    type type_42;
    type type_43;
    type type_44;
    type type_45;
    type type_46;
    type type_47;
    type type_48;
    type type_49;
    type type_50;
    type type_51;
    type type_52;
    type type_53;
    type type_54;
    type type_55;
    type type_56;
    type type_57;
    type type_58;
    type type_59;
    type type_60;
    type type_61;
    type type_62;
    type type_63;
    type type_64;
    type type_65;
    type type_66;
    type type_67;
    type type_68;
    type type_69;
    type type_70;
    type type_71;
    type type_72;
    type type_73;
    type type_74;
    type type_75;
    type type_76;
    type type_77;
    type type_78;
    type type_79;
    type type_80;
    type type_81;
    type type_82;
    type type_83;
    type type_84;
    type type_85;
    type type_86;
    type type_87;
    type type_88;
    type type_89;
    type type_90;
    type type_91;
    type type_92;
    type type_93;
    type type_94;
    type type_95;
    type type_96;
    type type_97;
    type type_98;
    type type_99;
    type type_100;
    type type_101;
    type type_102;
    type type_103;
    type type_104;
    type type_105;
    type type_106;
    type type_107;
    type type_108;
    type type_109;
    type type_110;
    type type_111;
    type type_112;
    type type_113;
    type type_114;
    type type_115;
    type type_116;
    type type_117;
    type type_118;
    type type_119;
    type type_120;
    type type_121;
    type type_122;
    type type_123;
    type type_124;
    type type_125;
    type type_126;
    type type_127;
    type type_128;
    type type_129;
    type type_130;
    type type_131;
    type type_132;
    type type_133;
    type type_134;
    type type_135;
    type type_136;
    type type_137;
    type type_138;
    type type_139;
    type type_140;
    type type_141;
    type type_142;
    type type_143;
    type type_144;
    type type_145;
    type type_146;
    type type_147;
    type type_148;
    type type_149;
    type type_150;
    type type_151;
    type type_152;
    type type_153;
    type type_154;
    type type_155;
    type type_156;
    type type_157;
    type type_158;
    type type_159;
    type type_160;
    type type_161;
    type type_162;
    type type_163;
    type type_164;
    type type_165;
    type type_166;
    type type_167;
    type type_168;
    type type_169;
    type type_170;
    type type_171;
    type type_172;
    type type_173;
    type type_174;
    type type_175;
    type type_176;
    type type_177;
    type type_178;
    type type_179;
    type type_180;
    type type_181;
    type type_182;
    type type_183;
    type type_184;
    type type_185;
    type type_186;
    type type_187;
    type type_188;
    type type_189;
    type type_190;
    type type_191;
    type type_192;
    type type_193;
    type type_194;
    type type_195;
    type type_196;
    type type_197;
    type type_198;
    type type_199;
    type type_200;
    type type_200 is access type_199;
    type type_199 is access type_198;
    type type_198 is access type_197;
    type type_197 is access type_196;
    type type_196 is access type_195;
    type type_195 is access type_194;
    type type_194 is access type_193;
    type type_193 is access type_192;
    type type_192 is access type_191;
    type type_191 is access type_190;
    type type_190 is access type_189;
    type type_189 is access type_188;
    type type_188 is access type_187;
    type type_187 is access type_186;
    type type_186 is access type_185;
    type type_185 is access type_184;
    type type_184 is access type_183;
    type type_183 is access type_182;
    type type_182 is access type_181;
    type type_181 is access type_180;
    type type_180 is access type_179;
    type type_179 is access type_178;
    type type_178 is access type_177;
    type type_177 is access type_176;
    type type_176 is access type_175;
    type type_175 is access type_174;
    type type_174 is access type_173;
    type type_173 is access type_172;
    type type_172 is access type_171;
    type type_171 is access type_170;
    type type_170 is access type_169;
    type type_169 is access type_168;
    type type_168 is access type_167;
    type type_167 is access type_166;
    type type_166 is access type_165;
    type type_165 is access type_164;
    type type_164 is access type_163;
    type type_163 is access type_162;
    type type_162 is access type_161;
    type type_161 is access type_160;
    type type_160 is access type_159;
    type type_159 is access type_158;
    type type_158 is access type_157;
    type type_157 is access type_156;
    type type_156 is access type_155;
    type type_155 is access type_154;
    type type_154 is access type_153;
    type type_153 is access type_152;
    type type_152 is access type_151;
    type type_151 is access type_150;
    type type_150 is access type_149;
    type type_149 is access type_148;
    type type_148 is access type_147;
    type type_147 is access type_146;
    type type_146 is access type_145;
    type type_145 is access type_144;
    type type_144 is access type_143;
    type type_143 is access type_142;
    type type_142 is access type_141;
    type type_141 is access type_140;
    type type_140 is access type_139;
    type type_139 is access type_138;
    type type_138 is access type_137;
    type type_137 is access type_136;
    type type_136 is access type_135;
    type type_135 is access type_134;
    type type_134 is access type_133;
    type type_133 is access type_132;
    type type_132 is access type_131;
    type type_131 is access type_130;
    type type_130 is access type_129;
    type type_129 is access type_128;
    type type_128 is access type_127;
    type type_127 is access type_126;
    type type_126 is access type_125;
    type type_125 is access type_124;
    type type_124 is access type_123;
    type type_123 is access type_122;
    type type_122 is access type_121;
    type type_121 is access type_120;
    type type_120 is access type_119;
    type type_119 is access type_118;
    type type_118 is access type_117;
    type type_117 is access type_116;
    type type_116 is access type_115;
    type type_115 is access type_114;
    type type_114 is access type_113;
    type type_113 is access type_112;
    type type_112 is access type_111;
    type type_111 is access type_110;
    type type_110 is access type_109;
    type type_109 is access type_108;
    type type_108 is access type_107;
    type type_107 is access type_106;
    type type_106 is access type_105;
    type type_105 is access type_104;
    type type_104 is access type_103;
    type type_103 is access type_102;
    type type_102 is access type_101;
    type type_101 is access type_100;
    type type_100 is access type_99;
    type type_99 is access type_98;
    type type_98 is access type_97;
    type type_97 is access type_96;
    type type_96 is access type_95;
    type type_95 is access type_94;
    type type_94 is access type_93;
    type type_93 is access type_92;
    type type_92 is access type_91;
    type type_91 is access type_90;
    type type_90 is access type_89;
    type type_89 is access type_88;
    type type_88 is access type_87;
    type type_87 is access type_86;
    type type_86 is access type_85;
    type type_85 is access type_84;
    type type_84 is access type_83;
    type type_83 is access type_82;
    type type_82 is access type_81;
    type type_81 is access type_80;
    type type_80 is access type_79;
    type type_79 is access type_78;
    type type_78 is access type_77;
    type type_77 is access type_76;
    type type_76 is access type_75;
    type type_75 is access type_74;
    type type_74 is access type_73;
    type type_73 is access type_72;
    type type_72 is access type_71;
    type type_71 is access type_70;
    type type_70 is access type_69;
    type type_69 is access type_68;
    type type_68 is access type_67;
    type type_67 is access type_66;
    type type_66 is access type_65;
    type type_65 is access type_64;
    type type_64 is access type_63;
    type type_63 is access type_62;
    type type_62 is access type_61;
    type type_61 is access type_60;
    type type_60 is access type_59;
    type type_59 is access type_58;
    type type_58 is access type_57;
    type type_57 is access type_56;
    type type_56 is access type_55;
    type type_55 is access type_54;
    type type_54 is access type_53;
    type type_53 is access type_52;
    type type_52 is access type_51;
    type type_51 is access type_50;
    type type_50 is access type_49;
    type type_49 is access type_48;
    type type_48 is access type_47;
    type type_47 is access type_46;
    type type_46 is access type_45;
    type type_45 is access type_44;
    type type_44 is access type_43;
    type type_43 is access type_42;
    type type_42 is access type_41;
    type type_41 is access type_40;
    type type_40 is access type_39;
    type type_39 is access type_38;
    type type_38 is access type_37;
    type type_37 is access type_36;
    type type_36 is access type_35;
    type type_35 is access type_34;
    type type_34 is access type_33;
    type type_33 is access type_32;
    type type_32 is access type_31;
    type type_31 is access type_30;
    type type_30 is access type_29;
    type type_29 is access type_28;
    type type_28 is access type_27;
    type type_27 is access type_26;
    type type_26 is access type_25;
    type type_25 is access type_24;
    type type_24 is access type_23;
    type type_23 is access type_22;
    type type_22 is access type_21;
    type type_21 is access type_20;
    type type_20 is access type_19;
    type type_19 is access type_18;
    type type_18 is access type_17;
    type type_17 is access type_16;
    type type_16 is access type_15;
    type type_15 is access type_14;
    type type_14 is access type_13;
    type type_13 is access type_12;
    type type_12 is access type_11;
    type type_11 is access type_10;
    type type_10 is access type_9;
    type type_9 is access type_8;
    type type_8 is access type_7;
    type type_7 is access type_6;
    type type_6 is access type_5;
    type type_5 is access type_4;
    type type_4 is access type_3;
    type type_3 is access type_2;
    type type_2 is access type_1;
    type type_1 is range 1..500;
    begin
    null;
    end z000142;
::::::::::
Z000143.ADA
::::::::::
procedure z000143 is
    type type_1;
    type type_2;
    type type_3;
    type type_4;
    type type_5;
    type type_6;
    type type_7;
    type type_8;
    type type_9;
    type type_10;
    type type_11;
    type type_12;
    type type_13;
    type type_14;
    type type_15;
    type type_16;
    type type_17;
    type type_18;
    type type_19;
    type type_20;
    type type_21;
    type type_22;
    type type_23;
    type type_24;
    type type_25;
    type type_26;
    type type_27;
    type type_28;
    type type_29;
    type type_30;
    type type_31;
    type type_32;
    type type_33;
    type type_34;
    type type_35;
    type type_36;
    type type_37;
    type type_38;
    type type_39;
    type type_40;
    type type_41;
    type type_42;
    type type_43;
    type type_44;
    type type_45;
    type type_46;
    type type_47;
    type type_48;
    type type_49;
    type type_50;
    type type_51;
    type type_52;
    type type_53;
    type type_54;
    type type_55;
    type type_56;
    type type_57;
    type type_58;
    type type_59;
    type type_60;
    type type_61;
    type type_62;
    type type_63;
    type type_64;
    type type_65;
    type type_66;
    type type_67;
    type type_68;
    type type_69;
    type type_70;
    type type_71;
    type type_72;
    type type_73;
    type type_74;
    type type_75;
    type type_76;
    type type_77;
    type type_78;
    type type_79;
    type type_80;
    type type_81;
    type type_82;
    type type_83;
    type type_84;
    type type_85;
    type type_86;
    type type_87;
    type type_88;
    type type_89;
    type type_90;
    type type_91;
    type type_92;
    type type_93;
    type type_94;
    type type_95;
    type type_96;
    type type_97;
    type type_98;
    type type_99;
    type type_100;
    type type_101;
    type type_102;
    type type_103;
    type type_104;
    type type_105;
    type type_106;
    type type_107;
    type type_108;
    type type_109;
    type type_110;
    type type_111;
    type type_112;
    type type_113;
    type type_114;
    type type_115;
    type type_116;
    type type_117;
    type type_118;
    type type_119;
    type type_120;
    type type_121;
    type type_122;
    type type_123;
    type type_124;
    type type_125;
    type type_126;
    type type_127;
    type type_128;
    type type_129;
    type type_130;
    type type_131;
    type type_132;
    type type_133;
    type type_134;
    type type_135;
    type type_136;
    type type_137;
    type type_138;
    type type_139;
    type type_140;
    type type_141;
    type type_142;
    type type_143;
    type type_144;
    type type_145;
    type type_146;
    type type_147;
    type type_148;
    type type_149;
    type type_150;
    type type_151;
    type type_152;
    type type_153;
    type type_154;
    type type_155;
    type type_156;
    type type_157;
    type type_158;
    type type_159;
    type type_160;
    type type_161;
    type type_162;
    type type_163;
    type type_164;
    type type_165;
    type type_166;
    type type_167;
    type type_168;
    type type_169;
    type type_170;
    type type_171;
    type type_172;
    type type_173;
    type type_174;
    type type_175;
    type type_176;
    type type_177;
    type type_178;
    type type_179;
    type type_180;
    type type_181;
    type type_182;
    type type_183;
    type type_184;
    type type_185;
    type type_186;
    type type_187;
    type type_188;
    type type_189;
    type type_190;
    type type_191;
    type type_192;
    type type_193;
    type type_194;
    type type_195;
    type type_196;
    type type_197;
    type type_198;
    type type_199;
    type type_200;
    type type_201;
    type type_202;
    type type_203;
    type type_204;
    type type_205;
    type type_206;
    type type_207;
    type type_208;
    type type_209;
    type type_210;
    type type_211;
    type type_212;
    type type_213;
    type type_214;
    type type_215;
    type type_216;
    type type_217;
    type type_218;
    type type_219;
    type type_220;
    type type_221;
    type type_222;
    type type_223;
    type type_224;
    type type_225;
    type type_226;
    type type_227;
    type type_228;
    type type_229;
    type type_230;
    type type_231;
    type type_232;
    type type_233;
    type type_234;
    type type_235;
    type type_236;
    type type_237;
    type type_238;
    type type_239;
    type type_240;
    type type_241;
    type type_242;
    type type_243;
    type type_244;
    type type_245;
    type type_246;
    type type_247;
    type type_248;
    type type_249;
    type type_250;
    type type_251;
    type type_252;
    type type_253;
    type type_254;
    type type_255;
    type type_256;
    type type_257;
    type type_258;
    type type_259;
    type type_260;
    type type_261;
    type type_262;
    type type_263;
    type type_264;
    type type_265;
    type type_266;
    type type_267;
    type type_268;
    type type_269;
    type type_270;
    type type_271;
    type type_272;
    type type_273;
    type type_274;
    type type_275;
    type type_276;
    type type_277;
    type type_278;
    type type_279;
    type type_280;
    type type_281;
    type type_282;
    type type_283;
    type type_284;
    type type_285;
    type type_286;
    type type_287;
    type type_288;
    type type_289;
    type type_290;
    type type_291;
    type type_292;
    type type_293;
    type type_294;
    type type_295;
    type type_296;
    type type_297;
    type type_298;
    type type_299;
    type type_300;
    type type_301;
    type type_302;
    type type_303;
    type type_304;
    type type_305;
    type type_306;
    type type_307;
    type type_308;
    type type_309;
    type type_310;
    type type_311;
    type type_312;
    type type_313;
    type type_314;
    type type_315;
    type type_316;
    type type_317;
    type type_318;
    type type_319;
    type type_320;
    type type_321;
    type type_322;
    type type_323;
    type type_324;
    type type_325;
    type type_326;
    type type_327;
    type type_328;
    type type_329;
    type type_330;
    type type_331;
    type type_332;
    type type_333;
    type type_334;
    type type_335;
    type type_336;
    type type_337;
    type type_338;
    type type_339;
    type type_340;
    type type_341;
    type type_342;
    type type_343;
    type type_344;
    type type_345;
    type type_346;
    type type_347;
    type type_348;
    type type_349;
    type type_350;
    type type_351;
    type type_352;
    type type_353;
    type type_354;
    type type_355;
    type type_356;
    type type_357;
    type type_358;
    type type_359;
    type type_360;
    type type_361;
    type type_362;
    type type_363;
    type type_364;
    type type_365;
    type type_366;
    type type_367;
    type type_368;
    type type_369;
    type type_370;
    type type_371;
    type type_372;
    type type_373;
    type type_374;
    type type_375;
    type type_376;
    type type_377;
    type type_378;
    type type_379;
    type type_380;
    type type_381;
    type type_382;
    type type_383;
    type type_384;
    type type_385;
    type type_386;
    type type_387;
    type type_388;
    type type_389;
    type type_390;
    type type_391;
    type type_392;
    type type_393;
    type type_394;
    type type_395;
    type type_396;
    type type_397;
    type type_398;
    type type_399;
    type type_400;
    type type_401;
    type type_402;
    type type_403;
    type type_404;
    type type_405;
    type type_406;
    type type_407;
    type type_408;
    type type_409;
    type type_410;
    type type_411;
    type type_412;
    type type_413;
    type type_414;
    type type_415;
    type type_416;
    type type_417;
    type type_418;
    type type_419;
    type type_420;
    type type_421;
    type type_422;
    type type_423;
    type type_424;
    type type_425;
    type type_426;
    type type_427;
    type type_428;
    type type_429;
    type type_430;
    type type_431;
    type type_432;
    type type_433;
    type type_434;
    type type_435;
    type type_436;
    type type_437;
    type type_438;
    type type_439;
    type type_440;
    type type_441;
    type type_442;
    type type_443;
    type type_444;
    type type_445;
    type type_446;
    type type_447;
    type type_448;
    type type_449;
    type type_450;
    type type_451;
    type type_452;
    type type_453;
    type type_454;
    type type_455;
    type type_456;
    type type_457;
    type type_458;
    type type_459;
    type type_460;
    type type_461;
    type type_462;
    type type_463;
    type type_464;
    type type_465;
    type type_466;
    type type_467;
    type type_468;
    type type_469;
    type type_470;
    type type_471;
    type type_472;
    type type_473;
    type type_474;
    type type_475;
    type type_476;
    type type_477;
    type type_478;
    type type_479;
    type type_480;
    type type_481;
    type type_482;
    type type_483;
    type type_484;
    type type_485;
    type type_486;
    type type_487;
    type type_488;
    type type_489;
    type type_490;
    type type_491;
    type type_492;
    type type_493;
    type type_494;
    type type_495;
    type type_496;
    type type_497;
    type type_498;
    type type_499;
    type type_500;
    type type_500 is access type_499;
    type type_499 is access type_498;
    type type_498 is access type_497;
    type type_497 is access type_496;
    type type_496 is access type_495;
    type type_495 is access type_494;
    type type_494 is access type_493;
    type type_493 is access type_492;
    type type_492 is access type_491;
    type type_491 is access type_490;
    type type_490 is access type_489;
    type type_489 is access type_488;
    type type_488 is access type_487;
    type type_487 is access type_486;
    type type_486 is access type_485;
    type type_485 is access type_484;
    type type_484 is access type_483;
    type type_483 is access type_482;
    type type_482 is access type_481;
    type type_481 is access type_480;
    type type_480 is access type_479;
    type type_479 is access type_478;
    type type_478 is access type_477;
    type type_477 is access type_476;
    type type_476 is access type_475;
    type type_475 is access type_474;
    type type_474 is access type_473;
    type type_473 is access type_472;
    type type_472 is access type_471;
    type type_471 is access type_470;
    type type_470 is access type_469;
    type type_469 is access type_468;
    type type_468 is access type_467;
    type type_467 is access type_466;
    type type_466 is access type_465;
    type type_465 is access type_464;
    type type_464 is access type_463;
    type type_463 is access type_462;
    type type_462 is access type_461;
    type type_461 is access type_460;
    type type_460 is access type_459;
    type type_459 is access type_458;
    type type_458 is access type_457;
    type type_457 is access type_456;
    type type_456 is access type_455;
    type type_455 is access type_454;
    type type_454 is access type_453;
    type type_453 is access type_452;
    type type_452 is access type_451;
    type type_451 is access type_450;
    type type_450 is access type_449;
    type type_449 is access type_448;
    type type_448 is access type_447;
    type type_447 is access type_446;
    type type_446 is access type_445;
    type type_445 is access type_444;
    type type_444 is access type_443;
    type type_443 is access type_442;
    type type_442 is access type_441;
    type type_441 is access type_440;
    type type_440 is access type_439;
    type type_439 is access type_438;
    type type_438 is access type_437;
    type type_437 is access type_436;
    type type_436 is access type_435;
    type type_435 is access type_434;
    type type_434 is access type_433;
    type type_433 is access type_432;
    type type_432 is access type_431;
    type type_431 is access type_430;
    type type_430 is access type_429;
    type type_429 is access type_428;
    type type_428 is access type_427;
    type type_427 is access type_426;
    type type_426 is access type_425;
    type type_425 is access type_424;
    type type_424 is access type_423;
    type type_423 is access type_422;
    type type_422 is access type_421;
    type type_421 is access type_420;
    type type_420 is access type_419;
    type type_419 is access type_418;
    type type_418 is access type_417;
    type type_417 is access type_416;
    type type_416 is access type_415;
    type type_415 is access type_414;
    type type_414 is access type_413;
    type type_413 is access type_412;
    type type_412 is access type_411;
    type type_411 is access type_410;
    type type_410 is access type_409;
    type type_409 is access type_408;
    type type_408 is access type_407;
    type type_407 is access type_406;
    type type_406 is access type_405;
    type type_405 is access type_404;
    type type_404 is access type_403;
    type type_403 is access type_402;
    type type_402 is access type_401;
    type type_401 is access type_400;
    type type_400 is access type_399;
    type type_399 is access type_398;
    type type_398 is access type_397;
    type type_397 is access type_396;
    type type_396 is access type_395;
    type type_395 is access type_394;
    type type_394 is access type_393;
    type type_393 is access type_392;
    type type_392 is access type_391;
    type type_391 is access type_390;
    type type_390 is access type_389;
    type type_389 is access type_388;
    type type_388 is access type_387;
    type type_387 is access type_386;
    type type_386 is access type_385;
    type type_385 is access type_384;
    type type_384 is access type_383;
    type type_383 is access type_382;
    type type_382 is access type_381;
    type type_381 is access type_380;
    type type_380 is access type_379;
    type type_379 is access type_378;
    type type_378 is access type_377;
    type type_377 is access type_376;
    type type_376 is access type_375;
    type type_375 is access type_374;
    type type_374 is access type_373;
    type type_373 is access type_372;
    type type_372 is access type_371;
    type type_371 is access type_370;
    type type_370 is access type_369;
    type type_369 is access type_368;
    type type_368 is access type_367;
    type type_367 is access type_366;
    type type_366 is access type_365;
    type type_365 is access type_364;
    type type_364 is access type_363;
    type type_363 is access type_362;
    type type_362 is access type_361;
    type type_361 is access type_360;
    type type_360 is access type_359;
    type type_359 is access type_358;
    type type_358 is access type_357;
    type type_357 is access type_356;
    type type_356 is access type_355;
    type type_355 is access type_354;
    type type_354 is access type_353;
    type type_353 is access type_352;
    type type_352 is access type_351;
    type type_351 is access type_350;
    type type_350 is access type_349;
    type type_349 is access type_348;
    type type_348 is access type_347;
    type type_347 is access type_346;
    type type_346 is access type_345;
    type type_345 is access type_344;
    type type_344 is access type_343;
    type type_343 is access type_342;
    type type_342 is access type_341;
    type type_341 is access type_340;
    type type_340 is access type_339;
    type type_339 is access type_338;
    type type_338 is access type_337;
    type type_337 is access type_336;
    type type_336 is access type_335;
    type type_335 is access type_334;
    type type_334 is access type_333;
    type type_333 is access type_332;
    type type_332 is access type_331;
    type type_331 is access type_330;
    type type_330 is access type_329;
    type type_329 is access type_328;
    type type_328 is access type_327;
    type type_327 is access type_326;
    type type_326 is access type_325;
    type type_325 is access type_324;
    type type_324 is access type_323;
    type type_323 is access type_322;
    type type_322 is access type_321;
    type type_321 is access type_320;
    type type_320 is access type_319;
    type type_319 is access type_318;
    type type_318 is access type_317;
    type type_317 is access type_316;
    type type_316 is access type_315;
    type type_315 is access type_314;
    type type_314 is access type_313;
    type type_313 is access type_312;
    type type_312 is access type_311;
    type type_311 is access type_310;
    type type_310 is access type_309;
    type type_309 is access type_308;
    type type_308 is access type_307;
    type type_307 is access type_306;
    type type_306 is access type_305;
    type type_305 is access type_304;
    type type_304 is access type_303;
    type type_303 is access type_302;
    type type_302 is access type_301;
    type type_301 is access type_300;
    type type_300 is access type_299;
    type type_299 is access type_298;
    type type_298 is access type_297;
    type type_297 is access type_296;
    type type_296 is access type_295;
    type type_295 is access type_294;
    type type_294 is access type_293;
    type type_293 is access type_292;
    type type_292 is access type_291;
    type type_291 is access type_290;
    type type_290 is access type_289;
    type type_289 is access type_288;
    type type_288 is access type_287;
    type type_287 is access type_286;
    type type_286 is access type_285;
    type type_285 is access type_284;
    type type_284 is access type_283;
    type type_283 is access type_282;
    type type_282 is access type_281;
    type type_281 is access type_280;
    type type_280 is access type_279;
    type type_279 is access type_278;
    type type_278 is access type_277;
    type type_277 is access type_276;
    type type_276 is access type_275;
    type type_275 is access type_274;
    type type_274 is access type_273;
    type type_273 is access type_272;
    type type_272 is access type_271;
    type type_271 is access type_270;
    type type_270 is access type_269;
    type type_269 is access type_268;
    type type_268 is access type_267;
    type type_267 is access type_266;
    type type_266 is access type_265;
    type type_265 is access type_264;
    type type_264 is access type_263;
    type type_263 is access type_262;
    type type_262 is access type_261;
    type type_261 is access type_260;
    type type_260 is access type_259;
    type type_259 is access type_258;
    type type_258 is access type_257;
    type type_257 is access type_256;
    type type_256 is access type_255;
    type type_255 is access type_254;
    type type_254 is access type_253;
    type type_253 is access type_252;
    type type_252 is access type_251;
    type type_251 is access type_250;
    type type_250 is access type_249;
    type type_249 is access type_248;
    type type_248 is access type_247;
    type type_247 is access type_246;
    type type_246 is access type_245;
    type type_245 is access type_244;
    type type_244 is access type_243;
    type type_243 is access type_242;
    type type_242 is access type_241;
    type type_241 is access type_240;
    type type_240 is access type_239;
    type type_239 is access type_238;
    type type_238 is access type_237;
    type type_237 is access type_236;
    type type_236 is access type_235;
    type type_235 is access type_234;
    type type_234 is access type_233;
    type type_233 is access type_232;
    type type_232 is access type_231;
    type type_231 is access type_230;
    type type_230 is access type_229;
    type type_229 is access type_228;
    type type_228 is access type_227;
    type type_227 is access type_226;
    type type_226 is access type_225;
    type type_225 is access type_224;
    type type_224 is access type_223;
    type type_223 is access type_222;
    type type_222 is access type_221;
    type type_221 is access type_220;
    type type_220 is access type_219;
    type type_219 is access type_218;
    type type_218 is access type_217;
    type type_217 is access type_216;
    type type_216 is access type_215;
    type type_215 is access type_214;
    type type_214 is access type_213;
    type type_213 is access type_212;
    type type_212 is access type_211;
    type type_211 is access type_210;
    type type_210 is access type_209;
    type type_209 is access type_208;
    type type_208 is access type_207;
    type type_207 is access type_206;
    type type_206 is access type_205;
    type type_205 is access type_204;
    type type_204 is access type_203;
    type type_203 is access type_202;
    type type_202 is access type_201;
    type type_201 is access type_200;
    type type_200 is access type_199;
    type type_199 is access type_198;
    type type_198 is access type_197;
    type type_197 is access type_196;
    type type_196 is access type_195;
    type type_195 is access type_194;
    type type_194 is access type_193;
    type type_193 is access type_192;
    type type_192 is access type_191;
    type type_191 is access type_190;
    type type_190 is access type_189;
    type type_189 is access type_188;
    type type_188 is access type_187;
    type type_187 is access type_186;
    type type_186 is access type_185;
    type type_185 is access type_184;
    type type_184 is access type_183;
    type type_183 is access type_182;
    type type_182 is access type_181;
    type type_181 is access type_180;
    type type_180 is access type_179;
    type type_179 is access type_178;
    type type_178 is access type_177;
    type type_177 is access type_176;
    type type_176 is access type_175;
    type type_175 is access type_174;
    type type_174 is access type_173;
    type type_173 is access type_172;
    type type_172 is access type_171;
    type type_171 is access type_170;
    type type_170 is access type_169;
    type type_169 is access type_168;
    type type_168 is access type_167;
    type type_167 is access type_166;
    type type_166 is access type_165;
    type type_165 is access type_164;
    type type_164 is access type_163;
    type type_163 is access type_162;
    type type_162 is access type_161;
    type type_161 is access type_160;
    type type_160 is access type_159;
    type type_159 is access type_158;
    type type_158 is access type_157;
    type type_157 is access type_156;
    type type_156 is access type_155;
    type type_155 is access type_154;
    type type_154 is access type_153;
    type type_153 is access type_152;
    type type_152 is access type_151;
    type type_151 is access type_150;
    type type_150 is access type_149;
    type type_149 is access type_148;
    type type_148 is access type_147;
    type type_147 is access type_146;
    type type_146 is access type_145;
    type type_145 is access type_144;
    type type_144 is access type_143;
    type type_143 is access type_142;
    type type_142 is access type_141;
    type type_141 is access type_140;
    type type_140 is access type_139;
    type type_139 is access type_138;
    type type_138 is access type_137;
    type type_137 is access type_136;
    type type_136 is access type_135;
    type type_135 is access type_134;
    type type_134 is access type_133;
    type type_133 is access type_132;
    type type_132 is access type_131;
    type type_131 is access type_130;
    type type_130 is access type_129;
    type type_129 is access type_128;
    type type_128 is access type_127;
    type type_127 is access type_126;
    type type_126 is access type_125;
    type type_125 is access type_124;
    type type_124 is access type_123;
    type type_123 is access type_122;
    type type_122 is access type_121;
    type type_121 is access type_120;
    type type_120 is access type_119;
    type type_119 is access type_118;
    type type_118 is access type_117;
    type type_117 is access type_116;
    type type_116 is access type_115;
    type type_115 is access type_114;
    type type_114 is access type_113;
    type type_113 is access type_112;
    type type_112 is access type_111;
    type type_111 is access type_110;
    type type_110 is access type_109;
    type type_109 is access type_108;
    type type_108 is access type_107;
    type type_107 is access type_106;
    type type_106 is access type_105;
    type type_105 is access type_104;
    type type_104 is access type_103;
    type type_103 is access type_102;
    type type_102 is access type_101;
    type type_101 is access type_100;
    type type_100 is access type_99;
    type type_99 is access type_98;
    type type_98 is access type_97;
    type type_97 is access type_96;
    type type_96 is access type_95;
    type type_95 is access type_94;
    type type_94 is access type_93;
    type type_93 is access type_92;
    type type_92 is access type_91;
    type type_91 is access type_90;
    type type_90 is access type_89;
    type type_89 is access type_88;
    type type_88 is access type_87;
    type type_87 is access type_86;
    type type_86 is access type_85;
    type type_85 is access type_84;
    type type_84 is access type_83;
    type type_83 is access type_82;
    type type_82 is access type_81;
    type type_81 is access type_80;
    type type_80 is access type_79;
    type type_79 is access type_78;
    type type_78 is access type_77;
    type type_77 is access type_76;
    type type_76 is access type_75;
    type type_75 is access type_74;
    type type_74 is access type_73;
    type type_73 is access type_72;
    type type_72 is access type_71;
    type type_71 is access type_70;
    type type_70 is access type_69;
    type type_69 is access type_68;
    type type_68 is access type_67;
    type type_67 is access type_66;
    type type_66 is access type_65;
    type type_65 is access type_64;
    type type_64 is access type_63;
    type type_63 is access type_62;
    type type_62 is access type_61;
    type type_61 is access type_60;
    type type_60 is access type_59;
    type type_59 is access type_58;
    type type_58 is access type_57;
    type type_57 is access type_56;
    type type_56 is access type_55;
    type type_55 is access type_54;
    type type_54 is access type_53;
    type type_53 is access type_52;
    type type_52 is access type_51;
    type type_51 is access type_50;
    type type_50 is access type_49;
    type type_49 is access type_48;
    type type_48 is access type_47;
    type type_47 is access type_46;
    type type_46 is access type_45;
    type type_45 is access type_44;
    type type_44 is access type_43;
    type type_43 is access type_42;
    type type_42 is access type_41;
    type type_41 is access type_40;
    type type_40 is access type_39;
    type type_39 is access type_38;
    type type_38 is access type_37;
    type type_37 is access type_36;
    type type_36 is access type_35;
    type type_35 is access type_34;
    type type_34 is access type_33;
    type type_33 is access type_32;
    type type_32 is access type_31;
    type type_31 is access type_30;
    type type_30 is access type_29;
    type type_29 is access type_28;
    type type_28 is access type_27;
    type type_27 is access type_26;
    type type_26 is access type_25;
    type type_25 is access type_24;
    type type_24 is access type_23;
    type type_23 is access type_22;
    type type_22 is access type_21;
    type type_21 is access type_20;
    type type_20 is access type_19;
    type type_19 is access type_18;
    type type_18 is access type_17;
    type type_17 is access type_16;
    type type_16 is access type_15;
    type type_15 is access type_14;
    type type_14 is access type_13;
    type type_13 is access type_12;
    type type_12 is access type_11;
    type type_11 is access type_10;
    type type_10 is access type_9;
    type type_9 is access type_8;
    type type_8 is access type_7;
    type type_7 is access type_6;
    type type_6 is access type_5;
    type type_5 is access type_4;
    type type_4 is access type_3;
    type type_3 is access type_2;
    type type_2 is access type_1;
    type type_1 is range 1..500;
    begin
    null;
    end z000143;
::::::::::
Z000151.ADA
::::::::::
package z000151 is
    type type_1 is private;
    type type_2 is private;
    type type_3 is private;
    type type_4 is private;
    type type_5 is private;
    type type_6 is private;
    type type_7 is private;
    type type_8 is private;
    type type_9 is private;
    type type_10 is private;
    type type_11 is private;
    type type_12 is private;
    type type_13 is private;
    type type_14 is private;
    type type_15 is private;
    type type_16 is private;
    type type_17 is private;
    type type_18 is private;
    type type_19 is private;
    type type_20 is private;
    type type_21 is private;
    type type_22 is private;
    type type_23 is private;
    type type_24 is private;
    type type_25 is private;
    type type_26 is private;
    type type_27 is private;
    type type_28 is private;
    type type_29 is private;
    type type_30 is private;
    type type_31 is private;
    type type_32 is private;
    type type_33 is private;
    type type_34 is private;
    type type_35 is private;
    type type_36 is private;
    type type_37 is private;
    type type_38 is private;
    type type_39 is private;
    type type_40 is private;
    type type_41 is private;
    type type_42 is private;
    type type_43 is private;
    type type_44 is private;
    type type_45 is private;
    type type_46 is private;
    type type_47 is private;
    type type_48 is private;
    type type_49 is private;
    type type_50 is private;
    type type_51 is private;
    type type_52 is private;
    type type_53 is private;
    type type_54 is private;
    type type_55 is private;
    type type_56 is private;
    type type_57 is private;
    type type_58 is private;
    type type_59 is private;
    type type_60 is private;
    type type_61 is private;
    type type_62 is private;
    type type_63 is private;
    type type_64 is private;
    type type_65 is private;
    type type_66 is private;
    type type_67 is private;
    type type_68 is private;
    type type_69 is private;
    type type_70 is private;
    type type_71 is private;
    type type_72 is private;
    type type_73 is private;
    type type_74 is private;
    type type_75 is private;
    type type_76 is private;
    type type_77 is private;
    type type_78 is private;
    type type_79 is private;
    type type_80 is private;
    type type_81 is private;
    type type_82 is private;
    type type_83 is private;
    type type_84 is private;
    type type_85 is private;
    type type_86 is private;
    type type_87 is private;
    type type_88 is private;
    type type_89 is private;
    type type_90 is private;
    type type_91 is private;
    type type_92 is private;
    type type_93 is private;
    type type_94 is private;
    type type_95 is private;
    type type_96 is private;
    type type_97 is private;
    type type_98 is private;
    type type_99 is private;
    type type_100 is private;
    private
    type type_100 is access type_99;
    type type_99 is access type_98;
    type type_98 is access type_97;
    type type_97 is access type_96;
    type type_96 is access type_95;
    type type_95 is access type_94;
    type type_94 is access type_93;
    type type_93 is access type_92;
    type type_92 is access type_91;
    type type_91 is access type_90;
    type type_90 is access type_89;
    type type_89 is access type_88;
    type type_88 is access type_87;
    type type_87 is access type_86;
    type type_86 is access type_85;
    type type_85 is access type_84;
    type type_84 is access type_83;
    type type_83 is access type_82;
    type type_82 is access type_81;
    type type_81 is access type_80;
    type type_80 is access type_79;
    type type_79 is access type_78;
    type type_78 is access type_77;
    type type_77 is access type_76;
    type type_76 is access type_75;
    type type_75 is access type_74;
    type type_74 is access type_73;
    type type_73 is access type_72;
    type type_72 is access type_71;
    type type_71 is access type_70;
    type type_70 is access type_69;
    type type_69 is access type_68;
    type type_68 is access type_67;
    type type_67 is access type_66;
    type type_66 is access type_65;
    type type_65 is access type_64;
    type type_64 is access type_63;
    type type_63 is access type_62;
    type type_62 is access type_61;
    type type_61 is access type_60;
    type type_60 is access type_59;
    type type_59 is access type_58;
    type type_58 is access type_57;
    type type_57 is access type_56;
    type type_56 is access type_55;
    type type_55 is access type_54;
    type type_54 is access type_53;
    type type_53 is access type_52;
    type type_52 is access type_51;
    type type_51 is access type_50;
    type type_50 is access type_49;
    type type_49 is access type_48;
    type type_48 is access type_47;
    type type_47 is access type_46;
    type type_46 is access type_45;
    type type_45 is access type_44;
    type type_44 is access type_43;
    type type_43 is access type_42;
    type type_42 is access type_41;
    type type_41 is access type_40;
    type type_40 is access type_39;
    type type_39 is access type_38;
    type type_38 is access type_37;
    type type_37 is access type_36;
    type type_36 is access type_35;
    type type_35 is access type_34;
    type type_34 is access type_33;
    type type_33 is access type_32;
    type type_32 is access type_31;
    type type_31 is access type_30;
    type type_30 is access type_29;
    type type_29 is access type_28;
    type type_28 is access type_27;
    type type_27 is access type_26;
    type type_26 is access type_25;
    type type_25 is access type_24;
    type type_24 is access type_23;
    type type_23 is access type_22;
    type type_22 is access type_21;
    type type_21 is access type_20;
    type type_20 is access type_19;
    type type_19 is access type_18;
    type type_18 is access type_17;
    type type_17 is access type_16;
    type type_16 is access type_15;
    type type_15 is access type_14;
    type type_14 is access type_13;
    type type_13 is access type_12;
    type type_12 is access type_11;
    type type_11 is access type_10;
    type type_10 is access type_9;
    type type_9 is access type_8;
    type type_8 is access type_7;
    type type_7 is access type_6;
    type type_6 is access type_5;
    type type_5 is access type_4;
    type type_4 is access type_3;
    type type_3 is access type_2;
    type type_2 is access type_1;
    type type_1 is range 1..500;
    end z000151;
::::::::::
Z000152.ADA
::::::::::
package z000152 is
    type type_1 is private;
    type type_2 is private;
    type type_3 is private;
    type type_4 is private;
    type type_5 is private;
    type type_6 is private;
    type type_7 is private;
    type type_8 is private;
    type type_9 is private;
    type type_10 is private;
    type type_11 is private;
    type type_12 is private;
    type type_13 is private;
    type type_14 is private;
    type type_15 is private;
    type type_16 is private;
    type type_17 is private;
    type type_18 is private;
    type type_19 is private;
    type type_20 is private;
    type type_21 is private;
    type type_22 is private;
    type type_23 is private;
    type type_24 is private;
    type type_25 is private;
    type type_26 is private;
    type type_27 is private;
    type type_28 is private;
    type type_29 is private;
    type type_30 is private;
    type type_31 is private;
    type type_32 is private;
    type type_33 is private;
    type type_34 is private;
    type type_35 is private;
    type type_36 is private;
    type type_37 is private;
    type type_38 is private;
    type type_39 is private;
    type type_40 is private;
    type type_41 is private;
    type type_42 is private;
    type type_43 is private;
    type type_44 is private;
    type type_45 is private;
    type type_46 is private;
    type type_47 is private;
    type type_48 is private;
    type type_49 is private;
    type type_50 is private;
    type type_51 is private;
    type type_52 is private;
    type type_53 is private;
    type type_54 is private;
    type type_55 is private;
    type type_56 is private;
    type type_57 is private;
    type type_58 is private;
    type type_59 is private;
    type type_60 is private;
    type type_61 is private;
    type type_62 is private;
    type type_63 is private;
    type type_64 is private;
    type type_65 is private;
    type type_66 is private;
    type type_67 is private;
    type type_68 is private;
    type type_69 is private;
    type type_70 is private;
    type type_71 is private;
    type type_72 is private;
    type type_73 is private;
    type type_74 is private;
    type type_75 is private;
    type type_76 is private;
    type type_77 is private;
    type type_78 is private;
    type type_79 is private;
    type type_80 is private;
    type type_81 is private;
    type type_82 is private;
    type type_83 is private;
    type type_84 is private;
    type type_85 is private;
    type type_86 is private;
    type type_87 is private;
    type type_88 is private;
    type type_89 is private;
    type type_90 is private;
    type type_91 is private;
    type type_92 is private;
    type type_93 is private;
    type type_94 is private;
    type type_95 is private;
    type type_96 is private;
    type type_97 is private;
    type type_98 is private;
    type type_99 is private;
    type type_100 is private;
    type type_101 is private;
    type type_102 is private;
    type type_103 is private;
    type type_104 is private;
    type type_105 is private;
    type type_106 is private;
    type type_107 is private;
    type type_108 is private;
    type type_109 is private;
    type type_110 is private;
    type type_111 is private;
    type type_112 is private;
    type type_113 is private;
    type type_114 is private;
    type type_115 is private;
    type type_116 is private;
    type type_117 is private;
    type type_118 is private;
    type type_119 is private;
    type type_120 is private;
    type type_121 is private;
    type type_122 is private;
    type type_123 is private;
    type type_124 is private;
    type type_125 is private;
    type type_126 is private;
    type type_127 is private;
    type type_128 is private;
    type type_129 is private;
    type type_130 is private;
    type type_131 is private;
    type type_132 is private;
    type type_133 is private;
    type type_134 is private;
    type type_135 is private;
    type type_136 is private;
    type type_137 is private;
    type type_138 is private;
    type type_139 is private;
    type type_140 is private;
    type type_141 is private;
    type type_142 is private;
    type type_143 is private;
    type type_144 is private;
    type type_145 is private;
    type type_146 is private;
    type type_147 is private;
    type type_148 is private;
    type type_149 is private;
    type type_150 is private;
    type type_151 is private;
    type type_152 is private;
    type type_153 is private;
    type type_154 is private;
    type type_155 is private;
    type type_156 is private;
    type type_157 is private;
    type type_158 is private;
    type type_159 is private;
    type type_160 is private;
    type type_161 is private;
    type type_162 is private;
    type type_163 is private;
    type type_164 is private;
    type type_165 is private;
    type type_166 is private;
    type type_167 is private;
    type type_168 is private;
    type type_169 is private;
    type type_170 is private;
    type type_171 is private;
    type type_172 is private;
    type type_173 is private;
    type type_174 is private;
    type type_175 is private;
    type type_176 is private;
    type type_177 is private;
    type type_178 is private;
    type type_179 is private;
    type type_180 is private;
    type type_181 is private;
    type type_182 is private;
    type type_183 is private;
    type type_184 is private;
    type type_185 is private;
    type type_186 is private;
    type type_187 is private;
    type type_188 is private;
    type type_189 is private;
    type type_190 is private;
    type type_191 is private;
    type type_192 is private;
    type type_193 is private;
    type type_194 is private;
    type type_195 is private;
    type type_196 is private;
    type type_197 is private;
    type type_198 is private;
    type type_199 is private;
    type type_200 is private;
    private
    type type_200 is access type_199;
    type type_199 is access type_198;
    type type_198 is access type_197;
    type type_197 is access type_196;
    type type_196 is access type_195;
    type type_195 is access type_194;
    type type_194 is access type_193;
    type type_193 is access type_192;
    type type_192 is access type_191;
    type type_191 is access type_190;
    type type_190 is access type_189;
    type type_189 is access type_188;
    type type_188 is access type_187;
    type type_187 is access type_186;
    type type_186 is access type_185;
    type type_185 is access type_184;
    type type_184 is access type_183;
    type type_183 is access type_182;
    type type_182 is access type_181;
    type type_181 is access type_180;
    type type_180 is access type_179;
    type type_179 is access type_178;
    type type_178 is access type_177;
    type type_177 is access type_176;
    type type_176 is access type_175;
    type type_175 is access type_174;
    type type_174 is access type_173;
    type type_173 is access type_172;
    type type_172 is access type_171;
    type type_171 is access type_170;
    type type_170 is access type_169;
    type type_169 is access type_168;
    type type_168 is access type_167;
    type type_167 is access type_166;
    type type_166 is access type_165;
    type type_165 is access type_164;
    type type_164 is access type_163;
    type type_163 is access type_162;
    type type_162 is access type_161;
    type type_161 is access type_160;
    type type_160 is access type_159;
    type type_159 is access type_158;
    type type_158 is access type_157;
    type type_157 is access type_156;
    type type_156 is access type_155;
    type type_155 is access type_154;
    type type_154 is access type_153;
    type type_153 is access type_152;
    type type_152 is access type_151;
    type type_151 is access type_150;
    type type_150 is access type_149;
    type type_149 is access type_148;
    type type_148 is access type_147;
    type type_147 is access type_146;
    type type_146 is access type_145;
    type type_145 is access type_144;
    type type_144 is access type_143;
    type type_143 is access type_142;
    type type_142 is access type_141;
    type type_141 is access type_140;
    type type_140 is access type_139;
    type type_139 is access type_138;
    type type_138 is access type_137;
    type type_137 is access type_136;
    type type_136 is access type_135;
    type type_135 is access type_134;
    type type_134 is access type_133;
    type type_133 is access type_132;
    type type_132 is access type_131;
    type type_131 is access type_130;
    type type_130 is access type_129;
    type type_129 is access type_128;
    type type_128 is access type_127;
    type type_127 is access type_126;
    type type_126 is access type_125;
    type type_125 is access type_124;
    type type_124 is access type_123;
    type type_123 is access type_122;
    type type_122 is access type_121;
    type type_121 is access type_120;
    type type_120 is access type_119;
    type type_119 is access type_118;
    type type_118 is access type_117;
    type type_117 is access type_116;
    type type_116 is access type_115;
    type type_115 is access type_114;
    type type_114 is access type_113;
    type type_113 is access type_112;
    type type_112 is access type_111;
    type type_111 is access type_110;
    type type_110 is access type_109;
    type type_109 is access type_108;
    type type_108 is access type_107;
    type type_107 is access type_106;
    type type_106 is access type_105;
    type type_105 is access type_104;
    type type_104 is access type_103;
    type type_103 is access type_102;
    type type_102 is access type_101;
    type type_101 is access type_100;
    type type_100 is access type_99;
    type type_99 is access type_98;
    type type_98 is access type_97;
    type type_97 is access type_96;
    type type_96 is access type_95;
    type type_95 is access type_94;
    type type_94 is access type_93;
    type type_93 is access type_92;
    type type_92 is access type_91;
    type type_91 is access type_90;
    type type_90 is access type_89;
    type type_89 is access type_88;
    type type_88 is access type_87;
    type type_87 is access type_86;
    type type_86 is access type_85;
    type type_85 is access type_84;
    type type_84 is access type_83;
    type type_83 is access type_82;
    type type_82 is access type_81;
    type type_81 is access type_80;
    type type_80 is access type_79;
    type type_79 is access type_78;
    type type_78 is access type_77;
    type type_77 is access type_76;
    type type_76 is access type_75;
    type type_75 is access type_74;
    type type_74 is access type_73;
    type type_73 is access type_72;
    type type_72 is access type_71;
    type type_71 is access type_70;
    type type_70 is access type_69;
    type type_69 is access type_68;
    type type_68 is access type_67;
    type type_67 is access type_66;
    type type_66 is access type_65;
    type type_65 is access type_64;
    type type_64 is access type_63;
    type type_63 is access type_62;
    type type_62 is access type_61;
    type type_61 is access type_60;
    type type_60 is access type_59;
    type type_59 is access type_58;
    type type_58 is access type_57;
    type type_57 is access type_56;
    type type_56 is access type_55;
    type type_55 is access type_54;
    type type_54 is access type_53;
    type type_53 is access type_52;
    type type_52 is access type_51;
    type type_51 is access type_50;
    type type_50 is access type_49;
    type type_49 is access type_48;
    type type_48 is access type_47;
    type type_47 is access type_46;
    type type_46 is access type_45;
    type type_45 is access type_44;
    type type_44 is access type_43;
    type type_43 is access type_42;
    type type_42 is access type_41;
    type type_41 is access type_40;
    type type_40 is access type_39;
    type type_39 is access type_38;
    type type_38 is access type_37;
    type type_37 is access type_36;
    type type_36 is access type_35;
    type type_35 is access type_34;
    type type_34 is access type_33;
    type type_33 is access type_32;
    type type_32 is access type_31;
    type type_31 is access type_30;
    type type_30 is access type_29;
    type type_29 is access type_28;
    type type_28 is access type_27;
    type type_27 is access type_26;
    type type_26 is access type_25;
    type type_25 is access type_24;
    type type_24 is access type_23;
    type type_23 is access type_22;
    type type_22 is access type_21;
    type type_21 is access type_20;
    type type_20 is access type_19;
    type type_19 is access type_18;
    type type_18 is access type_17;
    type type_17 is access type_16;
    type type_16 is access type_15;
    type type_15 is access type_14;
    type type_14 is access type_13;
    type type_13 is access type_12;
    type type_12 is access type_11;
    type type_11 is access type_10;
    type type_10 is access type_9;
    type type_9 is access type_8;
    type type_8 is access type_7;
    type type_7 is access type_6;
    type type_6 is access type_5;
    type type_5 is access type_4;
    type type_4 is access type_3;
    type type_3 is access type_2;
    type type_2 is access type_1;
    type type_1 is range 1..500;
    end z000152;
::::::::::
Z000153.ADA
::::::::::
package z000153 is
    type type_1 is private;
    type type_2 is private;
    type type_3 is private;
    type type_4 is private;
    type type_5 is private;
    type type_6 is private;
    type type_7 is private;
    type type_8 is private;
    type type_9 is private;
    type type_10 is private;
    type type_11 is private;
    type type_12 is private;
    type type_13 is private;
    type type_14 is private;
    type type_15 is private;
    type type_16 is private;
    type type_17 is private;
    type type_18 is private;
    type type_19 is private;
    type type_20 is private;
    type type_21 is private;
    type type_22 is private;
    type type_23 is private;
    type type_24 is private;
    type type_25 is private;
    type type_26 is private;
    type type_27 is private;
    type type_28 is private;
    type type_29 is private;
    type type_30 is private;
    type type_31 is private;
    type type_32 is private;
    type type_33 is private;
    type type_34 is private;
    type type_35 is private;
    type type_36 is private;
    type type_37 is private;
    type type_38 is private;
    type type_39 is private;
    type type_40 is private;
    type type_41 is private;
    type type_42 is private;
    type type_43 is private;
    type type_44 is private;
    type type_45 is private;
    type type_46 is private;
    type type_47 is private;
    type type_48 is private;
    type type_49 is private;
    type type_50 is private;
    type type_51 is private;
    type type_52 is private;
    type type_53 is private;
    type type_54 is private;
    type type_55 is private;
    type type_56 is private;
    type type_57 is private;
    type type_58 is private;
    type type_59 is private;
    type type_60 is private;
    type type_61 is private;
    type type_62 is private;
    type type_63 is private;
    type type_64 is private;
    type type_65 is private;
    type type_66 is private;
    type type_67 is private;
    type type_68 is private;
    type type_69 is private;
    type type_70 is private;
    type type_71 is private;
    type type_72 is private;
    type type_73 is private;
    type type_74 is private;
    type type_75 is private;
    type type_76 is private;
    type type_77 is private;
    type type_78 is private;
    type type_79 is private;
    type type_80 is private;
    type type_81 is private;
    type type_82 is private;
    type type_83 is private;
    type type_84 is private;
    type type_85 is private;
    type type_86 is private;
    type type_87 is private;
    type type_88 is private;
    type type_89 is private;
    type type_90 is private;
    type type_91 is private;
    type type_92 is private;
    type type_93 is private;
    type type_94 is private;
    type type_95 is private;
    type type_96 is private;
    type type_97 is private;
    type type_98 is private;
    type type_99 is private;
    type type_100 is private;
    type type_101 is private;
    type type_102 is private;
    type type_103 is private;
    type type_104 is private;
    type type_105 is private;
    type type_106 is private;
    type type_107 is private;
    type type_108 is private;
    type type_109 is private;
    type type_110 is private;
    type type_111 is private;
    type type_112 is private;
    type type_113 is private;
    type type_114 is private;
    type type_115 is private;
    type type_116 is private;
    type type_117 is private;
    type type_118 is private;
    type type_119 is private;
    type type_120 is private;
    type type_121 is private;
    type type_122 is private;
    type type_123 is private;
    type type_124 is private;
    type type_125 is private;
    type type_126 is private;
    type type_127 is private;
    type type_128 is private;
    type type_129 is private;
    type type_130 is private;
    type type_131 is private;
    type type_132 is private;
    type type_133 is private;
    type type_134 is private;
    type type_135 is private;
    type type_136 is private;
    type type_137 is private;
    type type_138 is private;
    type type_139 is private;
    type type_140 is private;
    type type_141 is private;
    type type_142 is private;
    type type_143 is private;
    type type_144 is private;
    type type_145 is private;
    type type_146 is private;
    type type_147 is private;
    type type_148 is private;
    type type_149 is private;
    type type_150 is private;
    type type_151 is private;
    type type_152 is private;
    type type_153 is private;
    type type_154 is private;
    type type_155 is private;
    type type_156 is private;
    type type_157 is private;
    type type_158 is private;
    type type_159 is private;
    type type_160 is private;
    type type_161 is private;
    type type_162 is private;
    type type_163 is private;
    type type_164 is private;
    type type_165 is private;
    type type_166 is private;
    type type_167 is private;
    type type_168 is private;
    type type_169 is private;
    type type_170 is private;
    type type_171 is private;
    type type_172 is private;
    type type_173 is private;
    type type_174 is private;
    type type_175 is private;
    type type_176 is private;
    type type_177 is private;
    type type_178 is private;
    type type_179 is private;
    type type_180 is private;
    type type_181 is private;
    type type_182 is private;
    type type_183 is private;
    type type_184 is private;
    type type_185 is private;
    type type_186 is private;
    type type_187 is private;
    type type_188 is private;
    type type_189 is private;
    type type_190 is private;
    type type_191 is private;
    type type_192 is private;
    type type_193 is private;
    type type_194 is private;
    type type_195 is private;
    type type_196 is private;
    type type_197 is private;
    type type_198 is private;
    type type_199 is private;
    type type_200 is private;
    type type_201 is private;
    type type_202 is private;
    type type_203 is private;
    type type_204 is private;
    type type_205 is private;
    type type_206 is private;
    type type_207 is private;
    type type_208 is private;
    type type_209 is private;
    type type_210 is private;
    type type_211 is private;
    type type_212 is private;
    type type_213 is private;
    type type_214 is private;
    type type_215 is private;
    type type_216 is private;
    type type_217 is private;
    type type_218 is private;
    type type_219 is private;
    type type_220 is private;
    type type_221 is private;
    type type_222 is private;
    type type_223 is private;
    type type_224 is private;
    type type_225 is private;
    type type_226 is private;
    type type_227 is private;
    type type_228 is private;
    type type_229 is private;
    type type_230 is private;
    type type_231 is private;
    type type_232 is private;
    type type_233 is private;
    type type_234 is private;
    type type_235 is private;
    type type_236 is private;
    type type_237 is private;
    type type_238 is private;
    type type_239 is private;
    type type_240 is private;
    type type_241 is private;
    type type_242 is private;
    type type_243 is private;
    type type_244 is private;
    type type_245 is private;
    type type_246 is private;
    type type_247 is private;
    type type_248 is private;
    type type_249 is private;
    type type_250 is private;
    type type_251 is private;
    type type_252 is private;
    type type_253 is private;
    type type_254 is private;
    type type_255 is private;
    type type_256 is private;
    type type_257 is private;
    type type_258 is private;
    type type_259 is private;
    type type_260 is private;
    type type_261 is private;
    type type_262 is private;
    type type_263 is private;
    type type_264 is private;
    type type_265 is private;
    type type_266 is private;
    type type_267 is private;
    type type_268 is private;
    type type_269 is private;
    type type_270 is private;
    type type_271 is private;
    type type_272 is private;
    type type_273 is private;
    type type_274 is private;
    type type_275 is private;
    type type_276 is private;
    type type_277 is private;
    type type_278 is private;
    type type_279 is private;
    type type_280 is private;
    type type_281 is private;
    type type_282 is private;
    type type_283 is private;
    type type_284 is private;
    type type_285 is private;
    type type_286 is private;
    type type_287 is private;
    type type_288 is private;
    type type_289 is private;
    type type_290 is private;
    type type_291 is private;
    type type_292 is private;
    type type_293 is private;
    type type_294 is private;
    type type_295 is private;
    type type_296 is private;
    type type_297 is private;
    type type_298 is private;
    type type_299 is private;
    type type_300 is private;
    type type_301 is private;
    type type_302 is private;
    type type_303 is private;
    type type_304 is private;
    type type_305 is private;
    type type_306 is private;
    type type_307 is private;
    type type_308 is private;
    type type_309 is private;
    type type_310 is private;
    type type_311 is private;
    type type_312 is private;
    type type_313 is private;
    type type_314 is private;
    type type_315 is private;
    type type_316 is private;
    type type_317 is private;
    type type_318 is private;
    type type_319 is private;
    type type_320 is private;
    type type_321 is private;
    type type_322 is private;
    type type_323 is private;
    type type_324 is private;
    type type_325 is private;
    type type_326 is private;
    type type_327 is private;
    type type_328 is private;
    type type_329 is private;
    type type_330 is private;
    type type_331 is private;
    type type_332 is private;
    type type_333 is private;
    type type_334 is private;
    type type_335 is private;
    type type_336 is private;
    type type_337 is private;
    type type_338 is private;
    type type_339 is private;
    type type_340 is private;
    type type_341 is private;
    type type_342 is private;
    type type_343 is private;
    type type_344 is private;
    type type_345 is private;
    type type_346 is private;
    type type_347 is private;
    type type_348 is private;
    type type_349 is private;
    type type_350 is private;
    type type_351 is private;
    type type_352 is private;
    type type_353 is private;
    type type_354 is private;
    type type_355 is private;
    type type_356 is private;
    type type_357 is private;
    type type_358 is private;
    type type_359 is private;
    type type_360 is private;
    type type_361 is private;
    type type_362 is private;
    type type_363 is private;
    type type_364 is private;
    type type_365 is private;
    type type_366 is private;
    type type_367 is private;
    type type_368 is private;
    type type_369 is private;
    type type_370 is private;
    type type_371 is private;
    type type_372 is private;
    type type_373 is private;
    type type_374 is private;
    type type_375 is private;
    type type_376 is private;
    type type_377 is private;
    type type_378 is private;
    type type_379 is private;
    type type_380 is private;
    type type_381 is private;
    type type_382 is private;
    type type_383 is private;
    type type_384 is private;
    type type_385 is private;
    type type_386 is private;
    type type_387 is private;
    type type_388 is private;
    type type_389 is private;
    type type_390 is private;
    type type_391 is private;
    type type_392 is private;
    type type_393 is private;
    type type_394 is private;
    type type_395 is private;
    type type_396 is private;
    type type_397 is private;
    type type_398 is private;
    type type_399 is private;
    type type_400 is private;
    type type_401 is private;
    type type_402 is private;
    type type_403 is private;
    type type_404 is private;
    type type_405 is private;
    type type_406 is private;
    type type_407 is private;
    type type_408 is private;
    type type_409 is private;
    type type_410 is private;
    type type_411 is private;
    type type_412 is private;
    type type_413 is private;
    type type_414 is private;
    type type_415 is private;
    type type_416 is private;
    type type_417 is private;
    type type_418 is private;
    type type_419 is private;
    type type_420 is private;
    type type_421 is private;
    type type_422 is private;
    type type_423 is private;
    type type_424 is private;
    type type_425 is private;
    type type_426 is private;
    type type_427 is private;
    type type_428 is private;
    type type_429 is private;
    type type_430 is private;
    type type_431 is private;
    type type_432 is private;
    type type_433 is private;
    type type_434 is private;
    type type_435 is private;
    type type_436 is private;
    type type_437 is private;
    type type_438 is private;
    type type_439 is private;
    type type_440 is private;
    type type_441 is private;
    type type_442 is private;
    type type_443 is private;
    type type_444 is private;
    type type_445 is private;
    type type_446 is private;
    type type_447 is private;
    type type_448 is private;
    type type_449 is private;
    type type_450 is private;
    type type_451 is private;
    type type_452 is private;
    type type_453 is private;
    type type_454 is private;
    type type_455 is private;
    type type_456 is private;
    type type_457 is private;
    type type_458 is private;
    type type_459 is private;
    type type_460 is private;
    type type_461 is private;
    type type_462 is private;
    type type_463 is private;
    type type_464 is private;
    type type_465 is private;
    type type_466 is private;
    type type_467 is private;
    type type_468 is private;
    type type_469 is private;
    type type_470 is private;
    type type_471 is private;
    type type_472 is private;
    type type_473 is private;
    type type_474 is private;
    type type_475 is private;
    type type_476 is private;
    type type_477 is private;
    type type_478 is private;
    type type_479 is private;
    type type_480 is private;
    type type_481 is private;
    type type_482 is private;
    type type_483 is private;
    type type_484 is private;
    type type_485 is private;
    type type_486 is private;
    type type_487 is private;
    type type_488 is private;
    type type_489 is private;
    type type_490 is private;
    type type_491 is private;
    type type_492 is private;
    type type_493 is private;
    type type_494 is private;
    type type_495 is private;
    type type_496 is private;
    type type_497 is private;
    type type_498 is private;
    type type_499 is private;
    type type_500 is private;
    private
    type type_500 is access type_499;
    type type_499 is access type_498;
    type type_498 is access type_497;
    type type_497 is access type_496;
    type type_496 is access type_495;
    type type_495 is access type_494;
    type type_494 is access type_493;
    type type_493 is access type_492;
    type type_492 is access type_491;
    type type_491 is access type_490;
    type type_490 is access type_489;
    type type_489 is access type_488;
    type type_488 is access type_487;
    type type_487 is access type_486;
    type type_486 is access type_485;
    type type_485 is access type_484;
    type type_484 is access type_483;
    type type_483 is access type_482;
    type type_482 is access type_481;
    type type_481 is access type_480;
    type type_480 is access type_479;
    type type_479 is access type_478;
    type type_478 is access type_477;
    type type_477 is access type_476;
    type type_476 is access type_475;
    type type_475 is access type_474;
    type type_474 is access type_473;
    type type_473 is access type_472;
    type type_472 is access type_471;
    type type_471 is access type_470;
    type type_470 is access type_469;
    type type_469 is access type_468;
    type type_468 is access type_467;
    type type_467 is access type_466;
    type type_466 is access type_465;
    type type_465 is access type_464;
    type type_464 is access type_463;
    type type_463 is access type_462;
    type type_462 is access type_461;
    type type_461 is access type_460;
    type type_460 is access type_459;
    type type_459 is access type_458;
    type type_458 is access type_457;
    type type_457 is access type_456;
    type type_456 is access type_455;
    type type_455 is access type_454;
    type type_454 is access type_453;
    type type_453 is access type_452;
    type type_452 is access type_451;
    type type_451 is access type_450;
    type type_450 is access type_449;
    type type_449 is access type_448;
    type type_448 is access type_447;
    type type_447 is access type_446;
    type type_446 is access type_445;
    type type_445 is access type_444;
    type type_444 is access type_443;
    type type_443 is access type_442;
    type type_442 is access type_441;
    type type_441 is access type_440;
    type type_440 is access type_439;
    type type_439 is access type_438;
    type type_438 is access type_437;
    type type_437 is access type_436;
    type type_436 is access type_435;
    type type_435 is access type_434;
    type type_434 is access type_433;
    type type_433 is access type_432;
    type type_432 is access type_431;
    type type_431 is access type_430;
    type type_430 is access type_429;
    type type_429 is access type_428;
    type type_428 is access type_427;
    type type_427 is access type_426;
    type type_426 is access type_425;
    type type_425 is access type_424;
    type type_424 is access type_423;
    type type_423 is access type_422;
    type type_422 is access type_421;
    type type_421 is access type_420;
    type type_420 is access type_419;
    type type_419 is access type_418;
    type type_418 is access type_417;
    type type_417 is access type_416;
    type type_416 is access type_415;
    type type_415 is access type_414;
    type type_414 is access type_413;
    type type_413 is access type_412;
    type type_412 is access type_411;
    type type_411 is access type_410;
    type type_410 is access type_409;
    type type_409 is access type_408;
    type type_408 is access type_407;
    type type_407 is access type_406;
    type type_406 is access type_405;
    type type_405 is access type_404;
    type type_404 is access type_403;
    type type_403 is access type_402;
    type type_402 is access type_401;
    type type_401 is access type_400;
    type type_400 is access type_399;
    type type_399 is access type_398;
    type type_398 is access type_397;
    type type_397 is access type_396;
    type type_396 is access type_395;
    type type_395 is access type_394;
    type type_394 is access type_393;
    type type_393 is access type_392;
    type type_392 is access type_391;
    type type_391 is access type_390;
    type type_390 is access type_389;
    type type_389 is access type_388;
    type type_388 is access type_387;
    type type_387 is access type_386;
    type type_386 is access type_385;
    type type_385 is access type_384;
    type type_384 is access type_383;
    type type_383 is access type_382;
    type type_382 is access type_381;
    type type_381 is access type_380;
    type type_380 is access type_379;
    type type_379 is access type_378;
    type type_378 is access type_377;
    type type_377 is access type_376;
    type type_376 is access type_375;
    type type_375 is access type_374;
    type type_374 is access type_373;
    type type_373 is access type_372;
    type type_372 is access type_371;
    type type_371 is access type_370;
    type type_370 is access type_369;
    type type_369 is access type_368;
    type type_368 is access type_367;
    type type_367 is access type_366;
    type type_366 is access type_365;
    type type_365 is access type_364;
    type type_364 is access type_363;
    type type_363 is access type_362;
    type type_362 is access type_361;
    type type_361 is access type_360;
    type type_360 is access type_359;
    type type_359 is access type_358;
    type type_358 is access type_357;
    type type_357 is access type_356;
    type type_356 is access type_355;
    type type_355 is access type_354;
    type type_354 is access type_353;
    type type_353 is access type_352;
    type type_352 is access type_351;
    type type_351 is access type_350;
    type type_350 is access type_349;
    type type_349 is access type_348;
    type type_348 is access type_347;
    type type_347 is access type_346;
    type type_346 is access type_345;
    type type_345 is access type_344;
    type type_344 is access type_343;
    type type_343 is access type_342;
    type type_342 is access type_341;
    type type_341 is access type_340;
    type type_340 is access type_339;
    type type_339 is access type_338;
    type type_338 is access type_337;
    type type_337 is access type_336;
    type type_336 is access type_335;
    type type_335 is access type_334;
    type type_334 is access type_333;
    type type_333 is access type_332;
    type type_332 is access type_331;
    type type_331 is access type_330;
    type type_330 is access type_329;
    type type_329 is access type_328;
    type type_328 is access type_327;
    type type_327 is access type_326;
    type type_326 is access type_325;
    type type_325 is access type_324;
    type type_324 is access type_323;
    type type_323 is access type_322;
    type type_322 is access type_321;
    type type_321 is access type_320;
    type type_320 is access type_319;
    type type_319 is access type_318;
    type type_318 is access type_317;
    type type_317 is access type_316;
    type type_316 is access type_315;
    type type_315 is access type_314;
    type type_314 is access type_313;
    type type_313 is access type_312;
    type type_312 is access type_311;
    type type_311 is access type_310;
    type type_310 is access type_309;
    type type_309 is access type_308;
    type type_308 is access type_307;
    type type_307 is access type_306;
    type type_306 is access type_305;
    type type_305 is access type_304;
    type type_304 is access type_303;
    type type_303 is access type_302;
    type type_302 is access type_301;
    type type_301 is access type_300;
    type type_300 is access type_299;
    type type_299 is access type_298;
    type type_298 is access type_297;
    type type_297 is access type_296;
    type type_296 is access type_295;
    type type_295 is access type_294;
    type type_294 is access type_293;
    type type_293 is access type_292;
    type type_292 is access type_291;
    type type_291 is access type_290;
    type type_290 is access type_289;
    type type_289 is access type_288;
    type type_288 is access type_287;
    type type_287 is access type_286;
    type type_286 is access type_285;
    type type_285 is access type_284;
    type type_284 is access type_283;
    type type_283 is access type_282;
    type type_282 is access type_281;
    type type_281 is access type_280;
    type type_280 is access type_279;
    type type_279 is access type_278;
    type type_278 is access type_277;
    type type_277 is access type_276;
    type type_276 is access type_275;
    type type_275 is access type_274;
    type type_274 is access type_273;
    type type_273 is access type_272;
    type type_272 is access type_271;
    type type_271 is access type_270;
    type type_270 is access type_269;
    type type_269 is access type_268;
    type type_268 is access type_267;
    type type_267 is access type_266;
    type type_266 is access type_265;
    type type_265 is access type_264;
    type type_264 is access type_263;
    type type_263 is access type_262;
    type type_262 is access type_261;
    type type_261 is access type_260;
    type type_260 is access type_259;
    type type_259 is access type_258;
    type type_258 is access type_257;
    type type_257 is access type_256;
    type type_256 is access type_255;
    type type_255 is access type_254;
    type type_254 is access type_253;
    type type_253 is access type_252;
    type type_252 is access type_251;
    type type_251 is access type_250;
    type type_250 is access type_249;
    type type_249 is access type_248;
    type type_248 is access type_247;
    type type_247 is access type_246;
    type type_246 is access type_245;
    type type_245 is access type_244;
    type type_244 is access type_243;
    type type_243 is access type_242;
    type type_242 is access type_241;
    type type_241 is access type_240;
    type type_240 is access type_239;
    type type_239 is access type_238;
    type type_238 is access type_237;
    type type_237 is access type_236;
    type type_236 is access type_235;
    type type_235 is access type_234;
    type type_234 is access type_233;
    type type_233 is access type_232;
    type type_232 is access type_231;
    type type_231 is access type_230;
    type type_230 is access type_229;
    type type_229 is access type_228;
    type type_228 is access type_227;
    type type_227 is access type_226;
    type type_226 is access type_225;
    type type_225 is access type_224;
    type type_224 is access type_223;
    type type_223 is access type_222;
    type type_222 is access type_221;
    type type_221 is access type_220;
    type type_220 is access type_219;
    type type_219 is access type_218;
    type type_218 is access type_217;
    type type_217 is access type_216;
    type type_216 is access type_215;
    type type_215 is access type_214;
    type type_214 is access type_213;
    type type_213 is access type_212;
    type type_212 is access type_211;
    type type_211 is access type_210;
    type type_210 is access type_209;
    type type_209 is access type_208;
    type type_208 is access type_207;
    type type_207 is access type_206;
    type type_206 is access type_205;
    type type_205 is access type_204;
    type type_204 is access type_203;
    type type_203 is access type_202;
    type type_202 is access type_201;
    type type_201 is access type_200;
    type type_200 is access type_199;
    type type_199 is access type_198;
    type type_198 is access type_197;
    type type_197 is access type_196;
    type type_196 is access type_195;
    type type_195 is access type_194;
    type type_194 is access type_193;
    type type_193 is access type_192;
    type type_192 is access type_191;
    type type_191 is access type_190;
    type type_190 is access type_189;
    type type_189 is access type_188;
    type type_188 is access type_187;
    type type_187 is access type_186;
    type type_186 is access type_185;
    type type_185 is access type_184;
    type type_184 is access type_183;
    type type_183 is access type_182;
    type type_182 is access type_181;
    type type_181 is access type_180;
    type type_180 is access type_179;
    type type_179 is access type_178;
    type type_178 is access type_177;
    type type_177 is access type_176;
    type type_176 is access type_175;
    type type_175 is access type_174;
    type type_174 is access type_173;
    type type_173 is access type_172;
    type type_172 is access type_171;
    type type_171 is access type_170;
    type type_170 is access type_169;
    type type_169 is access type_168;
    type type_168 is access type_167;
    type type_167 is access type_166;
    type type_166 is access type_165;
    type type_165 is access type_164;
    type type_164 is access type_163;
    type type_163 is access type_162;
    type type_162 is access type_161;
    type type_161 is access type_160;
    type type_160 is access type_159;
    type type_159 is access type_158;
    type type_158 is access type_157;
    type type_157 is access type_156;
    type type_156 is access type_155;
    type type_155 is access type_154;
    type type_154 is access type_153;
    type type_153 is access type_152;
    type type_152 is access type_151;
    type type_151 is access type_150;
    type type_150 is access type_149;
    type type_149 is access type_148;
    type type_148 is access type_147;
    type type_147 is access type_146;
    type type_146 is access type_145;
    type type_145 is access type_144;
    type type_144 is access type_143;
    type type_143 is access type_142;
    type type_142 is access type_141;
    type type_141 is access type_140;
    type type_140 is access type_139;
    type type_139 is access type_138;
    type type_138 is access type_137;
    type type_137 is access type_136;
    type type_136 is access type_135;
    type type_135 is access type_134;
    type type_134 is access type_133;
    type type_133 is access type_132;
    type type_132 is access type_131;
    type type_131 is access type_130;
    type type_130 is access type_129;
    type type_129 is access type_128;
    type type_128 is access type_127;
    type type_127 is access type_126;
    type type_126 is access type_125;
    type type_125 is access type_124;
    type type_124 is access type_123;
    type type_123 is access type_122;
    type type_122 is access type_121;
    type type_121 is access type_120;
    type type_120 is access type_119;
    type type_119 is access type_118;
    type type_118 is access type_117;
    type type_117 is access type_116;
    type type_116 is access type_115;
    type type_115 is access type_114;
    type type_114 is access type_113;
    type type_113 is access type_112;
    type type_112 is access type_111;
    type type_111 is access type_110;
    type type_110 is access type_109;
    type type_109 is access type_108;
    type type_108 is access type_107;
    type type_107 is access type_106;
    type type_106 is access type_105;
    type type_105 is access type_104;
    type type_104 is access type_103;
    type type_103 is access type_102;
    type type_102 is access type_101;
    type type_101 is access type_100;
    type type_100 is access type_99;
    type type_99 is access type_98;
    type type_98 is access type_97;
    type type_97 is access type_96;
    type type_96 is access type_95;
    type type_95 is access type_94;
    type type_94 is access type_93;
    type type_93 is access type_92;
    type type_92 is access type_91;
    type type_91 is access type_90;
    type type_90 is access type_89;
    type type_89 is access type_88;
    type type_88 is access type_87;
    type type_87 is access type_86;
    type type_86 is access type_85;
    type type_85 is access type_84;
    type type_84 is access type_83;
    type type_83 is access type_82;
    type type_82 is access type_81;
    type type_81 is access type_80;
    type type_80 is access type_79;
    type type_79 is access type_78;
    type type_78 is access type_77;
    type type_77 is access type_76;
    type type_76 is access type_75;
    type type_75 is access type_74;
    type type_74 is access type_73;
    type type_73 is access type_72;
    type type_72 is access type_71;
    type type_71 is access type_70;
    type type_70 is access type_69;
    type type_69 is access type_68;
    type type_68 is access type_67;
    type type_67 is access type_66;
    type type_66 is access type_65;
    type type_65 is access type_64;
    type type_64 is access type_63;
    type type_63 is access type_62;
    type type_62 is access type_61;
    type type_61 is access type_60;
    type type_60 is access type_59;
    type type_59 is access type_58;
    type type_58 is access type_57;
    type type_57 is access type_56;
    type type_56 is access type_55;
    type type_55 is access type_54;
    type type_54 is access type_53;
    type type_53 is access type_52;
    type type_52 is access type_51;
    type type_51 is access type_50;
    type type_50 is access type_49;
    type type_49 is access type_48;
    type type_48 is access type_47;
    type type_47 is access type_46;
    type type_46 is access type_45;
    type type_45 is access type_44;
    type type_44 is access type_43;
    type type_43 is access type_42;
    type type_42 is access type_41;
    type type_41 is access type_40;
    type type_40 is access type_39;
    type type_39 is access type_38;
    type type_38 is access type_37;
    type type_37 is access type_36;
    type type_36 is access type_35;
    type type_35 is access type_34;
    type type_34 is access type_33;
    type type_33 is access type_32;
    type type_32 is access type_31;
    type type_31 is access type_30;
    type type_30 is access type_29;
    type type_29 is access type_28;
    type type_28 is access type_27;
    type type_27 is access type_26;
    type type_26 is access type_25;
    type type_25 is access type_24;
    type type_24 is access type_23;
    type type_23 is access type_22;
    type type_22 is access type_21;
    type type_21 is access type_20;
    type type_20 is access type_19;
    type type_19 is access type_18;
    type type_18 is access type_17;
    type type_17 is access type_16;
    type type_16 is access type_15;
    type type_15 is access type_14;
    type type_14 is access type_13;
    type type_13 is access type_12;
    type type_12 is access type_11;
    type type_11 is access type_10;
    type type_10 is access type_9;
    type type_9 is access type_8;
    type type_8 is access type_7;
    type type_7 is access type_6;
    type type_6 is access type_5;
    type type_5 is access type_4;
    type type_4 is access type_3;
    type type_3 is access type_2;
    type type_2 is access type_1;
    type type_1 is range 1..500;
    end z000153;
::::::::::
Z000161.ADA
::::::::::
procedure z000161 is
    procedure procedure_1 is begin null; end procedure_1;
    procedure procedure_2 is begin null; end procedure_2;
    procedure procedure_3 is begin null; end procedure_3;
    procedure procedure_4 is begin null; end procedure_4;
    procedure procedure_5 is begin null; end procedure_5;
    procedure procedure_6 is begin null; end procedure_6;
    procedure procedure_7 is begin null; end procedure_7;
    procedure procedure_8 is begin null; end procedure_8;
    procedure procedure_9 is begin null; end procedure_9;
    procedure procedure_10 is begin null; end procedure_10;
    procedure procedure_11 is begin null; end procedure_11;
    procedure procedure_12 is begin null; end procedure_12;
    procedure procedure_13 is begin null; end procedure_13;
    procedure procedure_14 is begin null; end procedure_14;
    procedure procedure_15 is begin null; end procedure_15;
    procedure procedure_16 is begin null; end procedure_16;
    procedure procedure_17 is begin null; end procedure_17;
    procedure procedure_18 is begin null; end procedure_18;
    procedure procedure_19 is begin null; end procedure_19;
    procedure procedure_20 is begin null; end procedure_20;
    procedure procedure_21 is begin null; end procedure_21;
    procedure procedure_22 is begin null; end procedure_22;
    procedure procedure_23 is begin null; end procedure_23;
    procedure procedure_24 is begin null; end procedure_24;
    procedure procedure_25 is begin null; end procedure_25;
    procedure procedure_26 is begin null; end procedure_26;
    procedure procedure_27 is begin null; end procedure_27;
    procedure procedure_28 is begin null; end procedure_28;
    procedure procedure_29 is begin null; end procedure_29;
    procedure procedure_30 is begin null; end procedure_30;
    procedure procedure_31 is begin null; end procedure_31;
    procedure procedure_32 is begin null; end procedure_32;
    procedure procedure_33 is begin null; end procedure_33;
    procedure procedure_34 is begin null; end procedure_34;
    procedure procedure_35 is begin null; end procedure_35;
    procedure procedure_36 is begin null; end procedure_36;
    procedure procedure_37 is begin null; end procedure_37;
    procedure procedure_38 is begin null; end procedure_38;
    procedure procedure_39 is begin null; end procedure_39;
    procedure procedure_40 is begin null; end procedure_40;
    procedure procedure_41 is begin null; end procedure_41;
    procedure procedure_42 is begin null; end procedure_42;
    procedure procedure_43 is begin null; end procedure_43;
    procedure procedure_44 is begin null; end procedure_44;
    procedure procedure_45 is begin null; end procedure_45;
    procedure procedure_46 is begin null; end procedure_46;
    procedure procedure_47 is begin null; end procedure_47;
    procedure procedure_48 is begin null; end procedure_48;
    procedure procedure_49 is begin null; end procedure_49;
    procedure procedure_50 is begin null; end procedure_50;
    procedure procedure_51 is begin null; end procedure_51;
    procedure procedure_52 is begin null; end procedure_52;
    procedure procedure_53 is begin null; end procedure_53;
    procedure procedure_54 is begin null; end procedure_54;
    procedure procedure_55 is begin null; end procedure_55;
    procedure procedure_56 is begin null; end procedure_56;
    procedure procedure_57 is begin null; end procedure_57;
    procedure procedure_58 is begin null; end procedure_58;
    procedure procedure_59 is begin null; end procedure_59;
    procedure procedure_60 is begin null; end procedure_60;
    procedure procedure_61 is begin null; end procedure_61;
    procedure procedure_62 is begin null; end procedure_62;
    procedure procedure_63 is begin null; end procedure_63;
    procedure procedure_64 is begin null; end procedure_64;
    procedure procedure_65 is begin null; end procedure_65;
    procedure procedure_66 is begin null; end procedure_66;
    procedure procedure_67 is begin null; end procedure_67;
    procedure procedure_68 is begin null; end procedure_68;
    procedure procedure_69 is begin null; end procedure_69;
    procedure procedure_70 is begin null; end procedure_70;
    procedure procedure_71 is begin null; end procedure_71;
    procedure procedure_72 is begin null; end procedure_72;
    procedure procedure_73 is begin null; end procedure_73;
    procedure procedure_74 is begin null; end procedure_74;
    procedure procedure_75 is begin null; end procedure_75;
    procedure procedure_76 is begin null; end procedure_76;
    procedure procedure_77 is begin null; end procedure_77;
    procedure procedure_78 is begin null; end procedure_78;
    procedure procedure_79 is begin null; end procedure_79;
    procedure procedure_80 is begin null; end procedure_80;
    procedure procedure_81 is begin null; end procedure_81;
    procedure procedure_82 is begin null; end procedure_82;
    procedure procedure_83 is begin null; end procedure_83;
    procedure procedure_84 is begin null; end procedure_84;
    procedure procedure_85 is begin null; end procedure_85;
    procedure procedure_86 is begin null; end procedure_86;
    procedure procedure_87 is begin null; end procedure_87;
    procedure procedure_88 is begin null; end procedure_88;
    procedure procedure_89 is begin null; end procedure_89;
    procedure procedure_90 is begin null; end procedure_90;
    procedure procedure_91 is begin null; end procedure_91;
    procedure procedure_92 is begin null; end procedure_92;
    procedure procedure_93 is begin null; end procedure_93;
    procedure procedure_94 is begin null; end procedure_94;
    procedure procedure_95 is begin null; end procedure_95;
    procedure procedure_96 is begin null; end procedure_96;
    procedure procedure_97 is begin null; end procedure_97;
    procedure procedure_98 is begin null; end procedure_98;
    procedure procedure_99 is begin null; end procedure_99;
    procedure procedure_100 is begin null; end procedure_100;
    begin
    null;
end z000161;
::::::::::
Z000162.ADA
::::::::::
procedure z000162 is
    procedure procedure_1 is begin null; end procedure_1;
    procedure procedure_2 is begin null; end procedure_2;
    procedure procedure_3 is begin null; end procedure_3;
    procedure procedure_4 is begin null; end procedure_4;
    procedure procedure_5 is begin null; end procedure_5;
    procedure procedure_6 is begin null; end procedure_6;
    procedure procedure_7 is begin null; end procedure_7;
    procedure procedure_8 is begin null; end procedure_8;
    procedure procedure_9 is begin null; end procedure_9;
    procedure procedure_10 is begin null; end procedure_10;
    procedure procedure_11 is begin null; end procedure_11;
    procedure procedure_12 is begin null; end procedure_12;
    procedure procedure_13 is begin null; end procedure_13;
    procedure procedure_14 is begin null; end procedure_14;
    procedure procedure_15 is begin null; end procedure_15;
    procedure procedure_16 is begin null; end procedure_16;
    procedure procedure_17 is begin null; end procedure_17;
    procedure procedure_18 is begin null; end procedure_18;
    procedure procedure_19 is begin null; end procedure_19;
    procedure procedure_20 is begin null; end procedure_20;
    procedure procedure_21 is begin null; end procedure_21;
    procedure procedure_22 is begin null; end procedure_22;
    procedure procedure_23 is begin null; end procedure_23;
    procedure procedure_24 is begin null; end procedure_24;
    procedure procedure_25 is begin null; end procedure_25;
    procedure procedure_26 is begin null; end procedure_26;
    procedure procedure_27 is begin null; end procedure_27;
    procedure procedure_28 is begin null; end procedure_28;
    procedure procedure_29 is begin null; end procedure_29;
    procedure procedure_30 is begin null; end procedure_30;
    procedure procedure_31 is begin null; end procedure_31;
    procedure procedure_32 is begin null; end procedure_32;
    procedure procedure_33 is begin null; end procedure_33;
    procedure procedure_34 is begin null; end procedure_34;
    procedure procedure_35 is begin null; end procedure_35;
    procedure procedure_36 is begin null; end procedure_36;
    procedure procedure_37 is begin null; end procedure_37;
    procedure procedure_38 is begin null; end procedure_38;
    procedure procedure_39 is begin null; end procedure_39;
    procedure procedure_40 is begin null; end procedure_40;
    procedure procedure_41 is begin null; end procedure_41;
    procedure procedure_42 is begin null; end procedure_42;
    procedure procedure_43 is begin null; end procedure_43;
    procedure procedure_44 is begin null; end procedure_44;
    procedure procedure_45 is begin null; end procedure_45;
    procedure procedure_46 is begin null; end procedure_46;
    procedure procedure_47 is begin null; end procedure_47;
    procedure procedure_48 is begin null; end procedure_48;
    procedure procedure_49 is begin null; end procedure_49;
    procedure procedure_50 is begin null; end procedure_50;
    procedure procedure_51 is begin null; end procedure_51;
    procedure procedure_52 is begin null; end procedure_52;
    procedure procedure_53 is begin null; end procedure_53;
    procedure procedure_54 is begin null; end procedure_54;
    procedure procedure_55 is begin null; end procedure_55;
    procedure procedure_56 is begin null; end procedure_56;
    procedure procedure_57 is begin null; end procedure_57;
    procedure procedure_58 is begin null; end procedure_58;
    procedure procedure_59 is begin null; end procedure_59;
    procedure procedure_60 is begin null; end procedure_60;
    procedure procedure_61 is begin null; end procedure_61;
    procedure procedure_62 is begin null; end procedure_62;
    procedure procedure_63 is begin null; end procedure_63;
    procedure procedure_64 is begin null; end procedure_64;
    procedure procedure_65 is begin null; end procedure_65;
    procedure procedure_66 is begin null; end procedure_66;
    procedure procedure_67 is begin null; end procedure_67;
    procedure procedure_68 is begin null; end procedure_68;
    procedure procedure_69 is begin null; end procedure_69;
    procedure procedure_70 is begin null; end procedure_70;
    procedure procedure_71 is begin null; end procedure_71;
    procedure procedure_72 is begin null; end procedure_72;
    procedure procedure_73 is begin null; end procedure_73;
    procedure procedure_74 is begin null; end procedure_74;
    procedure procedure_75 is begin null; end procedure_75;
    procedure procedure_76 is begin null; end procedure_76;
    procedure procedure_77 is begin null; end procedure_77;
    procedure procedure_78 is begin null; end procedure_78;
    procedure procedure_79 is begin null; end procedure_79;
    procedure procedure_80 is begin null; end procedure_80;
    procedure procedure_81 is begin null; end procedure_81;
    procedure procedure_82 is begin null; end procedure_82;
    procedure procedure_83 is begin null; end procedure_83;
    procedure procedure_84 is begin null; end procedure_84;
    procedure procedure_85 is begin null; end procedure_85;
    procedure procedure_86 is begin null; end procedure_86;
    procedure procedure_87 is begin null; end procedure_87;
    procedure procedure_88 is begin null; end procedure_88;
    procedure procedure_89 is begin null; end procedure_89;
    procedure procedure_90 is begin null; end procedure_90;
    procedure procedure_91 is begin null; end procedure_91;
    procedure procedure_92 is begin null; end procedure_92;
    procedure procedure_93 is begin null; end procedure_93;
    procedure procedure_94 is begin null; end procedure_94;
    procedure procedure_95 is begin null; end procedure_95;
    procedure procedure_96 is begin null; end procedure_96;
    procedure procedure_97 is begin null; end procedure_97;
    procedure procedure_98 is begin null; end procedure_98;
    procedure procedure_99 is begin null; end procedure_99;
    procedure procedure_100 is begin null; end procedure_100;
    procedure procedure_101 is begin null; end procedure_101;
    procedure procedure_102 is begin null; end procedure_102;
    procedure procedure_103 is begin null; end procedure_103;
    procedure procedure_104 is begin null; end procedure_104;
    procedure procedure_105 is begin null; end procedure_105;
    procedure procedure_106 is begin null; end procedure_106;
    procedure procedure_107 is begin null; end procedure_107;
    procedure procedure_108 is begin null; end procedure_108;
    procedure procedure_109 is begin null; end procedure_109;
    procedure procedure_110 is begin null; end procedure_110;
    procedure procedure_111 is begin null; end procedure_111;
    procedure procedure_112 is begin null; end procedure_112;
    procedure procedure_113 is begin null; end procedure_113;
    procedure procedure_114 is begin null; end procedure_114;
    procedure procedure_115 is begin null; end procedure_115;
    procedure procedure_116 is begin null; end procedure_116;
    procedure procedure_117 is begin null; end procedure_117;
    procedure procedure_118 is begin null; end procedure_118;
    procedure procedure_119 is begin null; end procedure_119;
    procedure procedure_120 is begin null; end procedure_120;
    procedure procedure_121 is begin null; end procedure_121;
    procedure procedure_122 is begin null; end procedure_122;
    procedure procedure_123 is begin null; end procedure_123;
    procedure procedure_124 is begin null; end procedure_124;
    procedure procedure_125 is begin null; end procedure_125;
    procedure procedure_126 is begin null; end procedure_126;
    procedure procedure_127 is begin null; end procedure_127;
    procedure procedure_128 is begin null; end procedure_128;
    procedure procedure_129 is begin null; end procedure_129;
    procedure procedure_130 is begin null; end procedure_130;
    procedure procedure_131 is begin null; end procedure_131;
    procedure procedure_132 is begin null; end procedure_132;
    procedure procedure_133 is begin null; end procedure_133;
    procedure procedure_134 is begin null; end procedure_134;
    procedure procedure_135 is begin null; end procedure_135;
    procedure procedure_136 is begin null; end procedure_136;
    procedure procedure_137 is begin null; end procedure_137;
    procedure procedure_138 is begin null; end procedure_138;
    procedure procedure_139 is begin null; end procedure_139;
    procedure procedure_140 is begin null; end procedure_140;
    procedure procedure_141 is begin null; end procedure_141;
    procedure procedure_142 is begin null; end procedure_142;
    procedure procedure_143 is begin null; end procedure_143;
    procedure procedure_144 is begin null; end procedure_144;
    procedure procedure_145 is begin null; end procedure_145;
    procedure procedure_146 is begin null; end procedure_146;
    procedure procedure_147 is begin null; end procedure_147;
    procedure procedure_148 is begin null; end procedure_148;
    procedure procedure_149 is begin null; end procedure_149;
    procedure procedure_150 is begin null; end procedure_150;
    procedure procedure_151 is begin null; end procedure_151;
    procedure procedure_152 is begin null; end procedure_152;
    procedure procedure_153 is begin null; end procedure_153;
    procedure procedure_154 is begin null; end procedure_154;
    procedure procedure_155 is begin null; end procedure_155;
    procedure procedure_156 is begin null; end procedure_156;
    procedure procedure_157 is begin null; end procedure_157;
    procedure procedure_158 is begin null; end procedure_158;
    procedure procedure_159 is begin null; end procedure_159;
    procedure procedure_160 is begin null; end procedure_160;
    procedure procedure_161 is begin null; end procedure_161;
    procedure procedure_162 is begin null; end procedure_162;
    procedure procedure_163 is begin null; end procedure_163;
    procedure procedure_164 is begin null; end procedure_164;
    procedure procedure_165 is begin null; end procedure_165;
    procedure procedure_166 is begin null; end procedure_166;
    procedure procedure_167 is begin null; end procedure_167;
    procedure procedure_168 is begin null; end procedure_168;
    procedure procedure_169 is begin null; end procedure_169;
    procedure procedure_170 is begin null; end procedure_170;
    procedure procedure_171 is begin null; end procedure_171;
    procedure procedure_172 is begin null; end procedure_172;
    procedure procedure_173 is begin null; end procedure_173;
    procedure procedure_174 is begin null; end procedure_174;
    procedure procedure_175 is begin null; end procedure_175;
    procedure procedure_176 is begin null; end procedure_176;
    procedure procedure_177 is begin null; end procedure_177;
    procedure procedure_178 is begin null; end procedure_178;
    procedure procedure_179 is begin null; end procedure_179;
    procedure procedure_180 is begin null; end procedure_180;
    procedure procedure_181 is begin null; end procedure_181;
    procedure procedure_182 is begin null; end procedure_182;
    procedure procedure_183 is begin null; end procedure_183;
    procedure procedure_184 is begin null; end procedure_184;
    procedure procedure_185 is begin null; end procedure_185;
    procedure procedure_186 is begin null; end procedure_186;
    procedure procedure_187 is begin null; end procedure_187;
    procedure procedure_188 is begin null; end procedure_188;
    procedure procedure_189 is begin null; end procedure_189;
    procedure procedure_190 is begin null; end procedure_190;
    procedure procedure_191 is begin null; end procedure_191;
    procedure procedure_192 is begin null; end procedure_192;
    procedure procedure_193 is begin null; end procedure_193;
    procedure procedure_194 is begin null; end procedure_194;
    procedure procedure_195 is begin null; end procedure_195;
    procedure procedure_196 is begin null; end procedure_196;
    procedure procedure_197 is begin null; end procedure_197;
    procedure procedure_198 is begin null; end procedure_198;
    procedure procedure_199 is begin null; end procedure_199;
    procedure procedure_200 is begin null; end procedure_200;
    begin
    null;
end z000162;
::::::::::
Z000171.ADA
::::::::::
with text_io;
use  text_io;

procedure z000171 is
    package package_1 is new integer_io (integer);
    package package_2 is new integer_io (integer);
    package package_3 is new integer_io (integer);
    package package_4 is new integer_io (integer);
    package package_5 is new integer_io (integer);
    package package_6 is new integer_io (integer);
    package package_7 is new integer_io (integer);
    package package_8 is new integer_io (integer);
    package package_9 is new integer_io (integer);
    package package_10 is new integer_io (integer);
    package package_11 is new integer_io (integer);
    package package_12 is new integer_io (integer);
    package package_13 is new integer_io (integer);
    package package_14 is new integer_io (integer);
    package package_15 is new integer_io (integer);
    package package_16 is new integer_io (integer);
    package package_17 is new integer_io (integer);
    package package_18 is new integer_io (integer);
    package package_19 is new integer_io (integer);
    package package_20 is new integer_io (integer);
    package package_21 is new integer_io (integer);
    package package_22 is new integer_io (integer);
    package package_23 is new integer_io (integer);
    package package_24 is new integer_io (integer);
    package package_25 is new integer_io (integer);
    package package_26 is new integer_io (integer);
    package package_27 is new integer_io (integer);
    package package_28 is new integer_io (integer);
    package package_29 is new integer_io (integer);
    package package_30 is new integer_io (integer);
    package package_31 is new integer_io (integer);
    package package_32 is new integer_io (integer);
    package package_33 is new integer_io (integer);
    package package_34 is new integer_io (integer);
    package package_35 is new integer_io (integer);
    package package_36 is new integer_io (integer);
    package package_37 is new integer_io (integer);
    package package_38 is new integer_io (integer);
    package package_39 is new integer_io (integer);
    package package_40 is new integer_io (integer);
    package package_41 is new integer_io (integer);
    package package_42 is new integer_io (integer);
    package package_43 is new integer_io (integer);
    package package_44 is new integer_io (integer);
    package package_45 is new integer_io (integer);
    package package_46 is new integer_io (integer);
    package package_47 is new integer_io (integer);
    package package_48 is new integer_io (integer);
    package package_49 is new integer_io (integer);
    package package_50 is new integer_io (integer);
    package package_51 is new integer_io (integer);
    package package_52 is new integer_io (integer);
    package package_53 is new integer_io (integer);
    package package_54 is new integer_io (integer);
    package package_55 is new integer_io (integer);
    package package_56 is new integer_io (integer);
    package package_57 is new integer_io (integer);
    package package_58 is new integer_io (integer);
    package package_59 is new integer_io (integer);
    package package_60 is new integer_io (integer);
    package package_61 is new integer_io (integer);
    package package_62 is new integer_io (integer);
    package package_63 is new integer_io (integer);
    package package_64 is new integer_io (integer);
    package package_65 is new integer_io (integer);
    package package_66 is new integer_io (integer);
    package package_67 is new integer_io (integer);
    package package_68 is new integer_io (integer);
    package package_69 is new integer_io (integer);
    package package_70 is new integer_io (integer);
    package package_71 is new integer_io (integer);
    package package_72 is new integer_io (integer);
    package package_73 is new integer_io (integer);
    package package_74 is new integer_io (integer);
    package package_75 is new integer_io (integer);
    package package_76 is new integer_io (integer);
    package package_77 is new integer_io (integer);
    package package_78 is new integer_io (integer);
    package package_79 is new integer_io (integer);
    package package_80 is new integer_io (integer);
    package package_81 is new integer_io (integer);
    package package_82 is new integer_io (integer);
    package package_83 is new integer_io (integer);
    package package_84 is new integer_io (integer);
    package package_85 is new integer_io (integer);
    package package_86 is new integer_io (integer);
    package package_87 is new integer_io (integer);
    package package_88 is new integer_io (integer);
    package package_89 is new integer_io (integer);
    package package_90 is new integer_io (integer);
    package package_91 is new integer_io (integer);
    package package_92 is new integer_io (integer);
    package package_93 is new integer_io (integer);
    package package_94 is new integer_io (integer);
    package package_95 is new integer_io (integer);
    package package_96 is new integer_io (integer);
    package package_97 is new integer_io (integer);
    package package_98 is new integer_io (integer);
    package package_99 is new integer_io (integer);
    package package_100 is new integer_io (integer);
    begin
    null;
    end z000171;
::::::::::
Z000172.ADA
::::::::::
with text_io;
use  text_io;

procedure z000172 is
    package package_1 is new integer_io (integer);
    package package_2 is new integer_io (integer);
    package package_3 is new integer_io (integer);
    package package_4 is new integer_io (integer);
    package package_5 is new integer_io (integer);
    package package_6 is new integer_io (integer);
    package package_7 is new integer_io (integer);
    package package_8 is new integer_io (integer);
    package package_9 is new integer_io (integer);
    package package_10 is new integer_io (integer);
    package package_11 is new integer_io (integer);
    package package_12 is new integer_io (integer);
    package package_13 is new integer_io (integer);
    package package_14 is new integer_io (integer);
    package package_15 is new integer_io (integer);
    package package_16 is new integer_io (integer);
    package package_17 is new integer_io (integer);
    package package_18 is new integer_io (integer);
    package package_19 is new integer_io (integer);
    package package_20 is new integer_io (integer);
    package package_21 is new integer_io (integer);
    package package_22 is new integer_io (integer);
    package package_23 is new integer_io (integer);
    package package_24 is new integer_io (integer);
    package package_25 is new integer_io (integer);
    package package_26 is new integer_io (integer);
    package package_27 is new integer_io (integer);
    package package_28 is new integer_io (integer);
    package package_29 is new integer_io (integer);
    package package_30 is new integer_io (integer);
    package package_31 is new integer_io (integer);
    package package_32 is new integer_io (integer);
    package package_33 is new integer_io (integer);
    package package_34 is new integer_io (integer);
    package package_35 is new integer_io (integer);
    package package_36 is new integer_io (integer);
    package package_37 is new integer_io (integer);
    package package_38 is new integer_io (integer);
    package package_39 is new integer_io (integer);
    package package_40 is new integer_io (integer);
    package package_41 is new integer_io (integer);
    package package_42 is new integer_io (integer);
    package package_43 is new integer_io (integer);
    package package_44 is new integer_io (integer);
    package package_45 is new integer_io (integer);
    package package_46 is new integer_io (integer);
    package package_47 is new integer_io (integer);
    package package_48 is new integer_io (integer);
    package package_49 is new integer_io (integer);
    package package_50 is new integer_io (integer);
    package package_51 is new integer_io (integer);
    package package_52 is new integer_io (integer);
    package package_53 is new integer_io (integer);
    package package_54 is new integer_io (integer);
    package package_55 is new integer_io (integer);
    package package_56 is new integer_io (integer);
    package package_57 is new integer_io (integer);
    package package_58 is new integer_io (integer);
    package package_59 is new integer_io (integer);
    package package_60 is new integer_io (integer);
    package package_61 is new integer_io (integer);
    package package_62 is new integer_io (integer);
    package package_63 is new integer_io (integer);
    package package_64 is new integer_io (integer);
    package package_65 is new integer_io (integer);
    package package_66 is new integer_io (integer);
    package package_67 is new integer_io (integer);
    package package_68 is new integer_io (integer);
    package package_69 is new integer_io (integer);
    package package_70 is new integer_io (integer);
    package package_71 is new integer_io (integer);
    package package_72 is new integer_io (integer);
    package package_73 is new integer_io (integer);
    package package_74 is new integer_io (integer);
    package package_75 is new integer_io (integer);
    package package_76 is new integer_io (integer);
    package package_77 is new integer_io (integer);
    package package_78 is new integer_io (integer);
    package package_79 is new integer_io (integer);
    package package_80 is new integer_io (integer);
    package package_81 is new integer_io (integer);
    package package_82 is new integer_io (integer);
    package package_83 is new integer_io (integer);
    package package_84 is new integer_io (integer);
    package package_85 is new integer_io (integer);
    package package_86 is new integer_io (integer);
    package package_87 is new integer_io (integer);
    package package_88 is new integer_io (integer);
    package package_89 is new integer_io (integer);
    package package_90 is new integer_io (integer);
    package package_91 is new integer_io (integer);
    package package_92 is new integer_io (integer);
    package package_93 is new integer_io (integer);
    package package_94 is new integer_io (integer);
    package package_95 is new integer_io (integer);
    package package_96 is new integer_io (integer);
    package package_97 is new integer_io (integer);
    package package_98 is new integer_io (integer);
    package package_99 is new integer_io (integer);
    package package_100 is new integer_io (integer);
    package package_101 is new integer_io (integer);
    package package_102 is new integer_io (integer);
    package package_103 is new integer_io (integer);
    package package_104 is new integer_io (integer);
    package package_105 is new integer_io (integer);
    package package_106 is new integer_io (integer);
    package package_107 is new integer_io (integer);
    package package_108 is new integer_io (integer);
    package package_109 is new integer_io (integer);
    package package_110 is new integer_io (integer);
    package package_111 is new integer_io (integer);
    package package_112 is new integer_io (integer);
    package package_113 is new integer_io (integer);
    package package_114 is new integer_io (integer);
    package package_115 is new integer_io (integer);
    package package_116 is new integer_io (integer);
    package package_117 is new integer_io (integer);
    package package_118 is new integer_io (integer);
    package package_119 is new integer_io (integer);
    package package_120 is new integer_io (integer);
    package package_121 is new integer_io (integer);
    package package_122 is new integer_io (integer);
    package package_123 is new integer_io (integer);
    package package_124 is new integer_io (integer);
    package package_125 is new integer_io (integer);
    package package_126 is new integer_io (integer);
    package package_127 is new integer_io (integer);
    package package_128 is new integer_io (integer);
    package package_129 is new integer_io (integer);
    package package_130 is new integer_io (integer);
    package package_131 is new integer_io (integer);
    package package_132 is new integer_io (integer);
    package package_133 is new integer_io (integer);
    package package_134 is new integer_io (integer);
    package package_135 is new integer_io (integer);
    package package_136 is new integer_io (integer);
    package package_137 is new integer_io (integer);
    package package_138 is new integer_io (integer);
    package package_139 is new integer_io (integer);
    package package_140 is new integer_io (integer);
    package package_141 is new integer_io (integer);
    package package_142 is new integer_io (integer);
    package package_143 is new integer_io (integer);
    package package_144 is new integer_io (integer);
    package package_145 is new integer_io (integer);
    package package_146 is new integer_io (integer);
    package package_147 is new integer_io (integer);
    package package_148 is new integer_io (integer);
    package package_149 is new integer_io (integer);
    package package_150 is new integer_io (integer);
    package package_151 is new integer_io (integer);
    package package_152 is new integer_io (integer);
    package package_153 is new integer_io (integer);
    package package_154 is new integer_io (integer);
    package package_155 is new integer_io (integer);
    package package_156 is new integer_io (integer);
    package package_157 is new integer_io (integer);
    package package_158 is new integer_io (integer);
    package package_159 is new integer_io (integer);
    package package_160 is new integer_io (integer);
    package package_161 is new integer_io (integer);
    package package_162 is new integer_io (integer);
    package package_163 is new integer_io (integer);
    package package_164 is new integer_io (integer);
    package package_165 is new integer_io (integer);
    package package_166 is new integer_io (integer);
    package package_167 is new integer_io (integer);
    package package_168 is new integer_io (integer);
    package package_169 is new integer_io (integer);
    package package_170 is new integer_io (integer);
    package package_171 is new integer_io (integer);
    package package_172 is new integer_io (integer);
    package package_173 is new integer_io (integer);
    package package_174 is new integer_io (integer);
    package package_175 is new integer_io (integer);
    package package_176 is new integer_io (integer);
    package package_177 is new integer_io (integer);
    package package_178 is new integer_io (integer);
    package package_179 is new integer_io (integer);
    package package_180 is new integer_io (integer);
    package package_181 is new integer_io (integer);
    package package_182 is new integer_io (integer);
    package package_183 is new integer_io (integer);
    package package_184 is new integer_io (integer);
    package package_185 is new integer_io (integer);
    package package_186 is new integer_io (integer);
    package package_187 is new integer_io (integer);
    package package_188 is new integer_io (integer);
    package package_189 is new integer_io (integer);
    package package_190 is new integer_io (integer);
    package package_191 is new integer_io (integer);
    package package_192 is new integer_io (integer);
    package package_193 is new integer_io (integer);
    package package_194 is new integer_io (integer);
    package package_195 is new integer_io (integer);
    package package_196 is new integer_io (integer);
    package package_197 is new integer_io (integer);
    package package_198 is new integer_io (integer);
    package package_199 is new integer_io (integer);
    package package_200 is new integer_io (integer);
    begin
    null;
    end z000172;
::::::::::
Z000173.ADA
::::::::::
with text_io;
use  text_io;

procedure z000173 is
    package package_1 is new integer_io (integer);
    package package_2 is new integer_io (integer);
    package package_3 is new integer_io (integer);
    package package_4 is new integer_io (integer);
    package package_5 is new integer_io (integer);
    package package_6 is new integer_io (integer);
    package package_7 is new integer_io (integer);
    package package_8 is new integer_io (integer);
    package package_9 is new integer_io (integer);
    package package_10 is new integer_io (integer);
    package package_11 is new integer_io (integer);
    package package_12 is new integer_io (integer);
    package package_13 is new integer_io (integer);
    package package_14 is new integer_io (integer);
    package package_15 is new integer_io (integer);
    package package_16 is new integer_io (integer);
    package package_17 is new integer_io (integer);
    package package_18 is new integer_io (integer);
    package package_19 is new integer_io (integer);
    package package_20 is new integer_io (integer);
    package package_21 is new integer_io (integer);
    package package_22 is new integer_io (integer);
    package package_23 is new integer_io (integer);
    package package_24 is new integer_io (integer);
    package package_25 is new integer_io (integer);
    package package_26 is new integer_io (integer);
    package package_27 is new integer_io (integer);
    package package_28 is new integer_io (integer);
    package package_29 is new integer_io (integer);
    package package_30 is new integer_io (integer);
    package package_31 is new integer_io (integer);
    package package_32 is new integer_io (integer);
    package package_33 is new integer_io (integer);
    package package_34 is new integer_io (integer);
    package package_35 is new integer_io (integer);
    package package_36 is new integer_io (integer);
    package package_37 is new integer_io (integer);
    package package_38 is new integer_io (integer);
    package package_39 is new integer_io (integer);
    package package_40 is new integer_io (integer);
    package package_41 is new integer_io (integer);
    package package_42 is new integer_io (integer);
    package package_43 is new integer_io (integer);
    package package_44 is new integer_io (integer);
    package package_45 is new integer_io (integer);
    package package_46 is new integer_io (integer);
    package package_47 is new integer_io (integer);
    package package_48 is new integer_io (integer);
    package package_49 is new integer_io (integer);
    package package_50 is new integer_io (integer);
    package package_51 is new integer_io (integer);
    package package_52 is new integer_io (integer);
    package package_53 is new integer_io (integer);
    package package_54 is new integer_io (integer);
    package package_55 is new integer_io (integer);
    package package_56 is new integer_io (integer);
    package package_57 is new integer_io (integer);
    package package_58 is new integer_io (integer);
    package package_59 is new integer_io (integer);
    package package_60 is new integer_io (integer);
    package package_61 is new integer_io (integer);
    package package_62 is new integer_io (integer);
    package package_63 is new integer_io (integer);
    package package_64 is new integer_io (integer);
    package package_65 is new integer_io (integer);
    package package_66 is new integer_io (integer);
    package package_67 is new integer_io (integer);
    package package_68 is new integer_io (integer);
    package package_69 is new integer_io (integer);
    package package_70 is new integer_io (integer);
    package package_71 is new integer_io (integer);
    package package_72 is new integer_io (integer);
    package package_73 is new integer_io (integer);
    package package_74 is new integer_io (integer);
    package package_75 is new integer_io (integer);
    package package_76 is new integer_io (integer);
    package package_77 is new integer_io (integer);
    package package_78 is new integer_io (integer);
    package package_79 is new integer_io (integer);
    package package_80 is new integer_io (integer);
    package package_81 is new integer_io (integer);
    package package_82 is new integer_io (integer);
    package package_83 is new integer_io (integer);
    package package_84 is new integer_io (integer);
    package package_85 is new integer_io (integer);
    package package_86 is new integer_io (integer);
    package package_87 is new integer_io (integer);
    package package_88 is new integer_io (integer);
    package package_89 is new integer_io (integer);
    package package_90 is new integer_io (integer);
    package package_91 is new integer_io (integer);
    package package_92 is new integer_io (integer);
    package package_93 is new integer_io (integer);
    package package_94 is new integer_io (integer);
    package package_95 is new integer_io (integer);
    package package_96 is new integer_io (integer);
    package package_97 is new integer_io (integer);
    package package_98 is new integer_io (integer);
    package package_99 is new integer_io (integer);
    package package_100 is new integer_io (integer);
    package package_101 is new integer_io (integer);
    package package_102 is new integer_io (integer);
    package package_103 is new integer_io (integer);
    package package_104 is new integer_io (integer);
    package package_105 is new integer_io (integer);
    package package_106 is new integer_io (integer);
    package package_107 is new integer_io (integer);
    package package_108 is new integer_io (integer);
    package package_109 is new integer_io (integer);
    package package_110 is new integer_io (integer);
    package package_111 is new integer_io (integer);
    package package_112 is new integer_io (integer);
    package package_113 is new integer_io (integer);
    package package_114 is new integer_io (integer);
    package package_115 is new integer_io (integer);
    package package_116 is new integer_io (integer);
    package package_117 is new integer_io (integer);
    package package_118 is new integer_io (integer);
    package package_119 is new integer_io (integer);
    package package_120 is new integer_io (integer);
    package package_121 is new integer_io (integer);
    package package_122 is new integer_io (integer);
    package package_123 is new integer_io (integer);
    package package_124 is new integer_io (integer);
    package package_125 is new integer_io (integer);
    package package_126 is new integer_io (integer);
    package package_127 is new integer_io (integer);
    package package_128 is new integer_io (integer);
    package package_129 is new integer_io (integer);
    package package_130 is new integer_io (integer);
    package package_131 is new integer_io (integer);
    package package_132 is new integer_io (integer);
    package package_133 is new integer_io (integer);
    package package_134 is new integer_io (integer);
    package package_135 is new integer_io (integer);
    package package_136 is new integer_io (integer);
    package package_137 is new integer_io (integer);
    package package_138 is new integer_io (integer);
    package package_139 is new integer_io (integer);
    package package_140 is new integer_io (integer);
    package package_141 is new integer_io (integer);
    package package_142 is new integer_io (integer);
    package package_143 is new integer_io (integer);
    package package_144 is new integer_io (integer);
    package package_145 is new integer_io (integer);
    package package_146 is new integer_io (integer);
    package package_147 is new integer_io (integer);
    package package_148 is new integer_io (integer);
    package package_149 is new integer_io (integer);
    package package_150 is new integer_io (integer);
    package package_151 is new integer_io (integer);
    package package_152 is new integer_io (integer);
    package package_153 is new integer_io (integer);
    package package_154 is new integer_io (integer);
    package package_155 is new integer_io (integer);
    package package_156 is new integer_io (integer);
    package package_157 is new integer_io (integer);
    package package_158 is new integer_io (integer);
    package package_159 is new integer_io (integer);
    package package_160 is new integer_io (integer);
    package package_161 is new integer_io (integer);
    package package_162 is new integer_io (integer);
    package package_163 is new integer_io (integer);
    package package_164 is new integer_io (integer);
    package package_165 is new integer_io (integer);
    package package_166 is new integer_io (integer);
    package package_167 is new integer_io (integer);
    package package_168 is new integer_io (integer);
    package package_169 is new integer_io (integer);
    package package_170 is new integer_io (integer);
    package package_171 is new integer_io (integer);
    package package_172 is new integer_io (integer);
    package package_173 is new integer_io (integer);
    package package_174 is new integer_io (integer);
    package package_175 is new integer_io (integer);
    package package_176 is new integer_io (integer);
    package package_177 is new integer_io (integer);
    package package_178 is new integer_io (integer);
    package package_179 is new integer_io (integer);
    package package_180 is new integer_io (integer);
    package package_181 is new integer_io (integer);
    package package_182 is new integer_io (integer);
    package package_183 is new integer_io (integer);
    package package_184 is new integer_io (integer);
    package package_185 is new integer_io (integer);
    package package_186 is new integer_io (integer);
    package package_187 is new integer_io (integer);
    package package_188 is new integer_io (integer);
    package package_189 is new integer_io (integer);
    package package_190 is new integer_io (integer);
    package package_191 is new integer_io (integer);
    package package_192 is new integer_io (integer);
    package package_193 is new integer_io (integer);
    package package_194 is new integer_io (integer);
    package package_195 is new integer_io (integer);
    package package_196 is new integer_io (integer);
    package package_197 is new integer_io (integer);
    package package_198 is new integer_io (integer);
    package package_199 is new integer_io (integer);
    package package_200 is new integer_io (integer);
    package package_201 is new integer_io (integer);
    package package_202 is new integer_io (integer);
    package package_203 is new integer_io (integer);
    package package_204 is new integer_io (integer);
    package package_205 is new integer_io (integer);
    package package_206 is new integer_io (integer);
    package package_207 is new integer_io (integer);
    package package_208 is new integer_io (integer);
    package package_209 is new integer_io (integer);
    package package_210 is new integer_io (integer);
    package package_211 is new integer_io (integer);
    package package_212 is new integer_io (integer);
    package package_213 is new integer_io (integer);
    package package_214 is new integer_io (integer);
    package package_215 is new integer_io (integer);
    package package_216 is new integer_io (integer);
    package package_217 is new integer_io (integer);
    package package_218 is new integer_io (integer);
    package package_219 is new integer_io (integer);
    package package_220 is new integer_io (integer);
    package package_221 is new integer_io (integer);
    package package_222 is new integer_io (integer);
    package package_223 is new integer_io (integer);
    package package_224 is new integer_io (integer);
    package package_225 is new integer_io (integer);
    package package_226 is new integer_io (integer);
    package package_227 is new integer_io (integer);
    package package_228 is new integer_io (integer);
    package package_229 is new integer_io (integer);
    package package_230 is new integer_io (integer);
    package package_231 is new integer_io (integer);
    package package_232 is new integer_io (integer);
    package package_233 is new integer_io (integer);
    package package_234 is new integer_io (integer);
    package package_235 is new integer_io (integer);
    package package_236 is new integer_io (integer);
    package package_237 is new integer_io (integer);
    package package_238 is new integer_io (integer);
    package package_239 is new integer_io (integer);
    package package_240 is new integer_io (integer);
    package package_241 is new integer_io (integer);
    package package_242 is new integer_io (integer);
    package package_243 is new integer_io (integer);
    package package_244 is new integer_io (integer);
    package package_245 is new integer_io (integer);
    package package_246 is new integer_io (integer);
    package package_247 is new integer_io (integer);
    package package_248 is new integer_io (integer);
    package package_249 is new integer_io (integer);
    package package_250 is new integer_io (integer);
    package package_251 is new integer_io (integer);
    package package_252 is new integer_io (integer);
    package package_253 is new integer_io (integer);
    package package_254 is new integer_io (integer);
    package package_255 is new integer_io (integer);
    package package_256 is new integer_io (integer);
    package package_257 is new integer_io (integer);
    package package_258 is new integer_io (integer);
    package package_259 is new integer_io (integer);
    package package_260 is new integer_io (integer);
    package package_261 is new integer_io (integer);
    package package_262 is new integer_io (integer);
    package package_263 is new integer_io (integer);
    package package_264 is new integer_io (integer);
    package package_265 is new integer_io (integer);
    package package_266 is new integer_io (integer);
    package package_267 is new integer_io (integer);
    package package_268 is new integer_io (integer);
    package package_269 is new integer_io (integer);
    package package_270 is new integer_io (integer);
    package package_271 is new integer_io (integer);
    package package_272 is new integer_io (integer);
    package package_273 is new integer_io (integer);
    package package_274 is new integer_io (integer);
    package package_275 is new integer_io (integer);
    package package_276 is new integer_io (integer);
    package package_277 is new integer_io (integer);
    package package_278 is new integer_io (integer);
    package package_279 is new integer_io (integer);
    package package_280 is new integer_io (integer);
    package package_281 is new integer_io (integer);
    package package_282 is new integer_io (integer);
    package package_283 is new integer_io (integer);
    package package_284 is new integer_io (integer);
    package package_285 is new integer_io (integer);
    package package_286 is new integer_io (integer);
    package package_287 is new integer_io (integer);
    package package_288 is new integer_io (integer);
    package package_289 is new integer_io (integer);
    package package_290 is new integer_io (integer);
    package package_291 is new integer_io (integer);
    package package_292 is new integer_io (integer);
    package package_293 is new integer_io (integer);
    package package_294 is new integer_io (integer);
    package package_295 is new integer_io (integer);
    package package_296 is new integer_io (integer);
    package package_297 is new integer_io (integer);
    package package_298 is new integer_io (integer);
    package package_299 is new integer_io (integer);
    package package_300 is new integer_io (integer);
    package package_301 is new integer_io (integer);
    package package_302 is new integer_io (integer);
    package package_303 is new integer_io (integer);
    package package_304 is new integer_io (integer);
    package package_305 is new integer_io (integer);
    package package_306 is new integer_io (integer);
    package package_307 is new integer_io (integer);
    package package_308 is new integer_io (integer);
    package package_309 is new integer_io (integer);
    package package_310 is new integer_io (integer);
    package package_311 is new integer_io (integer);
    package package_312 is new integer_io (integer);
    package package_313 is new integer_io (integer);
    package package_314 is new integer_io (integer);
    package package_315 is new integer_io (integer);
    package package_316 is new integer_io (integer);
    package package_317 is new integer_io (integer);
    package package_318 is new integer_io (integer);
    package package_319 is new integer_io (integer);
    package package_320 is new integer_io (integer);
    package package_321 is new integer_io (integer);
    package package_322 is new integer_io (integer);
    package package_323 is new integer_io (integer);
    package package_324 is new integer_io (integer);
    package package_325 is new integer_io (integer);
    package package_326 is new integer_io (integer);
    package package_327 is new integer_io (integer);
    package package_328 is new integer_io (integer);
    package package_329 is new integer_io (integer);
    package package_330 is new integer_io (integer);
    package package_331 is new integer_io (integer);
    package package_332 is new integer_io (integer);
    package package_333 is new integer_io (integer);
    package package_334 is new integer_io (integer);
    package package_335 is new integer_io (integer);
    package package_336 is new integer_io (integer);
    package package_337 is new integer_io (integer);
    package package_338 is new integer_io (integer);
    package package_339 is new integer_io (integer);
    package package_340 is new integer_io (integer);
    package package_341 is new integer_io (integer);
    package package_342 is new integer_io (integer);
    package package_343 is new integer_io (integer);
    package package_344 is new integer_io (integer);
    package package_345 is new integer_io (integer);
    package package_346 is new integer_io (integer);
    package package_347 is new integer_io (integer);
    package package_348 is new integer_io (integer);
    package package_349 is new integer_io (integer);
    package package_350 is new integer_io (integer);
    package package_351 is new integer_io (integer);
    package package_352 is new integer_io (integer);
    package package_353 is new integer_io (integer);
    package package_354 is new integer_io (integer);
    package package_355 is new integer_io (integer);
    package package_356 is new integer_io (integer);
    package package_357 is new integer_io (integer);
    package package_358 is new integer_io (integer);
    package package_359 is new integer_io (integer);
    package package_360 is new integer_io (integer);
    package package_361 is new integer_io (integer);
    package package_362 is new integer_io (integer);
    package package_363 is new integer_io (integer);
    package package_364 is new integer_io (integer);
    package package_365 is new integer_io (integer);
    package package_366 is new integer_io (integer);
    package package_367 is new integer_io (integer);
    package package_368 is new integer_io (integer);
    package package_369 is new integer_io (integer);
    package package_370 is new integer_io (integer);
    package package_371 is new integer_io (integer);
    package package_372 is new integer_io (integer);
    package package_373 is new integer_io (integer);
    package package_374 is new integer_io (integer);
    package package_375 is new integer_io (integer);
    package package_376 is new integer_io (integer);
    package package_377 is new integer_io (integer);
    package package_378 is new integer_io (integer);
    package package_379 is new integer_io (integer);
    package package_380 is new integer_io (integer);
    package package_381 is new integer_io (integer);
    package package_382 is new integer_io (integer);
    package package_383 is new integer_io (integer);
    package package_384 is new integer_io (integer);
    package package_385 is new integer_io (integer);
    package package_386 is new integer_io (integer);
    package package_387 is new integer_io (integer);
    package package_388 is new integer_io (integer);
    package package_389 is new integer_io (integer);
    package package_390 is new integer_io (integer);
    package package_391 is new integer_io (integer);
    package package_392 is new integer_io (integer);
    package package_393 is new integer_io (integer);
    package package_394 is new integer_io (integer);
    package package_395 is new integer_io (integer);
    package package_396 is new integer_io (integer);
    package package_397 is new integer_io (integer);
    package package_398 is new integer_io (integer);
    package package_399 is new integer_io (integer);
    package package_400 is new integer_io (integer);
    package package_401 is new integer_io (integer);
    package package_402 is new integer_io (integer);
    package package_403 is new integer_io (integer);
    package package_404 is new integer_io (integer);
    package package_405 is new integer_io (integer);
    package package_406 is new integer_io (integer);
    package package_407 is new integer_io (integer);
    package package_408 is new integer_io (integer);
    package package_409 is new integer_io (integer);
    package package_410 is new integer_io (integer);
    package package_411 is new integer_io (integer);
    package package_412 is new integer_io (integer);
    package package_413 is new integer_io (integer);
    package package_414 is new integer_io (integer);
    package package_415 is new integer_io (integer);
    package package_416 is new integer_io (integer);
    package package_417 is new integer_io (integer);
    package package_418 is new integer_io (integer);
    package package_419 is new integer_io (integer);
    package package_420 is new integer_io (integer);
    package package_421 is new integer_io (integer);
    package package_422 is new integer_io (integer);
    package package_423 is new integer_io (integer);
    package package_424 is new integer_io (integer);
    package package_425 is new integer_io (integer);
    package package_426 is new integer_io (integer);
    package package_427 is new integer_io (integer);
    package package_428 is new integer_io (integer);
    package package_429 is new integer_io (integer);
    package package_430 is new integer_io (integer);
    package package_431 is new integer_io (integer);
    package package_432 is new integer_io (integer);
    package package_433 is new integer_io (integer);
    package package_434 is new integer_io (integer);
    package package_435 is new integer_io (integer);
    package package_436 is new integer_io (integer);
    package package_437 is new integer_io (integer);
    package package_438 is new integer_io (integer);
    package package_439 is new integer_io (integer);
    package package_440 is new integer_io (integer);
    package package_441 is new integer_io (integer);
    package package_442 is new integer_io (integer);
    package package_443 is new integer_io (integer);
    package package_444 is new integer_io (integer);
    package package_445 is new integer_io (integer);
    package package_446 is new integer_io (integer);
    package package_447 is new integer_io (integer);
    package package_448 is new integer_io (integer);
    package package_449 is new integer_io (integer);
    package package_450 is new integer_io (integer);
    package package_451 is new integer_io (integer);
    package package_452 is new integer_io (integer);
    package package_453 is new integer_io (integer);
    package package_454 is new integer_io (integer);
    package package_455 is new integer_io (integer);
    package package_456 is new integer_io (integer);
    package package_457 is new integer_io (integer);
    package package_458 is new integer_io (integer);
    package package_459 is new integer_io (integer);
    package package_460 is new integer_io (integer);
    package package_461 is new integer_io (integer);
    package package_462 is new integer_io (integer);
    package package_463 is new integer_io (integer);
    package package_464 is new integer_io (integer);
    package package_465 is new integer_io (integer);
    package package_466 is new integer_io (integer);
    package package_467 is new integer_io (integer);
    package package_468 is new integer_io (integer);
    package package_469 is new integer_io (integer);
    package package_470 is new integer_io (integer);
    package package_471 is new integer_io (integer);
    package package_472 is new integer_io (integer);
    package package_473 is new integer_io (integer);
    package package_474 is new integer_io (integer);
    package package_475 is new integer_io (integer);
    package package_476 is new integer_io (integer);
    package package_477 is new integer_io (integer);
    package package_478 is new integer_io (integer);
    package package_479 is new integer_io (integer);
    package package_480 is new integer_io (integer);
    package package_481 is new integer_io (integer);
    package package_482 is new integer_io (integer);
    package package_483 is new integer_io (integer);
    package package_484 is new integer_io (integer);
    package package_485 is new integer_io (integer);
    package package_486 is new integer_io (integer);
    package package_487 is new integer_io (integer);
    package package_488 is new integer_io (integer);
    package package_489 is new integer_io (integer);
    package package_490 is new integer_io (integer);
    package package_491 is new integer_io (integer);
    package package_492 is new integer_io (integer);
    package package_493 is new integer_io (integer);
    package package_494 is new integer_io (integer);
    package package_495 is new integer_io (integer);
    package package_496 is new integer_io (integer);
    package package_497 is new integer_io (integer);
    package package_498 is new integer_io (integer);
    package package_499 is new integer_io (integer);
    package package_500 is new integer_io (integer);
    begin
    null;
    end z000173;
::::::::::
Z000181.ADA
::::::::::
package z000181 is
    task task_1 is
        entry out_1 ( c: out character );
        entry in_1 ( c: in character );
    end task_1;
    task task_2 is
        entry out_2 ( c: out character );
        entry in_2 ( c: in character );
    end task_2;
    task task_3 is
        entry out_3 ( c: out character );
        entry in_3 ( c: in character );
    end task_3;
    task task_4 is
        entry out_4 ( c: out character );
        entry in_4 ( c: in character );
    end task_4;
    task task_5 is
        entry out_5 ( c: out character );
        entry in_5 ( c: in character );
    end task_5;
    task task_6 is
        entry out_6 ( c: out character );
        entry in_6 ( c: in character );
    end task_6;
    task task_7 is
        entry out_7 ( c: out character );
        entry in_7 ( c: in character );
    end task_7;
    task task_8 is
        entry out_8 ( c: out character );
        entry in_8 ( c: in character );
    end task_8;
    task task_9 is
        entry out_9 ( c: out character );
        entry in_9 ( c: in character );
    end task_9;
    task task_10 is
        entry out_10 ( c: out character );
        entry in_10 ( c: in character );
    end task_10;
    end z000181;
::::::::::
Z000182.ADA
::::::::::
package z000182 is
    task task_1 is
        entry out_1 ( c: out character );
        entry in_1 ( c: in character );
    end task_1;
    task task_2 is
        entry out_2 ( c: out character );
        entry in_2 ( c: in character );
    end task_2;
    task task_3 is
        entry out_3 ( c: out character );
        entry in_3 ( c: in character );
    end task_3;
    task task_4 is
        entry out_4 ( c: out character );
        entry in_4 ( c: in character );
    end task_4;
    task task_5 is
        entry out_5 ( c: out character );
        entry in_5 ( c: in character );
    end task_5;
    task task_6 is
        entry out_6 ( c: out character );
        entry in_6 ( c: in character );
    end task_6;
    task task_7 is
        entry out_7 ( c: out character );
        entry in_7 ( c: in character );
    end task_7;
    task task_8 is
        entry out_8 ( c: out character );
        entry in_8 ( c: in character );
    end task_8;
    task task_9 is
        entry out_9 ( c: out character );
        entry in_9 ( c: in character );
    end task_9;
    task task_10 is
        entry out_10 ( c: out character );
        entry in_10 ( c: in character );
    end task_10;
    task task_11 is
        entry out_11 ( c: out character );
        entry in_11 ( c: in character );
    end task_11;
    task task_12 is
        entry out_12 ( c: out character );
        entry in_12 ( c: in character );
    end task_12;
    task task_13 is
        entry out_13 ( c: out character );
        entry in_13 ( c: in character );
    end task_13;
    task task_14 is
        entry out_14 ( c: out character );
        entry in_14 ( c: in character );
    end task_14;
    task task_15 is
        entry out_15 ( c: out character );
        entry in_15 ( c: in character );
    end task_15;
    task task_16 is
        entry out_16 ( c: out character );
        entry in_16 ( c: in character );
    end task_16;
    task task_17 is
        entry out_17 ( c: out character );
        entry in_17 ( c: in character );
    end task_17;
    task task_18 is
        entry out_18 ( c: out character );
        entry in_18 ( c: in character );
    end task_18;
    task task_19 is
        entry out_19 ( c: out character );
        entry in_19 ( c: in character );
    end task_19;
    task task_20 is
        entry out_20 ( c: out character );
        entry in_20 ( c: in character );
    end task_20;
    end z000182;
::::::::::
Z000183.ADA
::::::::::
package z000183 is
    task task_1 is
        entry out_1 ( c: out character );
        entry in_1 ( c: in character );
    end task_1;
    task task_2 is
        entry out_2 ( c: out character );
        entry in_2 ( c: in character );
    end task_2;
    task task_3 is
        entry out_3 ( c: out character );
        entry in_3 ( c: in character );
    end task_3;
    task task_4 is
        entry out_4 ( c: out character );
        entry in_4 ( c: in character );
    end task_4;
    task task_5 is
        entry out_5 ( c: out character );
        entry in_5 ( c: in character );
    end task_5;
    task task_6 is
        entry out_6 ( c: out character );
        entry in_6 ( c: in character );
    end task_6;
    task task_7 is
        entry out_7 ( c: out character );
        entry in_7 ( c: in character );
    end task_7;
    task task_8 is
        entry out_8 ( c: out character );
        entry in_8 ( c: in character );
    end task_8;
    task task_9 is
        entry out_9 ( c: out character );
        entry in_9 ( c: in character );
    end task_9;
    task task_10 is
        entry out_10 ( c: out character );
        entry in_10 ( c: in character );
    end task_10;
    task task_11 is
        entry out_11 ( c: out character );
        entry in_11 ( c: in character );
    end task_11;
    task task_12 is
        entry out_12 ( c: out character );
        entry in_12 ( c: in character );
    end task_12;
    task task_13 is
        entry out_13 ( c: out character );
        entry in_13 ( c: in character );
    end task_13;
    task task_14 is
        entry out_14 ( c: out character );
        entry in_14 ( c: in character );
    end task_14;
    task task_15 is
        entry out_15 ( c: out character );
        entry in_15 ( c: in character );
    end task_15;
    task task_16 is
        entry out_16 ( c: out character );
        entry in_16 ( c: in character );
    end task_16;
    task task_17 is
        entry out_17 ( c: out character );
        entry in_17 ( c: in character );
    end task_17;
    task task_18 is
        entry out_18 ( c: out character );
        entry in_18 ( c: in character );
    end task_18;
    task task_19 is
        entry out_19 ( c: out character );
        entry in_19 ( c: in character );
    end task_19;
    task task_20 is
        entry out_20 ( c: out character );
        entry in_20 ( c: in character );
    end task_20;
    task task_21 is
        entry out_21 ( c: out character );
        entry in_21 ( c: in character );
    end task_21;
    task task_22 is
        entry out_22 ( c: out character );
        entry in_22 ( c: in character );
    end task_22;
    task task_23 is
        entry out_23 ( c: out character );
        entry in_23 ( c: in character );
    end task_23;
    task task_24 is
        entry out_24 ( c: out character );
        entry in_24 ( c: in character );
    end task_24;
    task task_25 is
        entry out_25 ( c: out character );
        entry in_25 ( c: in character );
    end task_25;
    task task_26 is
        entry out_26 ( c: out character );
        entry in_26 ( c: in character );
    end task_26;
    task task_27 is
        entry out_27 ( c: out character );
        entry in_27 ( c: in character );
    end task_27;
    task task_28 is
        entry out_28 ( c: out character );
        entry in_28 ( c: in character );
    end task_28;
    task task_29 is
        entry out_29 ( c: out character );
        entry in_29 ( c: in character );
    end task_29;
    task task_30 is
        entry out_30 ( c: out character );
        entry in_30 ( c: in character );
    end task_30;
    task task_31 is
        entry out_31 ( c: out character );
        entry in_31 ( c: in character );
    end task_31;
    task task_32 is
        entry out_32 ( c: out character );
        entry in_32 ( c: in character );
    end task_32;
    task task_33 is
        entry out_33 ( c: out character );
        entry in_33 ( c: in character );
    end task_33;
    task task_34 is
        entry out_34 ( c: out character );
        entry in_34 ( c: in character );
    end task_34;
    task task_35 is
        entry out_35 ( c: out character );
        entry in_35 ( c: in character );
    end task_35;
    task task_36 is
        entry out_36 ( c: out character );
        entry in_36 ( c: in character );
    end task_36;
    task task_37 is
        entry out_37 ( c: out character );
        entry in_37 ( c: in character );
    end task_37;
    task task_38 is
        entry out_38 ( c: out character );
        entry in_38 ( c: in character );
    end task_38;
    task task_39 is
        entry out_39 ( c: out character );
        entry in_39 ( c: in character );
    end task_39;
    task task_40 is
        entry out_40 ( c: out character );
        entry in_40 ( c: in character );
    end task_40;
    task task_41 is
        entry out_41 ( c: out character );
        entry in_41 ( c: in character );
    end task_41;
    task task_42 is
        entry out_42 ( c: out character );
        entry in_42 ( c: in character );
    end task_42;
    task task_43 is
        entry out_43 ( c: out character );
        entry in_43 ( c: in character );
    end task_43;
    task task_44 is
        entry out_44 ( c: out character );
        entry in_44 ( c: in character );
    end task_44;
    task task_45 is
        entry out_45 ( c: out character );
        entry in_45 ( c: in character );
    end task_45;
    task task_46 is
        entry out_46 ( c: out character );
        entry in_46 ( c: in character );
    end task_46;
    task task_47 is
        entry out_47 ( c: out character );
        entry in_47 ( c: in character );
    end task_47;
    task task_48 is
        entry out_48 ( c: out character );
        entry in_48 ( c: in character );
    end task_48;
    task task_49 is
        entry out_49 ( c: out character );
        entry in_49 ( c: in character );
    end task_49;
    task task_50 is
        entry out_50 ( c: out character );
        entry in_50 ( c: in character );
    end task_50;
    end z000183;
::::::::::
Z000184.ADA
::::::::::
package z000184 is
    task task_1 is
        entry out_1 ( c: out character );
        entry in_1 ( c: in character );
    end task_1;
    task task_2 is
        entry out_2 ( c: out character );
        entry in_2 ( c: in character );
    end task_2;
    task task_3 is
        entry out_3 ( c: out character );
        entry in_3 ( c: in character );
    end task_3;
    task task_4 is
        entry out_4 ( c: out character );
        entry in_4 ( c: in character );
    end task_4;
    task task_5 is
        entry out_5 ( c: out character );
        entry in_5 ( c: in character );
    end task_5;
    task task_6 is
        entry out_6 ( c: out character );
        entry in_6 ( c: in character );
    end task_6;
    task task_7 is
        entry out_7 ( c: out character );
        entry in_7 ( c: in character );
    end task_7;
    task task_8 is
        entry out_8 ( c: out character );
        entry in_8 ( c: in character );
    end task_8;
    task task_9 is
        entry out_9 ( c: out character );
        entry in_9 ( c: in character );
    end task_9;
    task task_10 is
        entry out_10 ( c: out character );
        entry in_10 ( c: in character );
    end task_10;
    task task_11 is
        entry out_11 ( c: out character );
        entry in_11 ( c: in character );
    end task_11;
    task task_12 is
        entry out_12 ( c: out character );
        entry in_12 ( c: in character );
    end task_12;
    task task_13 is
        entry out_13 ( c: out character );
        entry in_13 ( c: in character );
    end task_13;
    task task_14 is
        entry out_14 ( c: out character );
        entry in_14 ( c: in character );
    end task_14;
    task task_15 is
        entry out_15 ( c: out character );
        entry in_15 ( c: in character );
    end task_15;
    task task_16 is
        entry out_16 ( c: out character );
        entry in_16 ( c: in character );
    end task_16;
    task task_17 is
        entry out_17 ( c: out character );
        entry in_17 ( c: in character );
    end task_17;
    task task_18 is
        entry out_18 ( c: out character );
        entry in_18 ( c: in character );
    end task_18;
    task task_19 is
        entry out_19 ( c: out character );
        entry in_19 ( c: in character );
    end task_19;
    task task_20 is
        entry out_20 ( c: out character );
        entry in_20 ( c: in character );
    end task_20;
    task task_21 is
        entry out_21 ( c: out character );
        entry in_21 ( c: in character );
    end task_21;
    task task_22 is
        entry out_22 ( c: out character );
        entry in_22 ( c: in character );
    end task_22;
    task task_23 is
        entry out_23 ( c: out character );
        entry in_23 ( c: in character );
    end task_23;
    task task_24 is
        entry out_24 ( c: out character );
        entry in_24 ( c: in character );
    end task_24;
    task task_25 is
        entry out_25 ( c: out character );
        entry in_25 ( c: in character );
    end task_25;
    task task_26 is
        entry out_26 ( c: out character );
        entry in_26 ( c: in character );
    end task_26;
    task task_27 is
        entry out_27 ( c: out character );
        entry in_27 ( c: in character );
    end task_27;
    task task_28 is
        entry out_28 ( c: out character );
        entry in_28 ( c: in character );
    end task_28;
    task task_29 is
        entry out_29 ( c: out character );
        entry in_29 ( c: in character );
    end task_29;
    task task_30 is
        entry out_30 ( c: out character );
        entry in_30 ( c: in character );
    end task_30;
    task task_31 is
        entry out_31 ( c: out character );
        entry in_31 ( c: in character );
    end task_31;
    task task_32 is
        entry out_32 ( c: out character );
        entry in_32 ( c: in character );
    end task_32;
    task task_33 is
        entry out_33 ( c: out character );
        entry in_33 ( c: in character );
    end task_33;
    task task_34 is
        entry out_34 ( c: out character );
        entry in_34 ( c: in character );
    end task_34;
    task task_35 is
        entry out_35 ( c: out character );
        entry in_35 ( c: in character );
    end task_35;
    task task_36 is
        entry out_36 ( c: out character );
        entry in_36 ( c: in character );
    end task_36;
    task task_37 is
        entry out_37 ( c: out character );
        entry in_37 ( c: in character );
    end task_37;
    task task_38 is
        entry out_38 ( c: out character );
        entry in_38 ( c: in character );
    end task_38;
    task task_39 is
        entry out_39 ( c: out character );
        entry in_39 ( c: in character );
    end task_39;
    task task_40 is
        entry out_40 ( c: out character );
        entry in_40 ( c: in character );
    end task_40;
    task task_41 is
        entry out_41 ( c: out character );
        entry in_41 ( c: in character );
    end task_41;
    task task_42 is
        entry out_42 ( c: out character );
        entry in_42 ( c: in character );
    end task_42;
    task task_43 is
        entry out_43 ( c: out character );
        entry in_43 ( c: in character );
    end task_43;
    task task_44 is
        entry out_44 ( c: out character );
        entry in_44 ( c: in character );
    end task_44;
    task task_45 is
        entry out_45 ( c: out character );
        entry in_45 ( c: in character );
    end task_45;
    task task_46 is
        entry out_46 ( c: out character );
        entry in_46 ( c: in character );
    end task_46;
    task task_47 is
        entry out_47 ( c: out character );
        entry in_47 ( c: in character );
    end task_47;
    task task_48 is
        entry out_48 ( c: out character );
        entry in_48 ( c: in character );
    end task_48;
    task task_49 is
        entry out_49 ( c: out character );
        entry in_49 ( c: in character );
    end task_49;
    task task_50 is
        entry out_50 ( c: out character );
        entry in_50 ( c: in character );
    end task_50;
    task task_51 is
        entry out_51 ( c: out character );
        entry in_51 ( c: in character );
    end task_51;
    task task_52 is
        entry out_52 ( c: out character );
        entry in_52 ( c: in character );
    end task_52;
    task task_53 is
        entry out_53 ( c: out character );
        entry in_53 ( c: in character );
    end task_53;
    task task_54 is
        entry out_54 ( c: out character );
        entry in_54 ( c: in character );
    end task_54;
    task task_55 is
        entry out_55 ( c: out character );
        entry in_55 ( c: in character );
    end task_55;
    task task_56 is
        entry out_56 ( c: out character );
        entry in_56 ( c: in character );
    end task_56;
    task task_57 is
        entry out_57 ( c: out character );
        entry in_57 ( c: in character );
    end task_57;
    task task_58 is
        entry out_58 ( c: out character );
        entry in_58 ( c: in character );
    end task_58;
    task task_59 is
        entry out_59 ( c: out character );
        entry in_59 ( c: in character );
    end task_59;
    task task_60 is
        entry out_60 ( c: out character );
        entry in_60 ( c: in character );
    end task_60;
    task task_61 is
        entry out_61 ( c: out character );
        entry in_61 ( c: in character );
    end task_61;
    task task_62 is
        entry out_62 ( c: out character );
        entry in_62 ( c: in character );
    end task_62;
    task task_63 is
        entry out_63 ( c: out character );
        entry in_63 ( c: in character );
    end task_63;
    task task_64 is
        entry out_64 ( c: out character );
        entry in_64 ( c: in character );
    end task_64;
    task task_65 is
        entry out_65 ( c: out character );
        entry in_65 ( c: in character );
    end task_65;
    task task_66 is
        entry out_66 ( c: out character );
        entry in_66 ( c: in character );
    end task_66;
    task task_67 is
        entry out_67 ( c: out character );
        entry in_67 ( c: in character );
    end task_67;
    task task_68 is
        entry out_68 ( c: out character );
        entry in_68 ( c: in character );
    end task_68;
    task task_69 is
        entry out_69 ( c: out character );
        entry in_69 ( c: in character );
    end task_69;
    task task_70 is
        entry out_70 ( c: out character );
        entry in_70 ( c: in character );
    end task_70;
    task task_71 is
        entry out_71 ( c: out character );
        entry in_71 ( c: in character );
    end task_71;
    task task_72 is
        entry out_72 ( c: out character );
        entry in_72 ( c: in character );
    end task_72;
    task task_73 is
        entry out_73 ( c: out character );
        entry in_73 ( c: in character );
    end task_73;
    task task_74 is
        entry out_74 ( c: out character );
        entry in_74 ( c: in character );
    end task_74;
    task task_75 is
        entry out_75 ( c: out character );
        entry in_75 ( c: in character );
    end task_75;
    task task_76 is
        entry out_76 ( c: out character );
        entry in_76 ( c: in character );
    end task_76;
    task task_77 is
        entry out_77 ( c: out character );
        entry in_77 ( c: in character );
    end task_77;
    task task_78 is
        entry out_78 ( c: out character );
        entry in_78 ( c: in character );
    end task_78;
    task task_79 is
        entry out_79 ( c: out character );
        entry in_79 ( c: in character );
    end task_79;
    task task_80 is
        entry out_80 ( c: out character );
        entry in_80 ( c: in character );
    end task_80;
    task task_81 is
        entry out_81 ( c: out character );
        entry in_81 ( c: in character );
    end task_81;
    task task_82 is
        entry out_82 ( c: out character );
        entry in_82 ( c: in character );
    end task_82;
    task task_83 is
        entry out_83 ( c: out character );
        entry in_83 ( c: in character );
    end task_83;
    task task_84 is
        entry out_84 ( c: out character );
        entry in_84 ( c: in character );
    end task_84;
    task task_85 is
        entry out_85 ( c: out character );
        entry in_85 ( c: in character );
    end task_85;
    task task_86 is
        entry out_86 ( c: out character );
        entry in_86 ( c: in character );
    end task_86;
    task task_87 is
        entry out_87 ( c: out character );
        entry in_87 ( c: in character );
    end task_87;
    task task_88 is
        entry out_88 ( c: out character );
        entry in_88 ( c: in character );
    end task_88;
    task task_89 is
        entry out_89 ( c: out character );
        entry in_89 ( c: in character );
    end task_89;
    task task_90 is
        entry out_90 ( c: out character );
        entry in_90 ( c: in character );
    end task_90;
    task task_91 is
        entry out_91 ( c: out character );
        entry in_91 ( c: in character );
    end task_91;
    task task_92 is
        entry out_92 ( c: out character );
        entry in_92 ( c: in character );
    end task_92;
    task task_93 is
        entry out_93 ( c: out character );
        entry in_93 ( c: in character );
    end task_93;
    task task_94 is
        entry out_94 ( c: out character );
        entry in_94 ( c: in character );
    end task_94;
    task task_95 is
        entry out_95 ( c: out character );
        entry in_95 ( c: in character );
    end task_95;
    task task_96 is
        entry out_96 ( c: out character );
        entry in_96 ( c: in character );
    end task_96;
    task task_97 is
        entry out_97 ( c: out character );
        entry in_97 ( c: in character );
    end task_97;
    task task_98 is
        entry out_98 ( c: out character );
        entry in_98 ( c: in character );
    end task_98;
    task task_99 is
        entry out_99 ( c: out character );
        entry in_99 ( c: in character );
    end task_99;
    task task_100 is
        entry out_100 ( c: out character );
        entry in_100 ( c: in character );
    end task_100;
    end z000184;
::::::::::
Z000191.ADA
::::::::::
procedure z000191 is
    procedure procedure_1;
    procedure procedure_2 renames procedure_1;
    procedure procedure_3 renames procedure_2;
    procedure procedure_4 renames procedure_3;
    procedure procedure_5 renames procedure_4;
    procedure procedure_6 renames procedure_5;
    procedure procedure_7 renames procedure_6;
    procedure procedure_8 renames procedure_7;
    procedure procedure_9 renames procedure_8;
    procedure procedure_10 renames procedure_9;
    procedure procedure_11 renames procedure_10;
    procedure procedure_12 renames procedure_11;
    procedure procedure_13 renames procedure_12;
    procedure procedure_14 renames procedure_13;
    procedure procedure_15 renames procedure_14;
    procedure procedure_16 renames procedure_15;
    procedure procedure_17 renames procedure_16;
    procedure procedure_18 renames procedure_17;
    procedure procedure_19 renames procedure_18;
    procedure procedure_20 renames procedure_19;
    procedure procedure_21 renames procedure_20;
    procedure procedure_22 renames procedure_21;
    procedure procedure_23 renames procedure_22;
    procedure procedure_24 renames procedure_23;
    procedure procedure_25 renames procedure_24;
    procedure procedure_26 renames procedure_25;
    procedure procedure_27 renames procedure_26;
    procedure procedure_28 renames procedure_27;
    procedure procedure_29 renames procedure_28;
    procedure procedure_30 renames procedure_29;
    procedure procedure_31 renames procedure_30;
    procedure procedure_32 renames procedure_31;
    procedure procedure_33 renames procedure_32;
    procedure procedure_34 renames procedure_33;
    procedure procedure_35 renames procedure_34;
    procedure procedure_36 renames procedure_35;
    procedure procedure_37 renames procedure_36;
    procedure procedure_38 renames procedure_37;
    procedure procedure_39 renames procedure_38;
    procedure procedure_40 renames procedure_39;
    procedure procedure_41 renames procedure_40;
    procedure procedure_42 renames procedure_41;
    procedure procedure_43 renames procedure_42;
    procedure procedure_44 renames procedure_43;
    procedure procedure_45 renames procedure_44;
    procedure procedure_46 renames procedure_45;
    procedure procedure_47 renames procedure_46;
    procedure procedure_48 renames procedure_47;
    procedure procedure_49 renames procedure_48;
    procedure procedure_50 renames procedure_49;
    procedure procedure_51 renames procedure_50;
    procedure procedure_52 renames procedure_51;
    procedure procedure_53 renames procedure_52;
    procedure procedure_54 renames procedure_53;
    procedure procedure_55 renames procedure_54;
    procedure procedure_56 renames procedure_55;
    procedure procedure_57 renames procedure_56;
    procedure procedure_58 renames procedure_57;
    procedure procedure_59 renames procedure_58;
    procedure procedure_60 renames procedure_59;
    procedure procedure_61 renames procedure_60;
    procedure procedure_62 renames procedure_61;
    procedure procedure_63 renames procedure_62;
    procedure procedure_64 renames procedure_63;
    procedure procedure_65 renames procedure_64;
    procedure procedure_66 renames procedure_65;
    procedure procedure_67 renames procedure_66;
    procedure procedure_68 renames procedure_67;
    procedure procedure_69 renames procedure_68;
    procedure procedure_70 renames procedure_69;
    procedure procedure_71 renames procedure_70;
    procedure procedure_72 renames procedure_71;
    procedure procedure_73 renames procedure_72;
    procedure procedure_74 renames procedure_73;
    procedure procedure_75 renames procedure_74;
    procedure procedure_76 renames procedure_75;
    procedure procedure_77 renames procedure_76;
    procedure procedure_78 renames procedure_77;
    procedure procedure_79 renames procedure_78;
    procedure procedure_80 renames procedure_79;
    procedure procedure_81 renames procedure_80;
    procedure procedure_82 renames procedure_81;
    procedure procedure_83 renames procedure_82;
    procedure procedure_84 renames procedure_83;
    procedure procedure_85 renames procedure_84;
    procedure procedure_86 renames procedure_85;
    procedure procedure_87 renames procedure_86;
    procedure procedure_88 renames procedure_87;
    procedure procedure_89 renames procedure_88;
    procedure procedure_90 renames procedure_89;
    procedure procedure_91 renames procedure_90;
    procedure procedure_92 renames procedure_91;
    procedure procedure_93 renames procedure_92;
    procedure procedure_94 renames procedure_93;
    procedure procedure_95 renames procedure_94;
    procedure procedure_96 renames procedure_95;
    procedure procedure_97 renames procedure_96;
    procedure procedure_98 renames procedure_97;
    procedure procedure_99 renames procedure_98;
    procedure procedure_100 renames procedure_99;
    procedure procedure_1 is
        begin
        delay 10.0;
        end procedure_1;
    begin
    procedure_100;
    end z000191;
::::::::::
Z000192.ADA
::::::::::
procedure z000192 is
    procedure procedure_1;
    procedure procedure_2 renames procedure_1;
    procedure procedure_3 renames procedure_2;
    procedure procedure_4 renames procedure_3;
    procedure procedure_5 renames procedure_4;
    procedure procedure_6 renames procedure_5;
    procedure procedure_7 renames procedure_6;
    procedure procedure_8 renames procedure_7;
    procedure procedure_9 renames procedure_8;
    procedure procedure_10 renames procedure_9;
    procedure procedure_11 renames procedure_10;
    procedure procedure_12 renames procedure_11;
    procedure procedure_13 renames procedure_12;
    procedure procedure_14 renames procedure_13;
    procedure procedure_15 renames procedure_14;
    procedure procedure_16 renames procedure_15;
    procedure procedure_17 renames procedure_16;
    procedure procedure_18 renames procedure_17;
    procedure procedure_19 renames procedure_18;
    procedure procedure_20 renames procedure_19;
    procedure procedure_21 renames procedure_20;
    procedure procedure_22 renames procedure_21;
    procedure procedure_23 renames procedure_22;
    procedure procedure_24 renames procedure_23;
    procedure procedure_25 renames procedure_24;
    procedure procedure_26 renames procedure_25;
    procedure procedure_27 renames procedure_26;
    procedure procedure_28 renames procedure_27;
    procedure procedure_29 renames procedure_28;
    procedure procedure_30 renames procedure_29;
    procedure procedure_31 renames procedure_30;
    procedure procedure_32 renames procedure_31;
    procedure procedure_33 renames procedure_32;
    procedure procedure_34 renames procedure_33;
    procedure procedure_35 renames procedure_34;
    procedure procedure_36 renames procedure_35;
    procedure procedure_37 renames procedure_36;
    procedure procedure_38 renames procedure_37;
    procedure procedure_39 renames procedure_38;
    procedure procedure_40 renames procedure_39;
    procedure procedure_41 renames procedure_40;
    procedure procedure_42 renames procedure_41;
    procedure procedure_43 renames procedure_42;
    procedure procedure_44 renames procedure_43;
    procedure procedure_45 renames procedure_44;
    procedure procedure_46 renames procedure_45;
    procedure procedure_47 renames procedure_46;
    procedure procedure_48 renames procedure_47;
    procedure procedure_49 renames procedure_48;
    procedure procedure_50 renames procedure_49;
    procedure procedure_51 renames procedure_50;
    procedure procedure_52 renames procedure_51;
    procedure procedure_53 renames procedure_52;
    procedure procedure_54 renames procedure_53;
    procedure procedure_55 renames procedure_54;
    procedure procedure_56 renames procedure_55;
    procedure procedure_57 renames procedure_56;
    procedure procedure_58 renames procedure_57;
    procedure procedure_59 renames procedure_58;
    procedure procedure_60 renames procedure_59;
    procedure procedure_61 renames procedure_60;
    procedure procedure_62 renames procedure_61;
    procedure procedure_63 renames procedure_62;
    procedure procedure_64 renames procedure_63;
    procedure procedure_65 renames procedure_64;
    procedure procedure_66 renames procedure_65;
    procedure procedure_67 renames procedure_66;
    procedure procedure_68 renames procedure_67;
    procedure procedure_69 renames procedure_68;
    procedure procedure_70 renames procedure_69;
    procedure procedure_71 renames procedure_70;
    procedure procedure_72 renames procedure_71;
    procedure procedure_73 renames procedure_72;
    procedure procedure_74 renames procedure_73;
    procedure procedure_75 renames procedure_74;
    procedure procedure_76 renames procedure_75;
    procedure procedure_77 renames procedure_76;
    procedure procedure_78 renames procedure_77;
    procedure procedure_79 renames procedure_78;
    procedure procedure_80 renames procedure_79;
    procedure procedure_81 renames procedure_80;
    procedure procedure_82 renames procedure_81;
    procedure procedure_83 renames procedure_82;
    procedure procedure_84 renames procedure_83;
    procedure procedure_85 renames procedure_84;
    procedure procedure_86 renames procedure_85;
    procedure procedure_87 renames procedure_86;
    procedure procedure_88 renames procedure_87;
    procedure procedure_89 renames procedure_88;
    procedure procedure_90 renames procedure_89;
    procedure procedure_91 renames procedure_90;
    procedure procedure_92 renames procedure_91;
    procedure procedure_93 renames procedure_92;
    procedure procedure_94 renames procedure_93;
    procedure procedure_95 renames procedure_94;
    procedure procedure_96 renames procedure_95;
    procedure procedure_97 renames procedure_96;
    procedure procedure_98 renames procedure_97;
    procedure procedure_99 renames procedure_98;
    procedure procedure_100 renames procedure_99;
    procedure procedure_101 renames procedure_100;
    procedure procedure_102 renames procedure_101;
    procedure procedure_103 renames procedure_102;
    procedure procedure_104 renames procedure_103;
    procedure procedure_105 renames procedure_104;
    procedure procedure_106 renames procedure_105;
    procedure procedure_107 renames procedure_106;
    procedure procedure_108 renames procedure_107;
    procedure procedure_109 renames procedure_108;
    procedure procedure_110 renames procedure_109;
    procedure procedure_111 renames procedure_110;
    procedure procedure_112 renames procedure_111;
    procedure procedure_113 renames procedure_112;
    procedure procedure_114 renames procedure_113;
    procedure procedure_115 renames procedure_114;
    procedure procedure_116 renames procedure_115;
    procedure procedure_117 renames procedure_116;
    procedure procedure_118 renames procedure_117;
    procedure procedure_119 renames procedure_118;
    procedure procedure_120 renames procedure_119;
    procedure procedure_121 renames procedure_120;
    procedure procedure_122 renames procedure_121;
    procedure procedure_123 renames procedure_122;
    procedure procedure_124 renames procedure_123;
    procedure procedure_125 renames procedure_124;
    procedure procedure_126 renames procedure_125;
    procedure procedure_127 renames procedure_126;
    procedure procedure_128 renames procedure_127;
    procedure procedure_129 renames procedure_128;
    procedure procedure_130 renames procedure_129;
    procedure procedure_131 renames procedure_130;
    procedure procedure_132 renames procedure_131;
    procedure procedure_133 renames procedure_132;
    procedure procedure_134 renames procedure_133;
    procedure procedure_135 renames procedure_134;
    procedure procedure_136 renames procedure_135;
    procedure procedure_137 renames procedure_136;
    procedure procedure_138 renames procedure_137;
    procedure procedure_139 renames procedure_138;
    procedure procedure_140 renames procedure_139;
    procedure procedure_141 renames procedure_140;
    procedure procedure_142 renames procedure_141;
    procedure procedure_143 renames procedure_142;
    procedure procedure_144 renames procedure_143;
    procedure procedure_145 renames procedure_144;
    procedure procedure_146 renames procedure_145;
    procedure procedure_147 renames procedure_146;
    procedure procedure_148 renames procedure_147;
    procedure procedure_149 renames procedure_148;
    procedure procedure_150 renames procedure_149;
    procedure procedure_151 renames procedure_150;
    procedure procedure_152 renames procedure_151;
    procedure procedure_153 renames procedure_152;
    procedure procedure_154 renames procedure_153;
    procedure procedure_155 renames procedure_154;
    procedure procedure_156 renames procedure_155;
    procedure procedure_157 renames procedure_156;
    procedure procedure_158 renames procedure_157;
    procedure procedure_159 renames procedure_158;
    procedure procedure_160 renames procedure_159;
    procedure procedure_161 renames procedure_160;
    procedure procedure_162 renames procedure_161;
    procedure procedure_163 renames procedure_162;
    procedure procedure_164 renames procedure_163;
    procedure procedure_165 renames procedure_164;
    procedure procedure_166 renames procedure_165;
    procedure procedure_167 renames procedure_166;
    procedure procedure_168 renames procedure_167;
    procedure procedure_169 renames procedure_168;
    procedure procedure_170 renames procedure_169;
    procedure procedure_171 renames procedure_170;
    procedure procedure_172 renames procedure_171;
    procedure procedure_173 renames procedure_172;
    procedure procedure_174 renames procedure_173;
    procedure procedure_175 renames procedure_174;
    procedure procedure_176 renames procedure_175;
    procedure procedure_177 renames procedure_176;
    procedure procedure_178 renames procedure_177;
    procedure procedure_179 renames procedure_178;
    procedure procedure_180 renames procedure_179;
    procedure procedure_181 renames procedure_180;
    procedure procedure_182 renames procedure_181;
    procedure procedure_183 renames procedure_182;
    procedure procedure_184 renames procedure_183;
    procedure procedure_185 renames procedure_184;
    procedure procedure_186 renames procedure_185;
    procedure procedure_187 renames procedure_186;
    procedure procedure_188 renames procedure_187;
    procedure procedure_189 renames procedure_188;
    procedure procedure_190 renames procedure_189;
    procedure procedure_191 renames procedure_190;
    procedure procedure_192 renames procedure_191;
    procedure procedure_193 renames procedure_192;
    procedure procedure_194 renames procedure_193;
    procedure procedure_195 renames procedure_194;
    procedure procedure_196 renames procedure_195;
    procedure procedure_197 renames procedure_196;
    procedure procedure_198 renames procedure_197;
    procedure procedure_199 renames procedure_198;
    procedure procedure_200 renames procedure_199;
    procedure procedure_1 is
        begin
        delay 10.0;
        end procedure_1;
    begin
    procedure_200;
    end z000192;
::::::::::
Z000193.ADA
::::::::::
procedure z000193 is
    procedure procedure_1;
    procedure procedure_2 renames procedure_1;
    procedure procedure_3 renames procedure_2;
    procedure procedure_4 renames procedure_3;
    procedure procedure_5 renames procedure_4;
    procedure procedure_6 renames procedure_5;
    procedure procedure_7 renames procedure_6;
    procedure procedure_8 renames procedure_7;
    procedure procedure_9 renames procedure_8;
    procedure procedure_10 renames procedure_9;
    procedure procedure_11 renames procedure_10;
    procedure procedure_12 renames procedure_11;
    procedure procedure_13 renames procedure_12;
    procedure procedure_14 renames procedure_13;
    procedure procedure_15 renames procedure_14;
    procedure procedure_16 renames procedure_15;
    procedure procedure_17 renames procedure_16;
    procedure procedure_18 renames procedure_17;
    procedure procedure_19 renames procedure_18;
    procedure procedure_20 renames procedure_19;
    procedure procedure_21 renames procedure_20;
    procedure procedure_22 renames procedure_21;
    procedure procedure_23 renames procedure_22;
    procedure procedure_24 renames procedure_23;
    procedure procedure_25 renames procedure_24;
    procedure procedure_26 renames procedure_25;
    procedure procedure_27 renames procedure_26;
    procedure procedure_28 renames procedure_27;
    procedure procedure_29 renames procedure_28;
    procedure procedure_30 renames procedure_29;
    procedure procedure_31 renames procedure_30;
    procedure procedure_32 renames procedure_31;
    procedure procedure_33 renames procedure_32;
    procedure procedure_34 renames procedure_33;
    procedure procedure_35 renames procedure_34;
    procedure procedure_36 renames procedure_35;
    procedure procedure_37 renames procedure_36;
    procedure procedure_38 renames procedure_37;
    procedure procedure_39 renames procedure_38;
    procedure procedure_40 renames procedure_39;
    procedure procedure_41 renames procedure_40;
    procedure procedure_42 renames procedure_41;
    procedure procedure_43 renames procedure_42;
    procedure procedure_44 renames procedure_43;
    procedure procedure_45 renames procedure_44;
    procedure procedure_46 renames procedure_45;
    procedure procedure_47 renames procedure_46;
    procedure procedure_48 renames procedure_47;
    procedure procedure_49 renames procedure_48;
    procedure procedure_50 renames procedure_49;
    procedure procedure_51 renames procedure_50;
    procedure procedure_52 renames procedure_51;
    procedure procedure_53 renames procedure_52;
    procedure procedure_54 renames procedure_53;
    procedure procedure_55 renames procedure_54;
    procedure procedure_56 renames procedure_55;
    procedure procedure_57 renames procedure_56;
    procedure procedure_58 renames procedure_57;
    procedure procedure_59 renames procedure_58;
    procedure procedure_60 renames procedure_59;
    procedure procedure_61 renames procedure_60;
    procedure procedure_62 renames procedure_61;
    procedure procedure_63 renames procedure_62;
    procedure procedure_64 renames procedure_63;
    procedure procedure_65 renames procedure_64;
    procedure procedure_66 renames procedure_65;
    procedure procedure_67 renames procedure_66;
    procedure procedure_68 renames procedure_67;
    procedure procedure_69 renames procedure_68;
    procedure procedure_70 renames procedure_69;
    procedure procedure_71 renames procedure_70;
    procedure procedure_72 renames procedure_71;
    procedure procedure_73 renames procedure_72;
    procedure procedure_74 renames procedure_73;
    procedure procedure_75 renames procedure_74;
    procedure procedure_76 renames procedure_75;
    procedure procedure_77 renames procedure_76;
    procedure procedure_78 renames procedure_77;
    procedure procedure_79 renames procedure_78;
    procedure procedure_80 renames procedure_79;
    procedure procedure_81 renames procedure_80;
    procedure procedure_82 renames procedure_81;
    procedure procedure_83 renames procedure_82;
    procedure procedure_84 renames procedure_83;
    procedure procedure_85 renames procedure_84;
    procedure procedure_86 renames procedure_85;
    procedure procedure_87 renames procedure_86;
    procedure procedure_88 renames procedure_87;
    procedure procedure_89 renames procedure_88;
    procedure procedure_90 renames procedure_89;
    procedure procedure_91 renames procedure_90;
    procedure procedure_92 renames procedure_91;
    procedure procedure_93 renames procedure_92;
    procedure procedure_94 renames procedure_93;
    procedure procedure_95 renames procedure_94;
    procedure procedure_96 renames procedure_95;
    procedure procedure_97 renames procedure_96;
    procedure procedure_98 renames procedure_97;
    procedure procedure_99 renames procedure_98;
    procedure procedure_100 renames procedure_99;
    procedure procedure_101 renames procedure_100;
    procedure procedure_102 renames procedure_101;
    procedure procedure_103 renames procedure_102;
    procedure procedure_104 renames procedure_103;
    procedure procedure_105 renames procedure_104;
    procedure procedure_106 renames procedure_105;
    procedure procedure_107 renames procedure_106;
    procedure procedure_108 renames procedure_107;
    procedure procedure_109 renames procedure_108;
    procedure procedure_110 renames procedure_109;
    procedure procedure_111 renames procedure_110;
    procedure procedure_112 renames procedure_111;
    procedure procedure_113 renames procedure_112;
    procedure procedure_114 renames procedure_113;
    procedure procedure_115 renames procedure_114;
    procedure procedure_116 renames procedure_115;
    procedure procedure_117 renames procedure_116;
    procedure procedure_118 renames procedure_117;
    procedure procedure_119 renames procedure_118;
    procedure procedure_120 renames procedure_119;
    procedure procedure_121 renames procedure_120;
    procedure procedure_122 renames procedure_121;
    procedure procedure_123 renames procedure_122;
    procedure procedure_124 renames procedure_123;
    procedure procedure_125 renames procedure_124;
    procedure procedure_126 renames procedure_125;
    procedure procedure_127 renames procedure_126;
    procedure procedure_128 renames procedure_127;
    procedure procedure_129 renames procedure_128;
    procedure procedure_130 renames procedure_129;
    procedure procedure_131 renames procedure_130;
    procedure procedure_132 renames procedure_131;
    procedure procedure_133 renames procedure_132;
    procedure procedure_134 renames procedure_133;
    procedure procedure_135 renames procedure_134;
    procedure procedure_136 renames procedure_135;
    procedure procedure_137 renames procedure_136;
    procedure procedure_138 renames procedure_137;
    procedure procedure_139 renames procedure_138;
    procedure procedure_140 renames procedure_139;
    procedure procedure_141 renames procedure_140;
    procedure procedure_142 renames procedure_141;
    procedure procedure_143 renames procedure_142;
    procedure procedure_144 renames procedure_143;
    procedure procedure_145 renames procedure_144;
    procedure procedure_146 renames procedure_145;
    procedure procedure_147 renames procedure_146;
    procedure procedure_148 renames procedure_147;
    procedure procedure_149 renames procedure_148;
    procedure procedure_150 renames procedure_149;
    procedure procedure_151 renames procedure_150;
    procedure procedure_152 renames procedure_151;
    procedure procedure_153 renames procedure_152;
    procedure procedure_154 renames procedure_153;
    procedure procedure_155 renames procedure_154;
    procedure procedure_156 renames procedure_155;
    procedure procedure_157 renames procedure_156;
    procedure procedure_158 renames procedure_157;
    procedure procedure_159 renames procedure_158;
    procedure procedure_160 renames procedure_159;
    procedure procedure_161 renames procedure_160;
    procedure procedure_162 renames procedure_161;
    procedure procedure_163 renames procedure_162;
    procedure procedure_164 renames procedure_163;
    procedure procedure_165 renames procedure_164;
    procedure procedure_166 renames procedure_165;
    procedure procedure_167 renames procedure_166;
    procedure procedure_168 renames procedure_167;
    procedure procedure_169 renames procedure_168;
    procedure procedure_170 renames procedure_169;
    procedure procedure_171 renames procedure_170;
    procedure procedure_172 renames procedure_171;
    procedure procedure_173 renames procedure_172;
    procedure procedure_174 renames procedure_173;
    procedure procedure_175 renames procedure_174;
    procedure procedure_176 renames procedure_175;
    procedure procedure_177 renames procedure_176;
    procedure procedure_178 renames procedure_177;
    procedure procedure_179 renames procedure_178;
    procedure procedure_180 renames procedure_179;
    procedure procedure_181 renames procedure_180;
    procedure procedure_182 renames procedure_181;
    procedure procedure_183 renames procedure_182;
    procedure procedure_184 renames procedure_183;
    procedure procedure_185 renames procedure_184;
    procedure procedure_186 renames procedure_185;
    procedure procedure_187 renames procedure_186;
    procedure procedure_188 renames procedure_187;
    procedure procedure_189 renames procedure_188;
    procedure procedure_190 renames procedure_189;
    procedure procedure_191 renames procedure_190;
    procedure procedure_192 renames procedure_191;
    procedure procedure_193 renames procedure_192;
    procedure procedure_194 renames procedure_193;
    procedure procedure_195 renames procedure_194;
    procedure procedure_196 renames procedure_195;
    procedure procedure_197 renames procedure_196;
    procedure procedure_198 renames procedure_197;
    procedure procedure_199 renames procedure_198;
    procedure procedure_200 renames procedure_199;
    procedure procedure_201 renames procedure_200;
    procedure procedure_202 renames procedure_201;
    procedure procedure_203 renames procedure_202;
    procedure procedure_204 renames procedure_203;
    procedure procedure_205 renames procedure_204;
    procedure procedure_206 renames procedure_205;
    procedure procedure_207 renames procedure_206;
    procedure procedure_208 renames procedure_207;
    procedure procedure_209 renames procedure_208;
    procedure procedure_210 renames procedure_209;
    procedure procedure_211 renames procedure_210;
    procedure procedure_212 renames procedure_211;
    procedure procedure_213 renames procedure_212;
    procedure procedure_214 renames procedure_213;
    procedure procedure_215 renames procedure_214;
    procedure procedure_216 renames procedure_215;
    procedure procedure_217 renames procedure_216;
    procedure procedure_218 renames procedure_217;
    procedure procedure_219 renames procedure_218;
    procedure procedure_220 renames procedure_219;
    procedure procedure_221 renames procedure_220;
    procedure procedure_222 renames procedure_221;
    procedure procedure_223 renames procedure_222;
    procedure procedure_224 renames procedure_223;
    procedure procedure_225 renames procedure_224;
    procedure procedure_226 renames procedure_225;
    procedure procedure_227 renames procedure_226;
    procedure procedure_228 renames procedure_227;
    procedure procedure_229 renames procedure_228;
    procedure procedure_230 renames procedure_229;
    procedure procedure_231 renames procedure_230;
    procedure procedure_232 renames procedure_231;
    procedure procedure_233 renames procedure_232;
    procedure procedure_234 renames procedure_233;
    procedure procedure_235 renames procedure_234;
    procedure procedure_236 renames procedure_235;
    procedure procedure_237 renames procedure_236;
    procedure procedure_238 renames procedure_237;
    procedure procedure_239 renames procedure_238;
    procedure procedure_240 renames procedure_239;
    procedure procedure_241 renames procedure_240;
    procedure procedure_242 renames procedure_241;
    procedure procedure_243 renames procedure_242;
    procedure procedure_244 renames procedure_243;
    procedure procedure_245 renames procedure_244;
    procedure procedure_246 renames procedure_245;
    procedure procedure_247 renames procedure_246;
    procedure procedure_248 renames procedure_247;
    procedure procedure_249 renames procedure_248;
    procedure procedure_250 renames procedure_249;
    procedure procedure_251 renames procedure_250;
    procedure procedure_252 renames procedure_251;
    procedure procedure_253 renames procedure_252;
    procedure procedure_254 renames procedure_253;
    procedure procedure_255 renames procedure_254;
    procedure procedure_256 renames procedure_255;
    procedure procedure_257 renames procedure_256;
    procedure procedure_258 renames procedure_257;
    procedure procedure_259 renames procedure_258;
    procedure procedure_260 renames procedure_259;
    procedure procedure_261 renames procedure_260;
    procedure procedure_262 renames procedure_261;
    procedure procedure_263 renames procedure_262;
    procedure procedure_264 renames procedure_263;
    procedure procedure_265 renames procedure_264;
    procedure procedure_266 renames procedure_265;
    procedure procedure_267 renames procedure_266;
    procedure procedure_268 renames procedure_267;
    procedure procedure_269 renames procedure_268;
    procedure procedure_270 renames procedure_269;
    procedure procedure_271 renames procedure_270;
    procedure procedure_272 renames procedure_271;
    procedure procedure_273 renames procedure_272;
    procedure procedure_274 renames procedure_273;
    procedure procedure_275 renames procedure_274;
    procedure procedure_276 renames procedure_275;
    procedure procedure_277 renames procedure_276;
    procedure procedure_278 renames procedure_277;
    procedure procedure_279 renames procedure_278;
    procedure procedure_280 renames procedure_279;
    procedure procedure_281 renames procedure_280;
    procedure procedure_282 renames procedure_281;
    procedure procedure_283 renames procedure_282;
    procedure procedure_284 renames procedure_283;
    procedure procedure_285 renames procedure_284;
    procedure procedure_286 renames procedure_285;
    procedure procedure_287 renames procedure_286;
    procedure procedure_288 renames procedure_287;
    procedure procedure_289 renames procedure_288;
    procedure procedure_290 renames procedure_289;
    procedure procedure_291 renames procedure_290;
    procedure procedure_292 renames procedure_291;
    procedure procedure_293 renames procedure_292;
    procedure procedure_294 renames procedure_293;
    procedure procedure_295 renames procedure_294;
    procedure procedure_296 renames procedure_295;
    procedure procedure_297 renames procedure_296;
    procedure procedure_298 renames procedure_297;
    procedure procedure_299 renames procedure_298;
    procedure procedure_300 renames procedure_299;
    procedure procedure_301 renames procedure_300;
    procedure procedure_302 renames procedure_301;
    procedure procedure_303 renames procedure_302;
    procedure procedure_304 renames procedure_303;
    procedure procedure_305 renames procedure_304;
    procedure procedure_306 renames procedure_305;
    procedure procedure_307 renames procedure_306;
    procedure procedure_308 renames procedure_307;
    procedure procedure_309 renames procedure_308;
    procedure procedure_310 renames procedure_309;
    procedure procedure_311 renames procedure_310;
    procedure procedure_312 renames procedure_311;
    procedure procedure_313 renames procedure_312;
    procedure procedure_314 renames procedure_313;
    procedure procedure_315 renames procedure_314;
    procedure procedure_316 renames procedure_315;
    procedure procedure_317 renames procedure_316;
    procedure procedure_318 renames procedure_317;
    procedure procedure_319 renames procedure_318;
    procedure procedure_320 renames procedure_319;
    procedure procedure_321 renames procedure_320;
    procedure procedure_322 renames procedure_321;
    procedure procedure_323 renames procedure_322;
    procedure procedure_324 renames procedure_323;
    procedure procedure_325 renames procedure_324;
    procedure procedure_326 renames procedure_325;
    procedure procedure_327 renames procedure_326;
    procedure procedure_328 renames procedure_327;
    procedure procedure_329 renames procedure_328;
    procedure procedure_330 renames procedure_329;
    procedure procedure_331 renames procedure_330;
    procedure procedure_332 renames procedure_331;
    procedure procedure_333 renames procedure_332;
    procedure procedure_334 renames procedure_333;
    procedure procedure_335 renames procedure_334;
    procedure procedure_336 renames procedure_335;
    procedure procedure_337 renames procedure_336;
    procedure procedure_338 renames procedure_337;
    procedure procedure_339 renames procedure_338;
    procedure procedure_340 renames procedure_339;
    procedure procedure_341 renames procedure_340;
    procedure procedure_342 renames procedure_341;
    procedure procedure_343 renames procedure_342;
    procedure procedure_344 renames procedure_343;
    procedure procedure_345 renames procedure_344;
    procedure procedure_346 renames procedure_345;
    procedure procedure_347 renames procedure_346;
    procedure procedure_348 renames procedure_347;
    procedure procedure_349 renames procedure_348;
    procedure procedure_350 renames procedure_349;
    procedure procedure_351 renames procedure_350;
    procedure procedure_352 renames procedure_351;
    procedure procedure_353 renames procedure_352;
    procedure procedure_354 renames procedure_353;
    procedure procedure_355 renames procedure_354;
    procedure procedure_356 renames procedure_355;
    procedure procedure_357 renames procedure_356;
    procedure procedure_358 renames procedure_357;
    procedure procedure_359 renames procedure_358;
    procedure procedure_360 renames procedure_359;
    procedure procedure_361 renames procedure_360;
    procedure procedure_362 renames procedure_361;
    procedure procedure_363 renames procedure_362;
    procedure procedure_364 renames procedure_363;
    procedure procedure_365 renames procedure_364;
    procedure procedure_366 renames procedure_365;
    procedure procedure_367 renames procedure_366;
    procedure procedure_368 renames procedure_367;
    procedure procedure_369 renames procedure_368;
    procedure procedure_370 renames procedure_369;
    procedure procedure_371 renames procedure_370;
    procedure procedure_372 renames procedure_371;
    procedure procedure_373 renames procedure_372;
    procedure procedure_374 renames procedure_373;
    procedure procedure_375 renames procedure_374;
    procedure procedure_376 renames procedure_375;
    procedure procedure_377 renames procedure_376;
    procedure procedure_378 renames procedure_377;
    procedure procedure_379 renames procedure_378;
    procedure procedure_380 renames procedure_379;
    procedure procedure_381 renames procedure_380;
    procedure procedure_382 renames procedure_381;
    procedure procedure_383 renames procedure_382;
    procedure procedure_384 renames procedure_383;
    procedure procedure_385 renames procedure_384;
    procedure procedure_386 renames procedure_385;
    procedure procedure_387 renames procedure_386;
    procedure procedure_388 renames procedure_387;
    procedure procedure_389 renames procedure_388;
    procedure procedure_390 renames procedure_389;
    procedure procedure_391 renames procedure_390;
    procedure procedure_392 renames procedure_391;
    procedure procedure_393 renames procedure_392;
    procedure procedure_394 renames procedure_393;
    procedure procedure_395 renames procedure_394;
    procedure procedure_396 renames procedure_395;
    procedure procedure_397 renames procedure_396;
    procedure procedure_398 renames procedure_397;
    procedure procedure_399 renames procedure_398;
    procedure procedure_400 renames procedure_399;
    procedure procedure_401 renames procedure_400;
    procedure procedure_402 renames procedure_401;
    procedure procedure_403 renames procedure_402;
    procedure procedure_404 renames procedure_403;
    procedure procedure_405 renames procedure_404;
    procedure procedure_406 renames procedure_405;
    procedure procedure_407 renames procedure_406;
    procedure procedure_408 renames procedure_407;
    procedure procedure_409 renames procedure_408;
    procedure procedure_410 renames procedure_409;
    procedure procedure_411 renames procedure_410;
    procedure procedure_412 renames procedure_411;
    procedure procedure_413 renames procedure_412;
    procedure procedure_414 renames procedure_413;
    procedure procedure_415 renames procedure_414;
    procedure procedure_416 renames procedure_415;
    procedure procedure_417 renames procedure_416;
    procedure procedure_418 renames procedure_417;
    procedure procedure_419 renames procedure_418;
    procedure procedure_420 renames procedure_419;
    procedure procedure_421 renames procedure_420;
    procedure procedure_422 renames procedure_421;
    procedure procedure_423 renames procedure_422;
    procedure procedure_424 renames procedure_423;
    procedure procedure_425 renames procedure_424;
    procedure procedure_426 renames procedure_425;
    procedure procedure_427 renames procedure_426;
    procedure procedure_428 renames procedure_427;
    procedure procedure_429 renames procedure_428;
    procedure procedure_430 renames procedure_429;
    procedure procedure_431 renames procedure_430;
    procedure procedure_432 renames procedure_431;
    procedure procedure_433 renames procedure_432;
    procedure procedure_434 renames procedure_433;
    procedure procedure_435 renames procedure_434;
    procedure procedure_436 renames procedure_435;
    procedure procedure_437 renames procedure_436;
    procedure procedure_438 renames procedure_437;
    procedure procedure_439 renames procedure_438;
    procedure procedure_440 renames procedure_439;
    procedure procedure_441 renames procedure_440;
    procedure procedure_442 renames procedure_441;
    procedure procedure_443 renames procedure_442;
    procedure procedure_444 renames procedure_443;
    procedure procedure_445 renames procedure_444;
    procedure procedure_446 renames procedure_445;
    procedure procedure_447 renames procedure_446;
    procedure procedure_448 renames procedure_447;
    procedure procedure_449 renames procedure_448;
    procedure procedure_450 renames procedure_449;
    procedure procedure_451 renames procedure_450;
    procedure procedure_452 renames procedure_451;
    procedure procedure_453 renames procedure_452;
    procedure procedure_454 renames procedure_453;
    procedure procedure_455 renames procedure_454;
    procedure procedure_456 renames procedure_455;
    procedure procedure_457 renames procedure_456;
    procedure procedure_458 renames procedure_457;
    procedure procedure_459 renames procedure_458;
    procedure procedure_460 renames procedure_459;
    procedure procedure_461 renames procedure_460;
    procedure procedure_462 renames procedure_461;
    procedure procedure_463 renames procedure_462;
    procedure procedure_464 renames procedure_463;
    procedure procedure_465 renames procedure_464;
    procedure procedure_466 renames procedure_465;
    procedure procedure_467 renames procedure_466;
    procedure procedure_468 renames procedure_467;
    procedure procedure_469 renames procedure_468;
    procedure procedure_470 renames procedure_469;
    procedure procedure_471 renames procedure_470;
    procedure procedure_472 renames procedure_471;
    procedure procedure_473 renames procedure_472;
    procedure procedure_474 renames procedure_473;
    procedure procedure_475 renames procedure_474;
    procedure procedure_476 renames procedure_475;
    procedure procedure_477 renames procedure_476;
    procedure procedure_478 renames procedure_477;
    procedure procedure_479 renames procedure_478;
    procedure procedure_480 renames procedure_479;
    procedure procedure_481 renames procedure_480;
    procedure procedure_482 renames procedure_481;
    procedure procedure_483 renames procedure_482;
    procedure procedure_484 renames procedure_483;
    procedure procedure_485 renames procedure_484;
    procedure procedure_486 renames procedure_485;
    procedure procedure_487 renames procedure_486;
    procedure procedure_488 renames procedure_487;
    procedure procedure_489 renames procedure_488;
    procedure procedure_490 renames procedure_489;
    procedure procedure_491 renames procedure_490;
    procedure procedure_492 renames procedure_491;
    procedure procedure_493 renames procedure_492;
    procedure procedure_494 renames procedure_493;
    procedure procedure_495 renames procedure_494;
    procedure procedure_496 renames procedure_495;
    procedure procedure_497 renames procedure_496;
    procedure procedure_498 renames procedure_497;
    procedure procedure_499 renames procedure_498;
    procedure procedure_500 renames procedure_499;
    procedure procedure_1 is
        begin
        delay 10.0;
        end procedure_1;
    begin
    procedure_500;
    end z000193;