DEFINITION FOR C MODULE MathIEEEDoubTrans ;

FROM SYSTEM IMPORT ADDRESS ;

VAR
  MathIeeeDoubTransBase : ADDRESS ;

CONST
  PI	  = 3.141592653589793 ;

  TWO_PI  = 2. * PI ;
  PI2	  = PI / 2. ;
  PI4	  = PI / 4. ;

  E	  = 2.718281828459045 ;
  LOG10	  = 2.302585092994046 ;

  FPTEN	  = 10.0 ;
  FPONE	  = 1.0  ;
  FPHALF  = 0.5  ;
  FPZERO  = 0.0	 ;

PROCEDURE IEEEDPAtan( parm : LONGREAL ) : LONGREAL ;
PROCEDURE IEEEDPSin ( parm : LONGREAL ) : LONGREAL ;
PROCEDURE IEEEDPCos ( parm : LONGREAL ) : LONGREAL ;
PROCEDURE IEEEDPTan ( parm : LONGREAL ) : LONGREAL ;

PROCEDURE IEEEDPSincos( VAR cosResult	: LONGREAL ;
			    parm	: LONGREAL ) : LONGREAL;

PROCEDURE IEEEDPSinh( parm : LONGREAL ) : LONGREAL ;
PROCEDURE IEEEDPCosh( parm : LONGREAL ) : LONGREAL ;
PROCEDURE IEEEDPTanh( parm : LONGREAL ) : LONGREAL ;
PROCEDURE IEEEDPExp ( parm : LONGREAL ) : LONGREAL ;
PROCEDURE IEEEDPLog ( parm : LONGREAL ) : LONGREAL ;

PROCEDURE IEEEDPPow( power , arg : LONGREAL ) : LONGREAL ;

PROCEDURE IEEEDPSqrt ( parm : LONGREAL ) : LONGREAL ;
PROCEDURE IEEEDPTieee( parm : LONGREAL ) : REAL ;
PROCEDURE IEEEDPFieee( parm : REAL ) : LONGREAL ;

PROCEDURE IEEEDPAsin ( parm : LONGREAL ) : LONGREAL ;
PROCEDURE IEEEDPAcos ( parm : LONGREAL ) : LONGREAL ;
PROCEDURE IEEEDPLog10( parm : LONGREAL ) : LONGREAL ;

END MathIEEEDoubTrans.