DEFINITION MODULE LibDBlasL2F77;
(*------------------------------------------------------------------------*)
(* Schnittstell zu Level 3 Blas FORTRAN77 Subroutinen. *)
(* Interface to level 3 Blas FORTRAN77 subroutines. *)
(*------------------------------------------------------------------------*)
(* Implementation : Michael Riedl *)
(* Licence : GNU Lesser General Public License (LGPL) *)
(*------------------------------------------------------------------------*)
(* $Id: LibDBlasL2F77.def,v 1.1 2018/09/12 13:20:49 mriedl Exp mriedl $ *)
FROM LibDBlasL1F77 IMPORT CHAR1,INTEGER4,REAL4,DOUBLEPRECISION,DOUBLECOMPLEX;
PROCEDURE dgemv( Trans : CHAR1;
M,N : INTEGER4;
Alpha : DOUBLEPRECISION;
VAR A : ARRAY OF ARRAY OF DOUBLEPRECISION;
lda : INTEGER4;
VAR X : ARRAY OF DOUBLEPRECISION;
IncX : INTEGER4;
Beta : DOUBLEPRECISION;
VAR Y : ARRAY OF DOUBLEPRECISION;
IncY : INTEGER4);
(*---------------------------------------------------------------*)
(* Aufruf der Fortran Version von BLAS2 subroutine dgemv *)
(*---------------------------------------------------------------*)
PROCEDURE zgemv( Trans : CHAR1;
M,N : INTEGER4;
Alpha : DOUBLECOMPLEX;
VAR A : ARRAY OF ARRAY OF DOUBLECOMPLEX;
lda : INTEGER4;
VAR X : ARRAY OF DOUBLECOMPLEX;
IncX : INTEGER4;
Beta : DOUBLECOMPLEX;
VAR Y : ARRAY OF DOUBLECOMPLEX;
IncY : INTEGER4);
(*---------------------------------------------------------------*)
(* Aufruf der Fortran Version von BLAS2 subroutine dgemv *)
(*---------------------------------------------------------------*)
END LibDBlasL2F77.