--- a
+++ b/LibDBlasL2F77.def
@@ -0,0 +1,45 @@
+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.