Calculate the cosine, sine and tangent of an angle

C call:

C     CALL PTH054 (W,CW,SW)

C     

C     The following variables must be defined beforehand:

C     

C     W  : Angle (in degrees)

C     CW : Cosine value (return value)

C     SW : Sine value (return value)

C     

C     Example:

C     --------------------------------------------------

C     Calculate the cosine, sine and tangent of an angle

C     --------------------------------------------------

      W = 35.0

      CALL PTH054 (W,CW,SW)

C     

C     Calculate tangent (TW)

      TW = SW / CW