|
a/LibDBlasL3F77.mod |
|
b/LibDBlasL3F77.mod |
|
... |
|
... |
| 16 |
(*------------------------------------------------------------------------*)
|
16 |
(*------------------------------------------------------------------------*)
|
| 17 |
(* Implementation : Michael Riedl *)
|
17 |
(* Implementation : Michael Riedl *)
|
| 18 |
(* Licence : GNU Lesser General Public License (LGPL) *)
|
18 |
(* Licence : GNU Lesser General Public License (LGPL) *)
|
| 19 |
(*------------------------------------------------------------------------*)
|
19 |
(*------------------------------------------------------------------------*)
|
| 20 |
|
20 |
|
| 21 |
(* $Id: LibDBlasL3F77.mod,v 1.1 2017/11/01 10:42:09 mriedl Exp mriedl $ *)
|
21 |
(* $Id: LibDBlasL3F77.mod,v 1.3 2018/09/12 13:20:49 mriedl Exp mriedl $ *)
|
| 22 |
|
22 |
|
| 23 |
FROM LibDBlasL1F77 IMPORT CHAR1,INTEGER4,REAL4,DOUBLEPRECISION,DOUBLECOMPLEX;
|
23 |
FROM LibDBlasL1F77 IMPORT CHAR1,INTEGER4,REAL4,DOUBLEPRECISION,DOUBLECOMPLEX;
|
| 24 |
FROM LibDBlasLxF77 IMPORT sgemm_,dgemm_,dgemmomp,dgemmomp2,zgemm_;
|
24 |
FROM LibDBlasLxF77 IMPORT sgemm_,dgemm_,dgemmomp,dgemmomp2,zgemm_;
|
| 25 |
|
25 |
|
| 26 |
IMPORT TIO;
|
|
|
| 27 |
|
26 |
|
| 28 |
PROCEDURE sgemm( TA : CHAR1;
|
27 |
PROCEDURE sgemm( TA : CHAR1;
|
| 29 |
TB : CHAR1;
|
28 |
TB : CHAR1;
|
| 30 |
M,N,K : INTEGER4;
|
29 |
M,N,K : INTEGER4;
|
| 31 |
Alpha : REAL4;
|
30 |
Alpha : REAL4;
|