CVS difference for arm/source/numerics.mss

Differences between 1.48 and version 1.49
Log of other versions for file arm/source/numerics.mss

--- arm/source/numerics.mss	2005/12/06 06:34:04	1.48
+++ arm/source/numerics.mss	2005/12/15 02:36:38	1.49
@@ -1,8 +1,8 @@
 @comment{ $Source: e:\\cvsroot/ARM/Source/numerics.mss,v $ }
-@comment{ $Revision: 1.48 $ $Date: 2005/12/06 06:34:04 $ $Author: Randy $ }
+@comment{ $Revision: 1.49 $ $Date: 2005/12/15 02:36:38 $ $Author: Randy $ }
 @Part(numerics, Root="ada.mss")
 
-@Comment{$Date: 2005/12/06 06:34:04 $}
+@Comment{$Date: 2005/12/15 02:36:38 $}
 
 @LabeledNormativeAnnex{Numerics}
 @begin{Intro}
@@ -2596,7 +2596,8 @@
 
 @ChgRef{Version=[2],Kind=[AddedNormal]}
 @ChgAdded{Version=[2],Text=[   @key{type} @AdaTypeDefn{Real_Vector} @key{is array} (Integer @key{range} <>) @key{of} Real'Base;
-   @key{type} @AdaTypeDefn{Real_Matrix} @key{is array} (Integer @key{range} <>, Integer @key{range} <>) @key{of} Real'Base;]}
+   @key{type} @AdaTypeDefn{Real_Matrix} @key{is array} (Integer @key{range} <>, Integer @key{range} <>)
+                                                   @key{of} Real'Base;]}
 
 @ChgRef{Version=[2],Kind=[AddedNormal]}
 @ChgAdded{Version=[2],Text=[   -- @RI{Subprograms for Real_Vector types}]}
@@ -2623,9 +2624,12 @@
 @ChgAdded{Version=[2],Text=[   -- @RI[Real_Vector scaling operations]]}
 
 @ChgRef{Version=[2],Kind=[AddedNormal]}
-@ChgAdded{Version=[2],Text=[   @key{function} "*" (Left : Real'Base;   Right : Real_Vector) @key{return} Real_Vector;
-   @key{function} "*" (Left : Real_Vector; Right : Real'Base)   @key{return} Real_Vector;
-   @key{function} "/" (Left : Real_Vector; Right : Real'Base)   @key{return} Real_Vector;]}
+@ChgAdded{Version=[2],Text=[   @key{function} "*" (Left : Real'Base;   Right : Real_Vector)
+      @key{return} Real_Vector;
+   @key{function} "*" (Left : Real_Vector; Right : Real'Base)
+      @key{return} Real_Vector;
+   @key{function} "/" (Left : Real_Vector; Right : Real'Base)
+      @key{return} Real_Vector;]}
 
 @ChgRef{Version=[2],Kind=[AddedNormal]}
 @ChgAdded{Version=[2],Text=[   -- @RI[Other Real_Vector operations]]}
@@ -2656,16 +2660,21 @@
 @ChgAdded{Version=[2],Text=[   @key{function} "*" (Left, Right : Real_Vector) @key{return} Real_Matrix;]}
 
 @ChgRef{Version=[2],Kind=[AddedNormal]}
-@ChgAdded{Version=[2],Text=[   @key{function} "*" (Left : Real_Vector; Right : Real_Matrix) @key{return} Real_Vector;
-   @key{function} "*" (Left : Real_Matrix; Right : Real_Vector) @key{return} Real_Vector;]}
+@ChgAdded{Version=[2],Text=[   @key{function} "*" (Left : Real_Vector; Right : Real_Matrix)
+      @key{return} Real_Vector;
+   @key{function} "*" (Left : Real_Matrix; Right : Real_Vector)
+      @key{return} Real_Vector;]}
 
 @ChgRef{Version=[2],Kind=[AddedNormal]}
 @ChgAdded{Version=[2],Text=[   -- @RI[Real_Matrix scaling operations]]}
 
 @ChgRef{Version=[2],Kind=[AddedNormal]}
-@ChgAdded{Version=[2],Text=[   @key{function} "*" (Left : Real'Base;   Right : Real_Matrix) @key{return} Real_Matrix;
-   @key{function} "*" (Left : Real_Matrix; Right : Real'Base)   @key{return} Real_Matrix;
-   @key{function} "/" (Left : Real_Matrix; Right : Real'Base)   @key{return} Real_Matrix;]}
+@ChgAdded{Version=[2],Text=[   @key{function} "*" (Left : Real'Base;   Right : Real_Matrix)
+      @key{return} Real_Matrix;
+   @key{function} "*" (Left : Real_Matrix; Right : Real'Base)
+      @key{return} Real_Matrix;
+   @key{function} "/" (Left : Real_Matrix; Right : Real'Base)
+      @key{return} Real_Matrix;]}
 
 @ChgRef{Version=[2],Kind=[AddedNormal]}
 @ChgAdded{Version=[2],Text=[   -- @RI[Real_Matrix inversion and related operations]]}
@@ -3181,9 +3190,11 @@
 @ChgRef{Version=[2],Kind=[AddedNormal]}
 @ChgAdded{Version=[2],Text=[@key{with} Ada.Numerics.Generic_Real_Arrays, Ada.Numerics.Generic_Complex_Types;
 @key{generic}
-   @key{with package} Real_Arrays   @key{is new} Ada.Numerics.Generic_Real_Arrays   (<>);
+   @key{with package} Real_Arrays   @key{is new}
+      Ada.Numerics.Generic_Real_Arrays   (<>);
    @key{use} Real_Arrays;
-   @key{with package} Complex_Types @key{is new} Ada.Numerics.Generic_Complex_Types (Real);
+   @key{with package} Complex_Types @key{is new}
+      Ada.Numerics.Generic_Complex_Types (Real);
    @key{use} Complex_Types;
 @key{package} Ada.Numerics.Generic_Complex_Arrays @key{is}@ChildUnit{Parent=[Ada.Numerics],Child=[Generic_@!Complex_@!Arrays]}
    @key{pragma} Pure(Generic_Complex_Arrays);]}
@@ -3521,7 +3532,8 @@
 @begin{Example}
 @ChgRef{Version=[2],Kind=[AddedNormal]}
 @ChgAdded{Version=[2],KeepNext=[T],Text=[@key{function} Modulus  (X     : Complex_Vector) @key{return} Real_Vector;
-@key{function} "@key{abs}"    (Right : Complex_Vector) @key{return} Real_Vector @key{renames} Modulus;
+@key{function} "@key{abs}"    (Right : Complex_Vector) @key{return} Real_Vector
+                                              @key{renames} Modulus;
 @key{function} Argument (X     : Complex_Vector) @key{return} Real_Vector;
 @key{function} Argument (X     : Complex_Vector;
                    Cycle : Real'Base)      @key{return} Real_Vector;]}
@@ -3669,7 +3681,8 @@
 
 @begin{Example}
 @ChgRef{Version=[2],Kind=[AddedNormal]}
-@ChgAdded{Version=[2],KeepNext=[T],Text=[@key{function} "*" (Left : Real'Base; Right : Complex_Vector) @key{return} Complex_Vector;]}
+@ChgAdded{Version=[2],KeepNext=[T],Text=[@key{function} "*" (Left : Real'Base;
+              Right : Complex_Vector) @key{return} Complex_Vector;]}
 @end{Example}
 
 @ChgRef{Version=[2],Kind=[AddedNormal],ARef=[AI95-00296-01]}
@@ -3680,8 +3693,10 @@
 
 @begin{Example}
 @ChgRef{Version=[2],Kind=[AddedNormal]}
-@ChgAdded{Version=[2],KeepNext=[T],Text=[@key{function} "*" (Left : Complex_Vector; Right : Real'Base) @key{return} Complex_Vector;
-@key{function} "/" (Left : Complex_Vector; Right : Real'Base) @key{return} Complex_Vector;]}
+@ChgAdded{Version=[2],KeepNext=[T],Text=[@key{function} "*" (Left : Complex_Vector;
+              Right : Real'Base) @key{return} Complex_Vector;
+@key{function} "/" (Left : Complex_Vector;
+              Right : Real'Base) @key{return} Complex_Vector;]}
 @end{Example}
 
 @ChgRef{Version=[2],Kind=[AddedNormal],ARef=[AI95-00296-01]}
@@ -3745,7 +3760,8 @@
 @begin{Example}
 @ChgRef{Version=[2],Kind=[AddedNormal]}
 @ChgAdded{Version=[2],KeepNext=[T],Text=[@key{function} Modulus  (X     : Complex_Matrix) @key{return} Real_Matrix;
-@key{function} "@key{abs}"    (Right : Complex_Matrix) @key{return} Real_Matrix @key{renames} Modulus;
+@key{function} "@key{abs}"    (Right : Complex_Matrix) @key{return} Real_Matrix
+                                              @key{renames} Modulus;
 @key{function} Argument (X     : Complex_Matrix) @key{return} Real_Matrix;
 @key{function} Argument (X     : Complex_Matrix;
                    Cycle : Real'Base)      @key{return} Real_Matrix;]}
@@ -3974,7 +3990,8 @@
 
 @begin{Example}
 @ChgRef{Version=[2],Kind=[AddedNormal]}
-@ChgAdded{Version=[2],KeepNext=[T],Text=[@key{function} "*" (Left : Real'Base; Right : Complex_Matrix) @key{return} Complex_Matrix;]}
+@ChgAdded{Version=[2],KeepNext=[T],Text=[@key{function} "*" (Left : Real'Base;
+              Right : Complex_Matrix) @key{return} Complex_Matrix;]}
 @end{Example}
 
 @ChgRef{Version=[2],Kind=[AddedNormal],ARef=[AI95-00296-01]}
@@ -3985,8 +4002,10 @@
 
 @begin{Example}
 @ChgRef{Version=[2],Kind=[AddedNormal]}
-@ChgAdded{Version=[2],KeepNext=[T],Text=[@key{function} "*" (Left : Complex_Matrix; Right : Real'Base) @key{return} Complex_Matrix;
-@key{function} "/" (Left : Complex_Matrix; Right : Real'Base) @key{return} Complex_Matrix;]}
+@ChgAdded{Version=[2],KeepNext=[T],Text=[@key{function} "*" (Left : Complex_Matrix;
+              Right : Real'Base) @key{return} Complex_Matrix;
+@key{function} "/" (Left : Complex_Matrix;
+              Right : Real'Base) @key{return} Complex_Matrix;]}
 @end{Example}
 
 @ChgRef{Version=[2],Kind=[AddedNormal],ARef=[AI95-00296-01]}
@@ -4076,7 +4095,7 @@
   @ChgRef{Version=[2],Kind=[AddedNormal]}
   @ChgAdded{Version=[2],Text=[A Hermitian matrix is one whose transpose is
   equal to its complex conjugate. The eigenvalues of a Hermitian matrix are
-  alwasy real. We only support this case because algorithms for solving the
+  always real. We only support this case because algorithms for solving the
   general case are inherently unstable.]}
 @end{Discussion}
 

Questions? Ask the ACAA Technical Agent