Child:
[3b207b]
(diff)
Download this file
LibDBlasLxF77.def.m2pp
83 lines (75 with data), 4.2 kB
<* 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.