NAME: Cos

     USE: Function to return the Cosine of the argument.

     DEPENDENCY: None

     SYNTAX: Cos(RealNumber);

     RESULT: Real Number

     EXAMPLE: X := Cos(Pi);