
(SDEFUN |ELIPIDF;rabs| ((|x| (|Complex| (|DoubleFloat|))) (% (|DoubleFloat|)))
        (SPADCALL (SPADCALL |x| (QREFELT % 34)) (QREFELT % 36))) 

(SDEFUN |ELIPIDF;ellipticRC;3Df;2|
        ((|x| (|DoubleFloat|)) (|y| (|DoubleFloat|)) (% (|DoubleFloat|)))
        (SPROG
         ((Q #1=(|DoubleFloat|)) (|mu| #1#) (|lambda| #2=(|DoubleFloat|))
          (#3=#:G30 NIL) (S0 #2#) (S1 #2#) (|sn2| #1#) (|sn| #1#)
          (|mu_inv| (|DoubleFloat|)))
         (SEQ
          (EXIT
           (SEQ
            (LETT |mu|
                  (|mul_DF| (QREFELT % 7) (|add_DF| (|add_DF| |x| |y|) |y|)))
            (LETT Q (|mul_DF| (QREFELT % 16) (|abs_DF| (|sub_DF| |mu| |x|))))
            (EXIT
             (SEQ G190 NIL
                  (SEQ
                   (EXIT
                    (COND
                     ((|less_DF| Q (|abs_DF| |mu|))
                      (SEQ (LETT |mu_inv| (|div_DF| 1.0 |mu|))
                           (LETT |sn| (|mul_DF| |mu_inv| (|sub_DF| |y| |mu|)))
                           (LETT |sn2| (|mul_DF| |sn| |sn|))
                           (LETT S1
                                 (|add_DF| (QREFELT % 11)
                                           (|mul_DF| |sn2|
                                                     (|add_DF| (QREFELT % 13)
                                                               (|mul_DF| |sn2|
                                                                         (QREFELT
                                                                          %
                                                                          15))))))
                           (LETT S0
                                 (|add_DF| (QREFELT % 10)
                                           (|mul_DF| |sn2|
                                                     (|add_DF| (QREFELT % 12)
                                                               (|mul_DF| |sn2|
                                                                         (QREFELT
                                                                          %
                                                                          14))))))
                           (EXIT
                            (PROGN
                             (LETT #3#
                                   (|mul_DF| (|qsqrt_DF| |mu_inv|)
                                             (|add_DF| 1.0
                                                       (|mul_DF| |sn2|
                                                                 (|add_DF| S0
                                                                           (|mul_DF|
                                                                            |sn|
                                                                            S1))))))
                             (GO #4=#:G29)))))
                     ('T
                      (SEQ
                       (LETT |lambda|
                             (|add_DF|
                              (|mul_DF|
                               (|mul_DF| (FLOAT 2 MOST-POSITIVE-DOUBLE-FLOAT)
                                         (|qsqrt_DF| |x|))
                               (|qsqrt_DF| |y|))
                              |y|))
                       (LETT |x|
                             (|mul_DF| (QREFELT % 8) (|add_DF| |x| |lambda|)))
                       (LETT |y|
                             (|mul_DF| (QREFELT % 8) (|add_DF| |y| |lambda|)))
                       (LETT |mu|
                             (|mul_DF| (QREFELT % 8) (|add_DF| |mu| |lambda|)))
                       (EXIT (LETT Q (|mul_DF| (QREFELT % 8) Q))))))))
                  NIL (GO G190) G191 (EXIT NIL)))))
          #4# (EXIT #3#)))) 

(SDEFUN |ELIPIDF;ellipticRF;4Df;3|
        ((|x| (|DoubleFloat|)) (|y| (|DoubleFloat|)) (|z| (|DoubleFloat|))
         (% (|DoubleFloat|)))
        (SPROG
         ((Q #1=(|DoubleFloat|)) (|mu| #1#) (|lambda| #2=(|DoubleFloat|))
          (|znroot| #3=(|DoubleFloat|)) (|ynroot| #3#) (|xnroot| #3#)
          (#4=#:G38 NIL) (|s| #2#) (|e3| #1#) (|e2| (|DoubleFloat|))
          (|zndev| #1#) (|yndev| #1#) (|xndev| #1#) (|mu_inv| (|DoubleFloat|))
          (|zadev| #5=(|DoubleFloat|)) (|yadev| #5#) (|xadev| #5#))
         (SEQ
          (EXIT
           (SEQ
            (LETT |mu|
                  (|mul_DF| (QREFELT % 7) (|add_DF| (|add_DF| |x| |y|) |z|)))
            (LETT |xadev| (|abs_DF| (|sub_DF| |mu| |x|)))
            (LETT |yadev| (|abs_DF| (|sub_DF| |mu| |y|)))
            (LETT |zadev| (|abs_DF| (|sub_DF| |mu| |z|)))
            (LETT Q
                  (|mul_DF| (QREFELT % 21)
                            (|max_DF| |xadev| (|max_DF| |yadev| |zadev|))))
            (EXIT
             (SEQ G190 NIL
                  (SEQ
                   (EXIT
                    (COND
                     ((|less_DF| Q (|abs_DF| |mu|))
                      (SEQ (LETT |mu_inv| (|div_DF| 1.0 |mu|))
                           (LETT |xndev|
                                 (|mul_DF| (|sub_DF| |mu| |x|) |mu_inv|))
                           (LETT |yndev|
                                 (|mul_DF| (|sub_DF| |mu| |y|) |mu_inv|))
                           (LETT |zndev|
                                 (|mul_DF| (|sub_DF| |mu| |z|) |mu_inv|))
                           (LETT |e2|
                                 (|sub_DF| (|mul_DF| |xndev| |yndev|)
                                           (|mul_DF| |zndev| |zndev|)))
                           (LETT |e3|
                                 (|mul_DF| (|mul_DF| |xndev| |yndev|) |zndev|))
                           (LETT |s|
                                 (|add_DF|
                                  (|add_DF| 1.0
                                            (|mul_DF|
                                             (|sub_DF|
                                              (|sub_DF|
                                               (|mul_DF| (QREFELT % 17) |e2|)
                                               (QREFELT % 18))
                                              (|mul_DF| (QREFELT % 11) |e3|))
                                             |e2|))
                                  (|mul_DF| (QREFELT % 20) |e3|)))
                           (EXIT
                            (PROGN
                             (LETT #4# (|mul_DF| |s| (|qsqrt_DF| |mu_inv|)))
                             (GO #6=#:G37)))))
                     ('T
                      (SEQ (LETT |xnroot| (|qsqrt_DF| |x|))
                           (LETT |ynroot| (|qsqrt_DF| |y|))
                           (LETT |znroot| (|qsqrt_DF| |z|))
                           (LETT |lambda|
                                 (|add_DF|
                                  (|mul_DF| |xnroot|
                                            (|add_DF| |ynroot| |znroot|))
                                  (|mul_DF| |ynroot| |znroot|)))
                           (LETT |x|
                                 (|mul_DF| (QREFELT % 8)
                                           (|add_DF| |x| |lambda|)))
                           (LETT |y|
                                 (|mul_DF| (QREFELT % 8)
                                           (|add_DF| |y| |lambda|)))
                           (LETT |z|
                                 (|mul_DF| (QREFELT % 8)
                                           (|add_DF| |z| |lambda|)))
                           (LETT |mu|
                                 (|mul_DF| (QREFELT % 8)
                                           (|add_DF| |mu| |lambda|)))
                           (EXIT (LETT Q (|mul_DF| (QREFELT % 8) Q))))))))
                  NIL (GO G190) G191 (EXIT NIL)))))
          #6# (EXIT #4#)))) 

(SDEFUN |ELIPIDF;ellipticRD;4Df;4|
        ((|x| (|DoubleFloat|)) (|y| (|DoubleFloat|)) (|z| (|DoubleFloat|))
         (% (|DoubleFloat|)))
        (SPROG
         ((Q #1=(|DoubleFloat|)) (|mu| #1#) (|power4| (|DoubleFloat|))
          (|sigma| (|DoubleFloat|)) (|lambda| #2=(|DoubleFloat|))
          (|znroot| #3=(|DoubleFloat|)) (|ynroot| #3#) (|xnroot| #3#)
          (#4=#:G46 NIL) (|ss| #1#) (|s2| #1#) (|s1| #1#) (|ef| #2#)
          (|ed| #5=(|DoubleFloat|)) (|ec| #5#) (|eb| #1#) (|ea| #1#)
          (|zndev| #1#) (|yndev| #1#) (|xndev| #1#) (|mu_inv| (|DoubleFloat|))
          (|zadev| #6=(|DoubleFloat|)) (|yadev| #6#) (|xadev| #6#))
         (SEQ
          (EXIT
           (SEQ (LETT |sigma| 0.0) (LETT |power4| 1.0)
                (LETT |mu|
                      (|mul_DF| (QREFELT % 9)
                                (|add_DF| (|add_DF| |x| |y|)
                                          (|mul_DF|
                                           (FLOAT 3 MOST-POSITIVE-DOUBLE-FLOAT)
                                           |z|))))
                (LETT |xadev| (|abs_DF| (|sub_DF| |mu| |x|)))
                (LETT |yadev| (|abs_DF| (|sub_DF| |mu| |y|)))
                (LETT |zadev| (|abs_DF| (|sub_DF| |mu| |z|)))
                (LETT Q
                      (|mul_DF| (QREFELT % 27)
                                (|max_DF| |xadev| (|max_DF| |yadev| |zadev|))))
                (EXIT
                 (SEQ G190 NIL
                      (SEQ
                       (EXIT
                        (COND
                         ((|less_DF| Q (|abs_DF| |mu|))
                          (SEQ (LETT |mu_inv| (|div_DF| 1.0 |mu|))
                               (LETT |xndev|
                                     (|mul_DF| (|sub_DF| |mu| |x|) |mu_inv|))
                               (LETT |yndev|
                                     (|mul_DF| (|sub_DF| |mu| |y|) |mu_inv|))
                               (LETT |zndev|
                                     (|mul_DF| (|sub_DF| |mu| |z|) |mu_inv|))
                               (LETT |ea| (|mul_DF| |xndev| |yndev|))
                               (LETT |eb| (|mul_DF| |zndev| |zndev|))
                               (LETT |ec| (|sub_DF| |ea| |eb|))
                               (LETT |ed|
                                     (|sub_DF| |ea|
                                               (|mul_DF|
                                                (FLOAT 6
                                                       MOST-POSITIVE-DOUBLE-FLOAT)
                                                |eb|)))
                               (LETT |ef| (|add_DF| (|add_DF| |ed| |ec|) |ec|))
                               (LETT |s1|
                                     (|mul_DF| |ed|
                                               (|sub_DF|
                                                (|add_DF| (QREFELT % 22)
                                                          (|mul_DF|
                                                           (|mul_DF|
                                                            (QREFELT % 8)
                                                            (QREFELT % 24))
                                                           |ed|))
                                                (|mul_DF|
                                                 (|mul_DF|
                                                  (|mul_DF| (QREFELT % 26)
                                                            (QREFELT % 25))
                                                  |zndev|)
                                                 |ef|))))
                               (LETT |s2|
                                     (|mul_DF| |zndev|
                                               (|add_DF|
                                                (|mul_DF| (QREFELT % 23) |ef|)
                                                (|mul_DF| |zndev|
                                                          (|add_DF|
                                                           (|minus_DF|
                                                            (|mul_DF|
                                                             (QREFELT % 24)
                                                             |ec|))
                                                           (|mul_DF|
                                                            (|mul_DF| |zndev|
                                                                      (QREFELT
                                                                       % 25))
                                                            |ea|))))))
                               (LETT |ss|
                                     (|mul_DF|
                                      (|mul_DF|
                                       (|add_DF| 1.0 (|add_DF| |s1| |s2|))
                                       |mu_inv|)
                                      (|qsqrt_DF| |mu_inv|)))
                               (EXIT
                                (PROGN
                                 (LETT #4#
                                       (|add_DF|
                                        (|mul_DF|
                                         (FLOAT 3 MOST-POSITIVE-DOUBLE-FLOAT)
                                         |sigma|)
                                        (|mul_DF| |power4| |ss|)))
                                 (GO #7=#:G45)))))
                         ('T
                          (SEQ (LETT |xnroot| (|qsqrt_DF| |x|))
                               (LETT |ynroot| (|qsqrt_DF| |y|))
                               (LETT |znroot| (|qsqrt_DF| |z|))
                               (LETT |lambda|
                                     (|add_DF|
                                      (|mul_DF| |xnroot|
                                                (|add_DF| |ynroot| |znroot|))
                                      (|mul_DF| |ynroot| |znroot|)))
                               (LETT |sigma|
                                     (|add_DF| |sigma|
                                               (|div_DF| |power4|
                                                         (|mul_DF| |znroot|
                                                                   (|add_DF|
                                                                    |z|
                                                                    |lambda|)))))
                               (LETT |power4|
                                     (|mul_DF| (QREFELT % 8) |power4|))
                               (LETT |x|
                                     (|mul_DF| (QREFELT % 8)
                                               (|add_DF| |x| |lambda|)))
                               (LETT |y|
                                     (|mul_DF| (QREFELT % 8)
                                               (|add_DF| |y| |lambda|)))
                               (LETT |z|
                                     (|mul_DF| (QREFELT % 8)
                                               (|add_DF| |z| |lambda|)))
                               (LETT |mu|
                                     (|mul_DF| (QREFELT % 8)
                                               (|add_DF| |mu| |lambda|)))
                               (EXIT (LETT Q (|mul_DF| (QREFELT % 8) Q))))))))
                      NIL (GO G190) G191 (EXIT NIL)))))
          #7# (EXIT #4#)))) 

(SDEFUN |ELIPIDF;ellipticRJ;5Df;5|
        ((|x| (|DoubleFloat|)) (|y| (|DoubleFloat|)) (|z| (|DoubleFloat|))
         (|p| (|DoubleFloat|)) (% (|DoubleFloat|)))
        (SPROG
         ((Q #1=(|DoubleFloat|)) (|mu| #1#) (|power4| (|DoubleFloat|))
          (|sigma| (|DoubleFloat|)) (|beta| #1#) (|alfa| #2=(|DoubleFloat|))
          (|lambda| #2#) (|znroot| #3=(|DoubleFloat|)) (|ynroot| #3#)
          (|xnroot| #3#) (#4=#:G54 NIL) (|ss| #1#) (|s3| #5=(|DoubleFloat|))
          (|s2| #1#) (|s1| #1#) (|e3| #2#) (|e2| #5#) (|ec| #1#) (|eb| #1#)
          (|ea| #2#) (|pndev| #1#) (|zndev| #1#) (|yndev| #1#) (|xndev| #1#)
          (|mu_inv| (|DoubleFloat|)) (|padev| #6=(|DoubleFloat|)) (|zadev| #6#)
          (|yadev| #6#) (|xadev| #6#))
         (SEQ
          (EXIT
           (SEQ (LETT |sigma| 0.0) (LETT |power4| 1.0)
                (LETT |mu|
                      (|mul_DF| (QREFELT % 9)
                                (|add_DF|
                                 (|add_DF| (|add_DF| (|add_DF| |x| |y|) |z|)
                                           |p|)
                                 |p|)))
                (LETT |xadev| (|abs_DF| (|sub_DF| |mu| |x|)))
                (LETT |yadev| (|abs_DF| (|sub_DF| |mu| |y|)))
                (LETT |zadev| (|abs_DF| (|sub_DF| |mu| |z|)))
                (LETT |padev| (|abs_DF| (|sub_DF| |mu| |p|)))
                (LETT Q
                      (|mul_DF| (QREFELT % 27)
                                (|max_DF| (|max_DF| |xadev| |yadev|)
                                          (|max_DF| |zadev| |padev|))))
                (EXIT
                 (SEQ G190 NIL
                      (SEQ
                       (EXIT
                        (COND
                         ((|less_DF| Q (|abs_DF| |mu|))
                          (SEQ (LETT |mu_inv| (|div_DF| 1.0 |mu|))
                               (LETT |xndev|
                                     (|mul_DF| (|sub_DF| |mu| |x|) |mu_inv|))
                               (LETT |yndev|
                                     (|mul_DF| (|sub_DF| |mu| |y|) |mu_inv|))
                               (LETT |zndev|
                                     (|mul_DF| (|sub_DF| |mu| |z|) |mu_inv|))
                               (LETT |pndev|
                                     (|mul_DF| (|sub_DF| |mu| |p|) |mu_inv|))
                               (LETT |ea|
                                     (|add_DF|
                                      (|mul_DF| |xndev|
                                                (|add_DF| |yndev| |zndev|))
                                      (|mul_DF| |yndev| |zndev|)))
                               (LETT |eb|
                                     (|mul_DF| (|mul_DF| |xndev| |yndev|)
                                               |zndev|))
                               (LETT |ec| (|mul_DF| |pndev| |pndev|))
                               (LETT |e2|
                                     (|sub_DF| |ea|
                                               (|mul_DF|
                                                (FLOAT 3
                                                       MOST-POSITIVE-DOUBLE-FLOAT)
                                                |ec|)))
                               (LETT |e3|
                                     (|add_DF| |eb|
                                               (|mul_DF|
                                                (|mul_DF|
                                                 (FLOAT 2
                                                        MOST-POSITIVE-DOUBLE-FLOAT)
                                                 |pndev|)
                                                (|sub_DF| |ea| |ec|))))
                               (LETT |s1|
                                     (|mul_DF| |e2|
                                               (|sub_DF|
                                                (|add_DF|
                                                 (|minus_DF| (QREFELT % 28))
                                                 (|mul_DF| (QREFELT % 31)
                                                           |e2|))
                                                (|mul_DF| (QREFELT % 32)
                                                          |e3|))))
                               (LETT |s2|
                                     (|mul_DF| |eb|
                                               (|add_DF|
                                                (|mul_DF| (QREFELT % 6)
                                                          (QREFELT % 7))
                                                (|mul_DF| |pndev|
                                                          (|add_DF|
                                                           (|minus_DF|
                                                            (|add_DF|
                                                             (QREFELT % 29)
                                                             (QREFELT % 29)))
                                                           (|mul_DF| |pndev|
                                                                     (QREFELT %
                                                                              30)))))))
                               (LETT |s3|
                                     (|sub_DF|
                                      (|mul_DF| (|mul_DF| |pndev| |ea|)
                                                (|sub_DF| (QREFELT % 7)
                                                          (|mul_DF| |pndev|
                                                                    (QREFELT %
                                                                             29))))
                                      (|mul_DF|
                                       (|mul_DF| (QREFELT % 7) |pndev|) |ec|)))
                               (LETT |ss|
                                     (|mul_DF|
                                      (|mul_DF|
                                       (|add_DF| 1.0
                                                 (|add_DF| (|add_DF| |s1| |s2|)
                                                           |s3|))
                                       |mu_inv|)
                                      (|qsqrt_DF| |mu_inv|)))
                               (EXIT
                                (PROGN
                                 (LETT #4#
                                       (|add_DF|
                                        (|mul_DF|
                                         (FLOAT 3 MOST-POSITIVE-DOUBLE-FLOAT)
                                         |sigma|)
                                        (|mul_DF| |power4| |ss|)))
                                 (GO #7=#:G53)))))
                         ('T
                          (SEQ (LETT |xnroot| (|qsqrt_DF| |x|))
                               (LETT |ynroot| (|qsqrt_DF| |y|))
                               (LETT |znroot| (|qsqrt_DF| |z|))
                               (LETT |lambda|
                                     (|add_DF|
                                      (|mul_DF| |xnroot|
                                                (|add_DF| |ynroot| |znroot|))
                                      (|mul_DF| |ynroot| |znroot|)))
                               (LETT |alfa|
                                     (|add_DF|
                                      (|mul_DF| |p|
                                                (|add_DF|
                                                 (|add_DF| |xnroot| |ynroot|)
                                                 |znroot|))
                                      (|mul_DF| (|mul_DF| |xnroot| |ynroot|)
                                                |znroot|)))
                               (LETT |alfa| (|mul_DF| |alfa| |alfa|))
                               (LETT |beta|
                                     (|mul_DF|
                                      (|mul_DF| |p| (|add_DF| |p| |lambda|))
                                      (|add_DF| |p| |lambda|)))
                               (LETT |sigma|
                                     (|add_DF| |sigma|
                                               (|mul_DF| |power4|
                                                         (SPADCALL |alfa|
                                                                   |beta|
                                                                   (QREFELT %
                                                                            39)))))
                               (LETT |power4|
                                     (|mul_DF| (QREFELT % 8) |power4|))
                               (LETT |x|
                                     (|mul_DF| (QREFELT % 8)
                                               (|add_DF| |x| |lambda|)))
                               (LETT |y|
                                     (|mul_DF| (QREFELT % 8)
                                               (|add_DF| |y| |lambda|)))
                               (LETT |z|
                                     (|mul_DF| (QREFELT % 8)
                                               (|add_DF| |z| |lambda|)))
                               (LETT |p|
                                     (|mul_DF| (QREFELT % 8)
                                               (|add_DF| |p| |lambda|)))
                               (LETT |mu|
                                     (|mul_DF| (QREFELT % 8)
                                               (|add_DF| |mu| |lambda|)))
                               (EXIT (LETT Q (|mul_DF| (QREFELT % 8) Q))))))))
                      NIL (GO G190) G191 (EXIT NIL)))))
          #7# (EXIT #4#)))) 

(SDEFUN |ELIPIDF;ellipticF;3Df;6|
        ((|z| (|DoubleFloat|)) (|m| (|DoubleFloat|)) (% (|DoubleFloat|)))
        (|mul_DF| |z|
                  (SPADCALL (|sub_DF| 1.0 (|mul_DF| |z| |z|))
                            (|sub_DF| 1.0 (|mul_DF| (|mul_DF| |m| |z|) |z|))
                            1.0 (QREFELT % 40)))) 

(SDEFUN |ELIPIDF;ellipticK;2Df;7| ((|m| (|DoubleFloat|)) (% (|DoubleFloat|)))
        (SPADCALL 0.0 (|sub_DF| 1.0 |m|) 1.0 (QREFELT % 40))) 

(SDEFUN |ELIPIDF;ellipticE;3Df;8|
        ((|z| (|DoubleFloat|)) (|m| (|DoubleFloat|)) (% (|DoubleFloat|)))
        (|sub_DF|
         (|mul_DF| |z|
                   (SPADCALL (|sub_DF| 1.0 (|mul_DF| |z| |z|))
                             (|sub_DF| 1.0 (|mul_DF| (|mul_DF| |m| |z|) |z|))
                             1.0 (QREFELT % 40)))
         (|mul_DF|
          (|mul_DF|
           (|mul_DF|
            (|mul_DF| (|div_DF| |m| (FLOAT 3 MOST-POSITIVE-DOUBLE-FLOAT)) |z|)
            |z|)
           |z|)
          (SPADCALL (|sub_DF| 1.0 (|mul_DF| |z| |z|))
                    (|sub_DF| 1.0 (|mul_DF| (|mul_DF| |m| |z|) |z|)) 1.0
                    (QREFELT % 41))))) 

(SDEFUN |ELIPIDF;ellipticE;2Df;9| ((|m| (|DoubleFloat|)) (% (|DoubleFloat|)))
        (|sub_DF| (SPADCALL 0.0 (|sub_DF| 1.0 |m|) 1.0 (QREFELT % 40))
                  (|mul_DF| (|div_DF| |m| (FLOAT 3 MOST-POSITIVE-DOUBLE-FLOAT))
                            (SPADCALL 0.0 (|sub_DF| 1.0 |m|) 1.0
                                      (QREFELT % 41))))) 

(SDEFUN |ELIPIDF;ellipticPi;4Df;10|
        ((|z| (|DoubleFloat|)) (|n| (|DoubleFloat|)) (|m| (|DoubleFloat|))
         (% (|DoubleFloat|)))
        (|add_DF|
         (|mul_DF| |z|
                   (SPADCALL (|sub_DF| 1.0 (|mul_DF| |z| |z|))
                             (|sub_DF| 1.0 (|mul_DF| (|mul_DF| |m| |z|) |z|))
                             1.0 (QREFELT % 40)))
         (|mul_DF|
          (|mul_DF|
           (|mul_DF|
            (|mul_DF| (|div_DF| |n| (FLOAT 3 MOST-POSITIVE-DOUBLE-FLOAT)) |z|)
            |z|)
           |z|)
          (SPADCALL (|sub_DF| 1.0 (|mul_DF| |z| |z|))
                    (|sub_DF| 1.0 (|mul_DF| (|mul_DF| |m| |z|) |z|)) 1.0
                    (|sub_DF| 1.0 (|mul_DF| (|mul_DF| |n| |z|) |z|))
                    (QREFELT % 42))))) 

(SDEFUN |ELIPIDF;ellipticRC;3C;11|
        ((|x| (|Complex| (|DoubleFloat|))) (|y| (|Complex| (|DoubleFloat|)))
         (% (|Complex| (|DoubleFloat|))))
        (SPROG
         ((Q (|DoubleFloat|)) (|mu| (|Complex| (|DoubleFloat|)))
          (|lambda| #1=(|Complex| (|DoubleFloat|))) (#2=#:G67 NIL) (S0 #1#)
          (S1 #1#) (|sn2| #3=(|Complex| (|DoubleFloat|))) (|sn| #3#)
          (|mu_inv| (|Complex| (|DoubleFloat|))))
         (SEQ
          (EXIT
           (SEQ
            (LETT |mu|
                  (SPADCALL (QREFELT % 7)
                            (SPADCALL (SPADCALL |x| |y| (QREFELT % 48)) |y|
                                      (QREFELT % 48))
                            (QREFELT % 49)))
            (LETT Q
                  (|mul_DF| (QREFELT % 16)
                            (|ELIPIDF;rabs| (SPADCALL |mu| |x| (QREFELT % 50))
                             %)))
            (EXIT
             (SEQ G190 NIL
                  (SEQ
                   (EXIT
                    (COND
                     ((|less_DF| Q (|ELIPIDF;rabs| |mu| %))
                      (SEQ
                       (LETT |mu_inv|
                             (SPADCALL (|spadConstant| % 51) |mu|
                                       (QREFELT % 52)))
                       (LETT |sn|
                             (SPADCALL |mu_inv|
                                       (SPADCALL |y| |mu| (QREFELT % 50))
                                       (QREFELT % 53)))
                       (LETT |sn2| (SPADCALL |sn| |sn| (QREFELT % 53)))
                       (LETT S1
                             (SPADCALL (SPADCALL (QREFELT % 11) (QREFELT % 54))
                                       (SPADCALL |sn2|
                                                 (SPADCALL
                                                  (SPADCALL (QREFELT % 13)
                                                            (QREFELT % 54))
                                                  (SPADCALL |sn2|
                                                            (SPADCALL
                                                             (QREFELT % 15)
                                                             (QREFELT % 54))
                                                            (QREFELT % 53))
                                                  (QREFELT % 48))
                                                 (QREFELT % 53))
                                       (QREFELT % 48)))
                       (LETT S0
                             (SPADCALL (SPADCALL (QREFELT % 10) (QREFELT % 54))
                                       (SPADCALL |sn2|
                                                 (SPADCALL
                                                  (SPADCALL (QREFELT % 12)
                                                            (QREFELT % 54))
                                                  (SPADCALL |sn2|
                                                            (SPADCALL
                                                             (QREFELT % 14)
                                                             (QREFELT % 54))
                                                            (QREFELT % 53))
                                                  (QREFELT % 48))
                                                 (QREFELT % 53))
                                       (QREFELT % 48)))
                       (EXIT
                        (PROGN
                         (LETT #2#
                               (SPADCALL (SPADCALL |mu_inv| (QREFELT % 55))
                                         (SPADCALL (|spadConstant| % 51)
                                                   (SPADCALL |sn2|
                                                             (SPADCALL S0
                                                                       (SPADCALL
                                                                        |sn| S1
                                                                        (QREFELT
                                                                         % 53))
                                                                       (QREFELT
                                                                        % 48))
                                                             (QREFELT % 53))
                                                   (QREFELT % 48))
                                         (QREFELT % 53)))
                         (GO #4=#:G66)))))
                     ('T
                      (SEQ
                       (LETT |lambda|
                             (SPADCALL
                              (SPADCALL
                               (SPADCALL (SPADCALL 2 (QREFELT % 57))
                                         (SPADCALL |x| (QREFELT % 55))
                                         (QREFELT % 53))
                               (SPADCALL |y| (QREFELT % 55)) (QREFELT % 53))
                              |y| (QREFELT % 48)))
                       (LETT |x|
                             (SPADCALL (QREFELT % 8)
                                       (SPADCALL |x| |lambda| (QREFELT % 48))
                                       (QREFELT % 49)))
                       (LETT |y|
                             (SPADCALL (QREFELT % 8)
                                       (SPADCALL |y| |lambda| (QREFELT % 48))
                                       (QREFELT % 49)))
                       (LETT |mu|
                             (SPADCALL (QREFELT % 8)
                                       (SPADCALL |mu| |lambda| (QREFELT % 48))
                                       (QREFELT % 49)))
                       (EXIT (LETT Q (|mul_DF| (QREFELT % 8) Q))))))))
                  NIL (GO G190) G191 (EXIT NIL)))))
          #4# (EXIT #2#)))) 

(SDEFUN |ELIPIDF;ellipticRF;4C;12|
        ((|x| (|Complex| (|DoubleFloat|))) (|y| (|Complex| (|DoubleFloat|)))
         (|z| (|Complex| (|DoubleFloat|))) (% (|Complex| (|DoubleFloat|))))
        (SPROG
         ((Q (|DoubleFloat|)) (|mu| (|Complex| (|DoubleFloat|)))
          (|lambda| #1=(|Complex| (|DoubleFloat|)))
          (|znroot| #2=(|Complex| (|DoubleFloat|))) (|ynroot| #2#)
          (|xnroot| #2#) (#3=#:G75 NIL) (|s| #1#)
          (|e3| #4=(|Complex| (|DoubleFloat|)))
          (|e2| (|Complex| (|DoubleFloat|))) (|zndev| #4#) (|yndev| #4#)
          (|xndev| #4#) (|mu_inv| (|Complex| (|DoubleFloat|)))
          (|zadev| #5=(|DoubleFloat|)) (|yadev| #5#) (|xadev| #5#))
         (SEQ
          (EXIT
           (SEQ
            (LETT |mu|
                  (SPADCALL (QREFELT % 7)
                            (SPADCALL (SPADCALL |x| |y| (QREFELT % 48)) |z|
                                      (QREFELT % 48))
                            (QREFELT % 49)))
            (LETT |xadev|
                  (|ELIPIDF;rabs| (SPADCALL |mu| |x| (QREFELT % 50)) %))
            (LETT |yadev|
                  (|ELIPIDF;rabs| (SPADCALL |mu| |y| (QREFELT % 50)) %))
            (LETT |zadev|
                  (|ELIPIDF;rabs| (SPADCALL |mu| |z| (QREFELT % 50)) %))
            (LETT Q
                  (|mul_DF| (QREFELT % 21)
                            (|max_DF| |xadev| (|max_DF| |yadev| |zadev|))))
            (EXIT
             (SEQ G190 NIL
                  (SEQ
                   (EXIT
                    (COND
                     ((|less_DF| Q (|ELIPIDF;rabs| |mu| %))
                      (SEQ
                       (LETT |mu_inv|
                             (SPADCALL (|spadConstant| % 51) |mu|
                                       (QREFELT % 52)))
                       (LETT |xndev|
                             (SPADCALL (SPADCALL |mu| |x| (QREFELT % 50))
                                       |mu_inv| (QREFELT % 53)))
                       (LETT |yndev|
                             (SPADCALL (SPADCALL |mu| |y| (QREFELT % 50))
                                       |mu_inv| (QREFELT % 53)))
                       (LETT |zndev|
                             (SPADCALL (SPADCALL |mu| |z| (QREFELT % 50))
                                       |mu_inv| (QREFELT % 53)))
                       (LETT |e2|
                             (SPADCALL
                              (SPADCALL |xndev| |yndev| (QREFELT % 53))
                              (SPADCALL |zndev| |zndev| (QREFELT % 53))
                              (QREFELT % 50)))
                       (LETT |e3|
                             (SPADCALL
                              (SPADCALL |xndev| |yndev| (QREFELT % 53)) |zndev|
                              (QREFELT % 53)))
                       (LETT |s|
                             (SPADCALL
                              (SPADCALL (|spadConstant| % 51)
                                        (SPADCALL
                                         (SPADCALL
                                          (SPADCALL
                                           (SPADCALL (QREFELT % 17) |e2|
                                                     (QREFELT % 49))
                                           (SPADCALL (QREFELT % 18)
                                                     (QREFELT % 54))
                                           (QREFELT % 50))
                                          (SPADCALL (QREFELT % 11) |e3|
                                                    (QREFELT % 49))
                                          (QREFELT % 50))
                                         |e2| (QREFELT % 53))
                                        (QREFELT % 48))
                              (SPADCALL (QREFELT % 20) |e3| (QREFELT % 49))
                              (QREFELT % 48)))
                       (EXIT
                        (PROGN
                         (LETT #3#
                               (SPADCALL |s| (SPADCALL |mu_inv| (QREFELT % 55))
                                         (QREFELT % 53)))
                         (GO #6=#:G74)))))
                     ('T
                      (SEQ (LETT |xnroot| (SPADCALL |x| (QREFELT % 55)))
                           (LETT |ynroot| (SPADCALL |y| (QREFELT % 55)))
                           (LETT |znroot| (SPADCALL |z| (QREFELT % 55)))
                           (LETT |lambda|
                                 (SPADCALL
                                  (SPADCALL |xnroot|
                                            (SPADCALL |ynroot| |znroot|
                                                      (QREFELT % 48))
                                            (QREFELT % 53))
                                  (SPADCALL |ynroot| |znroot| (QREFELT % 53))
                                  (QREFELT % 48)))
                           (LETT |x|
                                 (SPADCALL (QREFELT % 8)
                                           (SPADCALL |x| |lambda|
                                                     (QREFELT % 48))
                                           (QREFELT % 49)))
                           (LETT |y|
                                 (SPADCALL (QREFELT % 8)
                                           (SPADCALL |y| |lambda|
                                                     (QREFELT % 48))
                                           (QREFELT % 49)))
                           (LETT |z|
                                 (SPADCALL (QREFELT % 8)
                                           (SPADCALL |z| |lambda|
                                                     (QREFELT % 48))
                                           (QREFELT % 49)))
                           (LETT |mu|
                                 (SPADCALL (QREFELT % 8)
                                           (SPADCALL |mu| |lambda|
                                                     (QREFELT % 48))
                                           (QREFELT % 49)))
                           (EXIT (LETT Q (|mul_DF| (QREFELT % 8) Q))))))))
                  NIL (GO G190) G191 (EXIT NIL)))))
          #6# (EXIT #3#)))) 

(SDEFUN |ELIPIDF;ellipticRD;4C;13|
        ((|x| (|Complex| (|DoubleFloat|))) (|y| (|Complex| (|DoubleFloat|)))
         (|z| (|Complex| (|DoubleFloat|))) (% (|Complex| (|DoubleFloat|))))
        (SPROG
         ((Q (|DoubleFloat|)) (|mu| (|Complex| (|DoubleFloat|)))
          (|power4| (|Complex| (|DoubleFloat|)))
          (|sigma| (|Complex| (|DoubleFloat|)))
          (|lambda| #1=(|Complex| (|DoubleFloat|)))
          (|znroot| #2=(|Complex| (|DoubleFloat|))) (|ynroot| #2#)
          (|xnroot| #2#) (#3=#:G83 NIL) (|ss| #4=(|Complex| (|DoubleFloat|)))
          (|s2| #4#) (|s1| #4#) (|ef| #1#)
          (|ed| #5=(|Complex| (|DoubleFloat|))) (|ec| #5#) (|eb| #4#)
          (|ea| #4#) (|zndev| #4#) (|yndev| #4#) (|xndev| #4#)
          (|mu_inv| (|Complex| (|DoubleFloat|))) (|zadev| #6=(|DoubleFloat|))
          (|yadev| #6#) (|xadev| #6#))
         (SEQ
          (EXIT
           (SEQ (LETT |sigma| (|spadConstant| % 60))
                (LETT |power4| (|spadConstant| % 51))
                (LETT |mu|
                      (SPADCALL (QREFELT % 9)
                                (SPADCALL (SPADCALL |x| |y| (QREFELT % 48))
                                          (SPADCALL (SPADCALL 3 (QREFELT % 57))
                                                    |z| (QREFELT % 53))
                                          (QREFELT % 48))
                                (QREFELT % 49)))
                (LETT |xadev|
                      (|ELIPIDF;rabs| (SPADCALL |mu| |x| (QREFELT % 50)) %))
                (LETT |yadev|
                      (|ELIPIDF;rabs| (SPADCALL |mu| |y| (QREFELT % 50)) %))
                (LETT |zadev|
                      (|ELIPIDF;rabs| (SPADCALL |mu| |z| (QREFELT % 50)) %))
                (LETT Q
                      (|mul_DF| (QREFELT % 27)
                                (|max_DF| |xadev| (|max_DF| |yadev| |zadev|))))
                (EXIT
                 (SEQ G190 NIL
                      (SEQ
                       (EXIT
                        (COND
                         ((|less_DF| Q (|ELIPIDF;rabs| |mu| %))
                          (SEQ
                           (LETT |mu_inv|
                                 (SPADCALL (|spadConstant| % 51) |mu|
                                           (QREFELT % 52)))
                           (LETT |xndev|
                                 (SPADCALL (SPADCALL |mu| |x| (QREFELT % 50))
                                           |mu_inv| (QREFELT % 53)))
                           (LETT |yndev|
                                 (SPADCALL (SPADCALL |mu| |y| (QREFELT % 50))
                                           |mu_inv| (QREFELT % 53)))
                           (LETT |zndev|
                                 (SPADCALL (SPADCALL |mu| |z| (QREFELT % 50))
                                           |mu_inv| (QREFELT % 53)))
                           (LETT |ea|
                                 (SPADCALL |xndev| |yndev| (QREFELT % 53)))
                           (LETT |eb|
                                 (SPADCALL |zndev| |zndev| (QREFELT % 53)))
                           (LETT |ec| (SPADCALL |ea| |eb| (QREFELT % 50)))
                           (LETT |ed|
                                 (SPADCALL |ea|
                                           (SPADCALL
                                            (FLOAT 6
                                                   MOST-POSITIVE-DOUBLE-FLOAT)
                                            |eb| (QREFELT % 49))
                                           (QREFELT % 50)))
                           (LETT |ef|
                                 (SPADCALL (SPADCALL |ed| |ec| (QREFELT % 48))
                                           |ec| (QREFELT % 48)))
                           (LETT |s1|
                                 (SPADCALL |ed|
                                           (SPADCALL
                                            (SPADCALL
                                             (SPADCALL (QREFELT % 22)
                                                       (QREFELT % 54))
                                             (SPADCALL
                                              (|mul_DF| (QREFELT % 8)
                                                        (QREFELT % 24))
                                              |ed| (QREFELT % 49))
                                             (QREFELT % 48))
                                            (SPADCALL
                                             (SPADCALL
                                              (|mul_DF| (QREFELT % 26)
                                                        (QREFELT % 25))
                                              |zndev| (QREFELT % 49))
                                             |ef| (QREFELT % 53))
                                            (QREFELT % 50))
                                           (QREFELT % 53)))
                           (LETT |s2|
                                 (SPADCALL |zndev|
                                           (SPADCALL
                                            (SPADCALL (QREFELT % 23) |ef|
                                                      (QREFELT % 49))
                                            (SPADCALL |zndev|
                                                      (SPADCALL
                                                       (SPADCALL
                                                        (SPADCALL
                                                         (QREFELT % 24) |ec|
                                                         (QREFELT % 49))
                                                        (QREFELT % 61))
                                                       (SPADCALL
                                                        (SPADCALL |zndev|
                                                                  (QREFELT %
                                                                           25)
                                                                  (QREFELT %
                                                                           62))
                                                        |ea| (QREFELT % 53))
                                                       (QREFELT % 48))
                                                      (QREFELT % 53))
                                            (QREFELT % 48))
                                           (QREFELT % 53)))
                           (LETT |ss|
                                 (SPADCALL
                                  (SPADCALL
                                   (SPADCALL (|spadConstant| % 51)
                                             (SPADCALL |s1| |s2|
                                                       (QREFELT % 48))
                                             (QREFELT % 48))
                                   |mu_inv| (QREFELT % 53))
                                  (SPADCALL |mu_inv| (QREFELT % 55))
                                  (QREFELT % 53)))
                           (EXIT
                            (PROGN
                             (LETT #3#
                                   (SPADCALL
                                    (SPADCALL
                                     (FLOAT 3 MOST-POSITIVE-DOUBLE-FLOAT)
                                     |sigma| (QREFELT % 49))
                                    (SPADCALL |power4| |ss| (QREFELT % 53))
                                    (QREFELT % 48)))
                             (GO #7=#:G82)))))
                         ('T
                          (SEQ (LETT |xnroot| (SPADCALL |x| (QREFELT % 55)))
                               (LETT |ynroot| (SPADCALL |y| (QREFELT % 55)))
                               (LETT |znroot| (SPADCALL |z| (QREFELT % 55)))
                               (LETT |lambda|
                                     (SPADCALL
                                      (SPADCALL |xnroot|
                                                (SPADCALL |ynroot| |znroot|
                                                          (QREFELT % 48))
                                                (QREFELT % 53))
                                      (SPADCALL |ynroot| |znroot|
                                                (QREFELT % 53))
                                      (QREFELT % 48)))
                               (LETT |sigma|
                                     (SPADCALL |sigma|
                                               (SPADCALL |power4|
                                                         (SPADCALL |znroot|
                                                                   (SPADCALL
                                                                    |z|
                                                                    |lambda|
                                                                    (QREFELT %
                                                                             48))
                                                                   (QREFELT %
                                                                            53))
                                                         (QREFELT % 52))
                                               (QREFELT % 48)))
                               (LETT |power4|
                                     (SPADCALL (QREFELT % 8) |power4|
                                               (QREFELT % 49)))
                               (LETT |x|
                                     (SPADCALL (QREFELT % 8)
                                               (SPADCALL |x| |lambda|
                                                         (QREFELT % 48))
                                               (QREFELT % 49)))
                               (LETT |y|
                                     (SPADCALL (QREFELT % 8)
                                               (SPADCALL |y| |lambda|
                                                         (QREFELT % 48))
                                               (QREFELT % 49)))
                               (LETT |z|
                                     (SPADCALL (QREFELT % 8)
                                               (SPADCALL |z| |lambda|
                                                         (QREFELT % 48))
                                               (QREFELT % 49)))
                               (LETT |mu|
                                     (SPADCALL (QREFELT % 8)
                                               (SPADCALL |mu| |lambda|
                                                         (QREFELT % 48))
                                               (QREFELT % 49)))
                               (EXIT (LETT Q (|mul_DF| (QREFELT % 8) Q))))))))
                      NIL (GO G190) G191 (EXIT NIL)))))
          #7# (EXIT #3#)))) 

(SDEFUN |ELIPIDF;ellipticRJ;5C;14|
        ((|x| (|Complex| (|DoubleFloat|))) (|y| (|Complex| (|DoubleFloat|)))
         (|z| (|Complex| (|DoubleFloat|))) (|p| (|Complex| (|DoubleFloat|)))
         (% (|Complex| (|DoubleFloat|))))
        (SPROG
         ((Q (|DoubleFloat|)) (|mu| (|Complex| (|DoubleFloat|)))
          (|power4| (|Complex| (|DoubleFloat|)))
          (|sigma| (|Complex| (|DoubleFloat|)))
          (|beta| #1=(|Complex| (|DoubleFloat|)))
          (|alfa| #2=(|Complex| (|DoubleFloat|))) (|lambda| #2#)
          (|znroot| #3=(|Complex| (|DoubleFloat|))) (|ynroot| #3#)
          (|xnroot| #3#) (#4=#:G91 NIL) (|ss| #1#)
          (|s3| #5=(|Complex| (|DoubleFloat|))) (|s2| #1#) (|s1| #1#)
          (|e3| #2#) (|e2| #5#) (|ec| #1#) (|eb| #1#) (|ea| #2#) (|pndev| #1#)
          (|zndev| #1#) (|yndev| #1#) (|xndev| #1#)
          (|mu_inv| (|Complex| (|DoubleFloat|))) (|padev| #6=(|DoubleFloat|))
          (|zadev| #6#) (|yadev| #6#) (|xadev| #6#))
         (SEQ
          (EXIT
           (SEQ (LETT |sigma| (|spadConstant| % 60))
                (LETT |power4| (|spadConstant| % 51))
                (LETT |mu|
                      (SPADCALL (QREFELT % 9)
                                (SPADCALL
                                 (SPADCALL
                                  (SPADCALL (SPADCALL |x| |y| (QREFELT % 48))
                                            |z| (QREFELT % 48))
                                  |p| (QREFELT % 48))
                                 |p| (QREFELT % 48))
                                (QREFELT % 49)))
                (LETT |xadev|
                      (|ELIPIDF;rabs| (SPADCALL |mu| |x| (QREFELT % 50)) %))
                (LETT |yadev|
                      (|ELIPIDF;rabs| (SPADCALL |mu| |y| (QREFELT % 50)) %))
                (LETT |zadev|
                      (|ELIPIDF;rabs| (SPADCALL |mu| |z| (QREFELT % 50)) %))
                (LETT |padev|
                      (|ELIPIDF;rabs| (SPADCALL |mu| |p| (QREFELT % 50)) %))
                (LETT Q
                      (|mul_DF| (QREFELT % 27)
                                (|max_DF| (|max_DF| |xadev| |yadev|)
                                          (|max_DF| |zadev| |padev|))))
                (EXIT
                 (SEQ G190 NIL
                      (SEQ
                       (EXIT
                        (COND
                         ((|less_DF| Q (|ELIPIDF;rabs| |mu| %))
                          (SEQ
                           (LETT |mu_inv|
                                 (SPADCALL (|spadConstant| % 51) |mu|
                                           (QREFELT % 52)))
                           (LETT |xndev|
                                 (SPADCALL (SPADCALL |mu| |x| (QREFELT % 50))
                                           |mu_inv| (QREFELT % 53)))
                           (LETT |yndev|
                                 (SPADCALL (SPADCALL |mu| |y| (QREFELT % 50))
                                           |mu_inv| (QREFELT % 53)))
                           (LETT |zndev|
                                 (SPADCALL (SPADCALL |mu| |z| (QREFELT % 50))
                                           |mu_inv| (QREFELT % 53)))
                           (LETT |pndev|
                                 (SPADCALL (SPADCALL |mu| |p| (QREFELT % 50))
                                           |mu_inv| (QREFELT % 53)))
                           (LETT |ea|
                                 (SPADCALL
                                  (SPADCALL |xndev|
                                            (SPADCALL |yndev| |zndev|
                                                      (QREFELT % 48))
                                            (QREFELT % 53))
                                  (SPADCALL |yndev| |zndev| (QREFELT % 53))
                                  (QREFELT % 48)))
                           (LETT |eb|
                                 (SPADCALL
                                  (SPADCALL |xndev| |yndev| (QREFELT % 53))
                                  |zndev| (QREFELT % 53)))
                           (LETT |ec|
                                 (SPADCALL |pndev| |pndev| (QREFELT % 53)))
                           (LETT |e2|
                                 (SPADCALL |ea|
                                           (SPADCALL
                                            (FLOAT 3
                                                   MOST-POSITIVE-DOUBLE-FLOAT)
                                            |ec| (QREFELT % 49))
                                           (QREFELT % 50)))
                           (LETT |e3|
                                 (SPADCALL |eb|
                                           (SPADCALL
                                            (SPADCALL
                                             (FLOAT 2
                                                    MOST-POSITIVE-DOUBLE-FLOAT)
                                             |pndev| (QREFELT % 49))
                                            (SPADCALL |ea| |ec| (QREFELT % 50))
                                            (QREFELT % 53))
                                           (QREFELT % 48)))
                           (LETT |s1|
                                 (SPADCALL |e2|
                                           (SPADCALL
                                            (SPADCALL
                                             (SPADCALL
                                              (SPADCALL (QREFELT % 28)
                                                        (QREFELT % 54))
                                              (QREFELT % 61))
                                             (SPADCALL (QREFELT % 31) |e2|
                                                       (QREFELT % 49))
                                             (QREFELT % 48))
                                            (SPADCALL (QREFELT % 32) |e3|
                                                      (QREFELT % 49))
                                            (QREFELT % 50))
                                           (QREFELT % 53)))
                           (LETT |s2|
                                 (SPADCALL |eb|
                                           (SPADCALL
                                            (SPADCALL (QREFELT % 6)
                                                      (SPADCALL (QREFELT % 7)
                                                                (QREFELT % 54))
                                                      (QREFELT % 49))
                                            (SPADCALL |pndev|
                                                      (SPADCALL
                                                       (SPADCALL
                                                        (SPADCALL
                                                         (|add_DF|
                                                          (QREFELT % 29)
                                                          (QREFELT % 29))
                                                         (QREFELT % 54))
                                                        (QREFELT % 61))
                                                       (SPADCALL |pndev|
                                                                 (QREFELT % 30)
                                                                 (QREFELT %
                                                                          62))
                                                       (QREFELT % 48))
                                                      (QREFELT % 53))
                                            (QREFELT % 48))
                                           (QREFELT % 53)))
                           (LETT |s3|
                                 (SPADCALL
                                  (SPADCALL
                                   (SPADCALL |pndev| |ea| (QREFELT % 53))
                                   (SPADCALL
                                    (SPADCALL (QREFELT % 7) (QREFELT % 54))
                                    (SPADCALL |pndev| (QREFELT % 29)
                                              (QREFELT % 62))
                                    (QREFELT % 50))
                                   (QREFELT % 53))
                                  (SPADCALL
                                   (SPADCALL (QREFELT % 7) |pndev|
                                             (QREFELT % 49))
                                   |ec| (QREFELT % 53))
                                  (QREFELT % 50)))
                           (LETT |ss|
                                 (SPADCALL
                                  (SPADCALL
                                   (SPADCALL (|spadConstant| % 51)
                                             (SPADCALL
                                              (SPADCALL |s1| |s2|
                                                        (QREFELT % 48))
                                              |s3| (QREFELT % 48))
                                             (QREFELT % 48))
                                   |mu_inv| (QREFELT % 53))
                                  (SPADCALL |mu_inv| (QREFELT % 55))
                                  (QREFELT % 53)))
                           (EXIT
                            (PROGN
                             (LETT #4#
                                   (SPADCALL
                                    (SPADCALL
                                     (FLOAT 3 MOST-POSITIVE-DOUBLE-FLOAT)
                                     |sigma| (QREFELT % 49))
                                    (SPADCALL |power4| |ss| (QREFELT % 53))
                                    (QREFELT % 48)))
                             (GO #7=#:G90)))))
                         ('T
                          (SEQ (LETT |xnroot| (SPADCALL |x| (QREFELT % 55)))
                               (LETT |ynroot| (SPADCALL |y| (QREFELT % 55)))
                               (LETT |znroot| (SPADCALL |z| (QREFELT % 55)))
                               (LETT |lambda|
                                     (SPADCALL
                                      (SPADCALL |xnroot|
                                                (SPADCALL |ynroot| |znroot|
                                                          (QREFELT % 48))
                                                (QREFELT % 53))
                                      (SPADCALL |ynroot| |znroot|
                                                (QREFELT % 53))
                                      (QREFELT % 48)))
                               (LETT |alfa|
                                     (SPADCALL
                                      (SPADCALL |p|
                                                (SPADCALL
                                                 (SPADCALL |xnroot| |ynroot|
                                                           (QREFELT % 48))
                                                 |znroot| (QREFELT % 48))
                                                (QREFELT % 53))
                                      (SPADCALL
                                       (SPADCALL |xnroot| |ynroot|
                                                 (QREFELT % 53))
                                       |znroot| (QREFELT % 53))
                                      (QREFELT % 48)))
                               (LETT |alfa|
                                     (SPADCALL |alfa| |alfa| (QREFELT % 53)))
                               (LETT |beta|
                                     (SPADCALL
                                      (SPADCALL |p|
                                                (SPADCALL |p| |lambda|
                                                          (QREFELT % 48))
                                                (QREFELT % 53))
                                      (SPADCALL |p| |lambda| (QREFELT % 48))
                                      (QREFELT % 53)))
                               (LETT |sigma|
                                     (SPADCALL |sigma|
                                               (SPADCALL |power4|
                                                         (SPADCALL |alfa|
                                                                   |beta|
                                                                   (QREFELT %
                                                                            58))
                                                         (QREFELT % 53))
                                               (QREFELT % 48)))
                               (LETT |power4|
                                     (SPADCALL (QREFELT % 8) |power4|
                                               (QREFELT % 49)))
                               (LETT |x|
                                     (SPADCALL (QREFELT % 8)
                                               (SPADCALL |x| |lambda|
                                                         (QREFELT % 48))
                                               (QREFELT % 49)))
                               (LETT |y|
                                     (SPADCALL (QREFELT % 8)
                                               (SPADCALL |y| |lambda|
                                                         (QREFELT % 48))
                                               (QREFELT % 49)))
                               (LETT |z|
                                     (SPADCALL (QREFELT % 8)
                                               (SPADCALL |z| |lambda|
                                                         (QREFELT % 48))
                                               (QREFELT % 49)))
                               (LETT |p|
                                     (SPADCALL (QREFELT % 8)
                                               (SPADCALL |p| |lambda|
                                                         (QREFELT % 48))
                                               (QREFELT % 49)))
                               (LETT |mu|
                                     (SPADCALL (QREFELT % 8)
                                               (SPADCALL |mu| |lambda|
                                                         (QREFELT % 48))
                                               (QREFELT % 49)))
                               (EXIT (LETT Q (|mul_DF| (QREFELT % 8) Q))))))))
                      NIL (GO G190) G191 (EXIT NIL)))))
          #7# (EXIT #4#)))) 

(SDEFUN |ELIPIDF;ellipticF;3C;15|
        ((|z| (|Complex| (|DoubleFloat|))) (|m| (|Complex| (|DoubleFloat|)))
         (% (|Complex| (|DoubleFloat|))))
        (SPADCALL |z|
                  (SPADCALL
                   (SPADCALL (|spadConstant| % 51)
                             (SPADCALL |z| |z| (QREFELT % 53)) (QREFELT % 50))
                   (SPADCALL (|spadConstant| % 51)
                             (SPADCALL (SPADCALL |m| |z| (QREFELT % 53)) |z|
                                       (QREFELT % 53))
                             (QREFELT % 50))
                   (|spadConstant| % 51) (QREFELT % 59))
                  (QREFELT % 53))) 

(SDEFUN |ELIPIDF;ellipticK;2C;16|
        ((|m| (|Complex| (|DoubleFloat|))) (% (|Complex| (|DoubleFloat|))))
        (SPADCALL (|spadConstant| % 60)
                  (SPADCALL (|spadConstant| % 51) |m| (QREFELT % 50))
                  (|spadConstant| % 51) (QREFELT % 59))) 

(SDEFUN |ELIPIDF;ellipticE;3C;17|
        ((|z| (|Complex| (|DoubleFloat|))) (|m| (|Complex| (|DoubleFloat|)))
         (% (|Complex| (|DoubleFloat|))))
        (SPADCALL
         (SPADCALL |z|
                   (SPADCALL
                    (SPADCALL (|spadConstant| % 51)
                              (SPADCALL |z| |z| (QREFELT % 53)) (QREFELT % 50))
                    (SPADCALL (|spadConstant| % 51)
                              (SPADCALL (SPADCALL |m| |z| (QREFELT % 53)) |z|
                                        (QREFELT % 53))
                              (QREFELT % 50))
                    (|spadConstant| % 51) (QREFELT % 59))
                   (QREFELT % 53))
         (SPADCALL
          (SPADCALL
           (SPADCALL
            (SPADCALL (SPADCALL |m| (SPADCALL 3 (QREFELT % 57)) (QREFELT % 52))
                      |z| (QREFELT % 53))
            |z| (QREFELT % 53))
           |z| (QREFELT % 53))
          (SPADCALL
           (SPADCALL (|spadConstant| % 51) (SPADCALL |z| |z| (QREFELT % 53))
                     (QREFELT % 50))
           (SPADCALL (|spadConstant| % 51)
                     (SPADCALL (SPADCALL |m| |z| (QREFELT % 53)) |z|
                               (QREFELT % 53))
                     (QREFELT % 50))
           (|spadConstant| % 51) (QREFELT % 63))
          (QREFELT % 53))
         (QREFELT % 50))) 

(SDEFUN |ELIPIDF;ellipticE;2C;18|
        ((|m| (|Complex| (|DoubleFloat|))) (% (|Complex| (|DoubleFloat|))))
        (SPADCALL
         (SPADCALL (|spadConstant| % 60)
                   (SPADCALL (|spadConstant| % 51) |m| (QREFELT % 50))
                   (|spadConstant| % 51) (QREFELT % 59))
         (SPADCALL (SPADCALL |m| (SPADCALL 3 (QREFELT % 57)) (QREFELT % 52))
                   (SPADCALL (|spadConstant| % 60)
                             (SPADCALL (|spadConstant| % 51) |m|
                                       (QREFELT % 50))
                             (|spadConstant| % 51) (QREFELT % 63))
                   (QREFELT % 53))
         (QREFELT % 50))) 

(SDEFUN |ELIPIDF;ellipticPi;4C;19|
        ((|z| (|Complex| (|DoubleFloat|))) (|n| (|Complex| (|DoubleFloat|)))
         (|m| (|Complex| (|DoubleFloat|))) (% (|Complex| (|DoubleFloat|))))
        (SPADCALL
         (SPADCALL |z|
                   (SPADCALL
                    (SPADCALL (|spadConstant| % 51)
                              (SPADCALL |z| |z| (QREFELT % 53)) (QREFELT % 50))
                    (SPADCALL (|spadConstant| % 51)
                              (SPADCALL (SPADCALL |m| |z| (QREFELT % 53)) |z|
                                        (QREFELT % 53))
                              (QREFELT % 50))
                    (|spadConstant| % 51) (QREFELT % 59))
                   (QREFELT % 53))
         (SPADCALL
          (SPADCALL
           (SPADCALL
            (SPADCALL (SPADCALL |n| (SPADCALL 3 (QREFELT % 57)) (QREFELT % 52))
                      |z| (QREFELT % 53))
            |z| (QREFELT % 53))
           |z| (QREFELT % 53))
          (SPADCALL
           (SPADCALL (|spadConstant| % 51) (SPADCALL |z| |z| (QREFELT % 53))
                     (QREFELT % 50))
           (SPADCALL (|spadConstant| % 51)
                     (SPADCALL (SPADCALL |m| |z| (QREFELT % 53)) |z|
                               (QREFELT % 53))
                     (QREFELT % 50))
           (|spadConstant| % 51)
           (SPADCALL (|spadConstant| % 51)
                     (SPADCALL (SPADCALL |n| |z| (QREFELT % 53)) |z|
                               (QREFELT % 53))
                     (QREFELT % 50))
           (QREFELT % 64))
          (QREFELT % 53))
         (QREFELT % 48))) 

(DECLAIM (NOTINLINE |DoubleFloatEllipticIntegrals;|)) 

(DEFUN |DoubleFloatEllipticIntegrals| ()
  (SPROG NIL
         (PROG (#1=#:G98)
           (RETURN
            (COND
             ((LETT #1#
                    (HGET |$ConstructorCache| '|DoubleFloatEllipticIntegrals|))
              (|CDRwithIncrement| (CDAR #1#)))
             ('T
              (UNWIND-PROTECT
                  (PROG1
                      (CDDAR
                       (HPUT |$ConstructorCache|
                             '|DoubleFloatEllipticIntegrals|
                             (LIST
                              (CONS NIL
                                    (CONS 1
                                          (|DoubleFloatEllipticIntegrals;|))))))
                    (LETT #1# T))
                (COND
                 ((NOT #1#)
                  (HREM |$ConstructorCache|
                        '|DoubleFloatEllipticIntegrals|)))))))))) 

(DEFUN |DoubleFloatEllipticIntegrals;| ()
  (SPROG ((|dv$| NIL) (% NIL) (|pv$| NIL))
         (PROGN
          (LETT |dv$| '(|DoubleFloatEllipticIntegrals|))
          (LETT % (GETREFV 70))
          (QSETREFV % 0 |dv$|)
          (QSETREFV % 3 (LETT |pv$| (|buildPredVector| 0 0 NIL)))
          (|haddProp| |$ConstructorCache| '|DoubleFloatEllipticIntegrals| NIL
                      (CONS 1 %))
          (|stuffDomainSlots| %)
          (SETF |pv$| (QREFELT % 3))
          (QSETREFV % 6 (|div_DF| 1.0 (FLOAT 2 MOST-POSITIVE-DOUBLE-FLOAT)))
          (QSETREFV % 7 (|div_DF| 1.0 (FLOAT 3 MOST-POSITIVE-DOUBLE-FLOAT)))
          (QSETREFV % 8 (|div_DF| 1.0 (FLOAT 4 MOST-POSITIVE-DOUBLE-FLOAT)))
          (QSETREFV % 9 (|div_DF| 1.0 (FLOAT 5 MOST-POSITIVE-DOUBLE-FLOAT)))
          (QSETREFV % 10
                    (|div_DF| (FLOAT 3 MOST-POSITIVE-DOUBLE-FLOAT)
                              (FLOAT 10 MOST-POSITIVE-DOUBLE-FLOAT)))
          (QSETREFV % 11 (|div_DF| 1.0 (FLOAT 7 MOST-POSITIVE-DOUBLE-FLOAT)))
          (QSETREFV % 12
                    (|div_DF| (FLOAT 3 MOST-POSITIVE-DOUBLE-FLOAT)
                              (FLOAT 8 MOST-POSITIVE-DOUBLE-FLOAT)))
          (QSETREFV % 13
                    (|div_DF| (FLOAT 9 MOST-POSITIVE-DOUBLE-FLOAT)
                              (FLOAT 22 MOST-POSITIVE-DOUBLE-FLOAT)))
          (QSETREFV % 14
                    (|div_DF| (FLOAT 159 MOST-POSITIVE-DOUBLE-FLOAT)
                              (FLOAT 208 MOST-POSITIVE-DOUBLE-FLOAT)))
          (QSETREFV % 15
                    (|div_DF| (FLOAT 9 MOST-POSITIVE-DOUBLE-FLOAT)
                              (FLOAT 8 MOST-POSITIVE-DOUBLE-FLOAT)))
          (QSETREFV % 16 (FLOAT 94 MOST-POSITIVE-DOUBLE-FLOAT))
          (QSETREFV % 17 (|div_DF| 1.0 (FLOAT 24 MOST-POSITIVE-DOUBLE-FLOAT)))
          (QSETREFV % 18 (|div_DF| 1.0 (FLOAT 10 MOST-POSITIVE-DOUBLE-FLOAT)))
          (QSETREFV % 19
                    (|div_DF| (FLOAT 3 MOST-POSITIVE-DOUBLE-FLOAT)
                              (FLOAT 44 MOST-POSITIVE-DOUBLE-FLOAT)))
          (QSETREFV % 20 (|div_DF| 1.0 (FLOAT 14 MOST-POSITIVE-DOUBLE-FLOAT)))
          (QSETREFV % 21 (FLOAT 427 MOST-POSITIVE-DOUBLE-FLOAT))
          (QSETREFV % 22
                    (|minus_DF|
                     (|div_DF| (FLOAT 3 MOST-POSITIVE-DOUBLE-FLOAT)
                               (FLOAT 14 MOST-POSITIVE-DOUBLE-FLOAT))))
          (QSETREFV % 23 (|div_DF| 1.0 (FLOAT 6 MOST-POSITIVE-DOUBLE-FLOAT)))
          (QSETREFV % 24
                    (|div_DF| (FLOAT 9 MOST-POSITIVE-DOUBLE-FLOAT)
                              (FLOAT 22 MOST-POSITIVE-DOUBLE-FLOAT)))
          (QSETREFV % 25
                    (|div_DF| (FLOAT 3 MOST-POSITIVE-DOUBLE-FLOAT)
                              (FLOAT 26 MOST-POSITIVE-DOUBLE-FLOAT)))
          (QSETREFV % 26
                    (|div_DF| (FLOAT 3 MOST-POSITIVE-DOUBLE-FLOAT)
                              (FLOAT 2 MOST-POSITIVE-DOUBLE-FLOAT)))
          (QSETREFV % 27 (FLOAT 646 MOST-POSITIVE-DOUBLE-FLOAT))
          (QSETREFV % 28
                    (|div_DF| (FLOAT 3 MOST-POSITIVE-DOUBLE-FLOAT)
                              (FLOAT 14 MOST-POSITIVE-DOUBLE-FLOAT)))
          (QSETREFV % 29
                    (|div_DF| (FLOAT 3 MOST-POSITIVE-DOUBLE-FLOAT)
                              (FLOAT 22 MOST-POSITIVE-DOUBLE-FLOAT)))
          (QSETREFV % 30
                    (|div_DF| (FLOAT 3 MOST-POSITIVE-DOUBLE-FLOAT)
                              (FLOAT 26 MOST-POSITIVE-DOUBLE-FLOAT)))
          (QSETREFV % 31
                    (|div_DF| (FLOAT 9 MOST-POSITIVE-DOUBLE-FLOAT)
                              (FLOAT 88 MOST-POSITIVE-DOUBLE-FLOAT)))
          (QSETREFV % 32
                    (|div_DF| (FLOAT 9 MOST-POSITIVE-DOUBLE-FLOAT)
                              (FLOAT 52 MOST-POSITIVE-DOUBLE-FLOAT)))
          %))) 

(MAKEPROP '|DoubleFloatEllipticIntegrals| '|infovec|
          (LIST
           '#(NIL NIL NIL NIL NIL NIL '|half| '|one_third| '|one_fourth|
              '|one_fifth| '|c2_RC| '|c3_RC| '|c4_RC| '|c5_RC| '|c6_RC|
              '|c7_RC| '|inv_err_RC| '|c1_RF| '|c2_RF| '|c3_RF| '|c4_RF|
              '|inv_err_RF| '|c1_RD| '|c2_RD| '|c3_RD| '|c4_RD| '|c5_RD|
              '|inv_err_RJ| '|c1_RJ| '|c3_RJ| '|c4_RJ| '|c5_RJ| '|c6_RJ|
              (|Complex| 35) (0 . |abs|) (|DoubleFloat|) (5 . |real|)
              (|Fraction| 56) (10 . |One|) |ELIPIDF;ellipticRC;3Df;2|
              |ELIPIDF;ellipticRF;4Df;3| |ELIPIDF;ellipticRD;4Df;4|
              |ELIPIDF;ellipticRJ;5Df;5| |ELIPIDF;ellipticF;3Df;6|
              |ELIPIDF;ellipticK;2Df;7| |ELIPIDF;ellipticE;3Df;8|
              |ELIPIDF;ellipticE;2Df;9| |ELIPIDF;ellipticPi;4Df;10| (14 . +)
              (20 . *) (26 . -) (32 . |One|) (36 . /) (42 . *) (48 . |coerce|)
              (53 . |sqrt|) (|Integer|) (58 . |coerce|)
              |ELIPIDF;ellipticRC;3C;11| |ELIPIDF;ellipticRF;4C;12|
              (63 . |Zero|) (67 . -) (72 . *) |ELIPIDF;ellipticRD;4C;13|
              |ELIPIDF;ellipticRJ;5C;14| |ELIPIDF;ellipticF;3C;15|
              |ELIPIDF;ellipticK;2C;16| |ELIPIDF;ellipticE;3C;17|
              |ELIPIDF;ellipticE;2C;18| |ELIPIDF;ellipticPi;4C;19|)
           '#(|ellipticRJ| 78 |ellipticRF| 94 |ellipticRD| 108 |ellipticRC| 122
              |ellipticPi| 134 |ellipticK| 148 |ellipticF| 158 |ellipticE| 170)
           'NIL
           (CONS (|makeByteWordVec2| 1 '(0))
                 (CONS '#(NIL)
                       (CONS
                        '#((|Join|
                            (|mkCategory|
                             (LIST
                              '((|ellipticRC|
                                 ((|DoubleFloat|) (|DoubleFloat|)
                                  (|DoubleFloat|)))
                                T)
                              '((|ellipticRD|
                                 ((|DoubleFloat|) (|DoubleFloat|)
                                  (|DoubleFloat|) (|DoubleFloat|)))
                                T)
                              '((|ellipticRF|
                                 ((|DoubleFloat|) (|DoubleFloat|)
                                  (|DoubleFloat|) (|DoubleFloat|)))
                                T)
                              '((|ellipticRJ|
                                 ((|DoubleFloat|) (|DoubleFloat|)
                                  (|DoubleFloat|) (|DoubleFloat|)
                                  (|DoubleFloat|)))
                                T)
                              '((|ellipticF|
                                 ((|DoubleFloat|) (|DoubleFloat|)
                                  (|DoubleFloat|)))
                                T)
                              '((|ellipticK| ((|DoubleFloat|) (|DoubleFloat|)))
                                T)
                              '((|ellipticE|
                                 ((|DoubleFloat|) (|DoubleFloat|)
                                  (|DoubleFloat|)))
                                T)
                              '((|ellipticE| ((|DoubleFloat|) (|DoubleFloat|)))
                                T)
                              '((|ellipticPi|
                                 ((|DoubleFloat|) (|DoubleFloat|)
                                  (|DoubleFloat|) (|DoubleFloat|)))
                                T)
                              '((|ellipticRC|
                                 ((|Complex| (|DoubleFloat|))
                                  (|Complex| (|DoubleFloat|))
                                  (|Complex| (|DoubleFloat|))))
                                T)
                              '((|ellipticRD|
                                 ((|Complex| (|DoubleFloat|))
                                  (|Complex| (|DoubleFloat|))
                                  (|Complex| (|DoubleFloat|))
                                  (|Complex| (|DoubleFloat|))))
                                T)
                              '((|ellipticRF|
                                 ((|Complex| (|DoubleFloat|))
                                  (|Complex| (|DoubleFloat|))
                                  (|Complex| (|DoubleFloat|))
                                  (|Complex| (|DoubleFloat|))))
                                T)
                              '((|ellipticRJ|
                                 ((|Complex| (|DoubleFloat|))
                                  (|Complex| (|DoubleFloat|))
                                  (|Complex| (|DoubleFloat|))
                                  (|Complex| (|DoubleFloat|))
                                  (|Complex| (|DoubleFloat|))))
                                T)
                              '((|ellipticF|
                                 ((|Complex| (|DoubleFloat|))
                                  (|Complex| (|DoubleFloat|))
                                  (|Complex| (|DoubleFloat|))))
                                T)
                              '((|ellipticK|
                                 ((|Complex| (|DoubleFloat|))
                                  (|Complex| (|DoubleFloat|))))
                                T)
                              '((|ellipticE|
                                 ((|Complex| (|DoubleFloat|))
                                  (|Complex| (|DoubleFloat|))
                                  (|Complex| (|DoubleFloat|))))
                                T)
                              '((|ellipticE|
                                 ((|Complex| (|DoubleFloat|))
                                  (|Complex| (|DoubleFloat|))))
                                T)
                              '((|ellipticPi|
                                 ((|Complex| (|DoubleFloat|))
                                  (|Complex| (|DoubleFloat|))
                                  (|Complex| (|DoubleFloat|))
                                  (|Complex| (|DoubleFloat|))))
                                T))
                             (LIST) NIL NIL)))
                        (|makeByteWordVec2| 69
                                            '(1 33 0 0 34 1 33 35 0 36 0 37 0
                                              38 2 33 0 0 0 48 2 33 0 35 0 49 2
                                              33 0 0 0 50 0 33 0 51 2 33 0 0 0
                                              52 2 33 0 0 0 53 1 33 0 35 54 1
                                              33 0 0 55 1 33 0 56 57 0 33 0 60
                                              1 33 0 0 61 2 33 0 0 35 62 4 0 33
                                              33 33 33 33 64 4 0 35 35 35 35 35
                                              42 3 0 33 33 33 33 59 3 0 35 35
                                              35 35 40 3 0 33 33 33 33 63 3 0
                                              35 35 35 35 41 2 0 33 33 33 58 2
                                              0 35 35 35 39 3 0 33 33 33 33 69
                                              3 0 35 35 35 35 47 1 0 33 33 66 1
                                              0 35 35 44 2 0 33 33 33 65 2 0 35
                                              35 35 43 1 0 33 33 68 2 0 33 33
                                              33 67 1 0 35 35 46 2 0 35 35 35
                                              45)))))
           '|lookupComplete|)) 
