* gcc.dg/compat/struct-layout-1_generate.c (dg_options): New. Moved
[official-gcc.git] / gcc / ada / s-gerela.ads
blob130fb40cf4ef2a09ed9107db7d40352592c64974
1 ------------------------------------------------------------------------------
2 -- --
3 -- GNAT RUN-TIME COMPONENTS --
4 -- --
5 -- S Y S T E M . G E N E R I C _ R E A L _ L A P A C K --
6 -- --
7 -- S p e c --
8 -- --
9 -- Copyright (C) 2006-2007, Free Software Foundation, Inc. --
10 -- --
11 -- GNAT is free software; you can redistribute it and/or modify it under --
12 -- terms of the GNU General Public License as published by the Free Soft- --
13 -- ware Foundation; either version 2, or (at your option) any later ver- --
14 -- sion. GNAT is distributed in the hope that it will be useful, but WITH- --
15 -- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY --
16 -- or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License --
17 -- for more details. You should have received a copy of the GNU General --
18 -- Public License distributed with GNAT; see file COPYING. If not, write --
19 -- to the Free Software Foundation, 51 Franklin Street, Fifth Floor, --
20 -- Boston, MA 02110-1301, USA. --
21 -- --
22 -- As a special exception, if other files instantiate generics from this --
23 -- unit, or you link this unit with other files to produce an executable, --
24 -- this unit does not by itself cause the resulting executable to be --
25 -- covered by the GNU General Public License. This exception does not --
26 -- however invalidate any other reasons why the executable file might be --
27 -- covered by the GNU Public License. --
28 -- --
29 -- GNAT was originally developed by the GNAT team at New York University. --
30 -- Extensive contributions were provided by Ada Core Technologies Inc. --
31 -- --
32 ------------------------------------------------------------------------------
34 -- Package comment required ???
36 generic
37 type Real is digits <>;
38 type Real_Vector is array (Integer range <>) of Real;
39 type Real_Matrix is array (Integer range <>, Integer range <>) of Real;
40 package System.Generic_Real_LAPACK is
41 pragma Pure;
43 type Integer_Vector is array (Integer range <>) of Integer;
45 Upper : aliased constant Character := 'U';
46 Lower : aliased constant Character := 'L';
48 -- LAPACK Computational Routines
50 -- gerfs Refines the solution of a system of linear equations with
51 -- a general matrix and estimates its error
52 -- getrf Computes LU factorization of a general m-by-n matrix
53 -- getri Computes inverse of an LU-factored general matrix
54 -- square matrix, with multiple right-hand sides
55 -- getrs Solves a system of linear equations with an LU-factored
56 -- square matrix, with multiple right-hand sides
57 -- orgtr Generates the Float orthogonal matrix Q determined by sytrd
58 -- steqr Computes all eigenvalues and eigenvectors of a symmetric or
59 -- Hermitian matrix reduced to tridiagonal form (QR algorithm)
60 -- sterf Computes all eigenvalues of a Float symmetric
61 -- tridiagonal matrix using QR algorithm
62 -- sytrd Reduces a Float symmetric matrix to tridiagonal form
64 procedure getrf
65 (M : Natural;
66 N : Natural;
67 A : in out Real_Matrix;
68 Ld_A : Positive;
69 I_Piv : out Integer_Vector;
70 Info : access Integer);
72 procedure getri
73 (N : Natural;
74 A : in out Real_Matrix;
75 Ld_A : Positive;
76 I_Piv : Integer_Vector;
77 Work : in out Real_Vector;
78 L_Work : Integer;
79 Info : access Integer);
81 procedure getrs
82 (Trans : access constant Character;
83 N : Natural;
84 N_Rhs : Natural;
85 A : Real_Matrix;
86 Ld_A : Positive;
87 I_Piv : Integer_Vector;
88 B : in out Real_Matrix;
89 Ld_B : Positive;
90 Info : access Integer);
92 procedure orgtr
93 (Uplo : access constant Character;
94 N : Natural;
95 A : in out Real_Matrix;
96 Ld_A : Positive;
97 Tau : Real_Vector;
98 Work : out Real_Vector;
99 L_Work : Integer;
100 Info : access Integer);
102 procedure sterf
103 (N : Natural;
104 D : in out Real_Vector;
105 E : in out Real_Vector;
106 Info : access Integer);
108 procedure steqr
109 (Comp_Z : access constant Character;
110 N : Natural;
111 D : in out Real_Vector;
112 E : in out Real_Vector;
113 Z : in out Real_Matrix;
114 Ld_Z : Positive;
115 Work : out Real_Vector;
116 Info : access Integer);
118 procedure sytrd
119 (Uplo : access constant Character;
120 N : Natural;
121 A : in out Real_Matrix;
122 Ld_A : Positive;
123 D : out Real_Vector;
124 E : out Real_Vector;
125 Tau : out Real_Vector;
126 Work : out Real_Vector;
127 L_Work : Integer;
128 Info : access Integer);
130 end System.Generic_Real_LAPACK;