IMPLEMENTATION MODULE MathLib0 ;

IMPORT MathIEEEDoubTrans, MathIEEEDoubBas ;

PROCEDURE sqrt( x : LONGREAL ) : LONGREAL ;
BEGIN RETURN MathIEEEDoubTrans.IEEEDPSqrt(x)
END sqrt ;

PROCEDURE exp( x : LONGREAL ) : LONGREAL ;
BEGIN RETURN MathIEEEDoubTrans.IEEEDPExp(x)
END exp ;

PROCEDURE ln( x : LONGREAL ) : LONGREAL ;
BEGIN RETURN MathIEEEDoubTrans.IEEEDPLog(x)
END ln ;

PROCEDURE sin( x : LONGREAL ) : LONGREAL ;
BEGIN RETURN MathIEEEDoubTrans.IEEEDPSin(x)
END sin ;

PROCEDURE cos( x : LONGREAL ) : LONGREAL ;
BEGIN RETURN MathIEEEDoubTrans.IEEEDPCos(x)
END cos ;

PROCEDURE arctan( x : LONGREAL ) : LONGREAL ;
BEGIN RETURN MathIEEEDoubTrans.IEEEDPAtan(x)
END arctan ;

PROCEDURE entier( x : LONGREAL ) : LONGINT ;
BEGIN RETURN TRUNC( MathIEEEDoubBas.IEEEDPFloor(x))
END entier ;

END MathLib0.