Celli1 Celli1_sub Celli2 Celli2_sub Celli3 Celli3_sub Elli1 Elli1_sub Elli2 Elli2_sub Elli3 Elli3_sub Hlambda Hlambda_sub Jzeta Jzeta_sub Rc Rc_sub Rd Rd_sub Rf Rf_sub Rg Rg_sub Rj Rj_sub

Elli1_sub() Sub Elli1_sub ( Ret As  Double, Phi As  Double, K As  Double, Optional Info As  Long  ) Incomplete elliptic integral of the first kind F(φ, k) (Subroutine version) Purpose Computes the Legendre form of incomplete elliptic integral of the first kind F(φ, k). F(φ, k) = ∫ 1/sqrt(1 - k^2(sin(t))^2) dt [0, φ] Parameters [out] Ret Incomplete elliptic integral of the first kind F(φ, k). [in] Phi Argument φ [rad]. [in] K Argument k. (K^2*sin(Phi)^2 < 1 (if |Phi| > π/2, |K| <= 1)) [out] Info (Optional) = 0: Successful exit. = -2: The argument K had an illegal value. (K^2*sin(Phi)^2 > 1 (|K| > 1 if |Phi| > π/2)) = 1: Floating point range error. Reference boost/math/special_functions