      DOUBLE PRECISION FUNCTION MYTAN(A)
      DOUBLE PRECISION A
      MYTAN = DTAN(A)
      RETURN
      END
