DEFINITION FOR C MODULE MathTrans ;

FROM SYSTEM IMPORT SHORTREAL, ADDRESS ;

VAR
  MathTransBase : 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 SPAtan( parm : SHORTREAL ) : SHORTREAL ;
PROCEDURE SPSin ( parm : SHORTREAL ) : SHORTREAL ;
PROCEDURE SPCos ( parm : SHORTREAL ) : SHORTREAL ;
PROCEDURE SPTan ( parm : SHORTREAL ) : SHORTREAL ;

PROCEDURE SPSincos( VAR cosResult : SHORTREAL ;
			parm	  : SHORTREAL ) : SHORTREAL;

PROCEDURE SPSinh( parm : SHORTREAL ) : SHORTREAL ;
PROCEDURE SPCosh( parm : SHORTREAL ) : SHORTREAL ;
PROCEDURE SPTanh( parm : SHORTREAL ) : SHORTREAL ;
PROCEDURE SPExp ( parm : SHORTREAL ) : SHORTREAL ;
PROCEDURE SPLog ( parm : SHORTREAL ) : SHORTREAL ;

PROCEDURE SPPow( power , arg : SHORTREAL ) : SHORTREAL ;

PROCEDURE SPSqrt ( parm : SHORTREAL ) : SHORTREAL ;
PROCEDURE SPTieee( parm : SHORTREAL ) : REAL ;
PROCEDURE SPFieee( parm : REAL ) : SHORTREAL ;

(*--- functions in V31 or higher (Release 1.1) ---*)

PROCEDURE SPAsin ( parm : SHORTREAL ) : SHORTREAL ;
PROCEDURE SPAcos ( parm : SHORTREAL ) : SHORTREAL ;
PROCEDURE SPLog10( parm : SHORTREAL ) : SHORTREAL ;

END MathTrans.