(*********************************************************************
 
    :Program.  	 LongComplexLib.def
    :Author.   	 Gary Struhlik  
    :Address.    -
    :Phone.      -
    :shortcut. 	 [gs]
    :Version.  	 1.0   
    :Date.     	 08.10.1988
    :Copyright.  PD
    :Language. 	 Modula-II
    :Translator. M2Amiga
    :Imports.	 LongMathLibExt [gs]
    :UpDate.	 -
    :Contents.   Dieses Modul unterstützt das Rechnen mit komplexen Zahlen 
    :Contents.   Es werden die Grundrechenarten und wichtige mathematische
    :Contents.   Funktionen zur Verfügung gestellt, welche in den Bereichen
    :Contents.   Naturwissenschaft und Technik häufig benötigt werden.
    :Remark.	 Für den Amiga Modula-2 Klub / Stuttgart
    :Remark.     Am 01.01.1989 mit M2Amiga 3.2d neu kompiliert

**********************************************************************)

DEFINITION MODULE LongComplexLib;  (* für LONGREAL *)


FROM LongMathLibExt IMPORT pi;

CONST
	PI = pi;

TYPE
	LONGCOMPLEX = RECORD
          RE,IM : LONGREAL
        END;        

PROCEDURE compop (VAR Z:LONGCOMPLEX; A:LONGCOMPLEX; OP:CHAR;
                  B:LONGCOMPLEX); 

PROCEDURE conjg (VAR Z : LONGCOMPLEX; A : LONGCOMPLEX); 

PROCEDURE cabs (A : LONGCOMPLEX) : LONGREAL; 

PROCEDURE carg (A : LONGCOMPLEX) : LONGREAL;	

PROCEDURE cpol (VAR Z : LONGCOMPLEX; A : LONGCOMPLEX); 

PROCEDURE crec (VAR Z : LONGCOMPLEX; A : LONGCOMPLEX); 

PROCEDURE crcp (VAR Z : LONGCOMPLEX; A : LONGCOMPLEX);

PROCEDURE cexp (VAR Z : LONGCOMPLEX; A : LONGCOMPLEX); 

PROCEDURE cln (VAR Z : LONGCOMPLEX; A : LONGCOMPLEX); 

PROCEDURE csqr (VAR Z : LONGCOMPLEX; A : LONGCOMPLEX); 

PROCEDURE root (N,X : LONGREAL) : LONGREAL;

PROCEDURE csqrt (VAR Z:LONGCOMPLEX; A : LONGCOMPLEX); 

PROCEDURE csin (VAR Z : LONGCOMPLEX; A : LONGCOMPLEX); 

PROCEDURE carcsin (VAR Z : LONGCOMPLEX; A : LONGCOMPLEX); 

PROCEDURE ccos (VAR Z : LONGCOMPLEX; A : LONGCOMPLEX); 

PROCEDURE carccos (VAR Z : LONGCOMPLEX; A : LONGCOMPLEX); 

PROCEDURE ctan (VAR Z : LONGCOMPLEX; A : LONGCOMPLEX); 

PROCEDURE carctan (VAR Z : LONGCOMPLEX; A : LONGCOMPLEX);

PROCEDURE csinh (VAR Z : LONGCOMPLEX; A : LONGCOMPLEX); 

PROCEDURE carsinh (VAR Z : LONGCOMPLEX; A : LONGCOMPLEX); 

PROCEDURE ccosh (VAR Z : LONGCOMPLEX; A : LONGCOMPLEX); 

PROCEDURE carcosh (VAR Z : LONGCOMPLEX; A : LONGCOMPLEX); 

PROCEDURE ctanh (VAR Z : LONGCOMPLEX; A : LONGCOMPLEX);

PROCEDURE cartanh (VAR Z : LONGCOMPLEX; A : LONGCOMPLEX); 

PROCEDURE cpower (VAR Z : LONGCOMPLEX; A,B : LONGCOMPLEX); 

PROCEDURE croot (VAR Z:LONGCOMPLEX; K,N:LONGREAL; A : LONGCOMPLEX); 

END LongComplexLib.