home *** CD-ROM | disk | FTP | other *** search
/ Aminet 18 / aminetcdnumber181997.iso / Aminet / dev / m2 / CycloneModules.lha / modules / txt / MathIEEEDoubTrans.def < prev    next >
Text File  |  1995-03-26  |  1KB  |  24 lines
  1. DEFINITION MODULE MathIEEEDoubTrans {"mathieeedoubtrans.library",34};
  2.  
  3. (* (C) Copyright 1994 Marcel Timmermans. All rights reserved. *)
  4.  
  5. PROCEDURE Acos(x{0}:LONGREAL):LONGREAL; CODE -120;
  6. PROCEDURE Asin(x{0}:LONGREAL):LONGREAL; CODE -114;
  7. PROCEDURE Atan(x{0}:LONGREAL):LONGREAL; CODE -30;
  8. PROCEDURE Cos(x{0}:LONGREAL):LONGREAL; CODE -42;
  9. PROCEDURE Cosh(x{0}:LONGREAL):LONGREAL; CODE -66;
  10. PROCEDURE Exp(x{0}:LONGREAL):LONGREAL; CODE -78;
  11. PROCEDURE Fieee(x{0}:REAL):LONGREAL; CODE -108;
  12. PROCEDURE Log(x{0}:LONGREAL):LONGREAL; CODE -84;
  13. PROCEDURE Log10(x{0}:LONGREAL):LONGREAL; CODE -126;
  14. PROCEDURE Pow(base{0},exp{2}:LONGREAL):LONGREAL;CODE -90;
  15. PROCEDURE Sin(x{0}:LONGREAL):LONGREAL; CODE -36;
  16. PROCEDURE Sincos(x{0}:LONGREAL; VAR cos{8}:LONGREAL):LONGREAL; CODE -54;
  17. PROCEDURE Sinh(x{0}:LONGREAL):LONGREAL; CODE -60;
  18. PROCEDURE Sqrt(x{0}:LONGREAL):LONGREAL; CODE -96;
  19. PROCEDURE Tan(x{0}:LONGREAL):LONGREAL; CODE -48;
  20. PROCEDURE Tanh(x{0}:LONGREAL):LONGREAL; CODE -72;
  21. PROCEDURE Tieee(x{0}:LONGREAL):REAL; CODE -102;
  22.  
  23. END MathIEEEDoubTrans.
  24.