--- 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 ;