--- a/LibDBlasL1F77.def.m2pp
+++ b/LibDBlasL1F77.def.m2pp
@@ -22,6 +22,9 @@
(* Mocka : Definitionsmodul im Stil des Mocka Compilers *)
(* *)
(* ansonsten gibt es keine Aenderungen am Quellcode *)
+ (* *)
+ (* There are three version contained, one for the GNU, XDS and Mocka *)
+ (* compiler which can be produced by the m2pp command line given above *)
(*------------------------------------------------------------------------*)
(* Schnittstelle zu blas level 1 FORTRAN 77 subroutinen. *)
(* Interface to dblas level 1 FORTRAN 77 subroutines. *)
@@ -63,6 +66,7 @@
CONST Version = "LibDBlasL1F77 for XDS Modula-2";
TYPE DOUBLEPRECISION = LONGREAL;
+ DOUBLECOMPLEX = LONGCOMPLEX;
REAL4 = REAL;
INTEGER4 = LONGINT;
<* END *>
@@ -70,6 +74,7 @@
CONST Version = "LibDBlasL1F77 for GNU Modula-2";
TYPE DOUBLEPRECISION = REAL; (* Untested !!! *)
+ DOUBLECOMPLEX = COMPLEX; (* Untested !!! *)
REAL4 = SHORTREAL;
INTEGER4 = INTEGER;
<* END *>
@@ -189,7 +194,8 @@
(*----------------------------------------------------------------*)
(* Berechnet die Summe der Absolutwerte der im Feld X gespeich- *)
(* erten Zahlen. *)
+ (* *)
+ (* Calculated the sum of absolute values stored in field X *)
(*----------------------------------------------------------------*)
END LibDBlasL1F77.
-