--- a/CmplxMath.mod
+++ b/CmplxMath.mod
@@ -4,15 +4,11 @@
(* Einige Routinen fuer grundlegende komplexe Arithmetik. *)
(* Some routinen for basic complex arithmetic. *)
(*------------------------------------------------------------------------*)
- (* Letzte Veraenderung *)
- (* *)
- (* 16.01.17, MRi: Erstellen der ersten Verion *)
- (*------------------------------------------------------------------------*)
(* Implementation : Michael Riedl *)
(* Licence : GNU Lesser General Public License (LGPL) *)
(*------------------------------------------------------------------------*)
- (* $Id: CmplxMath.mod,v 1.1 2017/09/27 08:15:18 mriedl Exp mriedl $ *)
+ (* $Id: CmplxMath.mod,v 1.2 2019/02/01 21:24:34 mriedl Exp mriedl $ *)
IMPORT Errors;
@@ -42,6 +38,7 @@
PROCEDURE CMUL( Xr,Xi : LONGREAL;
Yr,Yi : LONGREAL;
VAR Zr,Zi : LONGREAL);
+
BEGIN
Zr := Xr*Yr - Xi*Yi;
Zi := Xr*Yi + Xi*Yr;
@@ -50,6 +47,7 @@
PROCEDURE CMULconj( Xr,Xi : LONGREAL;
Yr,Yi : LONGREAL;
VAR Zr,Zi : LONGREAL);
+
BEGIN
Zr := Xr*Yr + Xi*Yi;
Zi := Xi*Yr - Xr*Yi ;