@database MathIEEEDoubTrans
@node Main "MathIEEEDoubTrans"

Prozeduren

   @{" Acos " link Modul 3}                        @{" Asin " link Modul 5}                        @{" Atan " link Modul 7}
   @{" Cos " link Modul 9}                         @{" Cosh " link Modul 11}                        @{" Exp " link Modul 13}
   @{" Fieee " link Modul 15}                       @{" Log " link Modul 17}                         @{" Log10 " link Modul 19}
   @{" Pow " link Modul 21}                         @{" Sin " link Modul 23}                         @{" Sincos " link Modul 25}
   @{" Sinh " link Modul 28}                        @{" Sqrt " link Modul 30}                        @{" Tan " link Modul 32}
   @{" Tanh " link Modul 34}                        @{" Tieee " link Modul 36}                    

@endnode
@node Modul "TMP:Modula-2/MathIEEEDoubTrans.def"
DEFINITION MODULE MathIEEEDoubTrans{"mathieeedoubtrans.library",34};
(* 02-May-1992/cn *)

PROCEDURE Acos(x{0}:LONGREAL):LONGREAL; CODE -120;

PROCEDURE Asin(x{0}:LONGREAL):LONGREAL; CODE -114;

PROCEDURE Atan(x{0}:LONGREAL):LONGREAL; CODE -30;

PROCEDURE Cos(x{0}:LONGREAL):LONGREAL; CODE -42;

PROCEDURE Cosh(x{0}:LONGREAL):LONGREAL; CODE -66;

PROCEDURE Exp(x{0}:LONGREAL):LONGREAL; CODE -78;

PROCEDURE Fieee(x{0}:REAL):LONGREAL; CODE -108;

PROCEDURE Log(x{0}:LONGREAL):LONGREAL; CODE -84;

PROCEDURE Log10(x{0}:LONGREAL):LONGREAL; CODE -126;

PROCEDURE Pow(base{0},exp{2}:LONGREAL):LONGREAL;CODE -90;

PROCEDURE Sin(x{0}:LONGREAL):LONGREAL; CODE -36;

PROCEDURE Sincos(
           x{0}:LONGREAL; VAR cos{8}:LONGREAL):LONGREAL; CODE -54;

PROCEDURE Sinh(x{0}:LONGREAL):LONGREAL; CODE -60;

PROCEDURE Sqrt(x{0}:LONGREAL):LONGREAL; CODE -96;

PROCEDURE Tan(x{0}:LONGREAL):LONGREAL; CODE -48;

PROCEDURE Tanh(x{0}:LONGREAL):LONGREAL; CODE -72;

PROCEDURE Tieee(x{0}:LONGREAL):REAL; CODE -102;

END MathIEEEDoubTrans.lib34

@endnode