43 static void ellipke (nr_double_t, nr_double_t &, nr_double_t &);
44 static nr_double_t
ellipk (nr_double_t);
45 static nr_double_t
ellipa (nr_double_t);
48 nr_double_t, nr_double_t,
int,
49 nr_double_t&, nr_double_t&);
51 nr_double_t, nr_double_t,
52 nr_double_t, nr_double_t,
53 nr_double_t&, nr_double_t&);
56 void calcAB (nr_double_t, nr_double_t&, nr_double_t&, nr_double_t&);
57 void initPropagation (
void);
61 nr_double_t zl_factor;
62 nr_double_t ac_factor;
63 nr_double_t ad_factor;
64 nr_double_t bt_factor;
66 nr_double_t len, tand, rho;