--- a
+++ b/LibDBlasLxF77.def.m2pp
@@ -0,0 +1,82 @@
+<* IF (__XDS__) THEN *>
+DEFINITION MODULE ["C"] LibDBlasLxF77; (* XDS *)
+<* END *>
+<* IF (__GM2__) THEN *>
+DEFINITION MODULE FOR "C" LibDBlasLxF77; (* GNU M2 *)
+<* END *>
+<* IF (__MOCKA__) THEN *>
+FOREIGN MODULE LibDBlasLxF77; (* Mocka  *)
+<* END *>
+
+  (*========================================================================*)
+  (* WICHTIG: BITTE NUR DIE DATEI LibDBlasLxF77.def.m2pp EDITIEREN !!!      *)
+  (*========================================================================*)
+  (* Es sind 3 Versionen enthalten die mit                                  *)
+  (*                                                                        *)
+  (*   m2pp -D __{Parameter}__ < LibDBlasLxF77.mod.m2pp > LibDBlasLxF77.mod *)
+  (*                                                                        *)
+  (* mit Parameter = {XDS|GM2|MOCKA} erzeugt werden koennen.                *)
+  (*                                                                        *)
+  (*   GM2    : Definitionsmodul im Stil des GM2 M2 Compilers               *)
+  (*   XDS    : Definitionsmodul im Stil des XDS M2 Compilers               *)
+  (*   MOCKA  : Definitionsmodul im Stil des Mocka  Compilers               *)
+  (*                                                                        *)
+  (* ansonsten gibt es keine Aenderungen am Quellcode                       *)
+  (*------------------------------------------------------------------------*)
+  (* Schnittstelle zu dblas level 2 & 3 FORTRAN 77 Subroutinen.             *)
+  (* Low level interface to dblas level 2 & 3 FORTRAN 77 subroutines.       *)
+  (*                                                                        *)
+  (* Hint: If you use a OpenMPI based version of a Fortran subroutine you   *)
+  (*       can regulate the numer of threads used by omp_set_num_threads in *)
+  (*       module OpenMPF77                                                 *)
+  (*------------------------------------------------------------------------*)
+  (* Last change:                                                           *)
+  (*                                                                        *)
+  (* 29.10.17, MRi: Erstellen der ersten Version nur mit dgemm              *)
+  (*------------------------------------------------------------------------*)
+  (* Offene Punkte                                                          *)
+  (*                                                                        *)
+  (* - Testen                                                               *)
+  (*------------------------------------------------------------------------*)
+  (* Licence : GNU Lesser General Public License (LGPL)                     *)
+  (*------------------------------------------------------------------------*)
+
+  (* $Id: LibDBlasLxF77.def.m2pp,v 1.2 2018/01/16 09:19:51 mriedl Exp mriedl $ *)
+
+FROM LibDBlasL1F77 IMPORT CHAR1,INTEGER4,REAL4,DOUBLEPRECISION;
+
+<* IF (__XDS__) THEN *>
+CONST Version = "LibDBlasLxF77 for XDS Modula-2";
+<* END *>
+<* IF (__GM2__) THEN *>
+CONST Version = "LibDBlasLxF77 for GNU Modula-2";
+<* END *>
+<* IF (__MOCKA__) THEN *>
+CONST Version = "LibDBlasLxF77 for GMD Mocka";
+<* END *>
+
+PROCEDURE sgemm_(VAR TA    : CHAR1;
+                 VAR TB    : CHAR1;
+                 VAR M,N,K : INTEGER4;
+                 VAR Alpha : REAL4;
+                 VAR A     : (* ARRAY OF ARRAY OF *) REAL4;
+                 VAR lda   : INTEGER4;
+                 VAR B     : (* ARRAY OF ARRAY OF *) REAL4;
+                 VAR ldb   : INTEGER4;
+                 VAR Beta  : REAL4;
+                 VAR C     : (* ARRAY OF ARRAY OF *) REAL4;
+                 VAR ldc   : INTEGER4);
+
+PROCEDURE dgemm_(VAR TA    : CHAR1;
+                 VAR TB    : CHAR1;
+                 VAR M,N,K : INTEGER4;
+                 VAR Alpha : DOUBLEPRECISION;
+                 VAR A     : (* ARRAY OF ARRAY OF *) DOUBLEPRECISION;
+                 VAR lda   : INTEGER4;
+                 VAR B     : (* ARRAY OF ARRAY OF *) DOUBLEPRECISION;
+                 VAR ldb   : INTEGER4;
+                 VAR Beta  : DOUBLEPRECISION;
+                 VAR C     : (* ARRAY OF ARRAY OF *) DOUBLEPRECISION;
+                 VAR ldc   : INTEGER4);
+
+END LibDBlasLxF77.