{ sfun.i sarctan(var x,y: scalar); y:=arctan(x) sarcsin(var x,y: scalar); y:=arcsin(x) sexp(var x,y: scalar); y:=exp(x) slnhalf(var s: scalar); s:=ln(1/2) Notes: The global quantities are procedures from reps.i, scalar.i const topint= ; strnglen= ; exmax= ; hdim= ; edim= ; up:=true; down:=false; type longstring=varying[strnglen] of char; hint=array[0..hdim] of integer; hreal=record si: integer; ma: hint; ex: integer; end; scalar=record l: hreal; u: hreal; end; var trunc,underflow,overflow: boolean; e: array[0..edim] of integer; sone,stwo,shalf: scalar; ------------------------------------------------------------------------------} %include 'sfun/sarctan'; %include 'sfun/sarcsin'; %include 'sfun/sexp'; %include 'sfun/slnhalf';