(****************************************
 * Name : MathLib0.DEF                  *
 * purpose : math functions for use     *
 *           with modula-2  SIN COS TAN *
 * Author : JSG                         *
 ****************************************)

DEFINITION MODULE MathLib0;

PROCEDURE SQRT(x:REAL) : REAL;

PROCEDURE SIN(x:REAL;VAR neg: BOOLEAN)  : REAL;  (* x : radiens *)
PROCEDURE COS(x:REAL;VAR neg: BOOLEAN)  : REAL;  (* x : radiens *)
PROCEDURE TAN(x:REAL)  : REAL;  (* x : radiens *)

END MathLib0.




