|
a/LibDBlasL3F77.def |
|
b/LibDBlasL3F77.def |
|
... |
|
... |
| 6 |
(*------------------------------------------------------------------------*)
|
6 |
(*------------------------------------------------------------------------*)
|
| 7 |
(* Implementation : Michael Riedl *)
|
7 |
(* Implementation : Michael Riedl *)
|
| 8 |
(* Licence : GNU Lesser General Public License (LGPL) *)
|
8 |
(* Licence : GNU Lesser General Public License (LGPL) *)
|
| 9 |
(*------------------------------------------------------------------------*)
|
9 |
(*------------------------------------------------------------------------*)
|
| 10 |
|
10 |
|
| 11 |
(* $Id: LibDBlasL3F77.def,v 1.1 2017/11/01 10:42:04 mriedl Exp mriedl $ *)
|
11 |
(* $Id: LibDBlasL3F77.def,v 1.2 2018/09/12 13:20:06 mriedl Exp $ *)
|
| 12 |
|
12 |
|
| 13 |
FROM LibDBlasL1F77 IMPORT INTEGER4,REAL4,DOUBLEPRECISION,DOUBLECOMPLEX;
|
13 |
FROM LibDBlasL1F77 IMPORT INTEGER4,REAL4,DOUBLEPRECISION,DOUBLECOMPLEX;
|
| 14 |
|
14 |
|
| 15 |
PROCEDURE sgemm( TA : CHAR;
|
15 |
PROCEDURE sgemm( TA : CHAR;
|
| 16 |
TB : CHAR;
|
16 |
TB : CHAR;
|