diff options
| author | Geert Bosch <bosch@adacore.com> | 2011-10-13 10:56:08 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-10-13 12:56:08 +0200 |
| commit | a5917ffb2cd7097f9b8b754c2745c23d860cb31a (patch) | |
| tree | faa2dafc5d78a37661ab07fb69bb75daae1fcfc2 /gcc/ada/a-ngcoar.ads | |
| parent | 574ec9452d38bc8b3c14aea7afd72b073f973c86 (diff) | |
| download | gcc-a5917ffb2cd7097f9b8b754c2745c23d860cb31a.zip gcc-a5917ffb2cd7097f9b8b754c2745c23d860cb31a.tar.gz gcc-a5917ffb2cd7097f9b8b754c2745c23d860cb31a.tar.bz2 | |
a-ngrear.adb (Solve): Make generic and move to System.Generic_Array_Operations.
2011-10-13 Geert Bosch <bosch@adacore.com>
* a-ngrear.adb (Solve): Make generic and move to
System.Generic_Array_Operations.
* s-gearop.ads (Matrix_Vector_Solution, Matrix_Matrix_Solution):
New generic solvers to compute a vector resp. matrix Y such
that A * Y = X, approximately.
* s-gearop.adb (Matrix_Vector_Solution, Matrix_Matrix_Solution):
Implement using Forward_Eliminate and Back_Substitute
* a-ngcoar.adb: Reimplement in pure Ada to remove dependencies
on BLAS and LAPACK.
* a-ngcoar.ads ("abs"): Fix return type to be real.
From-SVN: r179912
Diffstat (limited to 'gcc/ada/a-ngcoar.ads')
| -rw-r--r-- | gcc/ada/a-ngcoar.ads | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/a-ngcoar.ads b/gcc/ada/a-ngcoar.ads index abffbd1..8f8f37a 100644 --- a/gcc/ada/a-ngcoar.ads +++ b/gcc/ada/a-ngcoar.ads @@ -66,7 +66,7 @@ package Ada.Numerics.Generic_Complex_Arrays is function "+" (Left, Right : Complex_Vector) return Complex_Vector; function "-" (Left, Right : Complex_Vector) return Complex_Vector; function "*" (Left, Right : Complex_Vector) return Complex; - function "abs" (Right : Complex_Vector) return Complex; + function "abs" (Right : Complex_Vector) return Real'Base; -- Mixed Real_Vector and Complex_Vector arithmetic operations |