const  real  PI   = 3.141592653589793238462643
const  real  PI2  = 6.283185307179586476925287
const  real  PIO2 = 1.570796326794896619231322
const  real  PIO4 = 0.7853981633974483096156608
const  real  E    = 2.718281828
const  real  DtoR = 57.2958

external real fn spec  SIN(real  x)
external real fn spec  COS(real  x)
external real fn spec  TAN(real  x)
external real fn spec  ARC TAN(real  x,y)   {ARCTAN(y/x)}
external real fn spec  ARC SIN(real  x)
external real fn spec  ARC COS(real  x)
external real fn spec  LOG(real  x)
external real fn spec  LOG TEN(real  x)
external real fn spec  EXP(real  x)
external real fn spec  SIN H(real  x)
external real fn spec  COS H(real  x)
external real fn spec  TAN H(real  x)