|
a/LinPack.mod.m2pp |
|
b/LinPack.mod.m2pp |
|
... |
|
... |
| 46 |
(*------------------------------------------------------------------------*)
|
46 |
(*------------------------------------------------------------------------*)
|
| 47 |
(* Implementation : Michael Riedl *)
|
47 |
(* Implementation : Michael Riedl *)
|
| 48 |
(* Licence : GNU Lesser General Public License (LGPL) *)
|
48 |
(* Licence : GNU Lesser General Public License (LGPL) *)
|
| 49 |
(*------------------------------------------------------------------------*)
|
49 |
(*------------------------------------------------------------------------*)
|
| 50 |
|
50 |
|
| 51 |
(* $Id: LinPack.mod.m2pp,v 1.3 2018/01/16 09:19:51 mriedl Exp mriedl $ *)
|
51 |
(* $Id: LinPack.mod.m2pp,v 1.4 2019/02/01 22:24:03 mriedl Exp mriedl $ *)
|
| 52 |
|
52 |
|
| 53 |
(*------------------------------------------------------------------------*)
|
53 |
(*------------------------------------------------------------------------*)
|
| 54 |
<* IF (__INLINE__) THEN *>
|
54 |
<* IF (__INLINE__) THEN *>
|
| 55 |
(* HINT: This version uses inlined code. *)
|
55 |
(* HINT: This version uses inlined code. *)
|
| 56 |
(* This is most probably slower than using BLAS level 1 routines. *)
|
56 |
(* This is most probably slower than using BLAS level 1 routines. *)
|