Child:
[28b809]
(diff)
Download this file
OpenMPF77.def.m2pp
49 lines (43 with data), 2.5 kB
<* IF (__XDS__) THEN *>
DEFINITION MODULE ["C"] OpenMPF77; (* XDS *)
<* END *>
<* IF (__GM2__) THEN *>
DEFINITION MODULE FOR "C" OpenMPF77; (* GNU M2 *)
<* END *>
<* IF (__MOCKA__) THEN *>
FOREIGN MODULE OpenMPF77; (* Mocka *)
<* END *>
(*========================================================================*)
(* HINWEIS : Bitte nur die Datei OpenMPF77.def.m2pp editieren *)
(*========================================================================*)
(* Es sind 3 Versionen enthalten die mit *)
(* *)
(* m2pp -D __{Parameter}__ < OpenMPF77.def.m2pp > OpenMPF77.def *)
(* *)
(* 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 *)
(*------------------------------------------------------------------------*)
(* Interface to set number of threads used by Fortran subroutines using *)
(* OpenMP and linked to a Modula-2 program. *)
(*------------------------------------------------------------------------*)
(* Last change: *)
(* *)
(* 19.04.2016, MRi: First version *)
(*------------------------------------------------------------------------*)
(* Implementation : Michael Riedl *)
(* Licence : GNU Lesser General Public License (LGPL) *)
(*------------------------------------------------------------------------*)
(* $Id: OpenMPF77.def.m2pp,v 1.1 2018/01/16 07:46:07 mriedl Exp $ *)
<* IF (__XDS__) THEN *>
TYPE INTEGER4 = LONGINT;
<* END *>
<* IF (__GM2__) THEN *>
TYPE INTEGER4 = INTEGER;
<* END *>
PROCEDURE omp_set_num_threads_(VAR NumThreads : INTEGER4);
END OpenMPF77.