--- a/LibDBlasF77.def.m2pp
+++ b/LibDBlasF77.def.m2pp
@@ -39,6 +39,7 @@
(* *)
(* zswap : swap two vectors *)
(* zcopy : copy a vector to a vector *)
+ (* zdotu : dot product of two vectors *)
(* zdotc : dot product of two vectors *)
(* dznrm2 : euklidian norm of a vector *)
(* zscal : scale vector by a constant *)
@@ -64,8 +65,8 @@
(* 02.12.15, MRi: Added dasum,dnrm2,idamax *)
(* 30.03.16, MRi: Added dswap *)
(* 15.04.16, MRi: Added dcopy,drot,drotg *)
- (* Changed ARRAY OF DOUBLEPRECISION to *)
- (* (* ARRAY OF *) DOUBLEPRECISION *)
+ (* Changed ARRAY OF REAL8 to *)
+ (* (* ARRAY OF *) REAL8 *)
(* 29.10.17, MRi: Added dgemm *)
(* 01.11.17, MRi: Added idamin *)
(* 23.06.18, MRi: Added zgemm *)
@@ -76,20 +77,20 @@
(* Licence : GNU Lesser General Public License (LGPL) *)
(*------------------------------------------------------------------------*)
- (* $Id: LibDBlasF77.def.m2pp,v 1.3 2018/09/12 13:20:49 mriedl Exp mriedl $ *)
+ (* $Id: LibDBlasF77.def.m2pp,v 1.4 2019/02/01 22:24:03 mriedl Exp mriedl $ *)
IMPORT LibDBlasL1F77;
IMPORT LibDBlasL2F77;
IMPORT LibDBlasL3F77;
-TYPE DOUBLEPRECISION = LibDBlasL1F77.DOUBLEPRECISION;
- INTEGER4 = LibDBlasL1F77.INTEGER4;
- CHAR1 = LibDBlasL1F77.CHAR1;
+TYPE REAL8 = LibDBlasL1F77.REAL8;
+ INTEGER4 = LibDBlasL1F77.INTEGER4;
+ CHAR1 = LibDBlasL1F77.CHAR1;
(*
* PROCEDURE dnrm2(VAR n : INTEGER4;
- * VAR X : (* ARRAY OF *) DOUBLEPRECISION;
- * VAR IncX : INTEGER4): DOUBLEPRECISION;
+ * VAR X : (* ARRAY OF *) REAL8;
+ * VAR IncX : INTEGER4): REAL8;
*)
CONST dnrm2 = LibDBlasL1F77.dnrm2_;
@@ -101,9 +102,9 @@
(*
* PROCEDURE dswap(VAR N : INTEGER4;
- * VAR X : (* ARRAY OF *) DOUBLEPRECISION;
+ * VAR X : (* ARRAY OF *) REAL8;
* VAR incx : INTEGER4;
- * VAR Y : (* ARRAY OF *) DOUBLEPRECISION;
+ * VAR Y : (* ARRAY OF *) REAL8;
* VAR incy : INTEGER4);
*)
@@ -116,9 +117,9 @@
(*
* PROCEDURE dcopy(VAR N : INTEGER4;
- * VAR X : (* ARRAY OF *) DOUBLEPRECISION;
+ * VAR X : (* ARRAY OF *) REAL8;
* VAR IncX : INTEGER4;
- * VAR Y : (* ARRAY OF *) DOUBLEPRECISION;
+ * VAR Y : (* ARRAY OF *) REAL8;
* VAR IncY : INTEGER);
*)
@@ -132,11 +133,11 @@
(*
* PROCEDURE drot(VAR N : INTEGER4;
- * VAR X : (* ARRAY OF *) DOUBLEPRECISION;
+ * VAR X : (* ARRAY OF *) REAL8;
* VAR incX : INTEGER4;
- * VAR Y : (* ARRAY OF *) DOUBLEPRECISION;
+ * VAR Y : (* ARRAY OF *) REAL8;
* VAR incY : INTEGER4;
- * VAR c,s : DOUBLEPRECISION);
+ * VAR c,s : REAL8);
*)
CONST drot = LibDBlasL1F77.drot_;
@@ -147,10 +148,10 @@
(*---------------------------------------------------------------*)
(*
- * PROCEDURE drotg(VAR da : DOUBLEPRECISION;
- * VAR db : DOUBLEPRECISION;
- * VAR c : DOUBLEPRECISION;
- * VAR s : DOUBLEPRECISION);
+ * PROCEDURE drotg(VAR da : REAL8;
+ * VAR db : REAL8;
+ * VAR c : REAL8;
+ * VAR s : REAL8);
*)
CONST drotg = LibDBlasL1F77.drotg_;
@@ -162,8 +163,8 @@
(*
* PROCEDURE dscal(VAR n : INTEGER4;
- * VAR da : DOUBLEPRECISION;
- * VAR dx : (* ARRAY OF *) DOUBLEPRECISION;
+ * VAR da : REAL8;
+ * VAR dx : (* ARRAY OF *) REAL8;
* VAR incx : INTEGER4);
*)
@@ -175,10 +176,10 @@
(*
* PROCEDURE daxpy(VAR n : INTEGER4;
- * VAR da : DOUBLEPRECISION;
- * VAR dx : (* ARRAY OF *) DOUBLEPRECISION;
+ * VAR da : REAL8;
+ * VAR dx : (* ARRAY OF *) REAL8;
* VAR incx : INTEGER4;
- * VAR dy : (* ARRAY OF *) DOUBLEPRECISION;
+ * VAR dy : (* ARRAY OF *) REAL8;
* VAR incy : INTEGER4);
*)
@@ -190,10 +191,10 @@
(*
* PROCEDURE ddot(VAR N : INTEGER4;
- * VAR DX : (* ARRAY OF *) DOUBLEPRECISION;
+ * VAR DX : (* ARRAY OF *) REAL8;
* VAR INCX : INTEGER4;
- * VAR DY : (* ARRAY OF *) DOUBLEPRECISION;
- * VAR INCY : INTEGER4) : DOUBLEPRECISION;
+ * VAR DY : (* ARRAY OF *) REAL8;
+ * VAR INCY : INTEGER4) : REAL8;
*)
CONST ddot = LibDBlasL1F77.ddot_;
@@ -204,7 +205,7 @@
(*
* PROCEDURE idamax(VAR n : INTEGER4;
- * VAR dx : (* ARRAY OF *) DOUBLEPRECISION;
+ * VAR dx : (* ARRAY OF *) REAL8;
* VAR incx : INTEGER4) : INTEGER4;
*)
@@ -216,7 +217,7 @@
(*
* PROCEDURE idamin(VAR n : INTEGER4;
- * VAR dx : (* ARRAY OF *) DOUBLEPRECISION;
+ * VAR dx : (* ARRAY OF *) REAL8;
* VAR incx : INTEGER4) : INTEGER4;
*)
@@ -228,8 +229,8 @@
(*
* PROCEDURE dasum(VAR dim : INTEGER4;
- * VAR X : (* ARRAY OF *) DOUBLEPRECISION;
- * VAR Inc : INTEGER4) : DOUBLEPRECISION;
+ * VAR X : (* ARRAY OF *) REAL8;
+ * VAR Inc : INTEGER4) : REAL8;
*)
CONST dasum = LibDBlasL1F77.dasum_;
@@ -242,13 +243,13 @@
(*
* PROCEDURE dgemv( Trans : CHAR1;
* M,N : INTEGER4;
- * Alpha : DOUBLEPRECISION;
- * VAR A : ARRAY OF ARRAY OF DOUBLEPRECISION;
+ * Alpha : REAL8;
+ * VAR A : ARRAY OF ARRAY OF REAL8;
* LDA : INTEGER4;
- * VAR X : ARRAY OF DOUBLEPRECISION;
+ * VAR X : ARRAY OF REAL8;
* IncX : INTEGER4;
- * Beta : DOUBLEPRECISION;
- * VAR Y : ARRAY OF DOUBLEPRECISION;
+ * Beta : REAL8;
+ * VAR Y : ARRAY OF REAL8;
* IncY : INTEGER4);
*)
@@ -290,13 +291,13 @@
* PROCEDURE dgemm( TA : CHAR1;
* TB : CHAR1;
* M,N,K : INTEGER4;
- * Alpha : DOUBLEPRECISION;
- * VAR A : ARRAY OF ARRAY OF DOUBLEPRECISION;
+ * Alpha : REAL8;
+ * VAR A : ARRAY OF ARRAY OF REAL8;
* lda : INTEGER4;
- * VAR B : ARRAY OF ARRAY OF DOUBLEPRECISION;
+ * VAR B : ARRAY OF ARRAY OF REAL8;
* ldb : INTEGER4;
- * Beta : DOUBLEPRECISION;
- * VAR C : ARRAY OF ARRAY OF DOUBLEPRECISION;
+ * Beta : REAL8;
+ * VAR C : ARRAY OF ARRAY OF REAL8;
* ldc : INTEGER4);
*)
@@ -338,9 +339,9 @@
(*
* PROCEDURE zswap(VAR N : INTEGER4;
- * VAR X : (* ARRAY OF *) DOUBLECOMPLEX;
+ * VAR X : (* ARRAY OF *) COMPLEX16;
* VAR IncX : INTEGER4;
- * VAR Y : (* ARRAY OF *) DOUBLECOMPLEX;
+ * VAR Y : (* ARRAY OF *) COMPLEX16;
* VAR IncY : INTEGER4);
*)
@@ -352,9 +353,9 @@
(*
* PROCEDURE zcopy(VAR N : INTEGER4;
- * VAR X : (* ARRAY OF *) DOUBLECOMPLEX;
+ * VAR X : (* ARRAY OF *) COMPLEX16;
* VAR IncX : INTEGER4;
- * VAR Y : (* ARRAY OF *) DOUBLECOMPLEX;
+ * VAR Y : (* ARRAY OF *) COMPLEX16;
* VAR IncY : INTEGER4);
*)
@@ -369,10 +370,10 @@
(*
* PROCEDURE zdotc(VAR N : INTEGER4;
- * VAR X : (* ARRAY OF *) DOUBLECOMPLEX;
+ * VAR X : (* ARRAY OF *) COMPLEX16;
* VAR IncX : INTEGER4;
- * VAR Y : (* ARRAY OF *) DOUBLECOMPLEX;
- * VAR IncY : INTEGER4) : DOUBLECOMPLEX;
+ * VAR Y : (* ARRAY OF *) COMPLEX16;
+ * VAR IncY : INTEGER4) : COMPLEX16;
*)
CONST zdotc = LibDBlasL1F77.zdotc_;
@@ -384,8 +385,8 @@
(*
* PROCEDURE dznrm2(VAR N : INTEGER4;
- * VAR X : (* ARRAY OF *) DOUBLECOMPLEX;
- * VAR IncX : INTEGER4) : DOUBLEPRECISION;
+ * VAR X : (* ARRAY OF *) COMPLEX16;
+ * VAR IncX : INTEGER4) : REAL8;
*)
CONST dznrm2 = LibDBlasL1F77.dznrm2_;
@@ -397,8 +398,8 @@
(*
* PROCEDURE zscal(VAR n : INTEGER4;
- * VAR da : DOUBLECOMPLEX;
- * VAR dx : (* ARRAY OF *) DOUBLECOMPLEX;
+ * VAR da : COMPLEX16;
+ * VAR dx : (* ARRAY OF *) COMPLEX16;
* VAR IncX : INTEGER4);
*)
@@ -410,10 +411,10 @@
(*
* PROCEDURE zaxpy(VAR n : INTEGER4;
- * VAR da : DOUBLECOMPLEX;
- * VAR X : (* ARRAY OF *) DOUBLECOMPLEX;
+ * VAR da : COMPLEX16;
+ * VAR X : (* ARRAY OF *) COMPLEX16;
* VAR IncX : INTEGER4;
- * VAR Y : (* ARRAY OF *) DOUBLECOMPLEX;
+ * VAR Y : (* ARRAY OF *) COMPLEX16;
* VAR IncY : INTEGER4);
*)
@@ -426,9 +427,9 @@
(*
* PROCEDURE zdrot(VAR N : INTEGER4;
- * VAR X : (* ARRAY OF *) DOUBLECOMPLEX;
+ * VAR X : (* ARRAY OF *) COMPLEX16;
* VAR IncX : INTEGER4;
- * VAR Y : (* ARRAY OF *) DOUBLECOMPLEX;
+ * VAR Y : (* ARRAY OF *) COMPLEX16;
* VAR IncY : INTEGER4;
* VAR c,s : REAL4);
*)
@@ -475,13 +476,13 @@
* PROCEDURE zgemm( TA : CHAR1;
* TB : CHAR1;
* M,N,K : INTEGER4;
- * Alpha : DOUBLECOMPLEX;
- * VAR A : ARRAY OF ARRAY OF DOUBLECOMPLEX;
+ * Alpha : COMPLEX16;
+ * VAR A : ARRAY OF ARRAY OF COMPLEX16;
* lda : INTEGER4;
- * VAR B : ARRAY OF ARRAY OF DOUBLECOMPLEX;
+ * VAR B : ARRAY OF ARRAY OF COMPLEX16;
* ldb : INTEGER4;
- * Beta : DOUBLECOMPLEX;
- * VAR C : ARRAY OF ARRAY OF DOUBLECOMPLEX;
+ * Beta : COMPLEX16;
+ * VAR C : ARRAY OF ARRAY OF COMPLEX16;
* ldc : INTEGER4);
*)