
      FUNCTION ASIN(X)
      DATA API2,A0,A1,A2,A3,A4,A5,A6,A7/1.5707963,1.5707963,
     X-0.2145988,0.08897898,-0.05017430,0.03089188,
     X-0.01708812,0.006670090,-0.0012624911/
      X2=X*X
      X3=X2*X
      X4=X3*X
      X5=X4*X
      X6=X5*X
      X7=X6*X
      SUM=A0 + A1*X + A2*X2 + A3*X3 + A4*X4 + A5*X5 + A6*X6 + A7*X7
      ASIN=API2 - SQRT(1.0 - X)*SUM
      RETURN
      END

      FUNCTION TAN(X)
      TAN = SIN(X) / COS(X)
      RETURN
      END
