Generic package: Ada.Numerics.Generic_Real_Arrays.Generic_IO

Dependencies

pragma License (Modified_GPL);

Description

(c) Martin M. Dowie, 2004

Non-standard extension to provide a common method of sending vectors and matrices to the standard output.


Header

generic
package Ada.Numerics.Generic_Real_Arrays.Generic_IO is
 

Other Items:

procedure Put (V               : Real_Vector;
               Limit           : Real'Base := 1.0 / (10.0 ** Real'Digits);
               Name_Components : Boolean   := False);
Sends the contents of a given vector to the standard output. Values with an absolute value of less then or equal to Value are displayed as being equal to zero. If Name_Components is true then a named notation style is displayed, e.g. 1 => 10.0, 2 => 23.4 etc.

procedure Put (M            : Real_Matrix;
               Limit        : Real'Base := 1.0 / (10.0 ** Real'Digits);
               Name_Rows,
               Name_Colomns : Boolean   := False);
Sends the contents of a given vector to the standard output. Values with an absolute value of less then or equal to Value are displayed as being equal to zero. If Name_Rows and/or Name_Columns is True then a named notation style is displayed, e.g. 1 => 10.0, 2 => 23.4 etc.
end Ada.Numerics.Generic_Real_Arrays.Generic_IO;