|
a |
|
b/LibDBlasL2F77.def |
|
|
1 |
DEFINITION MODULE LibDBlasL2F77;
|
|
|
2 |
|
|
|
3 |
(*------------------------------------------------------------------------*)
|
|
|
4 |
(* Schnittstell zu Level 3 Blas FORTRAN77 Subroutinen. *)
|
|
|
5 |
(* Interface to level 3 Blas FORTRAN77 subroutines. *)
|
|
|
6 |
(*------------------------------------------------------------------------*)
|
|
|
7 |
(* Implementation : Michael Riedl *)
|
|
|
8 |
(* Licence : GNU Lesser General Public License (LGPL) *)
|
|
|
9 |
(*------------------------------------------------------------------------*)
|
|
|
10 |
|
|
|
11 |
(* $Id: LibDBlasL2F77.def,v 1.1 2018/09/12 13:20:49 mriedl Exp mriedl $ *)
|
|
|
12 |
|
|
|
13 |
FROM LibDBlasL1F77 IMPORT CHAR1,INTEGER4,REAL4,DOUBLEPRECISION,DOUBLECOMPLEX;
|
|
|
14 |
|
|
|
15 |
PROCEDURE dgemv( Trans : CHAR1;
|
|
|
16 |
M,N : INTEGER4;
|
|
|
17 |
Alpha : DOUBLEPRECISION;
|
|
|
18 |
VAR A : ARRAY OF ARRAY OF DOUBLEPRECISION;
|
|
|
19 |
lda : INTEGER4;
|
|
|
20 |
VAR X : ARRAY OF DOUBLEPRECISION;
|
|
|
21 |
IncX : INTEGER4;
|
|
|
22 |
Beta : DOUBLEPRECISION;
|
|
|
23 |
VAR Y : ARRAY OF DOUBLEPRECISION;
|
|
|
24 |
IncY : INTEGER4);
|
|
|
25 |
|
|
|
26 |
(*---------------------------------------------------------------*)
|
|
|
27 |
(* Aufruf der Fortran Version von BLAS2 subroutine dgemv *)
|
|
|
28 |
(*---------------------------------------------------------------*)
|
|
|
29 |
|
|
|
30 |
PROCEDURE zgemv( Trans : CHAR1;
|
|
|
31 |
M,N : INTEGER4;
|
|
|
32 |
Alpha : DOUBLECOMPLEX;
|
|
|
33 |
VAR A : ARRAY OF ARRAY OF DOUBLECOMPLEX;
|
|
|
34 |
lda : INTEGER4;
|
|
|
35 |
VAR X : ARRAY OF DOUBLECOMPLEX;
|
|
|
36 |
IncX : INTEGER4;
|
|
|
37 |
Beta : DOUBLECOMPLEX;
|
|
|
38 |
VAR Y : ARRAY OF DOUBLECOMPLEX;
|
|
|
39 |
IncY : INTEGER4);
|
|
|
40 |
|
|
|
41 |
(*---------------------------------------------------------------*)
|
|
|
42 |
(* Aufruf der Fortran Version von BLAS2 subroutine dgemv *)
|
|
|
43 |
(*---------------------------------------------------------------*)
|
|
|
44 |
|
|
|
45 |
END LibDBlasL2F77.
|