function dpper_test
  
  global opsmode = "i"; # must pass this in rather than "o" old mode

  TOL = 0.000001;


[ep, inclp, nodep, argpp,  mp] = dpper(...
  -3.259811599808e-04,  9.631690304302e-05,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -1.598763953845e-03, ...
  -1.532829312733e-03,  1.009321688332e-02, -1.031125833038e-02, -1.698290639332e-04, -1.436571665398e-03, -2.604666666759e-04, -2.752019370380e-04,  1.412253967491e-03, ...
  -9.737328456846e-03,  9.584139594897e-03,  4.041147860756e-04,  0.000000000000e+00,  2.069563786522e-03,  6.246874813546e-04, -8.940507699742e-05, -5.956657020046e-05, ...
  -2.660535481999e-04, -2.550806983774e-04,  6.513825317331e-05, -1.862212872508e-03, -5.873201141188e-04,  2.127428175609e-04,  3.145380241287e+00, ...
   4.795490950675e-01,  2.000636014976e-01, "y",  1.450506000000e-01,  2.000636014976e-01,  4.766670465451e+00,  3.623303527140e+00,  2.512139658858e+00);
assert(isequalRel(ep,     1.450506000000e-01, TOL));
assert(isequalRel(inclp,  2.000636014976e-01, TOL));
assert(isequalRel(nodep,  4.766670465451e+00, TOL));
assert(isequalRel(argpp,  3.623303527140e+00, TOL));
assert(isequalRel(mp,     2.512139658858e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -3.259811599808e-04,  9.631690304302e-05,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -1.598763953845e-03, ...
  -1.532829312733e-03,  1.009321688332e-02, -1.031125833038e-02, -1.698290639332e-04, -1.436571665398e-03, -2.604666666759e-04, -2.752019370380e-04,  1.412253967491e-03, ...
  -9.737328456846e-03,  9.584139594897e-03,  4.041147860756e-04,  0.000000000000e+00,  2.069563786522e-03,  6.246874813546e-04, -8.940507699742e-05, -5.956657020046e-05, ...
  -2.660535481999e-04, -2.550806983774e-04,  6.513825317331e-05, -1.862212872508e-03, -5.873201141188e-04,  2.127428175609e-04,  3.145380241287e+00, ...
   4.795490950675e-01,  2.000636014976e-01, "y",  1.450506000000e-01,  2.000636014976e-01,  4.766670465451e+00,  3.623303527140e+00, -3.771045648322e+00);
assert(isequalRel(ep,     1.450506000000e-01, TOL));
assert(isequalRel(inclp,  2.000636014976e-01, TOL));
assert(isequalRel(nodep,  4.766670465451e+00, TOL));
assert(isequalRel(argpp,  3.623303527140e+00, TOL));
assert(isequalRel(mp,    -3.771045648322e+00, TOL));
# 4632

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -3.259811599808e-04,  9.631690304302e-05,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -1.598763953845e-03, ...
  -1.532829312733e-03,  1.009321688332e-02, -1.031125833038e-02, -1.698290639332e-04, -1.436571665398e-03, -2.604666666759e-04, -2.752019370380e-04,  1.412253967491e-03, ...
  -9.737328456846e-03,  9.584139594897e-03,  4.041147860756e-04,  0.000000000000e+00,  2.069563786522e-03,  6.246874813546e-04, -8.940507699742e-05, -5.956657020046e-05, ...
  -2.660535481999e-04, -2.550806983774e-04,  6.513825317331e-05, -1.862212872508e-03, -5.873201141188e-04,  2.127428175609e-04,  3.145380241287e+00, ...
   4.795490950675e-01,  2.000636014976e-01, "n",  1.450506000000e-01,  2.000636014976e-01,  4.766670465451e+00,  3.623303527140e+00, -3.771045648322e+00);
assert(isequalRel(ep,     1.455667472364e-01, TOL));
assert(isequalRel(inclp,  1.998698376243e-01, TOL));
assert(isequalRel(nodep,  4.768015722176e+00, TOL));
assert(isequalRel(argpp,  3.622340266096e+00, TOL));
assert(isequalRel(mp,    -3.771055353232e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -3.259811599808e-04,  9.631690304302e-05,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -1.598763953845e-03, ...
  -1.532829312733e-03,  1.009321688332e-02, -1.031125833038e-02, -1.698290639332e-04, -1.436571665398e-03, -2.604666666759e-04, -2.752019370380e-04,  1.412253967491e-03, ...
  -9.737328456846e-03,  9.584139594897e-03,  4.041147860756e-04, -5.184000000000e+03,  2.069563786522e-03,  6.246874813546e-04, -8.940507699742e-05, -5.956657020046e-05, ...
  -2.660535481999e-04, -2.550806983774e-04,  6.513825317331e-05, -1.862212872508e-03, -5.873201141188e-04,  2.127428175609e-04,  3.145380241287e+00, ...
   4.795490950675e-01,  2.000636014976e-01, "n",  1.450535752310e-01,  2.002019874747e-01,  4.768306977775e+00,  3.620410901648e+00, -5.833824381176e+00);
assert(isequalRel(ep,     1.455211905476e-01, TOL));
assert(isequalRel(inclp,  2.000009922692e-01, TOL));
assert(isequalRel(nodep,  4.769406012470e+00, TOL));
assert(isequalRel(argpp,  3.619624156390e+00, TOL));
assert(isequalRel(mp,    -5.833849488512e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -3.259811599808e-04,  9.631690304302e-05,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -1.598763953845e-03, ...
  -1.532829312733e-03,  1.009321688332e-02, -1.031125833038e-02, -1.698290639332e-04, -1.436571665398e-03, -2.604666666759e-04, -2.752019370380e-04,  1.412253967491e-03, ...
  -9.737328456846e-03,  9.584139594897e-03,  4.041147860756e-04, -5.064000000000e+03,  2.069563786522e-03,  6.246874813546e-04, -8.940507699742e-05, -5.956657020046e-05, ...
  -2.660535481999e-04, -2.550806983774e-04,  6.513825317331e-05, -1.862212872508e-03, -5.873201141188e-04,  2.127428175609e-04,  3.145380241287e+00, ...
   4.795490950675e-01,  2.000636014976e-01, "n",  1.450535063599e-01,  2.001987840956e-01,  4.768269095545e+00,  3.620477860571e+00, -5.204298456140e+00);
assert(isequalRel(ep,     1.455204452705e-01, TOL));
assert(isequalRel(inclp,  1.999991164549e-01, TOL));
assert(isequalRel(nodep,  4.769369747273e+00, TOL));
assert(isequalRel(argpp,  3.619871559534e+00, TOL));
assert(isequalRel(mp,    -5.204319046107e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -3.259811599808e-04,  9.631690304302e-05,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -1.598763953845e-03, ...
  -1.532829312733e-03,  1.009321688332e-02, -1.031125833038e-02, -1.698290639332e-04, -1.436571665398e-03, -2.604666666759e-04, -2.752019370380e-04,  1.412253967491e-03, ...
  -9.737328456846e-03,  9.584139594897e-03,  4.041147860756e-04, -4.944000000000e+03,  2.069563786522e-03,  6.246874813546e-04, -8.940507699742e-05, -5.956657020046e-05, ...
  -2.660535481999e-04, -2.550806983774e-04,  6.513825317331e-05, -1.862212872508e-03, -5.873201141188e-04,  2.127428175609e-04,  3.145380241287e+00, ...
   4.795490950675e-01,  2.000636014976e-01, "n",  1.450534374888e-01,  2.001955807165e-01,  4.768231213316e+00,  3.620544819494e+00, -4.574772531103e+00);
assert(isequalRel(ep,     1.455197993057e-01, TOL));
assert(isequalRel(inclp,  1.999972089501e-01, TOL));
assert(isequalRel(nodep,  4.769332769896e+00, TOL));
assert(isequalRel(argpp,  3.619929220424e+00, TOL));
assert(isequalRel(mp,    -4.574788563767e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -3.259811599808e-04,  9.631690304302e-05,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -1.598763953845e-03, ...
  -1.532829312733e-03,  1.009321688332e-02, -1.031125833038e-02, -1.698290639332e-04, -1.436571665398e-03, -2.604666666759e-04, -2.752019370380e-04,  1.412253967491e-03, ...
  -9.737328456846e-03,  9.584139594897e-03,  4.041147860756e-04, -4.896000000000e+03,  2.069563786522e-03,  6.246874813546e-04, -8.940507699742e-05, -5.956657020046e-05, ...
  -2.660535481999e-04, -2.550806983774e-04,  6.513825317331e-05, -1.862212872508e-03, -5.873201141188e-04,  2.127428175609e-04,  3.145380241287e+00, ...
   4.795490950675e-01,  2.000636014976e-01, "n",  1.450534099404e-01,  2.001942993649e-01,  4.768216060424e+00,  3.620571603064e+00, -4.322962161089e+00);
assert(isequalRel(ep,     1.455195687302e-01, TOL));
assert(isequalRel(inclp,  1.999964365372e-01, TOL));
assert(isequalRel(nodep,  4.769318083272e+00, TOL));
assert(isequalRel(argpp,  3.619952178758e+00, TOL));
assert(isequalRel(mp,    -4.322976364054e+00, TOL));
# 6251

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -4.408046133189e-04, -1.093428053938e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  2.501941522642e-03, ...
   1.007241988530e-03, -1.261915509701e-03,  2.455746281541e-03, -7.471990261373e-05,  9.458037270825e-04, -3.970223690620e-03, -1.110569917439e-03,  2.735745904365e-05, ...
   4.083492666433e-03, -2.119115873088e-03,  2.888302541444e-04,  0.000000000000e+00,  4.549202443830e-04, -2.464815107882e-05, -3.933566193975e-05, -6.438340814882e-04, ...
   3.079429279349e-04,  1.142408298542e-04,  1.200089628145e-04, -7.862643771994e-04, -4.559423560477e-04,  1.520522489668e-04,  1.703291771992e+00, ...
   2.972158040326e+00,  1.119778813470e+00, "y",  6.877146000000e-01,  1.119778813470e+00,  4.870720014138e+00,  4.621022739372e+00,  3.530050585206e-01);
assert(isequalRel(ep,     6.877146000000e-01, TOL));
assert(isequalRel(inclp,  1.119778813470e+00, TOL));
assert(isequalRel(nodep,  4.870720014138e+00, TOL));
assert(isequalRel(argpp,  4.621022739372e+00, TOL));
assert(isequalRel(mp,     3.530050585206e-01, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -4.408046133189e-04, -1.093428053938e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  2.501941522642e-03, ...
   1.007241988530e-03, -1.261915509701e-03,  2.455746281541e-03, -7.471990261373e-05,  9.458037270825e-04, -3.970223690620e-03, -1.110569917439e-03,  2.735745904365e-05, ...
   4.083492666433e-03, -2.119115873088e-03,  2.888302541444e-04,  0.000000000000e+00,  4.549202443830e-04, -2.464815107882e-05, -3.933566193975e-05, -6.438340814882e-04, ...
   3.079429279349e-04,  1.142408298542e-04,  1.200089628145e-04, -7.862643771994e-04, -4.559423560477e-04,  1.520522489668e-04,  1.703291771992e+00, ...
   2.972158040326e+00,  1.119778813470e+00, "y",  6.877146000000e-01,  1.119778813470e+00,  4.870720014138e+00,  4.621022739372e+00, -5.930180248659e+00);
assert(isequalRel(ep,     6.877146000000e-01, TOL));
assert(isequalRel(inclp,  1.119778813470e+00, TOL));
assert(isequalRel(nodep,  4.870720014138e+00, TOL));
assert(isequalRel(argpp,  4.621022739372e+00, TOL));
assert(isequalRel(mp,    -5.930180248659e+00, TOL));
# 8195

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -4.408046133189e-04, -1.093428053938e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  2.501941522642e-03, ...
   1.007241988530e-03, -1.261915509701e-03,  2.455746281541e-03, -7.471990261373e-05,  9.458037270825e-04, -3.970223690620e-03, -1.110569917439e-03,  2.735745904365e-05, ...
   4.083492666433e-03, -2.119115873088e-03,  2.888302541444e-04,  0.000000000000e+00,  4.549202443830e-04, -2.464815107882e-05, -3.933566193975e-05, -6.438340814882e-04, ...
   3.079429279349e-04,  1.142408298542e-04,  1.200089628145e-04, -7.862643771994e-04, -4.559423560477e-04,  1.520522489668e-04,  1.703291771992e+00, ...
   2.972158040326e+00,  1.119778813470e+00, "n",  6.877146000000e-01,  1.119778813470e+00,  4.870720014138e+00,  4.621022739372e+00, -5.930180248659e+00);
assert(isequalRel(ep,     6.871280305587e-01, TOL));
assert(isequalRel(inclp,  1.120083116085e+00, TOL));
assert(isequalRel(nodep,  4.869997828497e+00, TOL));
assert(isequalRel(argpp,  4.621881061829e+00, TOL));
assert(isequalRel(mp,    -5.931349567118e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -4.408046133189e-04, -1.093428053938e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  2.501941522642e-03, ...
   1.007241988530e-03, -1.261915509701e-03,  2.455746281541e-03, -7.471990261373e-05,  9.458037270825e-04, -3.970223690620e-03, -1.110569917439e-03,  2.735745904365e-05, ...
   4.083492666433e-03, -2.119115873088e-03,  2.888302541444e-04,  1.200000000000e+02,  4.549202443830e-04, -2.464815107882e-05, -3.933566193975e-05, -6.438340814882e-04, ...
   3.079429279349e-04,  1.142408298542e-04,  1.200089628145e-04, -7.862643771994e-04, -4.559423560477e-04,  1.520522489668e-04,  1.703291771992e+00, ...
   2.972158040326e+00,  1.119778813470e+00, "n",  6.877111337257e-01,  1.119777639377e+00,  4.870558516884e+00,  4.621012116336e+00, -4.880398693537e+00);
assert(isequalRel(ep,     6.871202234747e-01, TOL));
assert(isequalRel(inclp,  1.120082641417e+00, TOL));
assert(isequalRel(nodep,  4.869845014740e+00, TOL));
assert(isequalRel(argpp,  4.621863362034e+00, TOL));
assert(isequalRel(mp,    -4.881568833318e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -4.408046133189e-04, -1.093428053938e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  2.501941522642e-03, ...
   1.007241988530e-03, -1.261915509701e-03,  2.455746281541e-03, -7.471990261373e-05,  9.458037270825e-04, -3.970223690620e-03, -1.110569917439e-03,  2.735745904365e-05, ...
   4.083492666433e-03, -2.119115873088e-03,  2.888302541444e-04,  2.400000000000e+02,  4.549202443830e-04, -2.464815107882e-05, -3.933566193975e-05, -6.438340814882e-04, ...
   3.079429279349e-04,  1.142408298542e-04,  1.200089628145e-04, -7.862643771994e-04, -4.559423560477e-04,  1.520522489668e-04,  1.703291771992e+00, ...
   2.972158040326e+00,  1.119778813470e+00, "n",  6.877076674513e-01,  1.119776465284e+00,  4.870397019630e+00,  4.621001493299e+00, -3.830617130851e+00);
assert(isequalRel(ep,     6.871125363879e-01, TOL));
assert(isequalRel(inclp,  1.120082108339e+00, TOL));
assert(isequalRel(nodep,  4.869692350156e+00, TOL));
assert(isequalRel(argpp,  4.621845477674e+00, TOL));
assert(isequalRel(mp,    -3.831787815631e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -4.408046133189e-04, -1.093428053938e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  2.501941522642e-03, ...
   1.007241988530e-03, -1.261915509701e-03,  2.455746281541e-03, -7.471990261373e-05,  9.458037270825e-04, -3.970223690620e-03, -1.110569917439e-03,  2.735745904365e-05, ...
   4.083492666433e-03, -2.119115873088e-03,  2.888302541444e-04,  3.600000000000e+02,  4.549202443830e-04, -2.464815107882e-05, -3.933566193975e-05, -6.438340814882e-04, ...
   3.079429279349e-04,  1.142408298542e-04,  1.200089628145e-04, -7.862643771994e-04, -4.559423560477e-04,  1.520522489668e-04,  1.703291771992e+00, ...
   2.972158040326e+00,  1.119778813470e+00, "n",  6.877042011770e-01,  1.119775291191e+00,  4.870235522376e+00,  4.620990870263e+00, -2.780835560600e+00);
assert(isequalRel(ep,     6.871049727793e-01, TOL));
assert(isequalRel(inclp,  1.120081516626e+00, TOL));
assert(isequalRel(nodep,  4.869539825211e+00, TOL));
assert(isequalRel(argpp,  4.621827416882e+00, TOL));
assert(isequalRel(mp,    -2.782006515627e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -4.408046133189e-04, -1.093428053938e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  2.501941522642e-03, ...
   1.007241988530e-03, -1.261915509701e-03,  2.455746281541e-03, -7.471990261373e-05,  9.458037270825e-04, -3.970223690620e-03, -1.110569917439e-03,  2.735745904365e-05, ...
   4.083492666433e-03, -2.119115873088e-03,  2.888302541444e-04,  4.800000000000e+02,  4.549202443830e-04, -2.464815107882e-05, -3.933566193975e-05, -6.438340814882e-04, ...
   3.079429279349e-04,  1.142408298542e-04,  1.200089628145e-04, -7.862643771994e-04, -4.559423560477e-04,  1.520522489668e-04,  1.703291771992e+00, ...
   2.972158040326e+00,  1.119778813470e+00, "n",  6.877007349027e-01,  1.119774117098e+00,  4.870074025121e+00,  4.620980247226e+00, -1.731053982785e+00);
assert(isequalRel(ep,     6.870975359233e-01, TOL));
assert(isequalRel(inclp,  1.120080866132e+00, TOL));
assert(isequalRel(nodep,  4.869387430286e+00, TOL));
assert(isequalRel(argpp,  4.621809187961e+00, TOL));
assert(isequalRel(mp,    -1.732224935287e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -4.408046133189e-04, -1.093428053938e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  2.501941522642e-03, ...
   1.007241988530e-03, -1.261915509701e-03,  2.455746281541e-03, -7.471990261373e-05,  9.458037270825e-04, -3.970223690620e-03, -1.110569917439e-03,  2.735745904365e-05, ...
   4.083492666433e-03, -2.119115873088e-03,  2.888302541444e-04,  6.000000000000e+02,  4.549202443830e-04, -2.464815107882e-05, -3.933566193975e-05, -6.438340814882e-04, ...
   3.079429279349e-04,  1.142408298542e-04,  1.200089628145e-04, -7.862643771994e-04, -4.559423560477e-04,  1.520522489668e-04,  1.703291771992e+00, ...
   2.972158040326e+00,  1.119778813470e+00, "n",  6.876972686284e-01,  1.119772943005e+00,  4.869912527867e+00,  4.620969624190e+00, -6.812723974067e-01);
assert(isequalRel(ep,     6.870902288859e-01, TOL));
assert(isequalRel(inclp,  1.120080156794e+00, TOL));
assert(isequalRel(nodep,  4.869235155690e+00, TOL));
assert(isequalRel(argpp,  4.621790799361e+00, TOL));
assert(isequalRel(mp,    -6.824430769892e-01, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -4.408046133189e-04, -1.093428053938e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  2.501941522642e-03, ...
   1.007241988530e-03, -1.261915509701e-03,  2.455746281541e-03, -7.471990261373e-05,  9.458037270825e-04, -3.970223690620e-03, -1.110569917439e-03,  2.735745904365e-05, ...
   4.083492666433e-03, -2.119115873088e-03,  2.888302541444e-04,  7.200000000000e+02,  4.549202443830e-04, -2.464815107882e-05, -3.933566193975e-05, -6.438340814882e-04, ...
   3.079429279349e-04,  1.142408298542e-04,  1.200089628145e-04, -7.862643771994e-04, -4.559423560477e-04,  1.520522489668e-04,  1.703291771992e+00, ...
   2.972158040326e+00,  1.119778813470e+00, "n",  6.876938023540e-01,  1.119771768912e+00,  4.869751030613e+00,  4.620959001154e+00, -5.914676111643e+00);
assert(isequalRel(ep,     6.870830545243e-01, TOL));
assert(isequalRel(inclp,  1.120079388629e+00, TOL));
assert(isequalRel(nodep,  4.869082991675e+00, TOL));
assert(isequalRel(argpp,  4.621772259668e+00, TOL));
assert(isequalRel(mp,    -5.915846250683e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -4.408046133189e-04, -1.093428053938e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  2.501941522642e-03, ...
   1.007241988530e-03, -1.261915509701e-03,  2.455746281541e-03, -7.471990261373e-05,  9.458037270825e-04, -3.970223690620e-03, -1.110569917439e-03,  2.735745904365e-05, ...
   4.083492666433e-03, -2.119115873088e-03,  2.888302541444e-04,  8.400000000000e+02,  4.549202443830e-04, -2.464815107882e-05, -3.933566193975e-05, -6.438340814882e-04, ...
   3.079429279349e-04,  1.142408298542e-04,  1.200089628145e-04, -7.862643771994e-04, -4.559423560477e-04,  1.520522489668e-04,  1.703291771992e+00, ...
   2.972158040326e+00,  1.119778813470e+00, "n",  6.876903360797e-01,  1.119770594819e+00,  4.869589533359e+00,  4.620948378117e+00, -4.864894496492e+00);
assert(isequalRel(ep,     6.870760154861e-01, TOL));
assert(isequalRel(inclp,  1.120078561731e+00, TOL));
assert(isequalRel(nodep,  4.868930928454e+00, TOL));
assert(isequalRel(argpp,  4.621753577588e+00, TOL));
assert(isequalRel(mp,    -4.866063830513e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -4.408046133189e-04, -1.093428053938e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  2.501941522642e-03, ...
   1.007241988530e-03, -1.261915509701e-03,  2.455746281541e-03, -7.471990261373e-05,  9.458037270825e-04, -3.970223690620e-03, -1.110569917439e-03,  2.735745904365e-05, ...
   4.083492666433e-03, -2.119115873088e-03,  2.888302541444e-04,  9.600000000000e+02,  4.549202443830e-04, -2.464815107882e-05, -3.933566193975e-05, -6.438340814882e-04, ...
   3.079429279349e-04,  1.142408298542e-04,  1.200089628145e-04, -7.862643771994e-04, -4.559423560477e-04,  1.520522489668e-04,  1.703291771992e+00, ...
   2.972158040326e+00,  1.119778813470e+00, "n",  6.876868698054e-01,  1.119769420726e+00,  4.869428036105e+00,  4.620937755081e+00, -3.815112869571e+00);
assert(isequalRel(ep,     6.870691142096e-01, TOL));
assert(isequalRel(inclp,  1.120077676273e+00, TOL));
assert(isequalRel(nodep,  4.868778956216e+00, TOL));
assert(isequalRel(argpp,  4.621734761933e+00, TOL));
assert(isequalRel(mp,    -3.816281137606e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -4.408046133189e-04, -1.093428053938e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  2.501941522642e-03, ...
   1.007241988530e-03, -1.261915509701e-03,  2.455746281541e-03, -7.471990261373e-05,  9.458037270825e-04, -3.970223690620e-03, -1.110569917439e-03,  2.735745904365e-05, ...
   4.083492666433e-03, -2.119115873088e-03,  2.888302541444e-04,  1.080000000000e+03,  4.549202443830e-04, -2.464815107882e-05, -3.933566193975e-05, -6.438340814882e-04, ...
   3.079429279349e-04,  1.142408298542e-04,  1.200089628145e-04, -7.862643771994e-04, -4.559423560477e-04,  1.520522489668e-04,  1.703291771992e+00, ...
   2.972158040326e+00,  1.119778813470e+00, "n",  6.876834035311e-01,  1.119768246633e+00,  4.869266538851e+00,  4.620927132044e+00, -2.765331230878e+00);
assert(isequalRel(ep,     6.870623529232e-01, TOL));
assert(isequalRel(inclp,  1.120076732502e+00, TOL));
assert(isequalRel(nodep,  4.868627065136e+00, TOL));
assert(isequalRel(argpp,  4.621715821607e+00, TOL));
assert(isequalRel(mp,    -2.766498175831e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -4.408046133189e-04, -1.093428053938e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  2.501941522642e-03, ...
   1.007241988530e-03, -1.261915509701e-03,  2.455746281541e-03, -7.471990261373e-05,  9.458037270825e-04, -3.970223690620e-03, -1.110569917439e-03,  2.735745904365e-05, ...
   4.083492666433e-03, -2.119115873088e-03,  2.888302541444e-04,  1.200000000000e+03,  4.549202443830e-04, -2.464815107882e-05, -3.933566193975e-05, -6.438340814882e-04, ...
   3.079429279349e-04,  1.142408298542e-04,  1.200089628145e-04, -7.862643771994e-04, -4.559423560477e-04,  1.520522489668e-04,  1.703291771992e+00, ...
   2.972158040326e+00,  1.119778813470e+00, "n",  6.876799372567e-01,  1.119767072540e+00,  4.869105041596e+00,  4.620916509008e+00, -1.715549580414e+00);
assert(isequalRel(ep,     6.870557336469e-01, TOL));
assert(isequalRel(inclp,  1.120075730738e+00, TOL));
assert(isequalRel(nodep,  4.868475245392e+00, TOL));
assert(isequalRel(argpp,  4.621696765589e+00, TOL));
assert(isequalRel(mp,    -1.716714949396e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -4.408046133189e-04, -1.093428053938e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  2.501941522642e-03, ...
   1.007241988530e-03, -1.261915509701e-03,  2.455746281541e-03, -7.471990261373e-05,  9.458037270825e-04, -3.970223690620e-03, -1.110569917439e-03,  2.735745904365e-05, ...
   4.083492666433e-03, -2.119115873088e-03,  2.888302541444e-04,  1.320000000000e+03,  4.549202443830e-04, -2.464815107882e-05, -3.933566193975e-05, -6.438340814882e-04, ...
   3.079429279349e-04,  1.142408298542e-04,  1.200089628145e-04, -7.862643771994e-04, -4.559423560477e-04,  1.520522489668e-04,  1.703291771992e+00, ...
   2.972158040326e+00,  1.119778813470e+00, "n",  6.876764709824e-01,  1.119765898447e+00,  4.868943544342e+00,  4.620905885972e+00, -6.657679181795e-01);
assert(isequalRel(ep,     6.870492581922e-01, TOL));
assert(isequalRel(inclp,  1.120074671376e+00, TOL));
assert(isequalRel(nodep,  4.868323487179e+00, TOL));
assert(isequalRel(argpp,  4.621677602922e+00, TOL));
assert(isequalRel(mp,    -6.669314628394e-01, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -4.408046133189e-04, -1.093428053938e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  2.501941522642e-03, ...
   1.007241988530e-03, -1.261915509701e-03,  2.455746281541e-03, -7.471990261373e-05,  9.458037270825e-04, -3.970223690620e-03, -1.110569917439e-03,  2.735745904365e-05, ...
   4.083492666433e-03, -2.119115873088e-03,  2.888302541444e-04,  1.440000000000e+03,  4.549202443830e-04, -2.464815107882e-05, -3.933566193975e-05, -6.438340814882e-04, ...
   3.079429279349e-04,  1.142408298542e-04,  1.200089628145e-04, -7.862643771994e-04, -4.559423560477e-04,  1.520522489668e-04,  1.703291771992e+00, ...
   2.972158040326e+00,  1.119778813470e+00, "n",  6.876730047081e-01,  1.119764724354e+00,  4.868782047088e+00,  4.620895262935e+00, -5.899171551354e+00);
assert(isequalRel(ep,     6.870429281639e-01, TOL));
assert(isequalRel(inclp,  1.120073554878e+00, TOL));
assert(isequalRel(nodep,  4.868171780722e+00, TOL));
assert(isequalRel(argpp,  4.621658342699e+00, TOL));
assert(isequalRel(mp,    -5.900333028198e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -4.408046133189e-04, -1.093428053938e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  2.501941522642e-03, ...
   1.007241988530e-03, -1.261915509701e-03,  2.455746281541e-03, -7.471990261373e-05,  9.458037270825e-04, -3.970223690620e-03, -1.110569917439e-03,  2.735745904365e-05, ...
   4.083492666433e-03, -2.119115873088e-03,  2.888302541444e-04,  1.560000000000e+03,  4.549202443830e-04, -2.464815107882e-05, -3.933566193975e-05, -6.438340814882e-04, ...
   3.079429279349e-04,  1.142408298542e-04,  1.200089628145e-04, -7.862643771994e-04, -4.559423560477e-04,  1.520522489668e-04,  1.703291771992e+00, ...
   2.972158040326e+00,  1.119778813470e+00, "n",  6.876695384338e-01,  1.119763550261e+00,  4.868620549834e+00,  4.620884639899e+00, -4.849389850934e+00);
assert(isequalRel(ep,     6.870367449611e-01, TOL));
assert(isequalRel(inclp,  1.120072381775e+00, TOL));
assert(isequalRel(nodep,  4.868020116287e+00, TOL));
assert(isequalRel(argpp,  4.621638994048e+00, TOL));
assert(isequalRel(mp,    -4.850549021630e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -4.408046133189e-04, -1.093428053938e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  2.501941522642e-03, ...
   1.007241988530e-03, -1.261915509701e-03,  2.455746281541e-03, -7.471990261373e-05,  9.458037270825e-04, -3.970223690620e-03, -1.110569917439e-03,  2.735745904365e-05, ...
   4.083492666433e-03, -2.119115873088e-03,  2.888302541444e-04,  1.680000000000e+03,  4.549202443830e-04, -2.464815107882e-05, -3.933566193975e-05, -6.438340814882e-04, ...
   3.079429279349e-04,  1.142408298542e-04,  1.200089628145e-04, -7.862643771994e-04, -4.559423560477e-04,  1.520522489668e-04,  1.703291771992e+00, ...
   2.972158040326e+00,  1.119778813470e+00, "n",  6.876660721594e-01,  1.119762376168e+00,  4.868459052579e+00,  4.620874016862e+00, -3.799608134538e+00);
assert(isequalRel(ep,     6.870307097792e-01, TOL));
assert(isequalRel(inclp,  1.120071152666e+00, TOL));
assert(isequalRel(nodep,  4.867868484195e+00, TOL));
assert(isequalRel(argpp,  4.621619566121e+00, TOL));
assert(isequalRel(mp,    -3.800764766205e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -4.408046133189e-04, -1.093428053938e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  2.501941522642e-03, ...
   1.007241988530e-03, -1.261915509701e-03,  2.455746281541e-03, -7.471990261373e-05,  9.458037270825e-04, -3.970223690620e-03, -1.110569917439e-03,  2.735745904365e-05, ...
   4.083492666433e-03, -2.119115873088e-03,  2.888302541444e-04,  1.800000000000e+03,  4.549202443830e-04, -2.464815107882e-05, -3.933566193975e-05, -6.438340814882e-04, ...
   3.079429279349e-04,  1.142408298542e-04,  1.200089628145e-04, -7.862643771994e-04, -4.559423560477e-04,  1.520522489668e-04,  1.703291771992e+00, ...
   2.972158040326e+00,  1.119778813470e+00, "n",  6.876626058851e-01,  1.119761202075e+00,  4.868297555325e+00,  4.620863393826e+00, -2.749826402164e+00);
assert(isequalRel(ep,     6.870248236114e-01, TOL));
assert(isequalRel(inclp,  1.120069868213e+00, TOL));
assert(isequalRel(nodep,  4.867716874835e+00, TOL));
assert(isequalRel(argpp,  4.621600068078e+00, TOL));
assert(isequalRel(mp,    -2.750980267654e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -4.408046133189e-04, -1.093428053938e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  2.501941522642e-03, ...
   1.007241988530e-03, -1.261915509701e-03,  2.455746281541e-03, -7.471990261373e-05,  9.458037270825e-04, -3.970223690620e-03, -1.110569917439e-03,  2.735745904365e-05, ...
   4.083492666433e-03, -2.119115873088e-03,  2.888302541444e-04,  1.920000000000e+03,  4.549202443830e-04, -2.464815107882e-05, -3.933566193975e-05, -6.438340814882e-04, ...
   3.079429279349e-04,  1.142408298542e-04,  1.200089628145e-04, -7.862643771994e-04, -4.559423560477e-04,  1.520522489668e-04,  1.703291771992e+00, ...
   2.972158040326e+00,  1.119778813470e+00, "n",  6.876591396108e-01,  1.119760027982e+00,  4.868136058071e+00,  4.620852770790e+00, -1.700044653813e+00);
assert(isequalRel(ep,     6.870190872516e-01, TOL));
assert(isequalRel(inclp,  1.120068529142e+00, TOL));
assert(isequalRel(nodep,  4.867565278673e+00, TOL));
assert(isequalRel(argpp,  4.621580509078e+00, TOL));
assert(isequalRel(mp,    -1.701195531976e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -4.408046133189e-04, -1.093428053938e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  2.501941522642e-03, ...
   1.007241988530e-03, -1.261915509701e-03,  2.455746281541e-03, -7.471990261373e-05,  9.458037270825e-04, -3.970223690620e-03, -1.110569917439e-03,  2.735745904365e-05, ...
   4.083492666433e-03, -2.119115873088e-03,  2.888302541444e-04,  2.040000000000e+03,  4.549202443830e-04, -2.464815107882e-05, -3.933566193975e-05, -6.438340814882e-04, ...
   3.079429279349e-04,  1.142408298542e-04,  1.200089628145e-04, -7.862643771994e-04, -4.559423560477e-04,  1.520522489668e-04,  1.703291771992e+00, ...
   2.972158040326e+00,  1.119778813470e+00, "n",  6.876556733365e-01,  1.119758853889e+00,  4.867974560817e+00,  4.620842147753e+00, -6.502628894852e-01);
assert(isequalRel(ep,     6.870135012961e-01, TOL));
assert(isequalRel(inclp,  1.120067136236e+00, TOL));
assert(isequalRel(nodep,  4.867413686264e+00, TOL));
assert(isequalRel(argpp,  4.621560898266e+00, TOL));
assert(isequalRel(mp,    -6.514105654208e-01, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -4.408046133189e-04, -1.093428053938e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  2.501941522642e-03, ...
   1.007241988530e-03, -1.261915509701e-03,  2.455746281541e-03, -7.471990261373e-05,  9.458037270825e-04, -3.970223690620e-03, -1.110569917439e-03,  2.735745904365e-05, ...
   4.083492666433e-03, -2.119115873088e-03,  2.888302541444e-04,  2.160000000000e+03,  4.549202443830e-04, -2.464815107882e-05, -3.933566193975e-05, -6.438340814882e-04, ...
   3.079429279349e-04,  1.142408298542e-04,  1.200089628145e-04, -7.862643771994e-04, -4.559423560477e-04,  1.520522489668e-04,  1.703291771992e+00, ...
   2.972158040326e+00,  1.119778813470e+00, "n",  6.876522070621e-01,  1.119757679796e+00,  4.867813063562e+00,  4.620831524717e+00, -5.883666416359e+00);
assert(isequalRel(ep,     6.870080661466e-01, TOL));
assert(isequalRel(inclp,  1.120065690341e+00, TOL));
assert(isequalRel(nodep,  4.867262088265e+00, TOL));
assert(isequalRel(argpp,  4.621541244760e+00, TOL));
assert(isequalRel(mp,    -5.884810681659e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -4.408046133189e-04, -1.093428053938e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  2.501941522642e-03, ...
   1.007241988530e-03, -1.261915509701e-03,  2.455746281541e-03, -7.471990261373e-05,  9.458037270825e-04, -3.970223690620e-03, -1.110569917439e-03,  2.735745904365e-05, ...
   4.083492666433e-03, -2.119115873088e-03,  2.888302541444e-04,  2.280000000000e+03,  4.549202443830e-04, -2.464815107882e-05, -3.933566193975e-05, -6.438340814882e-04, ...
   3.079429279349e-04,  1.142408298542e-04,  1.200089628145e-04, -7.862643771994e-04, -4.559423560477e-04,  1.520522489668e-04,  1.703291771992e+00, ...
   2.972158040326e+00,  1.119778813470e+00, "n",  6.876487407878e-01,  1.119756505703e+00,  4.867651566308e+00,  4.620820901680e+00, -4.833884605436e+00);
assert(isequalRel(ep,     6.870027820132e-01, TOL));
assert(isequalRel(inclp,  1.120064192356e+00, TOL));
assert(isequalRel(nodep,  4.867110475443e+00, TOL));
assert(isequalRel(argpp,  4.621521557639e+00, TOL));
assert(isequalRel(mp,    -4.835025258410e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -4.408046133189e-04, -1.093428053938e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  2.501941522642e-03, ...
   1.007241988530e-03, -1.261915509701e-03,  2.455746281541e-03, -7.471990261373e-05,  9.458037270825e-04, -3.970223690620e-03, -1.110569917439e-03,  2.735745904365e-05, ...
   4.083492666433e-03, -2.119115873088e-03,  2.888302541444e-04,  2.400000000000e+03,  4.549202443830e-04, -2.464815107882e-05, -3.933566193975e-05, -6.438340814882e-04, ...
   3.079429279349e-04,  1.142408298542e-04,  1.200089628145e-04, -7.862643771994e-04, -4.559423560477e-04,  1.520522489668e-04,  1.703291771992e+00, ...
   2.972158040326e+00,  1.119778813470e+00, "n",  6.876452745135e-01,  1.119755331610e+00,  4.867490069054e+00,  4.620810278644e+00, -3.784102774330e+00);
assert(isequalRel(ep,     6.869976489171e-01, TOL));
assert(isequalRel(inclp,  1.120062643235e+00, TOL));
assert(isequalRel(nodep,  4.866958838685e+00, TOL));
assert(isequalRel(argpp,  4.621501845935e+00, TOL));
assert(isequalRel(mp,    -3.785239620218e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -4.408046133189e-04, -1.093428053938e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  2.501941522642e-03, ...
   1.007241988530e-03, -1.261915509701e-03,  2.455746281541e-03, -7.471990261373e-05,  9.458037270825e-04, -3.970223690620e-03, -1.110569917439e-03,  2.735745904365e-05, ...
   4.083492666433e-03, -2.119115873088e-03,  2.888302541444e-04,  2.520000000000e+03,  4.549202443830e-04, -2.464815107882e-05, -3.933566193975e-05, -6.438340814882e-04, ...
   3.079429279349e-04,  1.142408298542e-04,  1.200089628145e-04, -7.862643771994e-04, -4.559423560477e-04,  1.520522489668e-04,  1.703291771992e+00, ...
   2.972158040326e+00,  1.119778813470e+00, "n",  6.876418082392e-01,  1.119754157517e+00,  4.867328571799e+00,  4.620799655608e+00, -2.734320923040e+00);
assert(isequalRel(ep,     6.869926666941e-01, TOL));
assert(isequalRel(inclp,  1.120061043984e+00, TOL));
assert(isequalRel(nodep,  4.866807169007e+00, TOL));
assert(isequalRel(argpp,  4.621482118621e+00, TOL));
assert(isequalRel(mp,    -2.735453774216e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -4.408046133189e-04, -1.093428053938e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  2.501941522642e-03, ...
   1.007241988530e-03, -1.261915509701e-03,  2.455746281541e-03, -7.471990261373e-05,  9.458037270825e-04, -3.970223690620e-03, -1.110569917439e-03,  2.735745904365e-05, ...
   4.083492666433e-03, -2.119115873088e-03,  2.888302541444e-04,  2.640000000000e+03,  4.549202443830e-04, -2.464815107882e-05, -3.933566193975e-05, -6.438340814882e-04, ...
   3.079429279349e-04,  1.142408298542e-04,  1.200089628145e-04, -7.862643771994e-04, -4.559423560477e-04,  1.520522489668e-04,  1.703291771992e+00, ...
   2.972158040326e+00,  1.119778813470e+00, "n",  6.876383419648e-01,  1.119752983424e+00,  4.867167074545e+00,  4.620789032571e+00, -1.684539051568e+00);
assert(isequalRel(ep,     6.869878349978e-01, TOL));
assert(isequalRel(inclp,  1.120059395659e+00, TOL));
assert(isequalRel(nodep,  4.866655457566e+00, TOL));
assert(isequalRel(argpp,  4.621462384599e+00, TOL));
assert(isequalRel(mp,    -1.685667727726e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -4.408046133189e-04, -1.093428053938e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  2.501941522642e-03, ...
   1.007241988530e-03, -1.261915509701e-03,  2.455746281541e-03, -7.471990261373e-05,  9.458037270825e-04, -3.970223690620e-03, -1.110569917439e-03,  2.735745904365e-05, ...
   4.083492666433e-03, -2.119115873088e-03,  2.888302541444e-04,  2.760000000000e+03,  4.549202443830e-04, -2.464815107882e-05, -3.933566193975e-05, -6.438340814882e-04, ...
   3.079429279349e-04,  1.142408298542e-04,  1.200089628145e-04, -7.862643771994e-04, -4.559423560477e-04,  1.520522489668e-04,  1.703291771992e+00, ...
   2.972158040326e+00,  1.119778813470e+00, "n",  6.876348756905e-01,  1.119751809331e+00,  4.867005577290e+00,  4.620778409535e+00, -6.347571599133e-01);
assert(isequalRel(ep,     6.869831533032e-01, TOL));
assert(isequalRel(inclp,  1.120057699364e+00, TOL));
assert(isequalRel(nodep,  4.866503695664e+00, TOL));
assert(isequalRel(argpp,  4.621442652690e+00, TOL));
assert(isequalRel(mp,    -6.358814882437e-01, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -4.408046133189e-04, -1.093428053938e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  2.501941522642e-03, ...
   1.007241988530e-03, -1.261915509701e-03,  2.455746281541e-03, -7.471990261373e-05,  9.458037270825e-04, -3.970223690620e-03, -1.110569917439e-03,  2.735745904365e-05, ...
   4.083492666433e-03, -2.119115873088e-03,  2.888302541444e-04,  2.880000000000e+03,  4.549202443830e-04, -2.464815107882e-05, -3.933566193975e-05, -6.438340814882e-04, ...
   3.079429279349e-04,  1.142408298542e-04,  1.200089628145e-04, -7.862643771994e-04, -4.559423560477e-04,  1.520522489668e-04,  1.703291771992e+00, ...
   2.972158040326e+00,  1.119778813470e+00, "n",  6.876314094162e-01,  1.119750635238e+00,  4.866844080036e+00,  4.620767786498e+00, -5.868160555255e+00);
assert(isequalRel(ep,     6.869786209107e-01, TOL));
assert(isequalRel(inclp,  1.120055956247e+00, TOL));
assert(isequalRel(nodep,  4.866351874760e+00, TOL));
assert(isequalRel(argpp,  4.621422931630e+00, TOL));
assert(isequalRel(mp,    -5.869280370607e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   1.249431839564e-04,  6.476652597055e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -3.006446485103e-03, ...
   2.366248156382e-03, -2.805617954096e-03, -3.755905951700e-03, -7.268074853619e-05,  2.948902195180e-03,  3.166374712604e-03,  6.569128551896e-04, -6.992498193738e-04, ...
   4.534351771255e-03,  6.836119210765e-03,  2.911149634817e-04,  0.000000000000e+00, -1.815715485263e-04,  8.134154625503e-04, -3.826216649032e-05,  4.816111792216e-05, ...
  -6.696421947166e-04, -1.383644676752e-04, -7.113039969238e-07,  4.111399428162e-04, -1.491371542789e-03,  1.532550149097e-04,  1.755605827278e+00, ...
   2.976104523220e+00,  1.127426846252e+00, "y",  7.069051000000e-01,  1.127426846252e+00,  6.097806906008e+00,  4.712788660783e+00,  2.850471734357e-01);
assert(isequalRel(ep,     7.069051000000e-01, TOL));
assert(isequalRel(inclp,  1.127426846252e+00, TOL));
assert(isequalRel(nodep,  6.097806906008e+00, TOL));
assert(isequalRel(argpp,  4.712788660783e+00, TOL));
assert(isequalRel(mp,     2.850471734357e-01, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   1.249431839564e-04,  6.476652597055e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -3.006446485103e-03, ...
   2.366248156382e-03, -2.805617954096e-03, -3.755905951700e-03, -7.268074853619e-05,  2.948902195180e-03,  3.166374712604e-03,  6.569128551896e-04, -6.992498193738e-04, ...
   4.534351771255e-03,  6.836119210765e-03,  2.911149634817e-04,  0.000000000000e+00, -1.815715485263e-04,  8.134154625503e-04, -3.826216649032e-05,  4.816111792216e-05, ...
  -6.696421947166e-04, -1.383644676752e-04, -7.113039969238e-07,  4.111399428162e-04, -1.491371542789e-03,  1.532550149097e-04,  1.755605827278e+00, ...
   2.976104523220e+00,  1.127426846252e+00, "y",  7.069051000000e-01,  1.127426846252e+00,  6.097806906008e+00,  4.712788660783e+00, -5.998138133744e+00);
assert(isequalRel(ep,     7.069051000000e-01, TOL));
assert(isequalRel(inclp,  1.127426846252e+00, TOL));
assert(isequalRel(nodep,  6.097806906008e+00, TOL));
assert(isequalRel(argpp,  4.712788660783e+00, TOL));
assert(isequalRel(mp,    -5.998138133744e+00, TOL));
# 9880

[ep, inclp, nodep, argpp,  mp] = dpper(...
   1.249431839564e-04,  6.476652597055e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -3.006446485103e-03, ...
   2.366248156382e-03, -2.805617954096e-03, -3.755905951700e-03, -7.268074853619e-05,  2.948902195180e-03,  3.166374712604e-03,  6.569128551896e-04, -6.992498193738e-04, ...
   4.534351771255e-03,  6.836119210765e-03,  2.911149634817e-04,  0.000000000000e+00, -1.815715485263e-04,  8.134154625503e-04, -3.826216649032e-05,  4.816111792216e-05, ...
  -6.696421947166e-04, -1.383644676752e-04, -7.113039969238e-07,  4.111399428162e-04, -1.491371542789e-03,  1.532550149097e-04,  1.755605827278e+00, ...
   2.976104523220e+00,  1.127426846252e+00, "n",  7.069051000000e-01,  1.127426846252e+00,  6.097806906008e+00,  4.712788660783e+00, -5.998138133744e+00);
assert(isequalRel(ep,     7.079568317795e-01, TOL));
assert(isequalRel(inclp,  1.127187043686e+00, TOL));
assert(isequalRel(nodep,  6.097216424848e+00, TOL));
assert(isequalRel(argpp,  4.713438920719e+00, TOL));
assert(isequalRel(mp,    -5.998603953013e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   1.249431839564e-04,  6.476652597055e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -3.006446485103e-03, ...
   2.366248156382e-03, -2.805617954096e-03, -3.755905951700e-03, -7.268074853619e-05,  2.948902195180e-03,  3.166374712604e-03,  6.569128551896e-04, -6.992498193738e-04, ...
   4.534351771255e-03,  6.836119210765e-03,  2.911149634817e-04,  1.200000000000e+02, -1.815715485263e-04,  8.134154625503e-04, -3.826216649032e-05,  4.816111792216e-05, ...
  -6.696421947166e-04, -1.383644676752e-04, -7.113039969238e-07,  4.111399428162e-04, -1.491371542789e-03,  1.532550149097e-04,  1.755605827278e+00, ...
   2.976104523220e+00,  1.127426846252e+00, "n",  7.069045158731e-01,  1.127426637354e+00,  6.097627566473e+00,  4.712775640043e+00, -4.946679347666e+00);
assert(isequalRel(ep,     7.079528780828e-01, TOL));
assert(isequalRel(inclp,  1.127187877834e+00, TOL));
assert(isequalRel(nodep,  6.097028113466e+00, TOL));
assert(isequalRel(argpp,  4.713440327044e+00, TOL));
assert(isequalRel(mp,    -4.947165482790e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   1.249431839564e-04,  6.476652597055e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -3.006446485103e-03, ...
   2.366248156382e-03, -2.805617954096e-03, -3.755905951700e-03, -7.268074853619e-05,  2.948902195180e-03,  3.166374712604e-03,  6.569128551896e-04, -6.992498193738e-04, ...
   4.534351771255e-03,  6.836119210765e-03,  2.911149634817e-04,  2.400000000000e+02, -1.815715485263e-04,  8.134154625503e-04, -3.826216649032e-05,  4.816111792216e-05, ...
  -6.696421947166e-04, -1.383644676752e-04, -7.113039969238e-07,  4.111399428162e-04, -1.491371542789e-03,  1.532550149097e-04,  1.755605827278e+00, ...
   2.976104523220e+00,  1.127426846252e+00, "n",  7.069039317463e-01,  1.127426428456e+00,  6.097448226938e+00,  4.712762619302e+00, -3.895219983260e+00);
assert(isequalRel(ep,     7.079487160923e-01, TOL));
assert(isequalRel(inclp,  1.127188750983e+00, TOL));
assert(isequalRel(nodep,  6.096839952575e+00, TOL));
assert(isequalRel(argpp,  4.713441550275e+00, TOL));
assert(isequalRel(mp,    -3.895726265534e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   1.249431839564e-04,  6.476652597055e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -3.006446485103e-03, ...
   2.366248156382e-03, -2.805617954096e-03, -3.755905951700e-03, -7.268074853619e-05,  2.948902195180e-03,  3.166374712604e-03,  6.569128551896e-04, -6.992498193738e-04, ...
   4.534351771255e-03,  6.836119210765e-03,  2.911149634817e-04,  3.600000000000e+02, -1.815715485263e-04,  8.134154625503e-04, -3.826216649032e-05,  4.816111792216e-05, ...
  -6.696421947166e-04, -1.383644676752e-04, -7.113039969238e-07,  4.111399428162e-04, -1.491371542789e-03,  1.532550149097e-04,  1.755605827278e+00, ...
   2.976104523220e+00,  1.127426846252e+00, "n",  7.069033476194e-01,  1.127426219558e+00,  6.097268887403e+00,  4.712749598561e+00, -2.843760040525e+00);
assert(isequalRel(ep,     7.079443507460e-01, TOL));
assert(isequalRel(inclp,  1.127189661846e+00, TOL));
assert(isequalRel(nodep,  6.096651949288e+00, TOL));
assert(isequalRel(argpp,  4.713442578257e+00, TOL));
assert(isequalRel(mp,    -2.844286283491e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   1.249431839564e-04,  6.476652597055e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -3.006446485103e-03, ...
   2.366248156382e-03, -2.805617954096e-03, -3.755905951700e-03, -7.268074853619e-05,  2.948902195180e-03,  3.166374712604e-03,  6.569128551896e-04, -6.992498193738e-04, ...
   4.534351771255e-03,  6.836119210765e-03,  2.911149634817e-04,  4.800000000000e+02, -1.815715485263e-04,  8.134154625503e-04, -3.826216649032e-05,  4.816111792216e-05, ...
  -6.696421947166e-04, -1.383644676752e-04, -7.113039969238e-07,  4.111399428162e-04, -1.491371542789e-03,  1.532550149097e-04,  1.755605827278e+00, ...
   2.976104523220e+00,  1.127426846252e+00, "n",  7.069027634926e-01,  1.127426010660e+00,  6.097089547868e+00,  4.712736577820e+00, -1.792299519461e+00);
assert(isequalRel(ep,     7.079397872005e-01, TOL));
assert(isequalRel(inclp,  1.127190609100e+00, TOL));
assert(isequalRel(nodep,  6.096464110426e+00, TOL));
assert(isequalRel(argpp,  4.713443399242e+00, TOL));
assert(isequalRel(mp,    -1.792845519403e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   1.249431839564e-04,  6.476652597055e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -3.006446485103e-03, ...
   2.366248156382e-03, -2.805617954096e-03, -3.755905951700e-03, -7.268074853619e-05,  2.948902195180e-03,  3.166374712604e-03,  6.569128551896e-04, -6.992498193738e-04, ...
   4.534351771255e-03,  6.836119210765e-03,  2.911149634817e-04,  6.000000000000e+02, -1.815715485263e-04,  8.134154625503e-04, -3.826216649032e-05,  4.816111792216e-05, ...
  -6.696421947166e-04, -1.383644676752e-04, -7.113039969238e-07,  4.111399428162e-04, -1.491371542789e-03,  1.532550149097e-04,  1.755605827278e+00, ...
   2.976104523220e+00,  1.127426846252e+00, "n",  7.069021793657e-01,  1.127425801762e+00,  6.096910208333e+00,  4.712723557079e+00, -7.408384200681e-01);
assert(isequalRel(ep,     7.079350308198e-01, TOL));
assert(isequalRel(inclp,  1.127191591389e+00, TOL));
assert(isequalRel(nodep,  6.096276442517e+00, TOL));
assert(isequalRel(argpp,  4.713444001903e+00, TOL));
assert(isequalRel(mp,    -7.414039565240e-01, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   1.249431839564e-04,  6.476652597055e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -3.006446485103e-03, ...
   2.366248156382e-03, -2.805617954096e-03, -3.755905951700e-03, -7.268074853619e-05,  2.948902195180e-03,  3.166374712604e-03,  6.569128551896e-04, -6.992498193738e-04, ...
   4.534351771255e-03,  6.836119210765e-03,  2.911149634817e-04,  7.200000000000e+02, -1.815715485263e-04,  8.134154625503e-04, -3.826216649032e-05,  4.816111792216e-05, ...
  -6.696421947166e-04, -1.383644676752e-04, -7.113039969238e-07,  4.111399428162e-04, -1.491371542789e-03,  1.532550149097e-04,  1.755605827278e+00, ...
   2.976104523220e+00,  1.127426846252e+00, "n",  7.069015952389e-01,  1.127425592864e+00,  6.096730868798e+00,  4.712710536338e+00, -5.972562049526e+00);
assert(isequalRel(ep,     7.079300871640e-01, TOL));
assert(isequalRel(inclp,  1.127192607325e+00, TOL));
assert(isequalRel(nodep,  6.096088951786e+00, TOL));
assert(isequalRel(argpp,  4.713444375340e+00, TOL));
assert(isequalRel(mp,    -5.973146885815e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   1.249431839564e-04,  6.476652597055e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -3.006446485103e-03, ...
   2.366248156382e-03, -2.805617954096e-03, -3.755905951700e-03, -7.268074853619e-05,  2.948902195180e-03,  3.166374712604e-03,  6.569128551896e-04, -6.992498193738e-04, ...
   4.534351771255e-03,  6.836119210765e-03,  2.911149634817e-04,  8.400000000000e+02, -1.815715485263e-04,  8.134154625503e-04, -3.826216649032e-05,  4.816111792216e-05, ...
  -6.696421947166e-04, -1.383644676752e-04, -7.113039969238e-07,  4.111399428162e-04, -1.491371542789e-03,  1.532550149097e-04,  1.755605827278e+00, ...
   2.976104523220e+00,  1.127426846252e+00, "n",  7.069010111120e-01,  1.127425383966e+00,  6.096551529263e+00,  4.712697515597e+00, -4.921099817857e+00);
assert(isequalRel(ep,     7.079249619782e-01, TOL));
assert(isequalRel(inclp,  1.127193655493e+00, TOL));
assert(isequalRel(nodep,  6.095901644158e+00, TOL));
assert(isequalRel(argpp,  4.713444509089e+00, TOL));
assert(isequalRel(mp,    -4.921703701617e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   1.249431839564e-04,  6.476652597055e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -3.006446485103e-03, ...
   2.366248156382e-03, -2.805617954096e-03, -3.755905951700e-03, -7.268074853619e-05,  2.948902195180e-03,  3.166374712604e-03,  6.569128551896e-04, -6.992498193738e-04, ...
   4.534351771255e-03,  6.836119210765e-03,  2.911149634817e-04,  9.600000000000e+02, -1.815715485263e-04,  8.134154625503e-04, -3.826216649032e-05,  4.816111792216e-05, ...
  -6.696421947166e-04, -1.383644676752e-04, -7.113039969238e-07,  4.111399428162e-04, -1.491371542789e-03,  1.532550149097e-04,  1.755605827278e+00, ...
   2.976104523220e+00,  1.127426846252e+00, "n",  7.069004269852e-01,  1.127425175068e+00,  6.096372189728e+00,  4.712684494856e+00, -3.869637014810e+00);
assert(isequalRel(ep,     7.079196611813e-01, TOL));
assert(isequalRel(inclp,  1.127194734450e+00, TOL));
assert(isequalRel(nodep,  6.095714525248e+00, TOL));
assert(isequalRel(argpp,  4.713444393131e+00, TOL));
assert(isequalRel(mp,    -3.870259678554e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   1.249431839564e-04,  6.476652597055e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -3.006446485103e-03, ...
   2.366248156382e-03, -2.805617954096e-03, -3.755905951700e-03, -7.268074853619e-05,  2.948902195180e-03,  3.166374712604e-03,  6.569128551896e-04, -6.992498193738e-04, ...
   4.534351771255e-03,  6.836119210765e-03,  2.911149634817e-04,  1.080000000000e+03, -1.815715485263e-04,  8.134154625503e-04, -3.826216649032e-05,  4.816111792216e-05, ...
  -6.696421947166e-04, -1.383644676752e-04, -7.113039969238e-07,  4.111399428162e-04, -1.491371542789e-03,  1.532550149097e-04,  1.755605827278e+00, ...
   2.976104523220e+00,  1.127426846252e+00, "n",  7.068998428583e-01,  1.127424966169e+00,  6.096192850193e+00,  4.712671474115e+00, -2.818173640385e+00);
assert(isequalRel(ep,     7.079141908546e-01, TOL));
assert(isequalRel(inclp,  1.127195842731e+00, TOL));
assert(isequalRel(nodep,  6.095527600366e+00, TOL));
assert(isequalRel(argpp,  4.713444017891e+00, TOL));
assert(isequalRel(mp,    -2.818814802061e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   1.249431839564e-04,  6.476652597055e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -3.006446485103e-03, ...
   2.366248156382e-03, -2.805617954096e-03, -3.755905951700e-03, -7.268074853619e-05,  2.948902195180e-03,  3.166374712604e-03,  6.569128551896e-04, -6.992498193738e-04, ...
   4.534351771255e-03,  6.836119210765e-03,  2.911149634817e-04,  1.200000000000e+03, -1.815715485263e-04,  8.134154625503e-04, -3.826216649032e-05,  4.816111792216e-05, ...
  -6.696421947166e-04, -1.383644676752e-04, -7.113039969238e-07,  4.111399428162e-04, -1.491371542789e-03,  1.532550149097e-04,  1.755605827278e+00, ...
   2.976104523220e+00,  1.127426846252e+00, "n",  7.068992587315e-01,  1.127424757271e+00,  6.096013510657e+00,  4.712658453374e+00, -1.766709694583e+00);
assert(isequalRel(ep,     7.079085572307e-01, TOL));
assert(isequalRel(inclp,  1.127196978850e+00, TOL));
assert(isequalRel(nodep,  6.095340874508e+00, TOL));
assert(isequalRel(argpp,  4.713443374254e+00, TOL));
assert(isequalRel(mp,    -1.767369058145e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   1.249431839564e-04,  6.476652597055e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -3.006446485103e-03, ...
   2.366248156382e-03, -2.805617954096e-03, -3.755905951700e-03, -7.268074853619e-05,  2.948902195180e-03,  3.166374712604e-03,  6.569128551896e-04, -6.992498193738e-04, ...
   4.534351771255e-03,  6.836119210765e-03,  2.911149634817e-04,  1.320000000000e+03, -1.815715485263e-04,  8.134154625503e-04, -3.826216649032e-05,  4.816111792216e-05, ...
  -6.696421947166e-04, -1.383644676752e-04, -7.113039969238e-07,  4.111399428162e-04, -1.491371542789e-03,  1.532550149097e-04,  1.755605827278e+00, ...
   2.976104523220e+00,  1.127426846252e+00, "n",  7.068986746046e-01,  1.127424548373e+00,  6.095834171122e+00,  4.712645432634e+00, -7.152451774024e-01);
assert(isequalRel(ep,     7.079027666826e-01, TOL));
assert(isequalRel(inclp,  1.127198141299e+00, TOL));
assert(isequalRel(nodep,  6.095154352361e+00, TOL));
assert(isequalRel(argpp,  4.713442453558e+00, TOL));
assert(isequalRel(mp,    -7.159224333938e-01, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   1.249431839564e-04,  6.476652597055e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -3.006446485103e-03, ...
   2.366248156382e-03, -2.805617954096e-03, -3.755905951700e-03, -7.268074853619e-05,  2.948902195180e-03,  3.166374712604e-03,  6.569128551896e-04, -6.992498193738e-04, ...
   4.534351771255e-03,  6.836119210765e-03,  2.911149634817e-04,  1.440000000000e+03, -1.815715485263e-04,  8.134154625503e-04, -3.826216649032e-05,  4.816111792216e-05, ...
  -6.696421947166e-04, -1.383644676752e-04, -7.113039969238e-07,  4.111399428162e-04, -1.491371542789e-03,  1.532550149097e-04,  1.755605827278e+00, ...
   2.976104523220e+00,  1.127426846252e+00, "n",  7.068980904777e-01,  1.127424339475e+00,  6.095654831587e+00,  4.712632411893e+00, -5.946965396024e+00);
assert(isequalRel(ep,     7.078968257125e-01, TOL));
assert(isequalRel(inclp,  1.127199328559e+00, TOL));
assert(isequalRel(nodep,  6.094968038297e+00, TOL));
assert(isequalRel(argpp,  4.713441247606e+00, TOL));
assert(isequalRel(mp,    -5.947660222164e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   1.249431839564e-04,  6.476652597055e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -3.006446485103e-03, ...
   2.366248156382e-03, -2.805617954096e-03, -3.755905951700e-03, -7.268074853619e-05,  2.948902195180e-03,  3.166374712604e-03,  6.569128551896e-04, -6.992498193738e-04, ...
   4.534351771255e-03,  6.836119210765e-03,  2.911149634817e-04,  1.560000000000e+03, -1.815715485263e-04,  8.134154625503e-04, -3.826216649032e-05,  4.816111792216e-05, ...
  -6.696421947166e-04, -1.383644676752e-04, -7.113039969238e-07,  4.111399428162e-04, -1.491371542789e-03,  1.532550149097e-04,  1.755605827278e+00, ...
   2.976104523220e+00,  1.127426846252e+00, "n",  7.068975063509e-01,  1.127424130577e+00,  6.095475492051e+00,  4.712619391152e+00, -4.895499760639e+00);
assert(isequalRel(ep,     7.078907409407e-01, TOL));
assert(isequalRel(inclp,  1.127200539092e+00, TOL));
assert(isequalRel(nodep,  6.094781936376e+00, TOL));
assert(isequalRel(argpp,  4.713439748665e+00, TOL));
assert(isequalRel(mp,    -4.896211822418e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   1.249431839564e-04,  6.476652597055e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -3.006446485103e-03, ...
   2.366248156382e-03, -2.805617954096e-03, -3.755905951700e-03, -7.268074853619e-05,  2.948902195180e-03,  3.166374712604e-03,  6.569128551896e-04, -6.992498193738e-04, ...
   4.534351771255e-03,  6.836119210765e-03,  2.911149634817e-04,  1.680000000000e+03, -1.815715485263e-04,  8.134154625503e-04, -3.826216649032e-05,  4.816111792216e-05, ...
  -6.696421947166e-04, -1.383644676752e-04, -7.113039969238e-07,  4.111399428162e-04, -1.491371542789e-03,  1.532550149097e-04,  1.755605827278e+00, ...
   2.976104523220e+00,  1.127426846252e+00, "n",  7.068969222240e-01,  1.127423921679e+00,  6.095296152516e+00,  4.712606370411e+00, -3.844033560876e+00);
assert(isequalRel(ep,     7.078845190955e-01, TOL));
assert(isequalRel(inclp,  1.127201771351e+00, TOL));
assert(isequalRel(nodep,  6.094596050345e+00, TOL));
assert(isequalRel(argpp,  4.713437949466e+00, TOL));
assert(isequalRel(mp,    -3.844762512154e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   1.249431839564e-04,  6.476652597055e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -3.006446485103e-03, ...
   2.366248156382e-03, -2.805617954096e-03, -3.755905951700e-03, -7.268074853619e-05,  2.948902195180e-03,  3.166374712604e-03,  6.569128551896e-04, -6.992498193738e-04, ...
   4.534351771255e-03,  6.836119210765e-03,  2.911149634817e-04,  1.800000000000e+03, -1.815715485263e-04,  8.134154625503e-04, -3.826216649032e-05,  4.816111792216e-05, ...
  -6.696421947166e-04, -1.383644676752e-04, -7.113039969238e-07,  4.111399428162e-04, -1.491371542789e-03,  1.532550149097e-04,  1.755605827278e+00, ...
   2.976104523220e+00,  1.127426846252e+00, "n",  7.068963380972e-01,  1.127423712781e+00,  6.095116812981e+00,  4.712593349670e+00, -2.792566796735e+00);
assert(isequalRel(ep,     7.078781670018e-01, TOL));
assert(isequalRel(inclp,  1.127203023777e+00, TOL));
assert(isequalRel(nodep,  6.094410383636e+00, TOL));
assert(isequalRel(argpp,  4.713435843211e+00, TOL));
assert(isequalRel(mp,    -2.793312280347e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   1.249431839564e-04,  6.476652597055e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -3.006446485103e-03, ...
   2.366248156382e-03, -2.805617954096e-03, -3.755905951700e-03, -7.268074853619e-05,  2.948902195180e-03,  3.166374712604e-03,  6.569128551896e-04, -6.992498193738e-04, ...
   4.534351771255e-03,  6.836119210765e-03,  2.911149634817e-04,  1.920000000000e+03, -1.815715485263e-04,  8.134154625503e-04, -3.826216649032e-05,  4.816111792216e-05, ...
  -6.696421947166e-04, -1.383644676752e-04, -7.113039969238e-07,  4.111399428162e-04, -1.491371542789e-03,  1.532550149097e-04,  1.755605827278e+00, ...
   2.976104523220e+00,  1.127426846252e+00, "n",  7.068957539703e-01,  1.127423503883e+00,  6.094937473445e+00,  4.712580328929e+00, -1.741099468215e+00);
assert(isequalRel(ep,     7.078716915709e-01, TOL));
assert(isequalRel(inclp,  1.127204294807e+00, TOL));
assert(isequalRel(nodep,  6.094224939373e+00, TOL));
assert(isequalRel(argpp,  4.713433423569e+00, TOL));
assert(isequalRel(mp,    -1.741861116577e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   1.249431839564e-04,  6.476652597055e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -3.006446485103e-03, ...
   2.366248156382e-03, -2.805617954096e-03, -3.755905951700e-03, -7.268074853619e-05,  2.948902195180e-03,  3.166374712604e-03,  6.569128551896e-04, -6.992498193738e-04, ...
   4.534351771255e-03,  6.836119210765e-03,  2.911149634817e-04,  2.040000000000e+03, -1.815715485263e-04,  8.134154625503e-04, -3.826216649032e-05,  4.816111792216e-05, ...
  -6.696421947166e-04, -1.383644676752e-04, -7.113039969238e-07,  4.111399428162e-04, -1.491371542789e-03,  1.532550149097e-04,  1.755605827278e+00, ...
   2.976104523220e+00,  1.127426846252e+00, "n",  7.068951698435e-01,  1.127423294985e+00,  6.094758133910e+00,  4.712567308188e+00, -6.896315753169e-01);
assert(isequalRel(ep,     7.078650997904e-01, TOL));
assert(isequalRel(inclp,  1.127205582870e+00, TOL));
assert(isequalRel(nodep,  6.094039720367e+00, TOL));
assert(isequalRel(argpp,  4.713430684677e+00, TOL));
assert(isequalRel(mp,    -6.904090110366e-01, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   1.249431839564e-04,  6.476652597055e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -3.006446485103e-03, ...
   2.366248156382e-03, -2.805617954096e-03, -3.755905951700e-03, -7.268074853619e-05,  2.948902195180e-03,  3.166374712604e-03,  6.569128551896e-04, -6.992498193738e-04, ...
   4.534351771255e-03,  6.836119210765e-03,  2.911149634817e-04,  2.160000000000e+03, -1.815715485263e-04,  8.134154625503e-04, -3.826216649032e-05,  4.816111792216e-05, ...
  -6.696421947166e-04, -1.383644676752e-04, -7.113039969238e-07,  4.111399428162e-04, -1.491371542789e-03,  1.532550149097e-04,  1.755605827278e+00, ...
   2.976104523220e+00,  1.127426846252e+00, "n",  7.068945857166e-01,  1.127423086087e+00,  6.094578794374e+00,  4.712554287447e+00, -5.921348425220e+00);
assert(isequalRel(ep,     7.078583987137e-01, TOL));
assert(isequalRel(inclp,  1.127206886392e+00, TOL));
assert(isequalRel(nodep,  6.093854729123e+00, TOL));
assert(isequalRel(argpp,  4.713427621139e+00, TOL));
assert(isequalRel(mp,    -5.922141261706e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   1.249431839564e-04,  6.476652597055e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -3.006446485103e-03, ...
   2.366248156382e-03, -2.805617954096e-03, -3.755905951700e-03, -7.268074853619e-05,  2.948902195180e-03,  3.166374712604e-03,  6.569128551896e-04, -6.992498193738e-04, ...
   4.534351771255e-03,  6.836119210765e-03,  2.911149634817e-04,  2.280000000000e+03, -1.815715485263e-04,  8.134154625503e-04, -3.826216649032e-05,  4.816111792216e-05, ...
  -6.696421947166e-04, -1.383644676752e-04, -7.113039969238e-07,  4.111399428162e-04, -1.491371542789e-03,  1.532550149097e-04,  1.755605827278e+00, ...
   2.976104523220e+00,  1.127426846252e+00, "n",  7.068940015898e-01,  1.127422877189e+00,  6.094399454838e+00,  4.712541266706e+00, -4.869879428286e+00);
assert(isequalRel(ep,     7.078515954502e-01, TOL));
assert(isequalRel(inclp,  1.127208203798e+00, TOL));
assert(isequalRel(nodep,  6.093669967838e+00, TOL));
assert(isequalRel(argpp,  4.713424228025e+00, TOL));
assert(isequalRel(mp,    -4.870687270360e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   1.249431839564e-04,  6.476652597055e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -3.006446485103e-03, ...
   2.366248156382e-03, -2.805617954096e-03, -3.755905951700e-03, -7.268074853619e-05,  2.948902195180e-03,  3.166374712604e-03,  6.569128551896e-04, -6.992498193738e-04, ...
   4.534351771255e-03,  6.836119210765e-03,  2.911149634817e-04,  2.400000000000e+03, -1.815715485263e-04,  8.134154625503e-04, -3.826216649032e-05,  4.816111792216e-05, ...
  -6.696421947166e-04, -1.383644676752e-04, -7.113039969238e-07,  4.111399428162e-04, -1.491371542789e-03,  1.532550149097e-04,  1.755605827278e+00, ...
   2.976104523220e+00,  1.127426846252e+00, "n",  7.068934174629e-01,  1.127422668291e+00,  6.094220115303e+00,  4.712528245966e+00, -3.818409874021e+00);
assert(isequalRel(ep,     7.078446971556e-01, TOL));
assert(isequalRel(inclp,  1.127209533515e+00, TOL));
assert(isequalRel(nodep,  6.093485438406e+00, TOL));
assert(isequalRel(argpp,  4.713420500871e+00, TOL));
assert(isequalRel(mp,    -3.819232318530e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   1.249431839564e-04,  6.476652597055e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -3.006446485103e-03, ...
   2.366248156382e-03, -2.805617954096e-03, -3.755905951700e-03, -7.268074853619e-05,  2.948902195180e-03,  3.166374712604e-03,  6.569128551896e-04, -6.992498193738e-04, ...
   4.534351771255e-03,  6.836119210765e-03,  2.911149634817e-04,  2.520000000000e+03, -1.815715485263e-04,  8.134154625503e-04, -3.826216649032e-05,  4.816111792216e-05, ...
  -6.696421947166e-04, -1.383644676752e-04, -7.113039969238e-07,  4.111399428162e-04, -1.491371542789e-03,  1.532550149097e-04,  1.755605827278e+00, ...
   2.976104523220e+00,  1.127426846252e+00, "n",  7.068928333360e-01,  1.127422459392e+00,  6.094040775767e+00,  4.712515225225e+00, -2.766939762425e+00);
assert(isequalRel(ep,     7.078377110222e-01, TOL));
assert(isequalRel(inclp,  1.127210873970e+00, TOL));
assert(isequalRel(nodep,  6.093301142421e+00, TOL));
assert(isequalRel(argpp,  4.713416435670e+00, TOL));
assert(isequalRel(mp,    -2.767776398848e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   1.249431839564e-04,  6.476652597055e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -3.006446485103e-03, ...
   2.366248156382e-03, -2.805617954096e-03, -3.755905951700e-03, -7.268074853619e-05,  2.948902195180e-03,  3.166374712604e-03,  6.569128551896e-04, -6.992498193738e-04, ...
   4.534351771255e-03,  6.836119210765e-03,  2.911149634817e-04,  2.640000000000e+03, -1.815715485263e-04,  8.134154625503e-04, -3.826216649032e-05,  4.816111792216e-05, ...
  -6.696421947166e-04, -1.383644676752e-04, -7.113039969238e-07,  4.111399428162e-04, -1.491371542789e-03,  1.532550149097e-04,  1.755605827278e+00, ...
   2.976104523220e+00,  1.127426846252e+00, "n",  7.068922492092e-01,  1.127422250494e+00,  6.093861436231e+00,  4.712502204484e+00, -1.715469093498e+00);
assert(isequalRel(ep,     7.078306442695e-01, TOL));
assert(isequalRel(inclp,  1.127212223598e+00, TOL));
assert(isequalRel(nodep,  6.093117081178e+00, TOL));
assert(isequalRel(argpp,  4.713412028878e+00, TOL));
assert(isequalRel(mp,    -1.716319504557e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   1.249431839564e-04,  6.476652597055e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -3.006446485103e-03, ...
   2.366248156382e-03, -2.805617954096e-03, -3.755905951700e-03, -7.268074853619e-05,  2.948902195180e-03,  3.166374712604e-03,  6.569128551896e-04, -6.992498193738e-04, ...
   4.534351771255e-03,  6.836119210765e-03,  2.911149634817e-04,  2.760000000000e+03, -1.815715485263e-04,  8.134154625503e-04, -3.826216649032e-05,  4.816111792216e-05, ...
  -6.696421947166e-04, -1.383644676752e-04, -7.113039969238e-07,  4.111399428162e-04, -1.491371542789e-03,  1.532550149097e-04,  1.755605827278e+00, ...
   2.976104523220e+00,  1.127426846252e+00, "n",  7.068916650823e-01,  1.127422041596e+00,  6.093682096696e+00,  4.712489183743e+00, -6.639978672399e-01);
assert(isequalRel(ep,     7.078235041355e-01, TOL));
assert(isequalRel(inclp,  1.127213580837e+00, TOL));
assert(isequalRel(nodep,  6.092933255679e+00, TOL));
assert(isequalRel(argpp,  4.713407277402e+00, TOL));
assert(isequalRel(mp,    -6.648616295028e-01, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   1.249431839564e-04,  6.476652597055e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -3.006446485103e-03, ...
   2.366248156382e-03, -2.805617954096e-03, -3.755905951700e-03, -7.268074853619e-05,  2.948902195180e-03,  3.166374712604e-03,  6.569128551896e-04, -6.992498193738e-04, ...
   4.534351771255e-03,  6.836119210765e-03,  2.911149634817e-04,  2.880000000000e+03, -1.815715485263e-04,  8.134154625503e-04, -3.826216649032e-05,  4.816111792216e-05, ...
  -6.696421947166e-04, -1.383644676752e-04, -7.113039969238e-07,  4.111399428162e-04, -1.491371542789e-03,  1.532550149097e-04,  1.755605827278e+00, ...
   2.976104523220e+00,  1.127426846252e+00, "n",  7.068910809555e-01,  1.127421832698e+00,  6.093502757160e+00,  4.712476163002e+00, -5.895711390831e+00);
assert(isequalRel(ep,     7.078162978673e-01, TOL));
assert(isequalRel(inclp,  1.127214944135e+00, TOL));
assert(isequalRel(nodep,  6.092749666634e+00, TOL));
assert(isequalRel(argpp,  4.713402178601e+00, TOL));
assert(isequalRel(mp,    -5.896588075313e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   4.759541749927e-05, -5.215931631248e-05,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -4.545493382307e-04, ...
  -1.408307282420e-05,  3.341762775910e-04, -1.631250708160e-02, -1.775546834310e-04, -7.925299564105e-04, -7.614980505856e-04, -7.593552438778e-04,  7.406357152159e-04, ...
  -6.650365679906e-05,  1.569236751846e-02,  4.145768614330e-04,  0.000000000000e+00, -1.706031133674e-03, -1.810449604366e-03, -9.347216416174e-05, -2.227234299372e-04, ...
   5.491720843604e-06, -6.826729645968e-06,  2.099107684283e-04,  1.640123445179e-03,  1.647042035558e-03,  2.182504888112e-04,  1.585773955921e-01, ...
   2.502914127169e+00,  1.657329751109e-01, "y",  2.709710000000e-02,  1.657329751109e-01,  5.465934884933e+00,  5.716345999363e+00,  5.377307065517e-01);
assert(isequalRel(ep,     2.709710000000e-02, TOL));
assert(isequalRel(inclp,  1.657329751109e-01, TOL));
assert(isequalRel(nodep,  5.465934884933e+00, TOL));
assert(isequalRel(argpp,  5.716345999363e+00, TOL));
assert(isequalRel(mp,     5.377307065517e-01, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   4.759541749927e-05, -5.215931631248e-05,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -4.545493382307e-04, ...
  -1.408307282420e-05,  3.341762775910e-04, -1.631250708160e-02, -1.775546834310e-04, -7.925299564105e-04, -7.614980505856e-04, -7.593552438778e-04,  7.406357152159e-04, ...
  -6.650365679906e-05,  1.569236751846e-02,  4.145768614330e-04,  0.000000000000e+00, -1.706031133674e-03, -1.810449604366e-03, -9.347216416174e-05, -2.227234299372e-04, ...
   5.491720843604e-06, -6.826729645968e-06,  2.099107684283e-04,  1.640123445179e-03,  1.647042035558e-03,  2.182504888112e-04,  1.585773955921e-01, ...
   2.502914127169e+00,  1.657329751109e-01, "y",  2.709710000000e-02,  1.657329751109e-01,  5.465934884933e+00,  5.716345999363e+00, -5.745454600628e+00);
assert(isequalRel(ep,     2.709710000000e-02, TOL));
assert(isequalRel(inclp,  1.657329751109e-01, TOL));
assert(isequalRel(nodep,  5.465934884933e+00, TOL));
assert(isequalRel(argpp,  5.716345999363e+00, TOL));
assert(isequalRel(mp,    -5.745454600628e+00, TOL));
# 9998

[ep, inclp, nodep, argpp,  mp] = dpper(...
   4.759541749927e-05, -5.215931631248e-05,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -4.545493382307e-04, ...
  -1.408307282420e-05,  3.341762775910e-04, -1.631250708160e-02, -1.775546834310e-04, -7.925299564105e-04, -7.614980505856e-04, -7.593552438778e-04,  7.406357152159e-04, ...
  -6.650365679906e-05,  1.569236751846e-02,  4.145768614330e-04,  0.000000000000e+00, -1.706031133674e-03, -1.810449604366e-03, -9.347216416174e-05, -2.227234299372e-04, ...
   5.491720843604e-06, -6.826729645968e-06,  2.099107684283e-04,  1.640123445179e-03,  1.647042035558e-03,  2.182504888112e-04,  1.585773955921e-01, ...
   2.502914127169e+00,  1.657329751109e-01, "n",  2.709710000000e-02,  1.657329751109e-01,  5.465934884933e+00,  5.716345999363e+00, -5.745454600628e+00);
assert(isequalRel(ep,     2.713910013472e-02, TOL));
assert(isequalRel(inclp,  1.659535795001e-01, TOL));
assert(isequalRel(nodep,  5.465552447028e+00, TOL));
assert(isequalRel(argpp,  5.713080084025e+00, TOL));
assert(isequalRel(mp,    -5.741990237556e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   4.759541749927e-05, -5.215931631248e-05,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -4.545493382307e-04, ...
  -1.408307282420e-05,  3.341762775910e-04, -1.631250708160e-02, -1.775546834310e-04, -7.925299564105e-04, -7.614980505856e-04, -7.593552438778e-04,  7.406357152159e-04, ...
  -6.650365679906e-05,  1.569236751846e-02,  4.145768614330e-04, -1.440000000000e+03, -1.706031133674e-03, -1.810449604366e-03, -9.347216416174e-05, -2.227234299372e-04, ...
   5.491720843604e-06, -6.826729645968e-06,  2.099107684283e-04,  1.640123445179e-03,  1.647042035558e-03,  2.182504888112e-04,  1.585773955921e-01, ...
   2.502914127169e+00,  1.657329751109e-01, "n",  2.709679149229e-02,  1.657632275143e-01,  5.466185552790e+00,  5.715737110637e+00, -4.791965759030e-01);
assert(isequalRel(ep,     2.714171069947e-02, TOL));
assert(isequalRel(inclp,  1.660059478515e-01, TOL));
assert(isequalRel(nodep,  5.465773949569e+00, TOL));
assert(isequalRel(argpp,  5.712256799702e+00, TOL));
assert(isequalRel(mp,    -4.755563586402e-01, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   4.759541749927e-05, -5.215931631248e-05,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -4.545493382307e-04, ...
  -1.408307282420e-05,  3.341762775910e-04, -1.631250708160e-02, -1.775546834310e-04, -7.925299564105e-04, -7.614980505856e-04, -7.593552438778e-04,  7.406357152159e-04, ...
  -6.650365679906e-05,  1.569236751846e-02,  4.145768614330e-04, -1.380000000000e+03, -1.706031133674e-03, -1.810449604366e-03, -9.347216416174e-05, -2.227234299372e-04, ...
   5.491720843604e-06, -6.826729645968e-06,  2.099107684283e-04,  1.640123445179e-03,  1.647042035558e-03,  2.182504888112e-04,  1.585773955921e-01, ...
   2.502914127169e+00,  1.657329751109e-01, "n",  2.709680434678e-02,  1.657619669975e-01,  5.466175108296e+00,  5.715762481001e+00, -1.750240083779e-01);
assert(isequalRel(ep,     2.714166752309e-02, TOL));
assert(isequalRel(inclp,  1.660037739628e-01, TOL));
assert(isequalRel(nodep,  5.465766410782e+00, TOL));
assert(isequalRel(argpp,  5.712291554684e+00, TOL));
assert(isequalRel(mp,    -1.713931571463e-01, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   4.759541749927e-05, -5.215931631248e-05,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -4.545493382307e-04, ...
  -1.408307282420e-05,  3.341762775910e-04, -1.631250708160e-02, -1.775546834310e-04, -7.925299564105e-04, -7.614980505856e-04, -7.593552438778e-04,  7.406357152159e-04, ...
  -6.650365679906e-05,  1.569236751846e-02,  4.145768614330e-04, -1.320000000000e+03, -1.706031133674e-03, -1.810449604366e-03, -9.347216416174e-05, -2.227234299372e-04, ...
   5.491720843604e-06, -6.826729645968e-06,  2.099107684283e-04,  1.640123445179e-03,  1.647042035558e-03,  2.182504888112e-04,  1.585773955921e-01, ...
   2.502914127169e+00,  1.657329751109e-01, "n",  2.709681720127e-02,  1.657607064807e-01,  5.466164663802e+00,  5.715787851364e+00, -6.154036841312e+00);
assert(isequalRel(ep,     2.714161782589e-02, TOL));
assert(isequalRel(inclp,  1.660015957091e-01, TOL));
assert(isequalRel(nodep,  5.465758724787e+00, TOL));
assert(isequalRel(argpp,  5.712326305047e+00, TOL));
assert(isequalRel(mp,    -6.150415205929e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   4.759541749927e-05, -5.215931631248e-05,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -4.545493382307e-04, ...
  -1.408307282420e-05,  3.341762775910e-04, -1.631250708160e-02, -1.775546834310e-04, -7.925299564105e-04, -7.614980505856e-04, -7.593552438778e-04,  7.406357152159e-04, ...
  -6.650365679906e-05,  1.569236751846e-02,  4.145768614330e-04, -1.260000000000e+03, -1.706031133674e-03, -1.810449604366e-03, -9.347216416174e-05, -2.227234299372e-04, ...
   5.491720843604e-06, -6.826729645968e-06,  2.099107684283e-04,  1.640123445179e-03,  1.647042035558e-03,  2.182504888112e-04,  1.585773955921e-01, ...
   2.502914127169e+00,  1.657329751109e-01, "n",  2.709683005576e-02,  1.657594459638e-01,  5.466154219308e+00,  5.715813221728e+00, -5.849864460347e+00);
assert(isequalRel(ep,     2.714156170425e-02, TOL));
assert(isequalRel(inclp,  1.659994135855e-01, TOL));
assert(isequalRel(nodep,  5.465750891235e+00, TOL));
assert(isequalRel(argpp,  5.712361045979e+00, TOL));
assert(isequalRel(mp,    -5.846251886488e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   4.759541749927e-05, -5.215931631248e-05,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -4.545493382307e-04, ...
  -1.408307282420e-05,  3.341762775910e-04, -1.631250708160e-02, -1.775546834310e-04, -7.925299564105e-04, -7.614980505856e-04, -7.593552438778e-04,  7.406357152159e-04, ...
  -6.650365679906e-05,  1.569236751846e-02,  4.145768614330e-04, -1.200000000000e+03, -1.706031133674e-03, -1.810449604366e-03, -9.347216416174e-05, -2.227234299372e-04, ...
   5.491720843604e-06, -6.826729645968e-06,  2.099107684283e-04,  1.640123445179e-03,  1.647042035558e-03,  2.182504888112e-04,  1.585773955921e-01, ...
   2.502914127169e+00,  1.657329751109e-01, "n",  2.709684291024e-02,  1.657581854470e-01,  5.466143774814e+00,  5.715838592091e+00, -5.545692172661e+00);
assert(isequalRel(ep,     2.714149925765e-02, TOL));
assert(isequalRel(inclp,  1.659972280888e-01, TOL));
assert(isequalRel(nodep,  5.465742909851e+00, TOL));
assert(isequalRel(argpp,  5.712395772678e+00, TOL));
assert(isequalRel(mp,    -5.542088501941e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   4.759541749927e-05, -5.215931631248e-05,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -4.545493382307e-04, ...
  -1.408307282420e-05,  3.341762775910e-04, -1.631250708160e-02, -1.775546834310e-04, -7.925299564105e-04, -7.614980505856e-04, -7.593552438778e-04,  7.406357152159e-04, ...
  -6.650365679906e-05,  1.569236751846e-02,  4.145768614330e-04, -1.140000000000e+03, -1.706031133674e-03, -1.810449604366e-03, -9.347216416174e-05, -2.227234299372e-04, ...
   5.491720843604e-06, -6.826729645968e-06,  2.099107684283e-04,  1.640123445179e-03,  1.647042035558e-03,  2.182504888112e-04,  1.585773955921e-01, ...
   2.502914127169e+00,  1.657329751109e-01, "n",  2.709685576473e-02,  1.657569249302e-01,  5.466133330320e+00,  5.715863962455e+00, -5.241519978256e+00);
assert(isequalRel(ep,     2.714143058861e-02, TOL));
assert(isequalRel(inclp,  1.659950397176e-01, TOL));
assert(isequalRel(nodep,  5.465734780432e+00, TOL));
assert(isequalRel(argpp,  5.712430480348e+00, TOL));
assert(isequalRel(mp,    -5.237925048303e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   4.759541749927e-05, -5.215931631248e-05,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -4.545493382307e-04, ...
  -1.408307282420e-05,  3.341762775910e-04, -1.631250708160e-02, -1.775546834310e-04, -7.925299564105e-04, -7.614980505856e-04, -7.593552438778e-04,  7.406357152159e-04, ...
  -6.650365679906e-05,  1.569236751846e-02,  4.145768614330e-04, -1.080000000000e+03, -1.706031133674e-03, -1.810449604366e-03, -9.347216416174e-05, -2.227234299372e-04, ...
   5.491720843604e-06, -6.826729645968e-06,  2.099107684283e-04,  1.640123445179e-03,  1.647042035558e-03,  2.182504888112e-04,  1.585773955921e-01, ...
   2.502914127169e+00,  1.657329751109e-01, "n",  2.709686861922e-02,  1.657556644134e-01,  5.466122885826e+00,  5.715889332819e+00, -4.937347877130e+00);
assert(isequalRel(ep,     2.714135580260e-02, TOL));
assert(isequalRel(inclp,  1.659928489714e-01, TOL));
assert(isequalRel(nodep,  5.465726502845e+00, TOL));
assert(isequalRel(argpp,  5.712465164206e+00, TOL));
assert(isequalRel(mp,    -4.933761521669e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   4.759541749927e-05, -5.215931631248e-05,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -4.545493382307e-04, ...
  -1.408307282420e-05,  3.341762775910e-04, -1.631250708160e-02, -1.775546834310e-04, -7.925299564105e-04, -7.614980505856e-04, -7.593552438778e-04,  7.406357152159e-04, ...
  -6.650365679906e-05,  1.569236751846e-02,  4.145768614330e-04, -1.020000000000e+03, -1.706031133674e-03, -1.810449604366e-03, -9.347216416174e-05, -2.227234299372e-04, ...
   5.491720843604e-06, -6.826729645968e-06,  2.099107684283e-04,  1.640123445179e-03,  1.647042035558e-03,  2.182504888112e-04,  1.585773955921e-01, ...
   2.502914127169e+00,  1.657329751109e-01, "n",  2.709688147371e-02,  1.657544038966e-01,  5.466112441332e+00,  5.715914703182e+00, -4.633175869284e+00);
assert(isequalRel(ep,     2.714127500802e-02, TOL));
assert(isequalRel(inclp,  1.659906563510e-01, TOL));
assert(isequalRel(nodep,  5.465718077029e+00, TOL));
assert(isequalRel(argpp,  5.712499819481e+00, TOL));
assert(isequalRel(mp,    -4.629597918218e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   4.759541749927e-05, -5.215931631248e-05,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -4.545493382307e-04, ...
  -1.408307282420e-05,  3.341762775910e-04, -1.631250708160e-02, -1.775546834310e-04, -7.925299564105e-04, -7.614980505856e-04, -7.593552438778e-04,  7.406357152159e-04, ...
  -6.650365679906e-05,  1.569236751846e-02,  4.145768614330e-04, -9.600000000000e+02, -1.706031133674e-03, -1.810449604366e-03, -9.347216416174e-05, -2.227234299372e-04, ...
   5.491720843604e-06, -6.826729645968e-06,  2.099107684283e-04,  1.640123445179e-03,  1.647042035558e-03,  2.182504888112e-04,  1.585773955921e-01, ...
   2.502914127169e+00,  1.657329751109e-01, "n",  2.709689432820e-02,  1.657531433798e-01,  5.466101996838e+00,  5.715940073546e+00, -4.329003954718e+00);
assert(isequalRel(ep,     2.714118831614e-02, TOL));
assert(isequalRel(inclp,  1.659884623575e-01, TOL));
assert(isequalRel(nodep,  5.465709502995e+00, TOL));
assert(isequalRel(argpp,  5.712534441423e+00, TOL));
assert(isequalRel(mp,    -4.325434234213e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   4.759541749927e-05, -5.215931631248e-05,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -4.545493382307e-04, ...
  -1.408307282420e-05,  3.341762775910e-04, -1.631250708160e-02, -1.775546834310e-04, -7.925299564105e-04, -7.614980505856e-04, -7.593552438778e-04,  7.406357152159e-04, ...
  -6.650365679906e-05,  1.569236751846e-02,  4.145768614330e-04, -9.000000000000e+02, -1.706031133674e-03, -1.810449604366e-03, -9.347216416174e-05, -2.227234299372e-04, ...
   5.491720843604e-06, -6.826729645968e-06,  2.099107684283e-04,  1.640123445179e-03,  1.647042035558e-03,  2.182504888112e-04,  1.585773955921e-01, ...
   2.502914127169e+00,  1.657329751109e-01, "n",  2.709690718268e-02,  1.657518828630e-01,  5.466091552344e+00,  5.715965443909e+00, -4.024832133432e+00);
assert(isequalRel(ep,     2.714109584103e-02, TOL));
assert(isequalRel(inclp,  1.659862674929e-01, TOL));
assert(isequalRel(nodep,  5.465700780828e+00, TOL));
assert(isequalRel(argpp,  5.712569025297e+00, TOL));
assert(isequalRel(mp,    -4.021270466004e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   4.759541749927e-05, -5.215931631248e-05,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -4.545493382307e-04, ...
  -1.408307282420e-05,  3.341762775910e-04, -1.631250708160e-02, -1.775546834310e-04, -7.925299564105e-04, -7.614980505856e-04, -7.593552438778e-04,  7.406357152159e-04, ...
  -6.650365679906e-05,  1.569236751846e-02,  4.145768614330e-04, -8.400000000000e+02, -1.706031133674e-03, -1.810449604366e-03, -9.347216416174e-05, -2.227234299372e-04, ...
   5.491720843604e-06, -6.826729645968e-06,  2.099107684283e-04,  1.640123445179e-03,  1.647042035558e-03,  2.182504888112e-04,  1.585773955921e-01, ...
   2.502914127169e+00,  1.657329751109e-01, "n",  2.709692003717e-02,  1.657506223462e-01,  5.466081107850e+00,  5.715990814273e+00, -3.720660405426e+00);
assert(isequalRel(ep,     2.714099769950e-02, TOL));
assert(isequalRel(inclp,  1.659840722590e-01, TOL));
assert(isequalRel(nodep,  5.465691910680e+00, TOL));
assert(isequalRel(argpp,  5.712603566391e+00, TOL));
assert(isequalRel(mp,    -3.717106610032e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   4.759541749927e-05, -5.215931631248e-05,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -4.545493382307e-04, ...
  -1.408307282420e-05,  3.341762775910e-04, -1.631250708160e-02, -1.775546834310e-04, -7.925299564105e-04, -7.614980505856e-04, -7.593552438778e-04,  7.406357152159e-04, ...
  -6.650365679906e-05,  1.569236751846e-02,  4.145768614330e-04, -7.800000000000e+02, -1.706031133674e-03, -1.810449604366e-03, -9.347216416174e-05, -2.227234299372e-04, ...
   5.491720843604e-06, -6.826729645968e-06,  2.099107684283e-04,  1.640123445179e-03,  1.647042035558e-03,  2.182504888112e-04,  1.585773955921e-01, ...
   2.502914127169e+00,  1.657329751109e-01, "n",  2.709693289166e-02,  1.657493618294e-01,  5.466070663356e+00,  5.716016184637e+00, -3.416488770700e+00);
assert(isequalRel(ep,     2.714089401105e-02, TOL));
assert(isequalRel(inclp,  1.659818771578e-01, TOL));
assert(isequalRel(nodep,  5.465682892780e+00, TOL));
assert(isequalRel(argpp,  5.712638060018e+00, TOL));
assert(isequalRel(mp,    -3.412942662825e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   4.759541749927e-05, -5.215931631248e-05,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -4.545493382307e-04, ...
  -1.408307282420e-05,  3.341762775910e-04, -1.631250708160e-02, -1.775546834310e-04, -7.925299564105e-04, -7.614980505856e-04, -7.593552438778e-04,  7.406357152159e-04, ...
  -6.650365679906e-05,  1.569236751846e-02,  4.145768614330e-04, -7.200000000000e+02, -1.706031133674e-03, -1.810449604366e-03, -9.347216416174e-05, -2.227234299372e-04, ...
   5.491720843604e-06, -6.826729645968e-06,  2.099107684283e-04,  1.640123445179e-03,  1.647042035558e-03,  2.182504888112e-04,  1.585773955921e-01, ...
   2.502914127169e+00,  1.657329751109e-01, "n",  2.709694574615e-02,  1.657481013126e-01,  5.466060218862e+00,  5.716041555000e+00, -3.112317229253e+00);
assert(isequalRel(ep,     2.714078489778e-02, TOL));
assert(isequalRel(inclp,  1.659796826908e-01, TOL));
assert(isequalRel(nodep,  5.465673727426e+00, TOL));
assert(isequalRel(argpp,  5.712672501517e+00, TOL));
assert(isequalRel(mp,    -3.108778621008e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -7.499513315530e-05,  3.984687909508e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.359225311260e-03, ...
  -7.047176327541e-05, -1.822566953373e-04, -2.213029457235e-03, -6.154293814758e-05, -1.139407335123e-03,  2.509518062136e-03, -5.208303751558e-05,  3.287353432187e-03, ...
   2.781684009380e-03,  3.338363278200e-03,  2.590677065105e-04,  0.000000000000e+00,  1.510256022480e-04,  3.555337411429e-04, -3.239876023751e-05,  1.128589566218e-04, ...
  -4.733943399734e-04, -6.414087511194e-05, -5.695169719647e-04, -7.034864700241e-04, -5.240671428885e-04,  1.363840070226e-04,  3.567468389971e+00, ...
   3.896090412269e+00,  8.166674822762e-01, "y",  7.318036000000e-01,  8.166674822762e-01,  4.021856443150e+00,  8.285461931653e-01,  1.817184457299e-01);
assert(isequalRel(ep,     7.318036000000e-01, TOL));
assert(isequalRel(inclp,  8.166674822762e-01, TOL));
assert(isequalRel(nodep,  4.021856443150e+00, TOL));
assert(isequalRel(argpp,  8.285461931653e-01, TOL));
assert(isequalRel(mp,     1.817184457299e-01, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -7.499513315530e-05,  3.984687909508e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.359225311260e-03, ...
  -7.047176327541e-05, -1.822566953373e-04, -2.213029457235e-03, -6.154293814758e-05, -1.139407335123e-03,  2.509518062136e-03, -5.208303751558e-05,  3.287353432187e-03, ...
   2.781684009380e-03,  3.338363278200e-03,  2.590677065105e-04,  0.000000000000e+00,  1.510256022480e-04,  3.555337411429e-04, -3.239876023751e-05,  1.128589566218e-04, ...
  -4.733943399734e-04, -6.414087511194e-05, -5.695169719647e-04, -7.034864700241e-04, -5.240671428885e-04,  1.363840070226e-04,  3.567468389971e+00, ...
   3.896090412269e+00,  8.166674822762e-01, "y",  7.318036000000e-01,  8.166674822762e-01,  4.021856443150e+00,  8.285461931653e-01,  1.817184457299e-01);
assert(isequalRel(ep,     7.318036000000e-01, TOL));
assert(isequalRel(inclp,  8.166674822762e-01, TOL));
assert(isequalRel(nodep,  4.021856443150e+00, TOL));
assert(isequalRel(argpp,  8.285461931653e-01, TOL));
assert(isequalRel(mp,     1.817184457299e-01, TOL));
# 11801

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -7.499513315530e-05,  3.984687909508e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.359225311260e-03, ...
  -7.047176327541e-05, -1.822566953373e-04, -2.213029457235e-03, -6.154293814758e-05, -1.139407335123e-03,  2.509518062136e-03, -5.208303751558e-05,  3.287353432187e-03, ...
   2.781684009380e-03,  3.338363278200e-03,  2.590677065105e-04,  0.000000000000e+00,  1.510256022480e-04,  3.555337411429e-04, -3.239876023751e-05,  1.128589566218e-04, ...
  -4.733943399734e-04, -6.414087511194e-05, -5.695169719647e-04, -7.034864700241e-04, -5.240671428885e-04,  1.363840070226e-04,  3.567468389971e+00, ...
   3.896090412269e+00,  8.166674822762e-01, "n",  7.318036000000e-01,  8.166674822762e-01,  4.021856443150e+00,  8.285461931653e-01,  1.817184457299e-01);
assert(isequalRel(ep,     7.318253048776e-01, TOL));
assert(isequalRel(inclp,  8.159616103012e-01, TOL));
assert(isequalRel(nodep,  4.021126144779e+00, TOL));
assert(isequalRel(argpp,  8.295660248298e-01, TOL));
assert(isequalRel(mp,     1.808079384644e-01, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -7.499513315530e-05,  3.984687909508e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.359225311260e-03, ...
  -7.047176327541e-05, -1.822566953373e-04, -2.213029457235e-03, -6.154293814758e-05, -1.139407335123e-03,  2.509518062136e-03, -5.208303751558e-05,  3.287353432187e-03, ...
   2.781684009380e-03,  3.338363278200e-03,  2.590677065105e-04,  3.600000000000e+02,  1.510256022480e-04,  3.555337411429e-04, -3.239876023751e-05,  1.128589566218e-04, ...
  -4.733943399734e-04, -6.414087511194e-05, -5.695169719647e-04, -7.034864700241e-04, -5.240671428885e-04,  1.363840070226e-04,  3.567468389971e+00, ...
   3.896090412269e+00,  8.166674822762e-01, "n",  7.312407758552e-01,  8.166549660215e-01,  4.020562653050e+00,  8.297954373606e-01, -2.506814384232e+00);
assert(isequalRel(ep,     7.312663261695e-01, TOL));
assert(isequalRel(inclp,  8.159571357247e-01, TOL));
assert(isequalRel(nodep,  4.019842708065e+00, TOL));
assert(isequalRel(argpp,  8.308065340136e-01, TOL));
assert(isequalRel(mp,    -2.507730913837e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -7.499513315530e-05,  3.984687909508e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.359225311260e-03, ...
  -7.047176327541e-05, -1.822566953373e-04, -2.213029457235e-03, -6.154293814758e-05, -1.139407335123e-03,  2.509518062136e-03, -5.208303751558e-05,  3.287353432187e-03, ...
   2.781684009380e-03,  3.338363278200e-03,  2.590677065105e-04,  7.200000000000e+02,  1.510256022480e-04,  3.555337411429e-04, -3.239876023751e-05,  1.128589566218e-04, ...
  -4.733943399734e-04, -6.414087511194e-05, -5.695169719647e-04, -7.034864700241e-04, -5.240671428885e-04,  1.363840070226e-04,  3.567468389971e+00, ...
   3.896090412269e+00,  8.166674822762e-01, "n",  7.306779517104e-01,  8.166424497668e-01,  4.019265214339e+00,  8.310446815560e-01,  1.097356827261e+00);
assert(isequalRel(ep,     7.307079046516e-01, TOL));
assert(isequalRel(inclp,  8.159514888323e-01, TOL));
assert(isequalRel(nodep,  4.018554682370e+00, TOL));
assert(isequalRel(argpp,  8.320485826435e-01, TOL));
assert(isequalRel(mp,     1.096432193051e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -7.499513315530e-05,  3.984687909508e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.359225311260e-03, ...
  -7.047176327541e-05, -1.822566953373e-04, -2.213029457235e-03, -6.154293814758e-05, -1.139407335123e-03,  2.509518062136e-03, -5.208303751558e-05,  3.287353432187e-03, ...
   2.781684009380e-03,  3.338363278200e-03,  2.590677065105e-04,  1.080000000000e+03,  1.510256022480e-04,  3.555337411429e-04, -3.239876023751e-05,  1.128589566218e-04, ...
  -4.733943399734e-04, -6.414087511194e-05, -5.695169719647e-04, -7.034864700241e-04, -5.240671428885e-04,  1.363840070226e-04,  3.567468389971e+00, ...
   3.896090412269e+00,  8.166674822762e-01, "n",  7.301151275656e-01,  8.166299335120e-01,  4.017964127019e+00,  8.322939257514e-01, -1.572138534149e+00);
assert(isequalRel(ep,     7.301499498285e-01, TOL));
assert(isequalRel(inclp,  8.159445780389e-01, TOL));
assert(isequalRel(nodep,  4.017261919184e+00, TOL));
assert(isequalRel(argpp,  8.332923043735e-01, TOL));
assert(isequalRel(mp,    -1.573073298932e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -7.499513315530e-05,  3.984687909508e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.359225311260e-03, ...
  -7.047176327541e-05, -1.822566953373e-04, -2.213029457235e-03, -6.154293814758e-05, -1.139407335123e-03,  2.509518062136e-03, -5.208303751558e-05,  3.287353432187e-03, ...
   2.781684009380e-03,  3.338363278200e-03,  2.590677065105e-04,  1.440000000000e+03,  1.510256022480e-04,  3.555337411429e-04, -3.239876023751e-05,  1.128589566218e-04, ...
  -4.733943399734e-04, -6.414087511194e-05, -5.695169719647e-04, -7.034864700241e-04, -5.240671428885e-04,  1.363840070226e-04,  3.567468389971e+00, ...
   3.896090412269e+00,  8.166674822762e-01, "n",  7.295523034208e-01,  8.166174172573e-01,  4.016659391088e+00,  8.335431699467e-01, -4.232115161283e+00);
assert(isequalRel(ep,     7.295923648632e-01, TOL));
assert(isequalRel(inclp,  8.159363225847e-01, TOL));
assert(isequalRel(nodep,  4.015964277992e+00, TOL));
assert(isequalRel(argpp,  8.345378184523e-01, TOL));
assert(isequalRel(mp,    -4.233062003832e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -2.023952527045e-06,  3.000360099525e-06,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -3.298847558934e-06, ...
   2.290506347297e-05, -1.939779689075e-02, -2.730323108731e-03, -2.087272183414e-04, -2.473782067380e-04, -1.070558033105e-03, -1.043419845310e-03,  2.771277863689e-04, ...
   1.883089760893e-02,  2.558661635920e-03,  4.870307806874e-04,  0.000000000000e+00,  1.723156593166e-03,  2.484248746878e-03, -1.098826820044e-04, -1.510439919480e-04, ...
   1.680607206591e-04,  1.739604100604e-04,  1.380206186465e-04, -1.687937988178e-03, -2.328138479321e-03,  2.563932429410e-04,  1.634038675524e+00, ...
   2.966933705124e+00,  1.996377411601e-01, "y",  1.156200000000e-03,  1.996377411601e-01,  6.145897708218e-01,  4.617827041512e-01,  5.821811010073e+00);
assert(isequalRel(ep,     1.156200000000e-03, TOL));
assert(isequalRel(inclp,  1.996377411601e-01, TOL));
assert(isequalRel(nodep,  6.145897708218e-01, TOL));
assert(isequalRel(argpp,  4.617827041512e-01, TOL));
assert(isequalRel(mp,     5.821811010073e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -2.023952527045e-06,  3.000360099525e-06,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -3.298847558934e-06, ...
   2.290506347297e-05, -1.939779689075e-02, -2.730323108731e-03, -2.087272183414e-04, -2.473782067380e-04, -1.070558033105e-03, -1.043419845310e-03,  2.771277863689e-04, ...
   1.883089760893e-02,  2.558661635920e-03,  4.870307806874e-04,  0.000000000000e+00,  1.723156593166e-03,  2.484248746878e-03, -1.098826820044e-04, -1.510439919480e-04, ...
   1.680607206591e-04,  1.739604100604e-04,  1.380206186465e-04, -1.687937988178e-03, -2.328138479321e-03,  2.563932429410e-04,  1.634038675524e+00, ...
   2.966933705124e+00,  1.996377411601e-01, "y",  1.156200000000e-03,  1.996377411601e-01,  6.145897708218e-01,  4.617827041512e-01, -4.613742971062e-01);
assert(isequalRel(ep,     1.156200000000e-03, TOL));
assert(isequalRel(inclp,  1.996377411601e-01, TOL));
assert(isequalRel(nodep,  6.145897708218e-01, TOL));
assert(isequalRel(argpp,  4.617827041512e-01, TOL));
assert(isequalRel(mp,    -4.613742971062e-01, TOL));
# 14128

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -2.023952527045e-06,  3.000360099525e-06,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -3.298847558934e-06, ...
   2.290506347297e-05, -1.939779689075e-02, -2.730323108731e-03, -2.087272183414e-04, -2.473782067380e-04, -1.070558033105e-03, -1.043419845310e-03,  2.771277863689e-04, ...
   1.883089760893e-02,  2.558661635920e-03,  4.870307806874e-04,  0.000000000000e+00,  1.723156593166e-03,  2.484248746878e-03, -1.098826820044e-04, -1.510439919480e-04, ...
   1.680607206591e-04,  1.739604100604e-04,  1.380206186465e-04, -1.687937988178e-03, -2.328138479321e-03,  2.563932429410e-04,  1.634038675524e+00, ...
   2.966933705124e+00,  1.996377411601e-01, "n",  1.156200000000e-03,  1.996377411601e-01,  6.145897708218e-01,  4.617827041512e-01, -4.613742971062e-01);
assert(isequalRel(ep,     1.159409514727e-03, TOL));
assert(isequalRel(inclp,  1.999594261483e-01, TOL));
assert(isequalRel(nodep,  6.143303611239e-01, TOL));
assert(isequalRel(argpp,  4.668195380643e-01, TOL));
assert(isequalRel(mp,    -4.658640566116e-01, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -2.023952527045e-06,  3.000360099525e-06,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -3.298847558934e-06, ...
   2.290506347297e-05, -1.939779689075e-02, -2.730323108731e-03, -2.087272183414e-04, -2.473782067380e-04, -1.070558033105e-03, -1.043419845310e-03,  2.771277863689e-04, ...
   1.883089760893e-02,  2.558661635920e-03,  4.870307806874e-04,  1.200000000000e+02,  1.723156593166e-03,  2.484248746878e-03, -1.098826820044e-04, -1.510439919480e-04, ...
   1.680607206591e-04,  1.739604100604e-04,  1.380206186465e-04, -1.687937988178e-03, -2.328138479321e-03,  2.563932429410e-04,  1.634038675524e+00, ...
   2.966933705124e+00,  1.996377411601e-01, "n",  1.156200888681e-03,  1.996400423353e-01,  6.145795043690e-01,  4.618160946589e-01,  5.629226363983e-02);
assert(isequalRel(ep,     1.159368269098e-03, TOL));
assert(isequalRel(inclp,  1.999624155423e-01, TOL));
assert(isequalRel(nodep,  6.143338937127e-01, TOL));
assert(isequalRel(argpp,  4.668622899505e-01, TOL));
assert(isequalRel(mp,     5.178015197835e-02, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -2.023952527045e-06,  3.000360099525e-06,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -3.298847558934e-06, ...
   2.290506347297e-05, -1.939779689075e-02, -2.730323108731e-03, -2.087272183414e-04, -2.473782067380e-04, -1.070558033105e-03, -1.043419845310e-03,  2.771277863689e-04, ...
   1.883089760893e-02,  2.558661635920e-03,  4.870307806874e-04,  2.400000000000e+02,  1.723156593166e-03,  2.484248746878e-03, -1.098826820044e-04, -1.510439919480e-04, ...
   1.680607206591e-04,  1.739604100604e-04,  1.380206186465e-04, -1.687937988178e-03, -2.328138479321e-03,  2.563932429410e-04,  1.634038675524e+00, ...
   2.966933705124e+00,  1.996377411601e-01, "n",  1.156201777361e-03,  1.996423435106e-01,  6.145692379162e-01,  4.618494851667e-01,  5.739586086574e-01);
assert(isequalRel(ep,     1.159326344161e-03, TOL));
assert(isequalRel(inclp,  1.999653261186e-01, TOL));
assert(isequalRel(nodep,  6.143375432787e-01, TOL));
assert(isequalRel(argpp,  4.669040119769e-01, TOL));
assert(isequalRel(mp,     5.694249839236e-01, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -2.023952527045e-06,  3.000360099525e-06,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -3.298847558934e-06, ...
   2.290506347297e-05, -1.939779689075e-02, -2.730323108731e-03, -2.087272183414e-04, -2.473782067380e-04, -1.070558033105e-03, -1.043419845310e-03,  2.771277863689e-04, ...
   1.883089760893e-02,  2.558661635920e-03,  4.870307806874e-04,  3.600000000000e+02,  1.723156593166e-03,  2.484248746878e-03, -1.098826820044e-04, -1.510439919480e-04, ...
   1.680607206591e-04,  1.739604100604e-04,  1.380206186465e-04, -1.687937988178e-03, -2.328138479321e-03,  2.563932429410e-04,  1.634038675524e+00, ...
   2.966933705124e+00,  1.996377411601e-01, "n",  1.156202666042e-03,  1.996446446858e-01,  6.145589714634e-01,  4.618828756745e-01,  1.091624737947e+00);
assert(isequalRel(ep,     1.159283784726e-03, TOL));
assert(isequalRel(inclp,  1.999681575712e-01, TOL));
assert(isequalRel(nodep,  6.143412947342e-01, TOL));
assert(isequalRel(argpp,  4.669447028363e-01, TOL));
assert(isequalRel(mp,     1.087070454351e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -2.023952527045e-06,  3.000360099525e-06,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -3.298847558934e-06, ...
   2.290506347297e-05, -1.939779689075e-02, -2.730323108731e-03, -2.087272183414e-04, -2.473782067380e-04, -1.070558033105e-03, -1.043419845310e-03,  2.771277863689e-04, ...
   1.883089760893e-02,  2.558661635920e-03,  4.870307806874e-04,  4.800000000000e+02,  1.723156593166e-03,  2.484248746878e-03, -1.098826820044e-04, -1.510439919480e-04, ...
   1.680607206591e-04,  1.739604100604e-04,  1.380206186465e-04, -1.687937988178e-03, -2.328138479321e-03,  2.563932429410e-04,  1.634038675524e+00, ...
   2.966933705124e+00,  1.996377411601e-01, "n",  1.156203554723e-03,  1.996469458610e-01,  6.145487050106e-01,  4.619162661822e-01,  1.609290651507e+00);
assert(isequalRel(ep,     1.159240636003e-03, TOL));
assert(isequalRel(inclp,  1.999709097089e-01, TOL));
assert(isequalRel(nodep,  6.143451330121e-01, TOL));
assert(isequalRel(argpp,  4.669843627134e-01, TOL));
assert(isequalRel(mp,     1.604716576943e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -2.023952527045e-06,  3.000360099525e-06,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -3.298847558934e-06, ...
   2.290506347297e-05, -1.939779689075e-02, -2.730323108731e-03, -2.087272183414e-04, -2.473782067380e-04, -1.070558033105e-03, -1.043419845310e-03,  2.771277863689e-04, ...
   1.883089760893e-02,  2.558661635920e-03,  4.870307806874e-04,  6.000000000000e+02,  1.723156593166e-03,  2.484248746878e-03, -1.098826820044e-04, -1.510439919480e-04, ...
   1.680607206591e-04,  1.739604100604e-04,  1.380206186465e-04, -1.687937988178e-03, -2.328138479321e-03,  2.563932429410e-04,  1.634038675524e+00, ...
   2.966933705124e+00,  1.996377411601e-01, "n",  1.156204443404e-03,  1.996492470362e-01,  6.145384385578e-01,  4.619496566900e-01,  2.126956349340e+00);
assert(isequalRel(ep,     1.159196943524e-03, TOL));
assert(isequalRel(inclp,  1.999735824535e-01, TOL));
assert(isequalRel(nodep,  6.143490430877e-01, TOL));
assert(isequalRel(argpp,  4.670229932591e-01, TOL));
assert(isequalRel(mp,     2.122363363945e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -2.023952527045e-06,  3.000360099525e-06,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -3.298847558934e-06, ...
   2.290506347297e-05, -1.939779689075e-02, -2.730323108731e-03, -2.087272183414e-04, -2.473782067380e-04, -1.070558033105e-03, -1.043419845310e-03,  2.771277863689e-04, ...
   1.883089760893e-02,  2.558661635920e-03,  4.870307806874e-04,  7.200000000000e+02,  1.723156593166e-03,  2.484248746878e-03, -1.098826820044e-04, -1.510439919480e-04, ...
   1.680607206591e-04,  1.739604100604e-04,  1.380206186465e-04, -1.687937988178e-03, -2.328138479321e-03,  2.563932429410e-04,  1.634038675524e+00, ...
   2.966933705124e+00,  1.996377411601e-01, "n",  1.156205332084e-03,  1.996515482115e-01,  6.145281721050e-01,  4.619830471978e-01,  2.644621831444e+00);
assert(isequalRel(ep,     1.159152753069e-03, TOL));
assert(isequalRel(inclp,  1.999761758379e-01, TOL));
assert(isequalRel(nodep,  6.143530100008e-01, TOL));
assert(isequalRel(argpp,  4.670605975625e-01, TOL));
assert(isequalRel(mp,     2.640010826168e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -2.023952527045e-06,  3.000360099525e-06,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -3.298847558934e-06, ...
   2.290506347297e-05, -1.939779689075e-02, -2.730323108731e-03, -2.087272183414e-04, -2.473782067380e-04, -1.070558033105e-03, -1.043419845310e-03,  2.771277863689e-04, ...
   1.883089760893e-02,  2.558661635920e-03,  4.870307806874e-04,  8.400000000000e+02,  1.723156593166e-03,  2.484248746878e-03, -1.098826820044e-04, -1.510439919480e-04, ...
   1.680607206591e-04,  1.739604100604e-04,  1.380206186465e-04, -1.687937988178e-03, -2.328138479321e-03,  2.563932429410e-04,  1.634038675524e+00, ...
   2.966933705124e+00,  1.996377411601e-01, "n",  1.156206220765e-03,  1.996538493867e-01,  6.145179056522e-01,  4.620164377055e-01,  3.162287114373e+00);
assert(isequalRel(ep,     1.159108110598e-03, TOL));
assert(isequalRel(inclp,  1.999786900042e-01, TOL));
assert(isequalRel(nodep,  6.143570188767e-01, TOL));
assert(isequalRel(argpp,  4.670971801216e-01, TOL));
assert(isequalRel(mp,     3.157658989557e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -2.023952527045e-06,  3.000360099525e-06,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -3.298847558934e-06, ...
   2.290506347297e-05, -1.939779689075e-02, -2.730323108731e-03, -2.087272183414e-04, -2.473782067380e-04, -1.070558033105e-03, -1.043419845310e-03,  2.771277863689e-04, ...
   1.883089760893e-02,  2.558661635920e-03,  4.870307806874e-04,  9.600000000000e+02,  1.723156593166e-03,  2.484248746878e-03, -1.098826820044e-04, -1.510439919480e-04, ...
   1.680607206591e-04,  1.739604100604e-04,  1.380206186465e-04, -1.687937988178e-03, -2.328138479321e-03,  2.563932429410e-04,  1.634038675524e+00, ...
   2.966933705124e+00,  1.996377411601e-01, "n",  1.156207109446e-03,  1.996561505619e-01,  6.145076391994e-01,  4.620498282133e-01,  3.679952187106e+00);
assert(isequalRel(ep,     1.159063062173e-03, TOL));
assert(isequalRel(inclp,  1.999811252016e-01, TOL));
assert(isequalRel(nodep,  6.143610549462e-01, TOL));
assert(isequalRel(argpp,  4.671327468125e-01, TOL));
assert(isequalRel(mp,     3.675307851068e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -2.023952527045e-06,  3.000360099525e-06,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -3.298847558934e-06, ...
   2.290506347297e-05, -1.939779689075e-02, -2.730323108731e-03, -2.087272183414e-04, -2.473782067380e-04, -1.070558033105e-03, -1.043419845310e-03,  2.771277863689e-04, ...
   1.883089760893e-02,  2.558661635920e-03,  4.870307806874e-04,  1.080000000000e+03,  1.723156593166e-03,  2.484248746878e-03, -1.098826820044e-04, -1.510439919480e-04, ...
   1.680607206591e-04,  1.739604100604e-04,  1.380206186465e-04, -1.687937988178e-03, -2.328138479321e-03,  2.563932429410e-04,  1.634038675524e+00, ...
   2.966933705124e+00,  1.996377411601e-01, "n",  1.156207998127e-03,  1.996584517371e-01,  6.144973727466e-01,  4.620832187211e-01,  4.197617049642e+00);
assert(isequalRel(ep,     1.159017653898e-03, TOL));
assert(isequalRel(inclp,  1.999834817844e-01, TOL));
assert(isequalRel(nodep,  6.143651035658e-01, TOL));
assert(isequalRel(argpp,  4.671673048563e-01, TOL));
assert(isequalRel(mp,     4.192957417281e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -2.023952527045e-06,  3.000360099525e-06,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -3.298847558934e-06, ...
   2.290506347297e-05, -1.939779689075e-02, -2.730323108731e-03, -2.087272183414e-04, -2.473782067380e-04, -1.070558033105e-03, -1.043419845310e-03,  2.771277863689e-04, ...
   1.883089760893e-02,  2.558661635920e-03,  4.870307806874e-04,  1.200000000000e+03,  1.723156593166e-03,  2.484248746878e-03, -1.098826820044e-04, -1.510439919480e-04, ...
   1.680607206591e-04,  1.739604100604e-04,  1.380206186465e-04, -1.687937988178e-03, -2.328138479321e-03,  2.563932429410e-04,  1.634038675524e+00, ...
   2.966933705124e+00,  1.996377411601e-01, "n",  1.156208886807e-03,  1.996607529124e-01,  6.144871062938e-01,  4.621166092288e-01,  4.715281701982e+00);
assert(isequalRel(ep,     1.158971931842e-03, TOL));
assert(isequalRel(inclp,  1.999857602093e-01, TOL));
assert(isequalRel(nodep,  6.143691502360e-01, TOL));
assert(isequalRel(argpp,  4.672008627857e-01, TOL));
assert(isequalRel(mp,     4.710607693395e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -2.023952527045e-06,  3.000360099525e-06,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -3.298847558934e-06, ...
   2.290506347297e-05, -1.939779689075e-02, -2.730323108731e-03, -2.087272183414e-04, -2.473782067380e-04, -1.070558033105e-03, -1.043419845310e-03,  2.771277863689e-04, ...
   1.883089760893e-02,  2.558661635920e-03,  4.870307806874e-04,  1.320000000000e+03,  1.723156593166e-03,  2.484248746878e-03, -1.098826820044e-04, -1.510439919480e-04, ...
   1.680607206591e-04,  1.739604100604e-04,  1.380206186465e-04, -1.687937988178e-03, -2.328138479321e-03,  2.563932429410e-04,  1.634038675524e+00, ...
   2.966933705124e+00,  1.996377411601e-01, "n",  1.156209775488e-03,  1.996630540876e-01,  6.144768398410e-01,  4.621499997366e-01, -1.050239163055e+00);
assert(isequalRel(ep,     1.158925941981e-03, TOL));
assert(isequalRel(inclp,  1.999879610331e-01, TOL));
assert(isequalRel(nodep,  6.143731806201e-01, TOL));
assert(isequalRel(argpp,  4.672334304092e-01, TOL));
assert(isequalRel(mp,    -1.054926623936e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -2.023952527045e-06,  3.000360099525e-06,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -3.298847558934e-06, ...
   2.290506347297e-05, -1.939779689075e-02, -2.730323108731e-03, -2.087272183414e-04, -2.473782067380e-04, -1.070558033105e-03, -1.043419845310e-03,  2.771277863689e-04, ...
   1.883089760893e-02,  2.558661635920e-03,  4.870307806874e-04,  1.440000000000e+03,  1.723156593166e-03,  2.484248746878e-03, -1.098826820044e-04, -1.510439919480e-04, ...
   1.680607206591e-04,  1.739604100604e-04,  1.380206186465e-04, -1.687937988178e-03, -2.328138479321e-03,  2.563932429410e-04,  1.634038675524e+00, ...
   2.966933705124e+00,  1.996377411601e-01, "n",  1.156210664169e-03,  1.996653552628e-01,  6.144665733882e-01,  4.621833902444e-01, -5.325749311076e-01);
assert(isequalRel(ep,     1.158879730129e-03, TOL));
assert(isequalRel(inclp,  1.999900849105e-01, TOL));
assert(isequalRel(nodep,  6.143771805613e-01, TOL));
assert(isequalRel(argpp,  4.672650187753e-01, TOL));
assert(isequalRel(mp,    -5.372749178669e-01, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -2.023952527045e-06,  3.000360099525e-06,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -3.298847558934e-06, ...
   2.290506347297e-05, -1.939779689075e-02, -2.730323108731e-03, -2.087272183414e-04, -2.473782067380e-04, -1.070558033105e-03, -1.043419845310e-03,  2.771277863689e-04, ...
   1.883089760893e-02,  2.558661635920e-03,  4.870307806874e-04,  1.560000000000e+03,  1.723156593166e-03,  2.484248746878e-03, -1.098826820044e-04, -1.510439919480e-04, ...
   1.680607206591e-04,  1.739604100604e-04,  1.380206186465e-04, -1.687937988178e-03, -2.328138479321e-03,  2.563932429410e-04,  1.634038675524e+00, ...
   2.966933705124e+00,  1.996377411601e-01, "n",  1.156211552850e-03,  1.996676564380e-01,  6.144563069355e-01,  4.622167807521e-01, -1.491088628870e-02);
assert(isequalRel(ep,     1.158833341880e-03, TOL));
assert(isequalRel(inclp,  1.999921325910e-01, TOL));
assert(isequalRel(nodep,  6.143811360998e-01, TOL));
assert(isequalRel(argpp,  4.672956401348e-01, TOL));
assert(isequalRel(mp,    -1.962247134666e-02, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -2.023952527045e-06,  3.000360099525e-06,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -3.298847558934e-06, ...
   2.290506347297e-05, -1.939779689075e-02, -2.730323108731e-03, -2.087272183414e-04, -2.473782067380e-04, -1.070558033105e-03, -1.043419845310e-03,  2.771277863689e-04, ...
   1.883089760893e-02,  2.558661635920e-03,  4.870307806874e-04,  1.680000000000e+03,  1.723156593166e-03,  2.484248746878e-03, -1.098826820044e-04, -1.510439919480e-04, ...
   1.680607206591e-04,  1.739604100604e-04,  1.380206186465e-04, -1.687937988178e-03, -2.328138479321e-03,  2.563932429410e-04,  1.634038675524e+00, ...
   2.966933705124e+00,  1.996377411601e-01, "n",  1.156212441530e-03,  1.996699576133e-01,  6.144460404827e-01,  4.622501712599e-01,  5.027529557057e-01);
assert(isequalRel(ep,     1.158786822543e-03, TOL));
assert(isequalRel(inclp,  1.999941049163e-01, TOL));
assert(isequalRel(nodep,  6.143850334882e-01, TOL));
assert(isequalRel(argpp,  4.673253079025e-01, TOL));
assert(isequalRel(mp,     4.980306997868e-01, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -2.023952527045e-06,  3.000360099525e-06,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -3.298847558934e-06, ...
   2.290506347297e-05, -1.939779689075e-02, -2.730323108731e-03, -2.087272183414e-04, -2.473782067380e-04, -1.070558033105e-03, -1.043419845310e-03,  2.771277863689e-04, ...
   1.883089760893e-02,  2.558661635920e-03,  4.870307806874e-04,  1.800000000000e+03,  1.723156593166e-03,  2.484248746878e-03, -1.098826820044e-04, -1.510439919480e-04, ...
   1.680607206591e-04,  1.739604100604e-04,  1.380206186465e-04, -1.687937988178e-03, -2.328138479321e-03,  2.563932429410e-04,  1.634038675524e+00, ...
   2.966933705124e+00,  1.996377411601e-01, "n",  1.156213330211e-03,  1.996722587885e-01,  6.144357740299e-01,  4.622835617676e-01,  1.020416594876e+00);
assert(isequalRel(ep,     1.158740217089e-03, TOL));
assert(isequalRel(inclp,  1.999960028179e-01, TOL));
assert(isequalRel(nodep,  6.143888592075e-01, TOL));
assert(isequalRel(argpp,  4.673540366179e-01, TOL));
assert(isequalRel(mp,     1.015684594113e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -2.023952527045e-06,  3.000360099525e-06,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -3.298847558934e-06, ...
   2.290506347297e-05, -1.939779689075e-02, -2.730323108731e-03, -2.087272183414e-04, -2.473782067380e-04, -1.070558033105e-03, -1.043419845310e-03,  2.771277863689e-04, ...
   1.883089760893e-02,  2.558661635920e-03,  4.870307806874e-04,  1.920000000000e+03,  1.723156593166e-03,  2.484248746878e-03, -1.098826820044e-04, -1.510439919480e-04, ...
   1.680607206591e-04,  1.739604100604e-04,  1.380206186465e-04, -1.687937988178e-03, -2.328138479321e-03,  2.563932429410e-04,  1.634038675524e+00, ...
   2.966933705124e+00,  1.996377411601e-01, "n",  1.156214218892e-03,  1.996745599637e-01,  6.144255075771e-01,  4.623169522754e-01,  1.538080031221e+00);
assert(isequalRel(ep,     1.158693570095e-03, TOL));
assert(isequalRel(inclp,  1.999978273138e-01, TOL));
assert(isequalRel(nodep,  6.143925999810e-01, TOL));
assert(isequalRel(argpp,  4.673818419060e-01, TOL));
assert(isequalRel(mp,     1.533339208957e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -2.023952527045e-06,  3.000360099525e-06,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -3.298847558934e-06, ...
   2.290506347297e-05, -1.939779689075e-02, -2.730323108731e-03, -2.087272183414e-04, -2.473782067380e-04, -1.070558033105e-03, -1.043419845310e-03,  2.771277863689e-04, ...
   1.883089760893e-02,  2.558661635920e-03,  4.870307806874e-04,  2.040000000000e+03,  1.723156593166e-03,  2.484248746878e-03, -1.098826820044e-04, -1.510439919480e-04, ...
   1.680607206591e-04,  1.739604100604e-04,  1.380206186465e-04, -1.687937988178e-03, -2.328138479321e-03,  2.563932429410e-04,  1.634038675524e+00, ...
   2.966933705124e+00,  1.996377411601e-01, "n",  1.156215107573e-03,  1.996768611389e-01,  6.144152411243e-01,  4.623503427832e-01,  2.055743264742e+00);
assert(isequalRel(ep,     1.158646925685e-03, TOL));
assert(isequalRel(inclp,  1.999995795058e-01, TOL));
assert(isequalRel(nodep,  6.143962427883e-01, TOL));
assert(isequalRel(argpp,  4.674087404359e-01, TOL));
assert(isequalRel(mp,     2.050994540416e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -2.023952527045e-06,  3.000360099525e-06,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -3.298847558934e-06, ...
   2.290506347297e-05, -1.939779689075e-02, -2.730323108731e-03, -2.087272183414e-04, -2.473782067380e-04, -1.070558033105e-03, -1.043419845310e-03,  2.771277863689e-04, ...
   1.883089760893e-02,  2.558661635920e-03,  4.870307806874e-04,  2.160000000000e+03,  1.723156593166e-03,  2.484248746878e-03, -1.098826820044e-04, -1.510439919480e-04, ...
   1.680607206591e-04,  1.739604100604e-04,  1.380206186465e-04, -1.687937988178e-03, -2.328138479321e-03,  2.563932429410e-04,  1.634038675524e+00, ...
   2.966933705124e+00,  1.996377411601e-01, "n",  1.156215996253e-03,  1.996791623142e-01,  6.144049746715e-01,  4.623837332909e-01,  2.573406295438e+00);
assert(isequalRel(ep,     1.158600327484e-03, TOL));
assert(isequalRel(inclp,  2.000012605766e-01, TOL));
assert(isequalRel(nodep,  6.143997666161e-01, TOL));
assert(isequalRel(argpp,  4.674740746397e-01, TOL));
assert(isequalRel(mp,     2.568650583388e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -2.023952527045e-06,  3.000360099525e-06,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -3.298847558934e-06, ...
   2.290506347297e-05, -1.939779689075e-02, -2.730323108731e-03, -2.087272183414e-04, -2.473782067380e-04, -1.070558033105e-03, -1.043419845310e-03,  2.771277863689e-04, ...
   1.883089760893e-02,  2.558661635920e-03,  4.870307806874e-04,  2.280000000000e+03,  1.723156593166e-03,  2.484248746878e-03, -1.098826820044e-04, -1.510439919480e-04, ...
   1.680607206591e-04,  1.739604100604e-04,  1.380206186465e-04, -1.687937988178e-03, -2.328138479321e-03,  2.563932429410e-04,  1.634038675524e+00, ...
   2.966933705124e+00,  1.996377411601e-01, "n",  1.156216884934e-03,  1.996814634894e-01,  6.143947082187e-01,  4.624171237987e-01,  3.091069152703e+00);
assert(isequalRel(ep,     1.158553818565e-03, TOL));
assert(isequalRel(inclp,  2.000028717867e-01, TOL));
assert(isequalRel(nodep,  6.144031972197e-01, TOL));
assert(isequalRel(argpp,  4.674991078027e-01, TOL));
assert(isequalRel(mp,     3.086307360989e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -2.023952527045e-06,  3.000360099525e-06,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -3.298847558934e-06, ...
   2.290506347297e-05, -1.939779689075e-02, -2.730323108731e-03, -2.087272183414e-04, -2.473782067380e-04, -1.070558033105e-03, -1.043419845310e-03,  2.771277863689e-04, ...
   1.883089760893e-02,  2.558661635920e-03,  4.870307806874e-04,  2.400000000000e+03,  1.723156593166e-03,  2.484248746878e-03, -1.098826820044e-04, -1.510439919480e-04, ...
   1.680607206591e-04,  1.739604100604e-04,  1.380206186465e-04, -1.687937988178e-03, -2.328138479321e-03,  2.563932429410e-04,  1.634038675524e+00, ...
   2.966933705124e+00,  1.996377411601e-01, "n",  1.156217773615e-03,  1.996837646646e-01,  6.143844417659e-01,  4.624505143065e-01,  3.608731816292e+00);
assert(isequalRel(ep,     1.158507441405e-03, TOL));
assert(isequalRel(inclp,  2.000044144715e-01, TOL));
assert(isequalRel(nodep,  6.144064921446e-01, TOL));
assert(isequalRel(argpp,  4.675232820042e-01, TOL));
assert(isequalRel(mp,     3.603964845562e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -2.023952527045e-06,  3.000360099525e-06,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -3.298847558934e-06, ...
   2.290506347297e-05, -1.939779689075e-02, -2.730323108731e-03, -2.087272183414e-04, -2.473782067380e-04, -1.070558033105e-03, -1.043419845310e-03,  2.771277863689e-04, ...
   1.883089760893e-02,  2.558661635920e-03,  4.870307806874e-04,  2.520000000000e+03,  1.723156593166e-03,  2.484248746878e-03, -1.098826820044e-04, -1.510439919480e-04, ...
   1.680607206591e-04,  1.739604100604e-04,  1.380206186465e-04, -1.687937988178e-03, -2.328138479321e-03,  2.563932429410e-04,  1.634038675524e+00, ...
   2.966933705124e+00,  1.996377411601e-01, "n",  1.156218662296e-03,  1.996860658398e-01,  6.143741753131e-01,  4.624839048142e-01,  4.126394286206e+00);
assert(isequalRel(ep,     1.158461237835e-03, TOL));
assert(isequalRel(inclp,  2.000058900380e-01, TOL));
assert(isequalRel(nodep,  6.144096394872e-01, TOL));
assert(isequalRel(argpp,  4.675466178809e-01, TOL));
assert(isequalRel(mp,     4.121623028576e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -2.023952527045e-06,  3.000360099525e-06,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -3.298847558934e-06, ...
   2.290506347297e-05, -1.939779689075e-02, -2.730323108731e-03, -2.087272183414e-04, -2.473782067380e-04, -1.070558033105e-03, -1.043419845310e-03,  2.771277863689e-04, ...
   1.883089760893e-02,  2.558661635920e-03,  4.870307806874e-04,  2.640000000000e+03,  1.723156593166e-03,  2.484248746878e-03, -1.098826820044e-04, -1.510439919480e-04, ...
   1.680607206591e-04,  1.739604100604e-04,  1.380206186465e-04, -1.687937988178e-03, -2.328138479321e-03,  2.563932429410e-04,  1.634038675524e+00, ...
   2.966933705124e+00,  1.996377411601e-01, "n",  1.156219550976e-03,  1.996883670151e-01,  6.143639088603e-01,  4.625172953220e-01,  4.644056562446e+00);
assert(isequalRel(ep,     1.158415249001e-03, TOL));
assert(isequalRel(inclp,  2.000072999623e-01, TOL));
assert(isequalRel(nodep,  6.144126276590e-01, TOL));
assert(isequalRel(argpp,  4.675691369135e-01, TOL));
assert(isequalRel(mp,     4.639281900425e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -2.023952527045e-06,  3.000360099525e-06,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -3.298847558934e-06, ...
   2.290506347297e-05, -1.939779689075e-02, -2.730323108731e-03, -2.087272183414e-04, -2.473782067380e-04, -1.070558033105e-03, -1.043419845310e-03,  2.771277863689e-04, ...
   1.883089760893e-02,  2.558661635920e-03,  4.870307806874e-04,  2.760000000000e+03,  1.723156593166e-03,  2.484248746878e-03, -1.098826820044e-04, -1.510439919480e-04, ...
   1.680607206591e-04,  1.739604100604e-04,  1.380206186465e-04, -1.687937988178e-03, -2.328138479321e-03,  2.563932429410e-04,  1.634038675524e+00, ...
   2.966933705124e+00,  1.996377411601e-01, "n",  1.156220439657e-03,  1.996906681903e-01,  6.143536424075e-01,  4.625506858298e-01,  5.161718645010e+00);
assert(isequalRel(ep,     1.158369515322e-03, TOL));
assert(isequalRel(inclp,  2.000086457857e-01, TOL));
assert(isequalRel(nodep,  6.144154453961e-01, TOL));
assert(isequalRel(argpp,  4.675908613836e-01, TOL));
assert(isequalRel(mp,     5.156941450449e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -2.023952527045e-06,  3.000360099525e-06,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -3.298847558934e-06, ...
   2.290506347297e-05, -1.939779689075e-02, -2.730323108731e-03, -2.087272183414e-04, -2.473782067380e-04, -1.070558033105e-03, -1.043419845310e-03,  2.771277863689e-04, ...
   1.883089760893e-02,  2.558661635920e-03,  4.870307806874e-04,  2.880000000000e+03,  1.723156593166e-03,  2.484248746878e-03, -1.098826820044e-04, -1.510439919480e-04, ...
   1.680607206591e-04,  1.739604100604e-04,  1.380206186465e-04, -1.687937988178e-03, -2.328138479321e-03,  2.563932429410e-04,  1.634038675524e+00, ...
   2.966933705124e+00,  1.996377411601e-01, "n",  1.156221328338e-03,  1.996929693655e-01,  6.143433759547e-01,  4.625840763375e-01, -6.038047732807e-01);
assert(isequalRel(ep,     1.158324076450e-03, TOL));
assert(isequalRel(inclp,  2.000099291122e-01, TOL));
assert(isequalRel(nodep,  6.144180817675e-01, TOL));
assert(isequalRel(argpp,  4.676118143318e-01, TOL));
assert(isequalRel(mp,    -6.085836402029e-01, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -1.668567580056e-04, -8.275330366745e-05,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  1.125966825154e-03, ...
   5.685080602400e-05, -8.864271738038e-05,  1.625809438486e-03, -3.500523155064e-05,  2.744561082561e-04, -9.759618675546e-04, -4.991454790905e-04, -4.573037379522e-04, ...
   1.462141038683e-04, -1.456991037415e-03,  1.117866087106e-04,  0.000000000000e+00,  2.432700701456e-04, -1.126161998557e-04, -1.842820863294e-05, -1.621327565099e-04, ...
   5.347365712173e-05, -1.237488399592e-05,  1.015094158511e-04, -2.580143538619e-04,  5.639729900996e-05,  5.884911644441e-05,  2.363784803869e+00, ...
   2.547991747703e+00,  1.083685404539e+00, "y",  5.596327000000e-01,  1.083685404539e+00,  5.149138427074e+00,  4.278836976885e+00,  8.372169888892e-01);
assert(isequalRel(ep,     5.596327000000e-01, TOL));
assert(isequalRel(inclp,  1.083685404539e+00, TOL));
assert(isequalRel(nodep,  5.149138427074e+00, TOL));
assert(isequalRel(argpp,  4.278836976885e+00, TOL));
assert(isequalRel(mp,     8.372169888892e-01, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -1.668567580056e-04, -8.275330366745e-05,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  1.125966825154e-03, ...
   5.685080602400e-05, -8.864271738038e-05,  1.625809438486e-03, -3.500523155064e-05,  2.744561082561e-04, -9.759618675546e-04, -4.991454790905e-04, -4.573037379522e-04, ...
   1.462141038683e-04, -1.456991037415e-03,  1.117866087106e-04,  0.000000000000e+00,  2.432700701456e-04, -1.126161998557e-04, -1.842820863294e-05, -1.621327565099e-04, ...
   5.347365712173e-05, -1.237488399592e-05,  1.015094158511e-04, -2.580143538619e-04,  5.639729900996e-05,  5.884911644441e-05,  2.363784803869e+00, ...
   2.547991747703e+00,  1.083685404539e+00, "y",  5.596327000000e-01,  1.083685404539e+00,  5.149138427074e+00,  4.278836976885e+00, -5.445968318290e+00);
assert(isequalRel(ep,     5.596327000000e-01, TOL));
assert(isequalRel(inclp,  1.083685404539e+00, TOL));
assert(isequalRel(nodep,  5.149138427074e+00, TOL));
assert(isequalRel(argpp,  4.278836976885e+00, TOL));
assert(isequalRel(mp,    -5.445968318290e+00, TOL));
# 16925

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -1.668567580056e-04, -8.275330366745e-05,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  1.125966825154e-03, ...
   5.685080602400e-05, -8.864271738038e-05,  1.625809438486e-03, -3.500523155064e-05,  2.744561082561e-04, -9.759618675546e-04, -4.991454790905e-04, -4.573037379522e-04, ...
   1.462141038683e-04, -1.456991037415e-03,  1.117866087106e-04,  0.000000000000e+00,  2.432700701456e-04, -1.126161998557e-04, -1.842820863294e-05, -1.621327565099e-04, ...
   5.347365712173e-05, -1.237488399592e-05,  1.015094158511e-04, -2.580143538619e-04,  5.639729900996e-05,  5.884911644441e-05,  2.363784803869e+00, ...
   2.547991747703e+00,  1.083685404539e+00, "n",  5.596327000000e-01,  1.083685404539e+00,  5.149138427074e+00,  4.278836976885e+00, -5.445968318290e+00);
assert(isequalRel(ep,     5.594929822954e-01, TOL));
assert(isequalRel(inclp,  1.083657605546e+00, TOL));
assert(isequalRel(nodep,  5.148877338697e+00, TOL));
assert(isequalRel(argpp,  4.279270286434e+00, TOL));
assert(isequalRel(mp,    -5.446192199319e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -1.668567580056e-04, -8.275330366745e-05,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  1.125966825154e-03, ...
   5.685080602400e-05, -8.864271738038e-05,  1.625809438486e-03, -3.500523155064e-05,  2.744561082561e-04, -9.759618675546e-04, -4.991454790905e-04, -4.573037379522e-04, ...
   1.462141038683e-04, -1.456991037415e-03,  1.117866087106e-04,  1.200000000000e+02,  2.432700701456e-04, -1.126161998557e-04, -1.842820863294e-05, -1.621327565099e-04, ...
   5.347365712173e-05, -1.237488399592e-05,  1.015094158511e-04, -2.580143538619e-04,  5.639729900996e-05,  5.884911644441e-05,  2.363784803869e+00, ...
   2.547991747703e+00,  1.083685404539e+00, "n",  5.593348179001e-01,  1.083684322984e+00,  5.148356765131e+00,  4.278914305956e+00, -2.887008703809e+00);
assert(isequalRel(ep,     5.591953509882e-01, TOL));
assert(isequalRel(inclp,  1.083656913349e+00, TOL));
assert(isequalRel(nodep,  5.148097274060e+00, TOL));
assert(isequalRel(argpp,  4.279344840368e+00, TOL));
assert(isequalRel(mp,    -2.887231058486e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -1.668567580056e-04, -8.275330366745e-05,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  1.125966825154e-03, ...
   5.685080602400e-05, -8.864271738038e-05,  1.625809438486e-03, -3.500523155064e-05,  2.744561082561e-04, -9.759618675546e-04, -4.991454790905e-04, -4.573037379522e-04, ...
   1.462141038683e-04, -1.456991037415e-03,  1.117866087106e-04,  2.400000000000e+02,  2.432700701456e-04, -1.126161998557e-04, -1.842820863294e-05, -1.621327565099e-04, ...
   5.347365712173e-05, -1.237488399592e-05,  1.015094158511e-04, -2.580143538619e-04,  5.639729900996e-05,  5.884911644441e-05,  2.363784803869e+00, ...
   2.547991747703e+00,  1.083685404539e+00, "n",  5.590369358003e-01,  1.083683241429e+00,  5.147574016219e+00,  4.278991635028e+00, -3.258220601851e-01);
assert(isequalRel(ep,     5.588977637655e-01, TOL));
assert(isequalRel(inclp,  1.083656190502e+00, TOL));
assert(isequalRel(nodep,  5.147316092868e+00, TOL));
assert(isequalRel(argpp,  4.279419460174e+00, TOL));
assert(isequalRel(mp,    -3.260429322381e-01, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -1.668567580056e-04, -8.275330366745e-05,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  1.125966825154e-03, ...
   5.685080602400e-05, -8.864271738038e-05,  1.625809438486e-03, -3.500523155064e-05,  2.744561082561e-04, -9.759618675546e-04, -4.991454790905e-04, -4.573037379522e-04, ...
   1.462141038683e-04, -1.456991037415e-03,  1.117866087106e-04,  3.600000000000e+02,  2.432700701456e-04, -1.126161998557e-04, -1.842820863294e-05, -1.621327565099e-04, ...
   5.347365712173e-05, -1.237488399592e-05,  1.015094158511e-04, -2.580143538619e-04,  5.639729900996e-05,  5.884911644441e-05,  2.363784803869e+00, ...
   2.547991747703e+00,  1.083685404539e+00, "n",  5.587390537004e-01,  1.083682159875e+00,  5.146790180340e+00,  4.279068964100e+00, -4.045593694599e+00);
assert(isequalRel(ep,     5.586002192077e-01, TOL));
assert(isequalRel(inclp,  1.083655437251e+00, TOL));
assert(isequalRel(nodep,  5.146533793537e+00, TOL));
assert(isequalRel(argpp,  4.279494148489e+00, TOL));
assert(isequalRel(mp,    -4.045813129816e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -1.668567580056e-04, -8.275330366745e-05,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  1.125966825154e-03, ...
   5.685080602400e-05, -8.864271738038e-05,  1.625809438486e-03, -3.500523155064e-05,  2.744561082561e-04, -9.759618675546e-04, -4.991454790905e-04, -4.573037379522e-04, ...
   1.462141038683e-04, -1.456991037415e-03,  1.117866087106e-04,  4.800000000000e+02,  2.432700701456e-04, -1.126161998557e-04, -1.842820863294e-05, -1.621327565099e-04, ...
   5.347365712173e-05, -1.237488399592e-05,  1.015094158511e-04, -2.580143538619e-04,  5.639729900996e-05,  5.884911644441e-05,  2.363784803869e+00, ...
   2.547991747703e+00,  1.083685404539e+00, "n",  5.584411716006e-01,  1.083681078320e+00,  5.146005257493e+00,  4.279146293172e+00, -1.479952992692e+00);
assert(isequalRel(ep,     5.583027158604e-01, TOL));
assert(isequalRel(inclp,  1.083654653875e+00, TOL));
assert(isequalRel(nodep,  5.145750374536e+00, TOL));
assert(isequalRel(argpp,  4.279568907850e+00, TOL));
assert(isequalRel(mp,    -1.480171038857e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -1.668567580056e-04, -8.275330366745e-05,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  1.125966825154e-03, ...
   5.685080602400e-05, -8.864271738038e-05,  1.625809438486e-03, -3.500523155064e-05,  2.744561082561e-04, -9.759618675546e-04, -4.991454790905e-04, -4.573037379522e-04, ...
   1.462141038683e-04, -1.456991037415e-03,  1.117866087106e-04,  6.000000000000e+02,  2.432700701456e-04, -1.126161998557e-04, -1.842820863294e-05, -1.621327565099e-04, ...
   5.347365712173e-05, -1.237488399592e-05,  1.015094158511e-04, -2.580143538619e-04,  5.639729900996e-05,  5.884911644441e-05,  2.363784803869e+00, ...
   2.547991747703e+00,  1.083685404539e+00, "n",  5.581432895007e-01,  1.083679996765e+00,  5.145219247677e+00,  4.279223622244e+00, -5.195270568823e+00);
assert(isequalRel(ep,     5.580052522362e-01, TOL));
assert(isequalRel(inclp,  1.083653840687e+00, TOL));
assert(isequalRel(nodep,  5.144965834385e+00, TOL));
assert(isequalRel(argpp,  4.279643740693e+00, TOL));
assert(isequalRel(mp,    -5.195487275657e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -1.668567580056e-04, -8.275330366745e-05,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  1.125966825154e-03, ...
   5.685080602400e-05, -8.864271738038e-05,  1.625809438486e-03, -3.500523155064e-05,  2.744561082561e-04, -9.759618675546e-04, -4.991454790905e-04, -4.573037379522e-04, ...
   1.462141038683e-04, -1.456991037415e-03,  1.117866087106e-04,  7.200000000000e+02,  2.432700701456e-04, -1.126161998557e-04, -1.842820863294e-05, -1.621327565099e-04, ...
   5.347365712173e-05, -1.237488399592e-05,  1.015094158511e-04, -2.580143538619e-04,  5.639729900996e-05,  5.884911644441e-05,  2.363784803869e+00, ...
   2.547991747703e+00,  1.083685404539e+00, "n",  5.578454074009e-01,  1.083678915210e+00,  5.144432150894e+00,  4.279300951316e+00, -2.625175808632e+00);
assert(isequalRel(ep,     5.577078268168e-01, TOL));
assert(isequalRel(inclp,  1.083652998027e+00, TOL));
assert(isequalRel(nodep,  5.144180171655e+00, TOL));
assert(isequalRel(argpp,  4.279718649351e+00, TOL));
assert(isequalRel(mp,    -2.625391227726e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -1.668567580056e-04, -8.275330366745e-05,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  1.125966825154e-03, ...
   5.685080602400e-05, -8.864271738038e-05,  1.625809438486e-03, -3.500523155064e-05,  2.744561082561e-04, -9.759618675546e-04, -4.991454790905e-04, -4.573037379522e-04, ...
   1.462141038683e-04, -1.456991037415e-03,  1.117866087106e-04,  8.400000000000e+02,  2.432700701456e-04, -1.126161998557e-04, -1.842820863294e-05, -1.621327565099e-04, ...
   5.347365712173e-05, -1.237488399592e-05,  1.015094158511e-04, -2.580143538619e-04,  5.639729900996e-05,  5.884911644441e-05,  2.363784803869e+00, ...
   2.547991747703e+00,  1.083685404539e+00, "n",  5.575475253010e-01,  1.083677833656e+00,  5.143643967143e+00,  4.279378280388e+00, -5.285401929946e-02);
assert(isequalRel(ep,     5.574104380551e-01, TOL));
assert(isequalRel(inclp,  1.083652126268e+00, TOL));
assert(isequalRel(nodep,  5.143393384970e+00, TOL));
assert(isequalRel(argpp,  4.279793636053e+00, TOL));
assert(isequalRel(mp,    -5.306820404882e-02, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -1.668567580056e-04, -8.275330366745e-05,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  1.125966825154e-03, ...
   5.685080602400e-05, -8.864271738038e-05,  1.625809438486e-03, -3.500523155064e-05,  2.744561082561e-04, -9.759618675546e-04, -4.991454790905e-04, -4.573037379522e-04, ...
   1.462141038683e-04, -1.456991037415e-03,  1.117866087106e-04,  9.600000000000e+02,  2.432700701456e-04, -1.126161998557e-04, -1.842820863294e-05, -1.621327565099e-04, ...
   5.347365712173e-05, -1.237488399592e-05,  1.015094158511e-04, -2.580143538619e-04,  5.639729900996e-05,  5.884911644441e-05,  2.363784803869e+00, ...
   2.547991747703e+00,  1.083685404539e+00, "n",  5.572496432012e-01,  1.083676752101e+00,  5.142854696424e+00,  4.279455609460e+00, -3.761490508005e+00);
assert(isequalRel(ep,     5.571130843767e-01, TOL));
assert(isequalRel(inclp,  1.083651225810e+00, TOL));
assert(isequalRel(nodep,  5.142605473008e+00, TOL));
assert(isequalRel(argpp,  4.279868702927e+00, TOL));
assert(isequalRel(mp,    -3.761703513544e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -1.668567580056e-04, -8.275330366745e-05,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  1.125966825154e-03, ...
   5.685080602400e-05, -8.864271738038e-05,  1.625809438486e-03, -3.500523155064e-05,  2.744561082561e-04, -9.759618675546e-04, -4.991454790905e-04, -4.573037379522e-04, ...
   1.462141038683e-04, -1.456991037415e-03,  1.117866087106e-04,  1.080000000000e+03,  2.432700701456e-04, -1.126161998557e-04, -1.842820863294e-05, -1.621327565099e-04, ...
   5.347365712173e-05, -1.237488399592e-05,  1.015094158511e-04, -2.580143538619e-04,  5.639729900996e-05,  5.884911644441e-05,  2.363784803869e+00, ...
   2.547991747703e+00,  1.083685404539e+00, "n",  5.569517611013e-01,  1.083675670546e+00,  5.142064338737e+00,  4.279532938532e+00, -1.184714660388e+00);
assert(isequalRel(ep,     5.568157641825e-01, TOL));
assert(isequalRel(inclp,  1.083650297083e+00, TOL));
assert(isequalRel(nodep,  5.141816434501e+00, TOL));
assert(isequalRel(argpp,  4.279943851993e+00, TOL));
assert(isequalRel(mp,    -1.184926543522e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -1.668567580056e-04, -8.275330366745e-05,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  1.125966825154e-03, ...
   5.685080602400e-05, -8.864271738038e-05,  1.625809438486e-03, -3.500523155064e-05,  2.744561082561e-04, -9.759618675546e-04, -4.991454790905e-04, -4.573037379522e-04, ...
   1.462141038683e-04, -1.456991037415e-03,  1.117866087106e-04,  1.200000000000e+03,  2.432700701456e-04, -1.126161998557e-04, -1.842820863294e-05, -1.621327565099e-04, ...
   5.347365712173e-05, -1.237488399592e-05,  1.015094158511e-04, -2.580143538619e-04,  5.639729900996e-05,  5.884911644441e-05,  2.363784803869e+00, ...
   2.547991747703e+00,  1.083685404539e+00, "n",  5.566538790014e-01,  1.083674588991e+00,  5.141272894083e+00,  4.279610267604e+00, -4.888897090810e+00);
assert(isequalRel(ep,     5.565184758498e-01, TOL));
assert(isequalRel(inclp,  1.083649340545e+00, TOL));
assert(isequalRel(nodep,  5.141026268235e+00, TOL));
assert(isequalRel(argpp,  4.280019085167e+00, TOL));
assert(isequalRel(mp,    -4.889107909946e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -1.668567580056e-04, -8.275330366745e-05,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  1.125966825154e-03, ...
   5.685080602400e-05, -8.864271738038e-05,  1.625809438486e-03, -3.500523155064e-05,  2.744561082561e-04, -9.759618675546e-04, -4.991454790905e-04, -4.573037379522e-04, ...
   1.462141038683e-04, -1.456991037415e-03,  1.117866087106e-04,  1.320000000000e+03,  2.432700701456e-04, -1.126161998557e-04, -1.842820863294e-05, -1.621327565099e-04, ...
   5.347365712173e-05, -1.237488399592e-05,  1.015094158511e-04, -2.580143538619e-04,  5.639729900996e-05,  5.884911644441e-05,  2.363784803869e+00, ...
   2.547991747703e+00,  1.083685404539e+00, "n",  5.563559969016e-01,  1.083673507437e+00,  5.140480362460e+00,  4.279687596676e+00, -2.307667184910e+00);
assert(isequalRel(ep,     5.562212177347e-01, TOL));
assert(isequalRel(inclp,  1.083648356680e+00, TOL));
assert(isequalRel(nodep,  5.140234973051e+00, TOL));
assert(isequalRel(argpp,  4.280094404260e+00, TOL));
assert(isequalRel(mp,    -2.307876999990e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -1.668567580056e-04, -8.275330366745e-05,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  1.125966825154e-03, ...
   5.685080602400e-05, -8.864271738038e-05,  1.625809438486e-03, -3.500523155064e-05,  2.744561082561e-04, -9.759618675546e-04, -4.991454790905e-04, -4.573037379522e-04, ...
   1.462141038683e-04, -1.456991037415e-03,  1.117866087106e-04,  1.440000000000e+03,  2.432700701456e-04, -1.126161998557e-04, -1.842820863294e-05, -1.621327565099e-04, ...
   5.347365712173e-05, -1.237488399592e-05,  1.015094158511e-04, -2.580143538619e-04,  5.639729900996e-05,  5.884911644441e-05,  2.363784803869e+00, ...
   2.547991747703e+00,  1.083685404539e+00, "n",  5.560581148017e-01,  1.083672425882e+00,  5.139686743869e+00,  4.279764925748e+00, -6.007395557048e+00);
assert(isequalRel(ep,     5.559239881734e-01, TOL));
assert(isequalRel(inclp,  1.083647345997e+00, TOL));
assert(isequalRel(nodep,  5.139442547846e+00, TOL));
assert(isequalRel(argpp,  4.280169810975e+00, TOL));
assert(isequalRel(mp,    -6.007604429475e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -4.548826202443e-03,  2.057187923104e-03,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  2.969569919355e-02, ...
   1.468368332662e-02, -1.634808994984e-02,  4.324216378214e-02, -5.162579880111e-04,  1.425174198066e-02,  4.931955088329e-03,  5.144176519066e-02, -8.646214930954e-04, ...
   3.951910009817e-02, -1.241558054094e-01,  2.467220444289e-03,  0.000000000000e+00,  6.919617584769e-03,  2.084732624778e-03, -2.717796594982e-04,  7.186248636015e-04, ...
  -2.561986795698e-03, -5.475272881099e-04, -9.211923499783e-03, -2.030877598251e-02, -4.767341552120e-03,  1.298847374429e-03,  5.201540682068e+00, ...
   6.201295960309e+00,  2.155725972308e-01, "y",  7.864447000000e-01,  2.155725972308e-01,  3.271188586538e+00,  3.426128445555e+00,  6.222933050742e+00);
assert(isequalRel(ep,     7.864447000000e-01, TOL));
assert(isequalRel(inclp,  2.155725972308e-01, TOL));
assert(isequalRel(nodep,  3.271188586538e+00, TOL));
assert(isequalRel(argpp,  3.426128445555e+00, TOL));
assert(isequalRel(mp,     6.222933050742e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -4.548826202443e-03,  2.057187923104e-03,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  2.969569919355e-02, ...
   1.468368332662e-02, -1.634808994984e-02,  4.324216378214e-02, -5.162579880111e-04,  1.425174198066e-02,  4.931955088329e-03,  5.144176519066e-02, -8.646214930954e-04, ...
   3.951910009817e-02, -1.241558054094e-01,  2.467220444289e-03,  0.000000000000e+00,  6.919617584769e-03,  2.084732624778e-03, -2.717796594982e-04,  7.186248636015e-04, ...
  -2.561986795698e-03, -5.475272881099e-04, -9.211923499783e-03, -2.030877598251e-02, -4.767341552120e-03,  1.298847374429e-03,  5.201540682068e+00, ...
   6.201295960309e+00,  2.155725972308e-01, "y",  7.864447000000e-01,  2.155725972308e-01,  3.271188586538e+00,  3.426128445555e+00, -6.025225643735e-02);
assert(isequalRel(ep,     7.864447000000e-01, TOL));
assert(isequalRel(inclp,  2.155725972308e-01, TOL));
assert(isequalRel(nodep,  3.271188586538e+00, TOL));
assert(isequalRel(argpp,  3.426128445555e+00, TOL));
assert(isequalRel(mp,    -6.025225643735e-02, TOL));
# 20413

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -4.548826202443e-03,  2.057187923104e-03,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  2.969569919355e-02, ...
   1.468368332662e-02, -1.634808994984e-02,  4.324216378214e-02, -5.162579880111e-04,  1.425174198066e-02,  4.931955088329e-03,  5.144176519066e-02, -8.646214930954e-04, ...
   3.951910009817e-02, -1.241558054094e-01,  2.467220444289e-03,  0.000000000000e+00,  6.919617584769e-03,  2.084732624778e-03, -2.717796594982e-04,  7.186248636015e-04, ...
  -2.561986795698e-03, -5.475272881099e-04, -9.211923499783e-03, -2.030877598251e-02, -4.767341552120e-03,  1.298847374429e-03,  5.201540682068e+00, ...
   6.201295960309e+00,  2.155725972308e-01, "n",  7.864447000000e-01,  2.155725972308e-01,  3.271188586538e+00,  3.426128445555e+00, -6.025225643735e-02);
assert(isequalRel(ep,     7.793058761916e-01, TOL));
assert(isequalRel(inclp,  2.011357230672e-01, TOL));
assert(isequalRel(nodep,  3.253020621609e+00, TOL));
assert(isequalRel(argpp,  3.451667170391e+00, TOL));
assert(isequalRel(mp,    -8.106364973424e-02, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -4.548826202443e-03,  2.057187923104e-03,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  2.969569919355e-02, ...
   1.468368332662e-02, -1.634808994984e-02,  4.324216378214e-02, -5.162579880111e-04,  1.425174198066e-02,  4.931955088329e-03,  5.144176519066e-02, -8.646214930954e-04, ...
   3.951910009817e-02, -1.241558054094e-01,  2.467220444289e-03,  1.440000000000e+03,  6.919617584769e-03,  2.084732624778e-03, -2.717796594982e-04,  7.186248636015e-04, ...
  -2.561986795698e-03, -5.475272881099e-04, -9.211923499783e-03, -2.030877598251e-02, -4.767341552120e-03,  1.298847374429e-03,  5.201540682068e+00, ...
   6.201295960309e+00,  2.155725972308e-01, "n",  7.865885811161e-01,  2.151900977842e-01,  3.269991143724e+00,  3.427672987154e+00, -4.793185694123e+00);
assert(isequalRel(ep,     7.787874578302e-01, TOL));
assert(isequalRel(inclp,  2.001761238508e-01, TOL));
assert(isequalRel(nodep,  3.250252530465e+00, TOL));
assert(isequalRel(argpp,  3.453774541267e+00, TOL));
assert(isequalRel(mp,    -4.810973691451e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -4.548826202443e-03,  2.057187923104e-03,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  2.969569919355e-02, ...
   1.468368332662e-02, -1.634808994984e-02,  4.324216378214e-02, -5.162579880111e-04,  1.425174198066e-02,  4.931955088329e-03,  5.144176519066e-02, -8.646214930954e-04, ...
   3.951910009817e-02, -1.241558054094e-01,  2.467220444289e-03,  1.560000000000e+03,  6.919617584769e-03,  2.084732624778e-03, -2.717796594982e-04,  7.186248636015e-04, ...
  -2.561986795698e-03, -5.475272881099e-04, -9.211923499783e-03, -2.030877598251e-02, -4.767341552120e-03,  1.298847374429e-03,  5.201540682068e+00, ...
   6.201295960309e+00,  2.155725972308e-01, "n",  7.866005712091e-01,  2.151582228303e-01,  3.269891356823e+00,  3.427801698954e+00, -4.663998038332e+00);
assert(isequalRel(ep,     7.787527387113e-01, TOL));
assert(isequalRel(inclp,  2.001191310531e-01, TOL));
assert(isequalRel(nodep,  3.250050077147e+00, TOL));
assert(isequalRel(argpp,  3.453907993968e+00, TOL));
assert(isequalRel(mp,    -4.681493809889e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -4.548826202443e-03,  2.057187923104e-03,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  2.969569919355e-02, ...
   1.468368332662e-02, -1.634808994984e-02,  4.324216378214e-02, -5.162579880111e-04,  1.425174198066e-02,  4.931955088329e-03,  5.144176519066e-02, -8.646214930954e-04, ...
   3.951910009817e-02, -1.241558054094e-01,  2.467220444289e-03,  1.680000000000e+03,  6.919617584769e-03,  2.084732624778e-03, -2.717796594982e-04,  7.186248636015e-04, ...
  -2.561986795698e-03, -5.475272881099e-04, -9.211923499783e-03, -2.030877598251e-02, -4.767341552120e-03,  1.298847374429e-03,  5.201540682068e+00, ...
   6.201295960309e+00,  2.155725972308e-01, "n",  7.866125613021e-01,  2.151263478764e-01,  3.269791569922e+00,  3.427930410754e+00, -4.534810382541e+00);
assert(isequalRel(ep,     7.787196416205e-01, TOL));
assert(isequalRel(inclp,  2.000659863855e-01, TOL));
assert(isequalRel(nodep,  3.249852788538e+00, TOL));
assert(isequalRel(argpp,  3.454034557082e+00, TOL));
assert(isequalRel(mp,    -4.552008984521e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -4.548826202443e-03,  2.057187923104e-03,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  2.969569919355e-02, ...
   1.468368332662e-02, -1.634808994984e-02,  4.324216378214e-02, -5.162579880111e-04,  1.425174198066e-02,  4.931955088329e-03,  5.144176519066e-02, -8.646214930954e-04, ...
   3.951910009817e-02, -1.241558054094e-01,  2.467220444289e-03,  1.800000000000e+03,  6.919617584769e-03,  2.084732624778e-03, -2.717796594982e-04,  7.186248636015e-04, ...
  -2.561986795698e-03, -5.475272881099e-04, -9.211923499783e-03, -2.030877598251e-02, -4.767341552120e-03,  1.298847374429e-03,  5.201540682068e+00, ...
   6.201295960309e+00,  2.155725972308e-01, "n",  7.866245513952e-01,  2.150944729225e-01,  3.269691783021e+00,  3.428059122554e+00, -4.405622726750e+00);
assert(isequalRel(ep,     7.786882269308e-01, TOL));
assert(isequalRel(inclp,  2.000167348270e-01, TOL));
assert(isequalRel(nodep,  3.249660813514e+00, TOL));
assert(isequalRel(argpp,  3.454154186503e+00, TOL));
assert(isequalRel(mp,    -4.422519525739e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -4.548826202443e-03,  2.057187923104e-03,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  2.969569919355e-02, ...
   1.468368332662e-02, -1.634808994984e-02,  4.324216378214e-02, -5.162579880111e-04,  1.425174198066e-02,  4.931955088329e-03,  5.144176519066e-02, -8.646214930954e-04, ...
   3.951910009817e-02, -1.241558054094e-01,  2.467220444289e-03,  1.920000000000e+03,  6.919617584769e-03,  2.084732624778e-03, -2.717796594982e-04,  7.186248636015e-04, ...
  -2.561986795698e-03, -5.475272881099e-04, -9.211923499783e-03, -2.030877598251e-02, -4.767341552120e-03,  1.298847374429e-03,  5.201540682068e+00, ...
   6.201295960309e+00,  2.155725972308e-01, "n",  7.866365414882e-01,  2.150625979686e-01,  3.269591996119e+00,  3.428187834354e+00, -4.276435070958e+00);
assert(isequalRel(ep,     7.786585525252e-01, TOL));
assert(isequalRel(inclp,  1.999714148666e-01, TOL));
assert(isequalRel(nodep,  3.247859283630e+00, TOL));
assert(isequalRel(argpp,  3.465651037512e+00, TOL));
assert(isequalRel(mp,    -4.293025753726e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -4.548826202443e-03,  2.057187923104e-03,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  2.969569919355e-02, ...
   1.468368332662e-02, -1.634808994984e-02,  4.324216378214e-02, -5.162579880111e-04,  1.425174198066e-02,  4.931955088329e-03,  5.144176519066e-02, -8.646214930954e-04, ...
   3.951910009817e-02, -1.241558054094e-01,  2.467220444289e-03,  2.040000000000e+03,  6.919617584769e-03,  2.084732624778e-03, -2.717796594982e-04,  7.186248636015e-04, ...
  -2.561986795698e-03, -5.475272881099e-04, -9.211923499783e-03, -2.030877598251e-02, -4.767341552120e-03,  1.298847374429e-03,  5.201540682068e+00, ...
   6.201295960309e+00,  2.155725972308e-01, "n",  7.866485315812e-01,  2.150307230147e-01,  3.269492209218e+00,  3.428316546154e+00, -4.147247415167e+00);
assert(isequalRel(ep,     7.786306736578e-01, TOL));
assert(isequalRel(inclp,  1.999300583620e-01, TOL));
assert(isequalRel(nodep,  3.247670384439e+00, TOL));
assert(isequalRel(argpp,  3.465768391156e+00, TOL));
assert(isequalRel(mp,    -4.163527997936e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -4.548826202443e-03,  2.057187923104e-03,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  2.969569919355e-02, ...
   1.468368332662e-02, -1.634808994984e-02,  4.324216378214e-02, -5.162579880111e-04,  1.425174198066e-02,  4.931955088329e-03,  5.144176519066e-02, -8.646214930954e-04, ...
   3.951910009817e-02, -1.241558054094e-01,  2.467220444289e-03,  2.160000000000e+03,  6.919617584769e-03,  2.084732624778e-03, -2.717796594982e-04,  7.186248636015e-04, ...
  -2.561986795698e-03, -5.475272881099e-04, -9.211923499783e-03, -2.030877598251e-02, -4.767341552120e-03,  1.298847374429e-03,  5.201540682068e+00, ...
   6.201295960309e+00,  2.155725972308e-01, "n",  7.866605216742e-01,  2.149988480608e-01,  3.269392422317e+00,  3.428445257953e+00, -4.018059759376e+00);
assert(isequalRel(ep,     7.786046428179e-01, TOL));
assert(isequalRel(inclp,  1.998926904094e-01, TOL));
assert(isequalRel(nodep,  3.247488137866e+00, TOL));
assert(isequalRel(argpp,  3.465875425266e+00, TOL));
assert(isequalRel(mp,    -4.034026596544e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -4.548826202443e-03,  2.057187923104e-03,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  2.969569919355e-02, ...
   1.468368332662e-02, -1.634808994984e-02,  4.324216378214e-02, -5.162579880111e-04,  1.425174198066e-02,  4.931955088329e-03,  5.144176519066e-02, -8.646214930954e-04, ...
   3.951910009817e-02, -1.241558054094e-01,  2.467220444289e-03,  2.280000000000e+03,  6.919617584769e-03,  2.084732624778e-03, -2.717796594982e-04,  7.186248636015e-04, ...
  -2.561986795698e-03, -5.475272881099e-04, -9.211923499783e-03, -2.030877598251e-02, -4.767341552120e-03,  1.298847374429e-03,  5.201540682068e+00, ...
   6.201295960309e+00,  2.155725972308e-01, "n",  7.866725117672e-01,  2.149669731069e-01,  3.269292635416e+00,  3.428573969753e+00, -3.888872103585e+00);
assert(isequalRel(ep,     7.785805095992e-01, TOL));
assert(isequalRel(inclp,  1.998593292280e-01, TOL));
assert(isequalRel(nodep,  3.247312673439e+00, TOL));
assert(isequalRel(argpp,  3.465972119158e+00, TOL));
assert(isequalRel(mp,    -3.904521895872e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -4.548826202443e-03,  2.057187923104e-03,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  2.969569919355e-02, ...
   1.468368332662e-02, -1.634808994984e-02,  4.324216378214e-02, -5.162579880111e-04,  1.425174198066e-02,  4.931955088329e-03,  5.144176519066e-02, -8.646214930954e-04, ...
   3.951910009817e-02, -1.241558054094e-01,  2.467220444289e-03,  2.400000000000e+03,  6.919617584769e-03,  2.084732624778e-03, -2.717796594982e-04,  7.186248636015e-04, ...
  -2.561986795698e-03, -5.475272881099e-04, -9.211923499783e-03, -2.030877598251e-02, -4.767341552120e-03,  1.298847374429e-03,  5.201540682068e+00, ...
   6.201295960309e+00,  2.155725972308e-01, "n",  7.866845018602e-01,  2.149350981530e-01,  3.269192848515e+00,  3.428702681553e+00, -3.759684447794e+00);
assert(isequalRel(ep,     7.785583205736e-01, TOL));
assert(isequalRel(inclp,  1.998299860573e-01, TOL));
assert(isequalRel(nodep,  3.247144107772e+00, TOL));
assert(isequalRel(argpp,  3.466058471633e+00, TOL));
assert(isequalRel(mp,    -3.775014249782e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -4.548826202443e-03,  2.057187923104e-03,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  2.969569919355e-02, ...
   1.468368332662e-02, -1.634808994984e-02,  4.324216378214e-02, -5.162579880111e-04,  1.425174198066e-02,  4.931955088329e-03,  5.144176519066e-02, -8.646214930954e-04, ...
   3.951910009817e-02, -1.241558054094e-01,  2.467220444289e-03,  2.520000000000e+03,  6.919617584769e-03,  2.084732624778e-03, -2.717796594982e-04,  7.186248636015e-04, ...
  -2.561986795698e-03, -5.475272881099e-04, -9.211923499783e-03, -2.030877598251e-02, -4.767341552120e-03,  1.298847374429e-03,  5.201540682068e+00, ...
   6.201295960309e+00,  2.155725972308e-01, "n",  7.866964919532e-01,  2.149032231991e-01,  3.269093061613e+00,  3.428831393353e+00, -3.630496792003e+00);
assert(isequalRel(ep,     7.785381191701e-01, TOL));
assert(isequalRel(inclp,  1.998046650697e-01, TOL));
assert(isequalRel(nodep,  3.246982544156e+00, TOL));
assert(isequalRel(argpp,  3.466134501218e+00, TOL));
assert(isequalRel(mp,    -3.645504019058e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -4.548826202443e-03,  2.057187923104e-03,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  2.969569919355e-02, ...
   1.468368332662e-02, -1.634808994984e-02,  4.324216378214e-02, -5.162579880111e-04,  1.425174198066e-02,  4.931955088329e-03,  5.144176519066e-02, -8.646214930954e-04, ...
   3.951910009817e-02, -1.241558054094e-01,  2.467220444289e-03,  2.640000000000e+03,  6.919617584769e-03,  2.084732624778e-03, -2.717796594982e-04,  7.186248636015e-04, ...
  -2.561986795698e-03, -5.475272881099e-04, -9.211923499783e-03, -2.030877598251e-02, -4.767341552120e-03,  1.298847374429e-03,  5.201540682068e+00, ...
   6.201295960309e+00,  2.155725972308e-01, "n",  7.867084820462e-01,  2.148713482453e-01,  3.268993274712e+00,  3.428960105153e+00, -3.501309136211e+00);
assert(isequalRel(ep,     7.785199455593e-01, TOL));
assert(isequalRel(inclp,  1.997833632972e-01, TOL));
assert(isequalRel(nodep,  3.246828072189e+00, TOL));
assert(isequalRel(argpp,  3.466200246355e+00, TOL));
assert(isequalRel(mp,    -3.515991570755e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -4.548826202443e-03,  2.057187923104e-03,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  2.969569919355e-02, ...
   1.468368332662e-02, -1.634808994984e-02,  4.324216378214e-02, -5.162579880111e-04,  1.425174198066e-02,  4.931955088329e-03,  5.144176519066e-02, -8.646214930954e-04, ...
   3.951910009817e-02, -1.241558054094e-01,  2.467220444289e-03,  2.760000000000e+03,  6.919617584769e-03,  2.084732624778e-03, -2.717796594982e-04,  7.186248636015e-04, ...
  -2.561986795698e-03, -5.475272881099e-04, -9.211923499783e-03, -2.030877598251e-02, -4.767341552120e-03,  1.298847374429e-03,  5.201540682068e+00, ...
   6.201295960309e+00,  2.155725972308e-01, "n",  7.867204721392e-01,  2.148394732914e-01,  3.268893487811e+00,  3.429088816953e+00, -3.372121480420e+00);
assert(isequalRel(ep,     7.785038365440e-01, TOL));
assert(isequalRel(inclp,  1.997660705742e-01, TOL));
assert(isequalRel(nodep,  3.246680767438e+00, TOL));
assert(isequalRel(argpp,  3.466255765539e+00, TOL));
assert(isequalRel(mp,    -3.386477277527e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -4.548826202443e-03,  2.057187923104e-03,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  2.969569919355e-02, ...
   1.468368332662e-02, -1.634808994984e-02,  4.324216378214e-02, -5.162579880111e-04,  1.425174198066e-02,  4.931955088329e-03,  5.144176519066e-02, -8.646214930954e-04, ...
   3.951910009817e-02, -1.241558054094e-01,  2.467220444289e-03,  2.880000000000e+03,  6.919617584769e-03,  2.084732624778e-03, -2.717796594982e-04,  7.186248636015e-04, ...
  -2.561986795698e-03, -5.475272881099e-04, -9.211923499783e-03, -2.030877598251e-02, -4.767341552120e-03,  1.298847374429e-03,  5.201540682068e+00, ...
   6.201295960309e+00,  2.155725972308e-01, "n",  7.867324622323e-01,  2.148075983375e-01,  3.268793700910e+00,  3.429217528753e+00, -3.242933824629e+00);
assert(isequalRel(ep,     7.784898254564e-01, TOL));
assert(isequalRel(inclp,  1.997527694952e-01, TOL));
assert(isequalRel(nodep,  3.246540691156e+00, TOL));
assert(isequalRel(argpp,  3.466301137396e+00, TOL));
assert(isequalRel(mp,    -3.256961516941e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -4.548826202443e-03,  2.057187923104e-03,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  2.969569919355e-02, ...
   1.468368332662e-02, -1.634808994984e-02,  4.324216378214e-02, -5.162579880111e-04,  1.425174198066e-02,  4.931955088329e-03,  5.144176519066e-02, -8.646214930954e-04, ...
   3.951910009817e-02, -1.241558054094e-01,  2.467220444289e-03,  3.000000000000e+03,  6.919617584769e-03,  2.084732624778e-03, -2.717796594982e-04,  7.186248636015e-04, ...
  -2.561986795698e-03, -5.475272881099e-04, -9.211923499783e-03, -2.030877598251e-02, -4.767341552120e-03,  1.298847374429e-03,  5.201540682068e+00, ...
   6.201295960309e+00,  2.155725972308e-01, "n",  7.867444523253e-01,  2.147757233836e-01,  3.268693914009e+00,  3.429346240553e+00, -3.113746168838e+00);
assert(isequalRel(ep,     7.784779420612e-01, TOL));
assert(isequalRel(inclp,  1.997434353883e-01, TOL));
assert(isequalRel(nodep,  3.246407890028e+00, TOL));
assert(isequalRel(argpp,  3.466336460708e+00, TOL));
assert(isequalRel(mp,    -3.127444670768e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -4.548826202443e-03,  2.057187923104e-03,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  2.969569919355e-02, ...
   1.468368332662e-02, -1.634808994984e-02,  4.324216378214e-02, -5.162579880111e-04,  1.425174198066e-02,  4.931955088329e-03,  5.144176519066e-02, -8.646214930954e-04, ...
   3.951910009817e-02, -1.241558054094e-01,  2.467220444289e-03,  3.120000000000e+03,  6.919617584769e-03,  2.084732624778e-03, -2.717796594982e-04,  7.186248636015e-04, ...
  -2.561986795698e-03, -5.475272881099e-04, -9.211923499783e-03, -2.030877598251e-02, -4.767341552120e-03,  1.298847374429e-03,  5.201540682068e+00, ...
   6.201295960309e+00,  2.155725972308e-01, "n",  7.867564424183e-01,  2.147438484297e-01,  3.268594127108e+00,  3.429474952353e+00, -2.984558513047e+00);
assert(isequalRel(ep,     7.784682124664e-01, TOL));
assert(isequalRel(inclp,  1.997380363059e-01, TOL));
assert(isequalRel(nodep,  3.246282395970e+00, TOL));
assert(isequalRel(argpp,  3.466361854382e+00, TOL));
assert(isequalRel(mp,    -2.997927124256e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -4.548826202443e-03,  2.057187923104e-03,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  2.969569919355e-02, ...
   1.468368332662e-02, -1.634808994984e-02,  4.324216378214e-02, -5.162579880111e-04,  1.425174198066e-02,  4.931955088329e-03,  5.144176519066e-02, -8.646214930954e-04, ...
   3.951910009817e-02, -1.241558054094e-01,  2.467220444289e-03,  3.240000000000e+03,  6.919617584769e-03,  2.084732624778e-03, -2.717796594982e-04,  7.186248636015e-04, ...
  -2.561986795698e-03, -5.475272881099e-04, -9.211923499783e-03, -2.030877598251e-02, -4.767341552120e-03,  1.298847374429e-03,  5.201540682068e+00, ...
   6.201295960309e+00,  2.155725972308e-01, "n",  7.867684325113e-01,  2.147119734758e-01,  3.268494340206e+00,  3.429603664153e+00, -2.855370857256e+00);
assert(isequalRel(ep,     7.784606590418e-01, TOL));
assert(isequalRel(inclp,  1.997365330311e-01, TOL));
assert(isequalRel(nodep,  3.246164225974e+00, TOL));
assert(isequalRel(argpp,  3.466377457355e+00, TOL));
assert(isequalRel(mp,    -2.868409265391e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -4.548826202443e-03,  2.057187923104e-03,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  2.969569919355e-02, ...
   1.468368332662e-02, -1.634808994984e-02,  4.324216378214e-02, -5.162579880111e-04,  1.425174198066e-02,  4.931955088329e-03,  5.144176519066e-02, -8.646214930954e-04, ...
   3.951910009817e-02, -1.241558054094e-01,  2.467220444289e-03,  3.360000000000e+03,  6.919617584769e-03,  2.084732624778e-03, -2.717796594982e-04,  7.186248636015e-04, ...
  -2.561986795698e-03, -5.475272881099e-04, -9.211923499783e-03, -2.030877598251e-02, -4.767341552120e-03,  1.298847374429e-03,  5.201540682068e+00, ...
   6.201295960309e+00,  2.155725972308e-01, "n",  7.867804226043e-01,  2.146800985219e-01,  3.268394553305e+00,  3.429732375953e+00, -2.726183201465e+00);
assert(isequalRel(ep,     7.784553003440e-01, TOL));
assert(isequalRel(inclp,  1.997388791006e-01, TOL));
assert(isequalRel(nodep,  3.246053381991e+00, TOL));
assert(isequalRel(argpp,  3.466383428448e+00, TOL));
assert(isequalRel(mp,    -2.738891484143e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -4.548826202443e-03,  2.057187923104e-03,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  2.969569919355e-02, ...
   1.468368332662e-02, -1.634808994984e-02,  4.324216378214e-02, -5.162579880111e-04,  1.425174198066e-02,  4.931955088329e-03,  5.144176519066e-02, -8.646214930954e-04, ...
   3.951910009817e-02, -1.241558054094e-01,  2.467220444289e-03,  3.480000000000e+03,  6.919617584769e-03,  2.084732624778e-03, -2.717796594982e-04,  7.186248636015e-04, ...
  -2.561986795698e-03, -5.475272881099e-04, -9.211923499783e-03, -2.030877598251e-02, -4.767341552120e-03,  1.298847374429e-03,  5.201540682068e+00, ...
   6.201295960309e+00,  2.155725972308e-01, "n",  7.867924126973e-01,  2.146482235680e-01,  3.268294766404e+00,  3.429861087753e+00, -2.596995545673e+00);
assert(isequalRel(ep,     7.784521510509e-01, TOL));
assert(isequalRel(inclp,  1.997450208452e-01, TOL));
assert(isequalRel(nodep,  3.245949850871e+00, TOL));
assert(isequalRel(argpp,  3.466379946155e+00, TOL));
assert(isequalRel(mp,    -2.609374171698e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -4.548826202443e-03,  2.057187923104e-03,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  2.969569919355e-02, ...
   1.468368332662e-02, -1.634808994984e-02,  4.324216378214e-02, -5.162579880111e-04,  1.425174198066e-02,  4.931955088329e-03,  5.144176519066e-02, -8.646214930954e-04, ...
   3.951910009817e-02, -1.241558054094e-01,  2.467220444289e-03,  3.600000000000e+03,  6.919617584769e-03,  2.084732624778e-03, -2.717796594982e-04,  7.186248636015e-04, ...
  -2.561986795698e-03, -5.475272881099e-04, -9.211923499783e-03, -2.030877598251e-02, -4.767341552120e-03,  1.298847374429e-03,  5.201540682068e+00, ...
   6.201295960309e+00,  2.155725972308e-01, "n",  7.868044027903e-01,  2.146163486141e-01,  3.268194979503e+00,  3.429989799553e+00, -2.467807889882e+00);
assert(isequalRel(ep,     7.784512219028e-01, TOL));
assert(isequalRel(inclp,  1.997548974465e-01, TOL));
assert(isequalRel(nodep,  3.245853604344e+00, TOL));
assert(isequalRel(argpp,  3.466367208377e+00, TOL));
assert(isequalRel(mp,    -2.479857719686e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -4.548826202443e-03,  2.057187923104e-03,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  2.969569919355e-02, ...
   1.468368332662e-02, -1.634808994984e-02,  4.324216378214e-02, -5.162579880111e-04,  1.425174198066e-02,  4.931955088329e-03,  5.144176519066e-02, -8.646214930954e-04, ...
   3.951910009817e-02, -1.241558054094e-01,  2.467220444289e-03,  3.720000000000e+03,  6.919617584769e-03,  2.084732624778e-03, -2.717796594982e-04,  7.186248636015e-04, ...
  -2.561986795698e-03, -5.475272881099e-04, -9.211923499783e-03, -2.030877598251e-02, -4.767341552120e-03,  1.298847374429e-03,  5.201540682068e+00, ...
   6.201295960309e+00,  2.155725972308e-01, "n",  7.868163928833e-01,  2.145844736602e-01,  3.268095192602e+00,  3.430118511353e+00, -2.338620234091e+00);
assert(isequalRel(ep,     7.784525196536e-01, TOL));
assert(isequalRel(inclp,  1.997684410108e-01, TOL));
assert(isequalRel(nodep,  3.245764599045e+00, TOL));
assert(isequalRel(argpp,  3.466345432101e+00, TOL));
assert(isequalRel(mp,    -2.350342519392e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -4.548826202443e-03,  2.057187923104e-03,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  2.969569919355e-02, ...
   1.468368332662e-02, -1.634808994984e-02,  4.324216378214e-02, -5.162579880111e-04,  1.425174198066e-02,  4.931955088329e-03,  5.144176519066e-02, -8.646214930954e-04, ...
   3.951910009817e-02, -1.241558054094e-01,  2.467220444289e-03,  3.840000000000e+03,  6.919617584769e-03,  2.084732624778e-03, -2.717796594982e-04,  7.186248636015e-04, ...
  -2.561986795698e-03, -5.475272881099e-04, -9.211923499783e-03, -2.030877598251e-02, -4.767341552120e-03,  1.298847374429e-03,  5.201540682068e+00, ...
   6.201295960309e+00,  2.155725972308e-01, "n",  7.868283829763e-01,  2.145525987064e-01,  3.267995405701e+00,  3.430247223153e+00, -2.209432578300e+00);
assert(isequalRel(ep,     7.784560470296e-01, TOL));
assert(isequalRel(inclp,  1.997855766601e-01, TOL));
assert(isequalRel(nodep,  3.245682776600e+00, TOL));
assert(isequalRel(argpp,  3.466314853009e+00, TOL));
assert(isequalRel(mp,    -2.220828960971e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -4.548826202443e-03,  2.057187923104e-03,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  2.969569919355e-02, ...
   1.468368332662e-02, -1.634808994984e-02,  4.324216378214e-02, -5.162579880111e-04,  1.425174198066e-02,  4.931955088329e-03,  5.144176519066e-02, -8.646214930954e-04, ...
   3.951910009817e-02, -1.241558054094e-01,  2.467220444289e-03,  3.960000000000e+03,  6.919617584769e-03,  2.084732624778e-03, -2.717796594982e-04,  7.186248636015e-04, ...
  -2.561986795698e-03, -5.475272881099e-04, -9.211923499783e-03, -2.030877598251e-02, -4.767341552120e-03,  1.298847374429e-03,  5.201540682068e+00, ...
   6.201295960309e+00,  2.155725972308e-01, "n",  7.868403730694e-01,  2.145207237525e-01,  3.267895618799e+00,  3.430375934952e+00, -2.080244922509e+00);
assert(isequalRel(ep,     7.784618026977e-01, TOL));
assert(isequalRel(inclp,  1.998062226398e-01, TOL));
assert(isequalRel(nodep,  3.245608063741e+00, TOL));
assert(isequalRel(argpp,  3.466275725048e+00, TOL));
assert(isequalRel(mp,    -2.091317432652e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -4.548826202443e-03,  2.057187923104e-03,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  2.969569919355e-02, ...
   1.468368332662e-02, -1.634808994984e-02,  4.324216378214e-02, -5.162579880111e-04,  1.425174198066e-02,  4.931955088329e-03,  5.144176519066e-02, -8.646214930954e-04, ...
   3.951910009817e-02, -1.241558054094e-01,  2.467220444289e-03,  4.080000000000e+03,  6.919617584769e-03,  2.084732624778e-03, -2.717796594982e-04,  7.186248636015e-04, ...
  -2.561986795698e-03, -5.475272881099e-04, -9.211923499783e-03, -2.030877598251e-02, -4.767341552120e-03,  1.298847374429e-03,  5.201540682068e+00, ...
   6.201295960309e+00,  2.155725972308e-01, "n",  7.868523631624e-01,  2.144888487986e-01,  3.267795831898e+00,  3.430504646752e+00, -1.951057266718e+00);
assert(isequalRel(ep,     7.784697812423e-01, TOL));
assert(isequalRel(inclp,  1.998302904432e-01, TOL));
assert(isequalRel(nodep,  3.245540372478e+00, TOL));
assert(isequalRel(argpp,  3.466228319935e+00, TOL));
assert(isequalRel(mp,    -1.961808319941e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -4.548826202443e-03,  2.057187923104e-03,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  2.969569919355e-02, ...
   1.468368332662e-02, -1.634808994984e-02,  4.324216378214e-02, -5.162579880111e-04,  1.425174198066e-02,  4.931955088329e-03,  5.144176519066e-02, -8.646214930954e-04, ...
   3.951910009817e-02, -1.241558054094e-01,  2.467220444289e-03,  4.200000000000e+03,  6.919617584769e-03,  2.084732624778e-03, -2.717796594982e-04,  7.186248636015e-04, ...
  -2.561986795698e-03, -5.475272881099e-04, -9.211923499783e-03, -2.030877598251e-02, -4.767341552120e-03,  1.298847374429e-03,  5.201540682068e+00, ...
   6.201295960309e+00,  2.155725972308e-01, "n",  7.868643532554e-01,  2.144569738447e-01,  3.267696044997e+00,  3.430633358552e+00, -1.821869610926e+00);
assert(isequalRel(ep,     7.784799731525e-01, TOL));
assert(isequalRel(inclp,  1.998576849526e-01, TOL));
assert(isequalRel(nodep,  3.245479600314e+00, TOL));
assert(isequalRel(argpp,  3.466172926605e+00, TOL));
assert(isequalRel(mp,    -1.832302004828e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -4.548826202443e-03,  2.057187923104e-03,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  2.969569919355e-02, ...
   1.468368332662e-02, -1.634808994984e-02,  4.324216378214e-02, -5.162579880111e-04,  1.425174198066e-02,  4.931955088329e-03,  5.144176519066e-02, -8.646214930954e-04, ...
   3.951910009817e-02, -1.241558054094e-01,  2.467220444289e-03,  4.320000000000e+03,  6.919617584769e-03,  2.084732624778e-03, -2.717796594982e-04,  7.186248636015e-04, ...
  -2.561986795698e-03, -5.475272881099e-04, -9.211923499783e-03, -2.030877598251e-02, -4.767341552120e-03,  1.298847374429e-03,  5.201540682068e+00, ...
   6.201295960309e+00,  2.155725972308e-01, "n",  7.868763433484e-01,  2.144250988908e-01,  3.267596258096e+00,  3.430762070352e+00, -1.692681955135e+00);
assert(isequalRel(ep,     7.784923648171e-01, TOL));
assert(isequalRel(inclp,  1.998883045973e-01, TOL));
assert(isequalRel(nodep,  3.245425630503e+00, TOL));
assert(isequalRel(argpp,  3.466109850617e+00, TOL));
assert(isequalRel(mp,    -1.702798864991e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -5.809658803806e-05,  1.029719050358e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -5.827763896555e-04, ...
   7.782941825865e-04, -1.403967386252e-05, -1.232243049360e-03, -6.871312109088e-05,  1.040864137284e-03,  1.047903595216e-03,  1.704326979978e-03,  5.269146587838e-04, ...
   6.958156453603e-04, -1.138733166786e-03,  2.956953768062e-04,  0.000000000000e+00, -1.645505874222e-04,  1.067426866480e-04, -3.617344251676e-05, -7.385557332388e-05, ...
  -1.379346924380e-04, -1.440041796867e-04, -2.339553088854e-04, -1.733725252342e-04,  1.029442407285e-04,  1.556663348362e-04,  1.632890219145e+00, ...
   2.966847067538e+00,  1.085156717098e+00, "y",  7.421690000000e-01,  1.085156717098e+00,  3.455919470557e+00,  4.416489349660e+00,  3.517903093612e-01);
assert(isequalRel(ep,     7.421690000000e-01, TOL));
assert(isequalRel(inclp,  1.085156717098e+00, TOL));
assert(isequalRel(nodep,  3.455919470557e+00, TOL));
assert(isequalRel(argpp,  4.416489349660e+00, TOL));
assert(isequalRel(mp,     3.517903093612e-01, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -5.809658803806e-05,  1.029719050358e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -5.827763896555e-04, ...
   7.782941825865e-04, -1.403967386252e-05, -1.232243049360e-03, -6.871312109088e-05,  1.040864137284e-03,  1.047903595216e-03,  1.704326979978e-03,  5.269146587838e-04, ...
   6.958156453603e-04, -1.138733166786e-03,  2.956953768062e-04,  0.000000000000e+00, -1.645505874222e-04,  1.067426866480e-04, -3.617344251676e-05, -7.385557332388e-05, ...
  -1.379346924380e-04, -1.440041796867e-04, -2.339553088854e-04, -1.733725252342e-04,  1.029442407285e-04,  1.556663348362e-04,  1.632890219145e+00, ...
   2.966847067538e+00,  1.085156717098e+00, "y",  7.421690000000e-01,  1.085156717098e+00,  3.455919470557e+00,  4.416489349660e+00, -5.931394997818e+00);
assert(isequalRel(ep,     7.421690000000e-01, TOL));
assert(isequalRel(inclp,  1.085156717098e+00, TOL));
assert(isequalRel(nodep,  3.455919470557e+00, TOL));
assert(isequalRel(argpp,  4.416489349660e+00, TOL));
assert(isequalRel(mp,    -5.931394997818e+00, TOL));
# 21897

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -5.809658803806e-05,  1.029719050358e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -5.827763896555e-04, ...
   7.782941825865e-04, -1.403967386252e-05, -1.232243049360e-03, -6.871312109088e-05,  1.040864137284e-03,  1.047903595216e-03,  1.704326979978e-03,  5.269146587838e-04, ...
   6.958156453603e-04, -1.138733166786e-03,  2.956953768062e-04,  0.000000000000e+00, -1.645505874222e-04,  1.067426866480e-04, -3.617344251676e-05, -7.385557332388e-05, ...
  -1.379346924380e-04, -1.440041796867e-04, -2.339553088854e-04, -1.733725252342e-04,  1.029442407285e-04,  1.556663348362e-04,  1.632890219145e+00, ...
   2.966847067538e+00,  1.085156717098e+00, "n",  7.421690000000e-01,  1.085156717098e+00,  3.455919470557e+00,  4.416489349660e+00, -5.931394997818e+00);
assert(isequalRel(ep,     7.423903008106e-01, TOL));
assert(isequalRel(inclp,  1.084744792495e+00, TOL));
assert(isequalRel(nodep,  3.455707219288e+00, TOL));
assert(isequalRel(argpp,  4.416412758315e+00, TOL));
assert(isequalRel(mp,    -5.931482536384e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -5.809658803806e-05,  1.029719050358e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -5.827763896555e-04, ...
   7.782941825865e-04, -1.403967386252e-05, -1.232243049360e-03, -6.871312109088e-05,  1.040864137284e-03,  1.047903595216e-03,  1.704326979978e-03,  5.269146587838e-04, ...
   6.958156453603e-04, -1.138733166786e-03,  2.956953768062e-04,  1.200000000000e+02, -1.645505874222e-04,  1.067426866480e-04, -3.617344251676e-05, -7.385557332388e-05, ...
  -1.379346924380e-04, -1.440041796867e-04, -2.339553088854e-04, -1.733725252342e-04,  1.029442407285e-04,  1.556663348362e-04,  1.632890219145e+00, ...
   2.966847067538e+00,  1.085156717098e+00, "n",  7.421707342569e-01,  1.085156514825e+00,  3.455689332562e+00,  4.416502733869e+00, -4.877524999519e+00);
assert(isequalRel(ep,     7.423908032114e-01, TOL));
assert(isequalRel(inclp,  1.084742274325e+00, TOL));
assert(isequalRel(nodep,  3.455474940189e+00, TOL));
assert(isequalRel(argpp,  4.416429659811e+00, TOL));
assert(isequalRel(mp,    -4.877611398549e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -5.809658803806e-05,  1.029719050358e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -5.827763896555e-04, ...
   7.782941825865e-04, -1.403967386252e-05, -1.232243049360e-03, -6.871312109088e-05,  1.040864137284e-03,  1.047903595216e-03,  1.704326979978e-03,  5.269146587838e-04, ...
   6.958156453603e-04, -1.138733166786e-03,  2.956953768062e-04,  2.400000000000e+02, -1.645505874222e-04,  1.067426866480e-04, -3.617344251676e-05, -7.385557332388e-05, ...
  -1.379346924380e-04, -1.440041796867e-04, -2.339553088854e-04, -1.733725252342e-04,  1.029442407285e-04,  1.556663348362e-04,  1.632890219145e+00, ...
   2.966847067538e+00,  1.085156717098e+00, "n",  7.421724685138e-01,  1.085156312552e+00,  3.455459194573e+00,  4.416516118079e+00, -3.823656229181e+00);
assert(isequalRel(ep,     7.423912796506e-01, TOL));
assert(isequalRel(inclp,  1.084739840417e+00, TOL));
assert(isequalRel(nodep,  3.455242712817e+00, TOL));
assert(isequalRel(argpp,  4.416446587162e+00, TOL));
assert(isequalRel(mp,    -3.823741499501e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -5.809658803806e-05,  1.029719050358e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -5.827763896555e-04, ...
   7.782941825865e-04, -1.403967386252e-05, -1.232243049360e-03, -6.871312109088e-05,  1.040864137284e-03,  1.047903595216e-03,  1.704326979978e-03,  5.269146587838e-04, ...
   6.958156453603e-04, -1.138733166786e-03,  2.956953768062e-04,  3.600000000000e+02, -1.645505874222e-04,  1.067426866480e-04, -3.617344251676e-05, -7.385557332388e-05, ...
  -1.379346924380e-04, -1.440041796867e-04, -2.339553088854e-04, -1.733725252342e-04,  1.029442407285e-04,  1.556663348362e-04,  1.632890219145e+00, ...
   2.966847067538e+00,  1.085156717098e+00, "n",  7.421742027708e-01,  1.085156110279e+00,  3.455229056588e+00,  4.416529502288e+00, -2.769788686805e+00);
assert(isequalRel(ep,     7.423917315350e-01, TOL));
assert(isequalRel(inclp,  1.084737492397e+00, TOL));
assert(isequalRel(nodep,  3.455010538351e+00, TOL));
assert(isequalRel(argpp,  4.416463537281e+00, TOL));
assert(isequalRel(mp,    -2.769872841121e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -5.809658803806e-05,  1.029719050358e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -5.827763896555e-04, ...
   7.782941825865e-04, -1.403967386252e-05, -1.232243049360e-03, -6.871312109088e-05,  1.040864137284e-03,  1.047903595216e-03,  1.704326979978e-03,  5.269146587838e-04, ...
   6.958156453603e-04, -1.138733166786e-03,  2.956953768062e-04,  4.800000000000e+02, -1.645505874222e-04,  1.067426866480e-04, -3.617344251676e-05, -7.385557332388e-05, ...
  -1.379346924380e-04, -1.440041796867e-04, -2.339553088854e-04, -1.733725252342e-04,  1.029442407285e-04,  1.556663348362e-04,  1.632890219145e+00, ...
   2.966847067538e+00,  1.085156717098e+00, "n",  7.421759370277e-01,  1.085155908006e+00,  3.454998918608e+00,  4.416542886497e+00, -1.715922372390e+00);
assert(isequalRel(ep,     7.423921602896e-01, TOL));
assert(isequalRel(inclp,  1.084735231752e+00, TOL));
assert(isequalRel(nodep,  3.454778417880e+00, TOL));
assert(isequalRel(argpp,  4.416480507096e+00, TOL));
assert(isequalRel(mp,    -1.716005425306e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -5.809658803806e-05,  1.029719050358e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -5.827763896555e-04, ...
   7.782941825865e-04, -1.403967386252e-05, -1.232243049360e-03, -6.871312109088e-05,  1.040864137284e-03,  1.047903595216e-03,  1.704326979978e-03,  5.269146587838e-04, ...
   6.958156453603e-04, -1.138733166786e-03,  2.956953768062e-04,  6.000000000000e+02, -1.645505874222e-04,  1.067426866480e-04, -3.617344251676e-05, -7.385557332388e-05, ...
  -1.379346924380e-04, -1.440041796867e-04, -2.339553088854e-04, -1.733725252342e-04,  1.029442407285e-04,  1.556663348362e-04,  1.632890219145e+00, ...
   2.966847067538e+00,  1.085156717098e+00, "n",  7.421776712846e-01,  1.085155705733e+00,  3.454768780634e+00,  4.416556270706e+00, -6.620572859381e-01);
assert(isequalRel(ep,     7.423925673546e-01, TOL));
assert(isequalRel(inclp,  1.084733059830e+00, TOL));
assert(isequalRel(nodep,  3.454546352411e+00, TOL));
assert(isequalRel(argpp,  4.416497493553e+00, TOL));
assert(isequalRel(mp,    -6.621392539631e-01, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -5.809658803806e-05,  1.029719050358e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -5.827763896555e-04, ...
   7.782941825865e-04, -1.403967386252e-05, -1.232243049360e-03, -6.871312109088e-05,  1.040864137284e-03,  1.047903595216e-03,  1.704326979978e-03,  5.269146587838e-04, ...
   6.958156453603e-04, -1.138733166786e-03,  2.956953768062e-04,  7.200000000000e+02, -1.645505874222e-04,  1.067426866480e-04, -3.617344251676e-05, -7.385557332388e-05, ...
  -1.379346924380e-04, -1.440041796867e-04, -2.339553088854e-04, -1.733725252342e-04,  1.029442407285e-04,  1.556663348362e-04,  1.632890219145e+00, ...
   2.966847067538e+00,  1.085156717098e+00, "n",  7.421794055415e-01,  1.085155503460e+00,  3.454538642664e+00,  4.416569654916e+00, -5.891378734627e+00);
assert(isequalRel(ep,     7.423929541834e-01, TOL));
assert(isequalRel(inclp,  1.084730977844e+00, TOL));
assert(isequalRel(nodep,  3.454314342858e+00, TOL));
assert(isequalRel(argpp,  4.416514493620e+00, TOL));
assert(isequalRel(mp,    -5.891459636185e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -5.809658803806e-05,  1.029719050358e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -5.827763896555e-04, ...
   7.782941825865e-04, -1.403967386252e-05, -1.232243049360e-03, -6.871312109088e-05,  1.040864137284e-03,  1.047903595216e-03,  1.704326979978e-03,  5.269146587838e-04, ...
   6.958156453603e-04, -1.138733166786e-03,  2.956953768062e-04,  8.400000000000e+02, -1.645505874222e-04,  1.067426866480e-04, -3.617344251676e-05, -7.385557332388e-05, ...
  -1.379346924380e-04, -1.440041796867e-04, -2.339553088854e-04, -1.733725252342e-04,  1.029442407285e-04,  1.556663348362e-04,  1.632890219145e+00, ...
   2.966847067538e+00,  1.085156717098e+00, "n",  7.421811397985e-01,  1.085155301187e+00,  3.454308504700e+00,  4.416583039125e+00, -4.837516159756e+00);
assert(isequalRel(ep,     7.423933222399e-01, TOL));
assert(isequalRel(inclp,  1.084728986869e+00, TOL));
assert(isequalRel(nodep,  3.454082390051e+00, TOL));
assert(isequalRel(argpp,  4.416531504291e+00, TOL));
assert(isequalRel(mp,    -4.837596015188e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -5.809658803806e-05,  1.029719050358e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -5.827763896555e-04, ...
   7.782941825865e-04, -1.403967386252e-05, -1.232243049360e-03, -6.871312109088e-05,  1.040864137284e-03,  1.047903595216e-03,  1.704326979978e-03,  5.269146587838e-04, ...
   6.958156453603e-04, -1.138733166786e-03,  2.956953768062e-04,  9.600000000000e+02, -1.645505874222e-04,  1.067426866480e-04, -3.617344251676e-05, -7.385557332388e-05, ...
  -1.379346924380e-04, -1.440041796867e-04, -2.339553088854e-04, -1.733725252342e-04,  1.029442407285e-04,  1.556663348362e-04,  1.632890219145e+00, ...
   2.966847067538e+00,  1.085156717098e+00, "n",  7.421828740554e-01,  1.085155098914e+00,  3.454078366740e+00,  4.416596423334e+00, -3.783654828573e+00);
assert(isequalRel(ep,     7.423936729963e-01, TOL));
assert(isequalRel(inclp,  1.084727087844e+00, TOL));
assert(isequalRel(nodep,  3.453850494734e+00, TOL));
assert(isequalRel(argpp,  4.416548522593e+00, TOL));
assert(isequalRel(mp,    -3.783733660138e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -5.809658803806e-05,  1.029719050358e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -5.827763896555e-04, ...
   7.782941825865e-04, -1.403967386252e-05, -1.232243049360e-03, -6.871312109088e-05,  1.040864137284e-03,  1.047903595216e-03,  1.704326979978e-03,  5.269146587838e-04, ...
   6.958156453603e-04, -1.138733166786e-03,  2.956953768062e-04,  1.080000000000e+03, -1.645505874222e-04,  1.067426866480e-04, -3.617344251676e-05, -7.385557332388e-05, ...
  -1.379346924380e-04, -1.440041796867e-04, -2.339553088854e-04, -1.733725252342e-04,  1.029442407285e-04,  1.556663348362e-04,  1.632890219145e+00, ...
   2.966847067538e+00,  1.085156717098e+00, "n",  7.421846083123e-01,  1.085154896641e+00,  3.453848228786e+00,  4.416609807544e+00, -2.729794741079e+00);
assert(isequalRel(ep,     7.423940079309e-01, TOL));
assert(isequalRel(inclp,  1.084725281572e+00, TOL));
assert(isequalRel(nodep,  3.453618657561e+00, TOL));
assert(isequalRel(argpp,  4.416565545582e+00, TOL));
assert(isequalRel(mp,    -2.729872572951e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -5.809658803806e-05,  1.029719050358e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -5.827763896555e-04, ...
   7.782941825865e-04, -1.403967386252e-05, -1.232243049360e-03, -6.871312109088e-05,  1.040864137284e-03,  1.047903595216e-03,  1.704326979978e-03,  5.269146587838e-04, ...
   6.958156453603e-04, -1.138733166786e-03,  2.956953768062e-04,  1.200000000000e+03, -1.645505874222e-04,  1.067426866480e-04, -3.617344251676e-05, -7.385557332388e-05, ...
  -1.379346924380e-04, -1.440041796867e-04, -2.339553088854e-04, -1.733725252342e-04,  1.029442407285e-04,  1.556663348362e-04,  1.632890219145e+00, ...
   2.966847067538e+00,  1.085156717098e+00, "n",  7.421863425692e-01,  1.085154694368e+00,  3.453618090837e+00,  4.416623191753e+00, -1.675935897273e+00);
assert(isequalRel(ep,     7.423943285256e-01, TOL));
assert(isequalRel(inclp,  1.084723568724e+00, TOL));
assert(isequalRel(nodep,  3.453386879102e+00, TOL));
assert(isequalRel(argpp,  4.416582570355e+00, TOL));
assert(isequalRel(mp,    -1.676012755533e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -5.809658803806e-05,  1.029719050358e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -5.827763896555e-04, ...
   7.782941825865e-04, -1.403967386252e-05, -1.232243049360e-03, -6.871312109088e-05,  1.040864137284e-03,  1.047903595216e-03,  1.704326979978e-03,  5.269146587838e-04, ...
   6.958156453603e-04, -1.138733166786e-03,  2.956953768062e-04,  1.320000000000e+03, -1.645505874222e-04,  1.067426866480e-04, -3.617344251676e-05, -7.385557332388e-05, ...
  -1.379346924380e-04, -1.440041796867e-04, -2.339553088854e-04, -1.733725252342e-04,  1.029442407285e-04,  1.556663348362e-04,  1.632890219145e+00, ...
   2.966847067538e+00,  1.085156717098e+00, "n",  7.421880768262e-01,  1.085154492095e+00,  3.453387952892e+00,  4.416636575962e+00, -6.220782971558e-01);
assert(isequalRel(ep,     7.423946362638e-01, TOL));
assert(isequalRel(inclp,  1.084721949836e+00, TOL));
assert(isequalRel(nodep,  3.453155159842e+00, TOL));
assert(isequalRel(argpp,  4.416599594050e+00, TOL));
assert(isequalRel(mp,    -6.221542097844e-01, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -5.809658803806e-05,  1.029719050358e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -5.827763896555e-04, ...
   7.782941825865e-04, -1.403967386252e-05, -1.232243049360e-03, -6.871312109088e-05,  1.040864137284e-03,  1.047903595216e-03,  1.704326979978e-03,  5.269146587838e-04, ...
   6.958156453603e-04, -1.138733166786e-03,  2.956953768062e-04,  1.440000000000e+03, -1.645505874222e-04,  1.067426866480e-04, -3.617344251676e-05, -7.385557332388e-05, ...
  -1.379346924380e-04, -1.440041796867e-04, -2.339553088854e-04, -1.733725252342e-04,  1.029442407285e-04,  1.556663348362e-04,  1.632890219145e+00, ...
   2.966847067538e+00,  1.085156717098e+00, "n",  7.421898110831e-01,  1.085154289822e+00,  3.453157814953e+00,  4.416649960171e+00, -5.851407247906e+00);
assert(isequalRel(ep,     7.423949326286e-01, TOL));
assert(isequalRel(inclp,  1.084720425316e+00, TOL));
assert(isequalRel(nodep,  3.452923500182e+00, TOL));
assert(isequalRel(argpp,  4.416616613848e+00, TOL));
assert(isequalRel(mp,    -5.851482244771e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -5.809658803806e-05,  1.029719050358e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -5.827763896555e-04, ...
   7.782941825865e-04, -1.403967386252e-05, -1.232243049360e-03, -6.871312109088e-05,  1.040864137284e-03,  1.047903595216e-03,  1.704326979978e-03,  5.269146587838e-04, ...
   6.958156453603e-04, -1.138733166786e-03,  2.956953768062e-04,  1.560000000000e+03, -1.645505874222e-04,  1.067426866480e-04, -3.617344251676e-05, -7.385557332388e-05, ...
  -1.379346924380e-04, -1.440041796867e-04, -2.339553088854e-04, -1.733725252342e-04,  1.029442407285e-04,  1.556663348362e-04,  1.632890219145e+00, ...
   2.966847067538e+00,  1.085156717098e+00, "n",  7.421915453400e-01,  1.085154087549e+00,  3.452927677019e+00,  4.416663344381e+00, -4.797552188890e+00);
assert(isequalRel(ep,     7.423952191000e-01, TOL));
assert(isequalRel(inclp,  1.084718995441e+00, TOL));
assert(isequalRel(nodep,  3.452691900436e+00, TOL));
assert(isequalRel(argpp,  4.416633626977e+00, TOL));
assert(isequalRel(mp,    -4.797626301728e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -5.809658803806e-05,  1.029719050358e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -5.827763896555e-04, ...
   7.782941825865e-04, -1.403967386252e-05, -1.232243049360e-03, -6.871312109088e-05,  1.040864137284e-03,  1.047903595216e-03,  1.704326979978e-03,  5.269146587838e-04, ...
   6.958156453603e-04, -1.138733166786e-03,  2.956953768062e-04,  1.680000000000e+03, -1.645505874222e-04,  1.067426866480e-04, -3.617344251676e-05, -7.385557332388e-05, ...
  -1.379346924380e-04, -1.440041796867e-04, -2.339553088854e-04, -1.733725252342e-04,  1.029442407285e-04,  1.556663348362e-04,  1.632890219145e+00, ...
   2.966847067538e+00,  1.085156717098e+00, "n",  7.421932795969e-01,  1.085153885276e+00,  3.452697539090e+00,  4.416676728590e+00, -3.743698388734e+00);
assert(isequalRel(ep,     7.423954971536e-01, TOL));
assert(isequalRel(inclp,  1.084717660360e+00, TOL));
assert(isequalRel(nodep,  3.452460360840e+00, TOL));
assert(isequalRel(argpp,  4.416650630716e+00, TOL));
assert(isequalRel(mp,    -3.743771651137e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -5.809658803806e-05,  1.029719050358e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -5.827763896555e-04, ...
   7.782941825865e-04, -1.403967386252e-05, -1.232243049360e-03, -6.871312109088e-05,  1.040864137284e-03,  1.047903595216e-03,  1.704326979978e-03,  5.269146587838e-04, ...
   6.958156453603e-04, -1.138733166786e-03,  2.956953768062e-04,  1.800000000000e+03, -1.645505874222e-04,  1.067426866480e-04, -3.617344251676e-05, -7.385557332388e-05, ...
  -1.379346924380e-04, -1.440041796867e-04, -2.339553088854e-04, -1.733725252342e-04,  1.029442407285e-04,  1.556663348362e-04,  1.632890219145e+00, ...
   2.966847067538e+00,  1.085156717098e+00, "n",  7.421950138538e-01,  1.085153683003e+00,  3.452467401166e+00,  4.416690112799e+00, -2.689845847438e+00);
assert(isequalRel(ep,     7.423957682582e-01, TOL));
assert(isequalRel(inclp,  1.084716420096e+00, TOL));
assert(isequalRel(nodep,  3.452228881544e+00, TOL));
assert(isequalRel(argpp,  4.416667622396e+00, TOL));
assert(isequalRel(mp,    -2.689918294829e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -5.809658803806e-05,  1.029719050358e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -5.827763896555e-04, ...
   7.782941825865e-04, -1.403967386252e-05, -1.232243049360e-03, -6.871312109088e-05,  1.040864137284e-03,  1.047903595216e-03,  1.704326979978e-03,  5.269146587838e-04, ...
   6.958156453603e-04, -1.138733166786e-03,  2.956953768062e-04,  1.920000000000e+03, -1.645505874222e-04,  1.067426866480e-04, -3.617344251676e-05, -7.385557332388e-05, ...
  -1.379346924380e-04, -1.440041796867e-04, -2.339553088854e-04, -1.733725252342e-04,  1.029442407285e-04,  1.556663348362e-04,  1.632890219145e+00, ...
   2.966847067538e+00,  1.085156717098e+00, "n",  7.421967481108e-01,  1.085153480730e+00,  3.452237263247e+00,  4.416703497008e+00, -1.635994565003e+00);
assert(isequalRel(ep,     7.423960338740e-01, TOL));
assert(isequalRel(inclp,  1.084715274552e+00, TOL));
assert(isequalRel(nodep,  3.451997462623e+00, TOL));
assert(isequalRel(argpp,  4.416684599406e+00, TOL));
assert(isequalRel(mp,    -1.636066234613e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -5.809658803806e-05,  1.029719050358e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -5.827763896555e-04, ...
   7.782941825865e-04, -1.403967386252e-05, -1.232243049360e-03, -6.871312109088e-05,  1.040864137284e-03,  1.047903595216e-03,  1.704326979978e-03,  5.269146587838e-04, ...
   6.958156453603e-04, -1.138733166786e-03,  2.956953768062e-04,  2.040000000000e+03, -1.645505874222e-04,  1.067426866480e-04, -3.617344251676e-05, -7.385557332388e-05, ...
  -1.379346924380e-04, -1.440041796867e-04, -2.339553088854e-04, -1.733725252342e-04,  1.029442407285e-04,  1.556663348362e-04,  1.632890219145e+00, ...
   2.966847067538e+00,  1.085156717098e+00, "n",  7.421984823677e-01,  1.085153278457e+00,  3.452007125333e+00,  4.416716881218e+00, -5.821445414288e-01);
assert(isequalRel(ep,     7.423962954508e-01, TOL));
assert(isequalRel(inclp,  1.084714223507e+00, TOL));
assert(isequalRel(nodep,  3.451766104067e+00, TOL));
assert(isequalRel(argpp,  4.416701559190e+00, TOL));
assert(isequalRel(mp,    -5.822154722695e-01, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -5.809658803806e-05,  1.029719050358e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -5.827763896555e-04, ...
   7.782941825865e-04, -1.403967386252e-05, -1.232243049360e-03, -6.871312109088e-05,  1.040864137284e-03,  1.047903595216e-03,  1.704326979978e-03,  5.269146587838e-04, ...
   6.958156453603e-04, -1.138733166786e-03,  2.956953768062e-04,  2.160000000000e+03, -1.645505874222e-04,  1.067426866480e-04, -3.617344251676e-05, -7.385557332388e-05, ...
  -1.379346924380e-04, -1.440041796867e-04, -2.339553088854e-04, -1.733725252342e-04,  1.029442407285e-04,  1.556663348362e-04,  1.632890219145e+00, ...
   2.966847067538e+00,  1.085156717098e+00, "n",  7.422002166246e-01,  1.085153076183e+00,  3.451776987424e+00,  4.416730265427e+00, -5.811481083895e+00);
assert(isequalRel(ep,     7.423965544262e-01, TOL));
assert(isequalRel(inclp,  1.084713266623e+00, TOL));
assert(isequalRel(nodep,  3.451534805794e+00, TOL));
assert(isequalRel(argpp,  4.416718499254e+00, TOL));
assert(isequalRel(mp,    -5.811551316732e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -5.809658803806e-05,  1.029719050358e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -5.827763896555e-04, ...
   7.782941825865e-04, -1.403967386252e-05, -1.232243049360e-03, -6.871312109088e-05,  1.040864137284e-03,  1.047903595216e-03,  1.704326979978e-03,  5.269146587838e-04, ...
   6.958156453603e-04, -1.138733166786e-03,  2.956953768062e-04,  2.280000000000e+03, -1.645505874222e-04,  1.067426866480e-04, -3.617344251676e-05, -7.385557332388e-05, ...
  -1.379346924380e-04, -1.440041796867e-04, -2.339553088854e-04, -1.733725252342e-04,  1.029442407285e-04,  1.556663348362e-04,  1.632890219145e+00, ...
   2.966847067538e+00,  1.085156717098e+00, "n",  7.422019508815e-01,  1.085152873910e+00,  3.451546849520e+00,  4.416743649636e+00, -4.757633629825e+00);
assert(isequalRel(ep,     7.423968122239e-01, TOL));
assert(isequalRel(inclp,  1.084712403444e+00, TOL));
assert(isequalRel(nodep,  3.451303567642e+00, TOL));
assert(isequalRel(argpp,  4.416735417167e+00, TOL));
assert(isequalRel(mp,    -4.757703207147e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -5.809658803806e-05,  1.029719050358e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -5.827763896555e-04, ...
   7.782941825865e-04, -1.403967386252e-05, -1.232243049360e-03, -6.871312109088e-05,  1.040864137284e-03,  1.047903595216e-03,  1.704326979978e-03,  5.269146587838e-04, ...
   6.958156453603e-04, -1.138733166786e-03,  2.956953768062e-04,  2.400000000000e+03, -1.645505874222e-04,  1.067426866480e-04, -3.617344251676e-05, -7.385557332388e-05, ...
  -1.379346924380e-04, -1.440041796867e-04, -2.339553088854e-04, -1.733725252342e-04,  1.029442407285e-04,  1.556663348362e-04,  1.632890219145e+00, ...
   2.966847067538e+00,  1.085156717098e+00, "n",  7.422036851385e-01,  1.085152671637e+00,  3.451316711621e+00,  4.416757033845e+00, -3.703787449232e+00);
assert(isequalRel(ep,     7.423970702521e-01, TOL));
assert(isequalRel(inclp,  1.084711633402e+00, TOL));
assert(isequalRel(nodep,  3.451072389377e+00, TOL));
assert(isequalRel(argpp,  4.416752310562e+00, TOL));
assert(isequalRel(mp,    -3.703856415215e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -5.809658803806e-05,  1.029719050358e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -5.827763896555e-04, ...
   7.782941825865e-04, -1.403967386252e-05, -1.232243049360e-03, -6.871312109088e-05,  1.040864137284e-03,  1.047903595216e-03,  1.704326979978e-03,  5.269146587838e-04, ...
   6.958156453603e-04, -1.138733166786e-03,  2.956953768062e-04,  2.520000000000e+03, -1.645505874222e-04,  1.067426866480e-04, -3.617344251676e-05, -7.385557332388e-05, ...
  -1.379346924380e-04, -1.440041796867e-04, -2.339553088854e-04, -1.733725252342e-04,  1.029442407285e-04,  1.556663348362e-04,  1.632890219145e+00, ...
   2.966847067538e+00,  1.085156717098e+00, "n",  7.422054193954e-01,  1.085152469364e+00,  3.451086573727e+00,  4.416770418055e+00, -2.649942542116e+00);
assert(isequalRel(ep,     7.423973299018e-01, TOL));
assert(isequalRel(inclp,  1.084710955818e+00, TOL));
assert(isequalRel(nodep,  3.450841270690e+00, TOL));
assert(isequalRel(argpp,  4.416769177138e+00, TOL));
assert(isequalRel(mp,    -2.650010942588e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -5.809658803806e-05,  1.029719050358e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -5.827763896555e-04, ...
   7.782941825865e-04, -1.403967386252e-05, -1.232243049360e-03, -6.871312109088e-05,  1.040864137284e-03,  1.047903595216e-03,  1.704326979978e-03,  5.269146587838e-04, ...
   6.958156453603e-04, -1.138733166786e-03,  2.956953768062e-04,  2.640000000000e+03, -1.645505874222e-04,  1.067426866480e-04, -3.617344251676e-05, -7.385557332388e-05, ...
  -1.379346924380e-04, -1.440041796867e-04, -2.339553088854e-04, -1.733725252342e-04,  1.029442407285e-04,  1.556663348362e-04,  1.632890219145e+00, ...
   2.966847067538e+00,  1.085156717098e+00, "n",  7.422071536523e-01,  1.085152267091e+00,  3.450856435839e+00,  4.416783802264e+00, -1.596098908476e+00);
assert(isequalRel(ep,     7.423975925453e-01, TOL));
assert(isequalRel(inclp,  1.084710369906e+00, TOL));
assert(isequalRel(nodep,  3.450610211203e+00, TOL));
assert(isequalRel(argpp,  4.416786014662e+00, TOL));
assert(isequalRel(mp,    -1.596166790884e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -5.809658803806e-05,  1.029719050358e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -5.827763896555e-04, ...
   7.782941825865e-04, -1.403967386252e-05, -1.232243049360e-03, -6.871312109088e-05,  1.040864137284e-03,  1.047903595216e-03,  1.704326979978e-03,  5.269146587838e-04, ...
   6.958156453603e-04, -1.138733166786e-03,  2.956953768062e-04,  2.760000000000e+03, -1.645505874222e-04,  1.067426866480e-04, -3.617344251676e-05, -7.385557332388e-05, ...
  -1.379346924380e-04, -1.440041796867e-04, -2.339553088854e-04, -1.733725252342e-04,  1.029442407285e-04,  1.556663348362e-04,  1.632890219145e+00, ...
   2.966847067538e+00,  1.085156717098e+00, "n",  7.422088879092e-01,  1.085152064818e+00,  3.450626297955e+00,  4.416797186473e+00, -5.422565483123e-01);
assert(isequalRel(ep,     7.423978595350e-01, TOL));
assert(isequalRel(inclp,  1.084709874774e+00, TOL));
assert(isequalRel(nodep,  3.450379210465e+00, TOL));
assert(isequalRel(argpp,  4.416802820971e+00, TOL));
assert(isequalRel(mp,    -5.423239616763e-01, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -5.809658803806e-05,  1.029719050358e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -5.827763896555e-04, ...
   7.782941825865e-04, -1.403967386252e-05, -1.232243049360e-03, -6.871312109088e-05,  1.040864137284e-03,  1.047903595216e-03,  1.704326979978e-03,  5.269146587838e-04, ...
   6.958156453603e-04, -1.138733166786e-03,  2.956953768062e-04,  2.880000000000e+03, -1.645505874222e-04,  1.067426866480e-04, -3.617344251676e-05, -7.385557332388e-05, ...
  -1.379346924380e-04, -1.440041796867e-04, -2.339553088854e-04, -1.733725252342e-04,  1.029442407285e-04,  1.556663348362e-04,  1.632890219145e+00, ...
   2.966847067538e+00,  1.085156717098e+00, "n",  7.422106221661e-01,  1.085151862545e+00,  3.450396160076e+00,  4.416810570683e+00, -5.771600768805e+00);
assert(isequalRel(ep,     7.423981322017e-01, TOL));
assert(isequalRel(inclp,  1.084709469428e+00, TOL));
assert(isequalRel(nodep,  3.450148267962e+00, TOL));
assert(isequalRel(argpp,  4.416819593974e+00, TOL));
assert(isequalRel(mp,    -5.771667763681e+00, TOL));
# 22312
# *** error: t:= 494.202867 *** code =   1

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -1.880237977527e-04,  6.551908742706e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -1.668215845123e-03, ...
   3.610858069376e-03, -4.299448087716e-03, -1.722984622184e-03, -6.889598529018e-05,  3.935976325614e-03,  3.059743184660e-03,  1.789568818084e-03,  2.366876188168e-04, ...
   9.202998763432e-03,  2.742276317175e-03,  3.044773891692e-04,  0.000000000000e+00,  2.558144451794e-04,  7.760342525429e-04, -3.626970983073e-05, -4.442804590880e-05, ...
  -7.585547023917e-04, -1.445258766608e-04, -2.241607759555e-04, -6.443953743437e-04, -1.634546261908e-03,  1.602895511062e-04,  1.755039480870e+00, ...
   2.976061799015e+00,  1.108345161540e+00, "y",  7.541712000000e-01,  1.108345161540e+00,  6.186235757890e+00,  4.421379762224e+00,  3.276925483789e-01);
assert(isequalRel(ep,     7.541712000000e-01, TOL));
assert(isequalRel(inclp,  1.108345161540e+00, TOL));
assert(isequalRel(nodep,  6.186235757890e+00, TOL));
assert(isequalRel(argpp,  4.421379762224e+00, TOL));
assert(isequalRel(mp,     3.276925483789e-01, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -1.880237977527e-04,  6.551908742706e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -1.668215845123e-03, ...
   3.610858069376e-03, -4.299448087716e-03, -1.722984622184e-03, -6.889598529018e-05,  3.935976325614e-03,  3.059743184660e-03,  1.789568818084e-03,  2.366876188168e-04, ...
   9.202998763432e-03,  2.742276317175e-03,  3.044773891692e-04,  0.000000000000e+00,  2.558144451794e-04,  7.760342525429e-04, -3.626970983073e-05, -4.442804590880e-05, ...
  -7.585547023917e-04, -1.445258766608e-04, -2.241607759555e-04, -6.443953743437e-04, -1.634546261908e-03,  1.602895511062e-04,  1.755039480870e+00, ...
   2.976061799015e+00,  1.108345161540e+00, "y",  7.541712000000e-01,  1.108345161540e+00,  6.186235757890e+00,  4.421379762224e+00, -5.955492758801e+00);
assert(isequalRel(ep,     7.541712000000e-01, TOL));
assert(isequalRel(inclp,  1.108345161540e+00, TOL));
assert(isequalRel(nodep,  6.186235757890e+00, TOL));
assert(isequalRel(argpp,  4.421379762224e+00, TOL));
assert(isequalRel(mp,    -5.955492758801e+00, TOL));
# 22674

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -1.880237977527e-04,  6.551908742706e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -1.668215845123e-03, ...
   3.610858069376e-03, -4.299448087716e-03, -1.722984622184e-03, -6.889598529018e-05,  3.935976325614e-03,  3.059743184660e-03,  1.789568818084e-03,  2.366876188168e-04, ...
   9.202998763432e-03,  2.742276317175e-03,  3.044773891692e-04,  0.000000000000e+00,  2.558144451794e-04,  7.760342525429e-04, -3.626970983073e-05, -4.442804590880e-05, ...
  -7.585547023917e-04, -1.445258766608e-04, -2.241607759555e-04, -6.443953743437e-04, -1.634546261908e-03,  1.602895511062e-04,  1.755039480870e+00, ...
   2.976061799015e+00,  1.108345161540e+00, "n",  7.541712000000e-01,  1.108345161540e+00,  6.186235757890e+00,  4.421379762224e+00, -5.955492758801e+00);
assert(isequalRel(ep,     7.549617471354e-01, TOL));
assert(isequalRel(inclp,  1.107878047077e+00, TOL));
assert(isequalRel(nodep,  6.185333521411e+00, TOL));
assert(isequalRel(argpp,  4.422782109485e+00, TOL));
assert(isequalRel(mp,    -5.957618817061e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -1.880237977527e-04,  6.551908742706e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -1.668215845123e-03, ...
   3.610858069376e-03, -4.299448087716e-03, -1.722984622184e-03, -6.889598529018e-05,  3.935976325614e-03,  3.059743184660e-03,  1.789568818084e-03,  2.366876188168e-04, ...
   9.202998763432e-03,  2.742276317175e-03,  3.044773891692e-04,  1.200000000000e+02,  2.558144451794e-04,  7.760342525429e-04, -3.626970983073e-05, -4.442804590880e-05, ...
  -7.585547023917e-04, -1.445258766608e-04, -2.241607759555e-04, -6.443953743437e-04, -1.634546261908e-03,  1.602895511062e-04,  1.755039480870e+00, ...
   2.976061799015e+00,  1.108345161540e+00, "n",  7.541718912979e-01,  1.108342340465e+00,  6.185998655318e+00,  4.421382566440e+00, -4.925679281607e+00);
assert(isequalRel(ep,     7.549555284656e-01, TOL));
assert(isequalRel(inclp,  1.107873726850e+00, TOL));
assert(isequalRel(nodep,  6.185086979082e+00, TOL));
assert(isequalRel(argpp,  4.422796089926e+00, TOL));
assert(isequalRel(mp,    -4.927819566771e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -1.880237977527e-04,  6.551908742706e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -1.668215845123e-03, ...
   3.610858069376e-03, -4.299448087716e-03, -1.722984622184e-03, -6.889598529018e-05,  3.935976325614e-03,  3.059743184660e-03,  1.789568818084e-03,  2.366876188168e-04, ...
   9.202998763432e-03,  2.742276317175e-03,  3.044773891692e-04,  2.400000000000e+02,  2.558144451794e-04,  7.760342525429e-04, -3.626970983073e-05, -4.442804590880e-05, ...
  -7.585547023917e-04, -1.445258766608e-04, -2.241607759555e-04, -6.443953743437e-04, -1.634546261908e-03,  1.602895511062e-04,  1.755039480870e+00, ...
   2.976061799015e+00,  1.108345161540e+00, "n",  7.541725825958e-01,  1.108339519389e+00,  6.185761552533e+00,  4.421385370657e+00, -3.895864331200e+00);
assert(isequalRel(ep,     7.549491688879e-01, TOL));
assert(isequalRel(inclp,  1.107869497278e+00, TOL));
assert(isequalRel(nodep,  6.184840639721e+00, TOL));
assert(isequalRel(argpp,  4.422809747162e+00, TOL));
assert(isequalRel(mp,    -3.898018351018e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -1.880237977527e-04,  6.551908742706e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -1.668215845123e-03, ...
   3.610858069376e-03, -4.299448087716e-03, -1.722984622184e-03, -6.889598529018e-05,  3.935976325614e-03,  3.059743184660e-03,  1.789568818084e-03,  2.366876188168e-04, ...
   9.202998763432e-03,  2.742276317175e-03,  3.044773891692e-04,  3.600000000000e+02,  2.558144451794e-04,  7.760342525429e-04, -3.626970983073e-05, -4.442804590880e-05, ...
  -7.585547023917e-04, -1.445258766608e-04, -2.241607759555e-04, -6.443953743437e-04, -1.634546261908e-03,  1.602895511062e-04,  1.755039480870e+00, ...
   2.976061799015e+00,  1.108345161540e+00, "n",  7.541732738937e-01,  1.108336698314e+00,  6.185524449537e+00,  4.421388174873e+00, -2.866047907578e+00);
assert(isequalRel(ep,     7.549426761991e-01, TOL));
assert(isequalRel(inclp,  1.107865359015e+00, TOL));
assert(isequalRel(nodep,  6.184594510441e+00, TOL));
assert(isequalRel(argpp,  4.422823073326e+00, TOL));
assert(isequalRel(mp,    -2.868215160580e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -1.880237977527e-04,  6.551908742706e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -1.668215845123e-03, ...
   3.610858069376e-03, -4.299448087716e-03, -1.722984622184e-03, -6.889598529018e-05,  3.935976325614e-03,  3.059743184660e-03,  1.789568818084e-03,  2.366876188168e-04, ...
   9.202998763432e-03,  2.742276317175e-03,  3.044773891692e-04,  4.800000000000e+02,  2.558144451794e-04,  7.760342525429e-04, -3.626970983073e-05, -4.442804590880e-05, ...
  -7.585547023917e-04, -1.445258766608e-04, -2.241607759555e-04, -6.443953743437e-04, -1.634546261908e-03,  1.602895511062e-04,  1.755039480870e+00, ...
   2.976061799015e+00,  1.108345161540e+00, "n",  7.541739651915e-01,  1.108333877238e+00,  6.185287346329e+00,  4.421390979089e+00, -1.836230010742e+00);
assert(isequalRel(ep,     7.549360582881e-01, TOL));
assert(isequalRel(inclp,  1.107861312584e+00, TOL));
assert(isequalRel(nodep,  6.184348597996e+00, TOL));
assert(isequalRel(argpp,  4.422836061092e+00, TOL));
assert(isequalRel(mp,    -1.838409987065e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -1.880237977527e-04,  6.551908742706e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -1.668215845123e-03, ...
   3.610858069376e-03, -4.299448087716e-03, -1.722984622184e-03, -6.889598529018e-05,  3.935976325614e-03,  3.059743184660e-03,  1.789568818084e-03,  2.366876188168e-04, ...
   9.202998763432e-03,  2.742276317175e-03,  3.044773891692e-04,  6.000000000000e+02,  2.558144451794e-04,  7.760342525429e-04, -3.626970983073e-05, -4.442804590880e-05, ...
  -7.585547023917e-04, -1.445258766608e-04, -2.241607759555e-04, -6.443953743437e-04, -1.634546261908e-03,  1.602895511062e-04,  1.755039480870e+00, ...
   2.976061799015e+00,  1.108345161540e+00, "n",  7.541746564894e-01,  1.108331056163e+00,  6.185050242908e+00,  4.421393783305e+00, -8.064106406921e-01);
assert(isequalRel(ep,     7.549293231233e-01, TOL));
assert(isequalRel(inclp,  1.107857358381e+00, TOL));
assert(isequalRel(nodep,  6.184102908773e+00, TOL));
assert(isequalRel(argpp,  4.422848703681e+00, TOL));
assert(isequalRel(mp,    -8.086028229049e-01, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -1.880237977527e-04,  6.551908742706e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -1.668215845123e-03, ...
   3.610858069376e-03, -4.299448087716e-03, -1.722984622184e-03, -6.889598529018e-05,  3.935976325614e-03,  3.059743184660e-03,  1.789568818084e-03,  2.366876188168e-04, ...
   9.202998763432e-03,  2.742276317175e-03,  3.044773891692e-04,  7.200000000000e+02,  2.558144451794e-04,  7.760342525429e-04, -3.626970983073e-05, -4.442804590880e-05, ...
  -7.585547023917e-04, -1.445258766608e-04, -2.241607759555e-04, -6.443953743437e-04, -1.634546261908e-03,  1.602895511062e-04,  1.755039480870e+00, ...
   2.976061799015e+00,  1.108345161540e+00, "n",  7.541753477873e-01,  1.108328235087e+00,  6.184813139276e+00,  4.421396587522e+00, -6.059775104607e+00);
assert(isequalRel(ep,     7.549224787399e-01, TOL));
assert(isequalRel(inclp,  1.107853496674e+00, TOL));
assert(isequalRel(nodep,  6.183857448792e+00, TOL));
assert(isequalRel(argpp,  4.422860994857e+00, TOL));
assert(isequalRel(mp,    -6.061978968531e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -1.880237977527e-04,  6.551908742706e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -1.668215845123e-03, ...
   3.610858069376e-03, -4.299448087716e-03, -1.722984622184e-03, -6.889598529018e-05,  3.935976325614e-03,  3.059743184660e-03,  1.789568818084e-03,  2.366876188168e-04, ...
   9.202998763432e-03,  2.742276317175e-03,  3.044773891692e-04,  8.400000000000e+02,  2.558144451794e-04,  7.760342525429e-04, -3.626970983073e-05, -4.442804590880e-05, ...
  -7.585547023917e-04, -1.445258766608e-04, -2.241607759555e-04, -6.443953743437e-04, -1.634546261908e-03,  1.602895511062e-04,  1.755039480870e+00, ...
   2.976061799015e+00,  1.108345161540e+00, "n",  7.541760390852e-01,  1.108325414012e+00,  6.184576035432e+00,  4.421399391738e+00, -5.029952170333e+00);
assert(isequalRel(ep,     7.549155332270e-01, TOL));
assert(isequalRel(inclp,  1.107849727610e+00, TOL));
assert(isequalRel(nodep,  6.183612223705e+00, TOL));
assert(isequalRel(argpp,  4.422872928930e+00, TOL));
assert(isequalRel(mp,    -5.032167185856e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -1.880237977527e-04,  6.551908742706e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -1.668215845123e-03, ...
   3.610858069376e-03, -4.299448087716e-03, -1.722984622184e-03, -6.889598529018e-05,  3.935976325614e-03,  3.059743184660e-03,  1.789568818084e-03,  2.366876188168e-04, ...
   9.202998763432e-03,  2.742276317175e-03,  3.044773891692e-04,  9.600000000000e+02,  2.558144451794e-04,  7.760342525429e-04, -3.626970983073e-05, -4.442804590880e-05, ...
  -7.585547023917e-04, -1.445258766608e-04, -2.241607759555e-04, -6.443953743437e-04, -1.634546261908e-03,  1.602895511062e-04,  1.755039480870e+00, ...
   2.976061799015e+00,  1.108345161540e+00, "n",  7.541767303831e-01,  1.108322592936e+00,  6.184338931376e+00,  4.421402195954e+00, -4.000127590230e+00);
assert(isequalRel(ep,     7.549084947162e-01, TOL));
assert(isequalRel(inclp,  1.107846051209e+00, TOL));
assert(isequalRel(nodep,  6.183367238791e+00, TOL));
assert(isequalRel(argpp,  4.422884500751e+00, TOL));
assert(isequalRel(mp,    -4.002353222118e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -1.880237977527e-04,  6.551908742706e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -1.668215845123e-03, ...
   3.610858069376e-03, -4.299448087716e-03, -1.722984622184e-03, -6.889598529018e-05,  3.935976325614e-03,  3.059743184660e-03,  1.789568818084e-03,  2.366876188168e-04, ...
   9.202998763432e-03,  2.742276317175e-03,  3.044773891692e-04,  1.080000000000e+03,  2.558144451794e-04,  7.760342525429e-04, -3.626970983073e-05, -4.442804590880e-05, ...
  -7.585547023917e-04, -1.445258766608e-04, -2.241607759555e-04, -6.443953743437e-04, -1.634546261908e-03,  1.602895511062e-04,  1.755039480870e+00, ...
   2.976061799015e+00,  1.108345161540e+00, "n",  7.541774216810e-01,  1.108319771861e+00,  6.184101827108e+00,  4.421405000170e+00, -2.970301364297e+00);
assert(isequalRel(ep,     7.549013713687e-01, TOL));
assert(isequalRel(inclp,  1.107842467373e+00, TOL));
assert(isequalRel(nodep,  6.183122498959e+00, TOL));
assert(isequalRel(argpp,  4.422895705711e+00, TOL));
assert(isequalRel(mp,    -2.972537072995e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -1.880237977527e-04,  6.551908742706e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -1.668215845123e-03, ...
   3.610858069376e-03, -4.299448087716e-03, -1.722984622184e-03, -6.889598529018e-05,  3.935976325614e-03,  3.059743184660e-03,  1.789568818084e-03,  2.366876188168e-04, ...
   9.202998763432e-03,  2.742276317175e-03,  3.044773891692e-04,  1.200000000000e+03,  2.558144451794e-04,  7.760342525429e-04, -3.626970983073e-05, -4.442804590880e-05, ...
  -7.585547023917e-04, -1.445258766608e-04, -2.241607759555e-04, -6.443953743437e-04, -1.634546261908e-03,  1.602895511062e-04,  1.755039480870e+00, ...
   2.976061799015e+00,  1.108345161540e+00, "n",  7.541781129788e-01,  1.108316950785e+00,  6.183864722627e+00,  4.421407804387e+00, -1.940473492535e+00);
assert(isequalRel(ep,     7.548941713642e-01, TOL));
assert(isequalRel(inclp,  1.107838975887e+00, TOL));
assert(isequalRel(nodep,  6.182878008746e+00, TOL));
assert(isequalRel(argpp,  4.422906539741e+00, TOL));
assert(isequalRel(mp,    -1.942718734958e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -1.880237977527e-04,  6.551908742706e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -1.668215845123e-03, ...
   3.610858069376e-03, -4.299448087716e-03, -1.722984622184e-03, -6.889598529018e-05,  3.935976325614e-03,  3.059743184660e-03,  1.789568818084e-03,  2.366876188168e-04, ...
   9.202998763432e-03,  2.742276317175e-03,  3.044773891692e-04,  1.320000000000e+03,  2.558144451794e-04,  7.760342525429e-04, -3.626970983073e-05, -4.442804590880e-05, ...
  -7.585547023917e-04, -1.445258766608e-04, -2.241607759555e-04, -6.443953743437e-04, -1.634546261908e-03,  1.602895511062e-04,  1.755039480870e+00, ...
   2.976061799015e+00,  1.108345161540e+00, "n",  7.541788042767e-01,  1.108314129710e+00,  6.183627617935e+00,  4.421410608603e+00, -9.106439749433e-01);
assert(isequalRel(ep,     7.548869028894e-01, TOL));
assert(isequalRel(inclp,  1.107835576418e+00, TOL));
assert(isequalRel(nodep,  6.182633772316e+00, TOL));
assert(isequalRel(argpp,  4.422916999301e+00, TOL));
assert(isequalRel(mp,    -9.128982052609e-01, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -1.880237977527e-04,  6.551908742706e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -1.668215845123e-03, ...
   3.610858069376e-03, -4.299448087716e-03, -1.722984622184e-03, -6.889598529018e-05,  3.935976325614e-03,  3.059743184660e-03,  1.789568818084e-03,  2.366876188168e-04, ...
   9.202998763432e-03,  2.742276317175e-03,  3.044773891692e-04,  1.440000000000e+03,  2.558144451794e-04,  7.760342525429e-04, -3.626970983073e-05, -4.442804590880e-05, ...
  -7.585547023917e-04, -1.445258766608e-04, -2.241607759555e-04, -6.443953743437e-04, -1.634546261908e-03,  1.602895511062e-04,  1.755039480870e+00, ...
   2.976061799015e+00,  1.108345161540e+00, "n",  7.541794955746e-01,  1.108311308634e+00,  6.183390513031e+00,  4.421413412819e+00, -6.163998118702e+00);
assert(isequalRel(ep,     7.548795741267e-01, TOL));
assert(isequalRel(inclp,  1.107832268519e+00, TOL));
assert(isequalRel(nodep,  6.182389793465e+00, TOL));
assert(isequalRel(argpp,  4.422927081381e+00, TOL));
assert(isequalRel(mp,    -6.166260789112e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -1.880237977527e-04,  6.551908742706e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -1.668215845123e-03, ...
   3.610858069376e-03, -4.299448087716e-03, -1.722984622184e-03, -6.889598529018e-05,  3.935976325614e-03,  3.059743184660e-03,  1.789568818084e-03,  2.366876188168e-04, ...
   9.202998763432e-03,  2.742276317175e-03,  3.044773891692e-04,  1.560000000000e+03,  2.558144451794e-04,  7.760342525429e-04, -3.626970983073e-05, -4.442804590880e-05, ...
  -7.585547023917e-04, -1.445258766608e-04, -2.241607759555e-04, -6.443953743437e-04, -1.634546261908e-03,  1.602895511062e-04,  1.755039480870e+00, ...
   2.976061799015e+00,  1.108345161540e+00, "n",  7.541801868725e-01,  1.108308487559e+00,  6.183153407915e+00,  4.421416217035e+00, -5.134164726129e+00);
assert(isequalRel(ep,     7.548721932435e-01, TOL));
assert(isequalRel(inclp,  1.107829051636e+00, TOL));
assert(isequalRel(nodep,  6.182146075617e+00, TOL));
assert(isequalRel(argpp,  4.422936783493e+00, TOL));
assert(isequalRel(mp,    -5.136435287617e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -1.880237977527e-04,  6.551908742706e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -1.668215845123e-03, ...
   3.610858069376e-03, -4.299448087716e-03, -1.722984622184e-03, -6.889598529018e-05,  3.935976325614e-03,  3.059743184660e-03,  1.789568818084e-03,  2.366876188168e-04, ...
   9.202998763432e-03,  2.742276317175e-03,  3.044773891692e-04,  1.680000000000e+03,  2.558144451794e-04,  7.760342525429e-04, -3.626970983073e-05, -4.442804590880e-05, ...
  -7.585547023917e-04, -1.445258766608e-04, -2.241607759555e-04, -6.443953743437e-04, -1.634546261908e-03,  1.602895511062e-04,  1.755039480870e+00, ...
   2.976061799015e+00,  1.108345161540e+00, "n",  7.541808781704e-01,  1.108305666483e+00,  6.182916302586e+00,  4.421419021252e+00, -4.104329526280e+00);
assert(isequalRel(ep,     7.548647683814e-01, TOL));
assert(isequalRel(inclp,  1.107825925103e+00, TOL));
assert(isequalRel(nodep,  6.181902621830e+00, TOL));
assert(isequalRel(argpp,  4.422946103668e+00, TOL));
assert(isequalRel(mp,    -4.106607429369e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -1.880237977527e-04,  6.551908742706e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -1.668215845123e-03, ...
   3.610858069376e-03, -4.299448087716e-03, -1.722984622184e-03, -6.889598529018e-05,  3.935976325614e-03,  3.059743184660e-03,  1.789568818084e-03,  2.366876188168e-04, ...
   9.202998763432e-03,  2.742276317175e-03,  3.044773891692e-04,  1.800000000000e+03,  2.558144451794e-04,  7.760342525429e-04, -3.626970983073e-05, -4.442804590880e-05, ...
  -7.585547023917e-04, -1.445258766608e-04, -2.241607759555e-04, -6.443953743437e-04, -1.634546261908e-03,  1.602895511062e-04,  1.755039480870e+00, ...
   2.976061799015e+00,  1.108345161540e+00, "n",  7.541815694683e-01,  1.108302845408e+00,  6.182679197046e+00,  4.421421825468e+00, -3.074492519154e+00);
assert(isequalRel(ep,     7.548573076468e-01, TOL));
assert(isequalRel(inclp,  1.107822888150e+00, TOL));
assert(isequalRel(nodep,  6.181659434796e+00, TOL));
assert(isequalRel(argpp,  4.422955040446e+00, TOL));
assert(isequalRel(mp,    -3.076777214644e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -1.880237977527e-04,  6.551908742706e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -1.668215845123e-03, ...
   3.610858069376e-03, -4.299448087716e-03, -1.722984622184e-03, -6.889598529018e-05,  3.935976325614e-03,  3.059743184660e-03,  1.789568818084e-03,  2.366876188168e-04, ...
   9.202998763432e-03,  2.742276317175e-03,  3.044773891692e-04,  1.920000000000e+03,  2.558144451794e-04,  7.760342525429e-04, -3.626970983073e-05, -4.442804590880e-05, ...
  -7.585547023917e-04, -1.445258766608e-04, -2.241607759555e-04, -6.443953743437e-04, -1.634546261908e-03,  1.602895511062e-04,  1.755039480870e+00, ...
   2.976061799015e+00,  1.108345161540e+00, "n",  7.541822607662e-01,  1.108300024332e+00,  6.182442091294e+00,  4.421424629684e+00, -2.044653704752e+00);
assert(isequalRel(ep,     7.548498191002e-01, TOL));
assert(isequalRel(inclp,  1.107819939905e+00, TOL));
assert(isequalRel(nodep,  6.181416516846e+00, TOL));
assert(isequalRel(argpp,  4.422963592870e+00, TOL));
assert(isequalRel(mp,    -2.046944644437e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -1.880237977527e-04,  6.551908742706e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -1.668215845123e-03, ...
   3.610858069376e-03, -4.299448087716e-03, -1.722984622184e-03, -6.889598529018e-05,  3.935976325614e-03,  3.059743184660e-03,  1.789568818084e-03,  2.366876188168e-04, ...
   9.202998763432e-03,  2.742276317175e-03,  3.044773891692e-04,  2.040000000000e+03,  2.558144451794e-04,  7.760342525429e-04, -3.626970983073e-05, -4.442804590880e-05, ...
  -7.585547023917e-04, -1.445258766608e-04, -2.241607759555e-04, -6.443953743437e-04, -1.634546261908e-03,  1.602895511062e-04,  1.755039480870e+00, ...
   2.976061799015e+00,  1.108345161540e+00, "n",  7.541829520640e-01,  1.108297203257e+00,  6.182204985330e+00,  4.421427433900e+00, -1.014813083073e+00);
assert(isequalRel(ep,     7.548423107469e-01, TOL));
assert(isequalRel(inclp,  1.107817079395e+00, TOL));
assert(isequalRel(nodep,  6.181173869951e+00, TOL));
assert(isequalRel(argpp,  4.422971760479e+00, TOL));
assert(isequalRel(mp,    -1.017109720454e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -1.880237977527e-04,  6.551908742706e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -1.668215845123e-03, ...
   3.610858069376e-03, -4.299448087716e-03, -1.722984622184e-03, -6.889598529018e-05,  3.935976325614e-03,  3.059743184660e-03,  1.789568818084e-03,  2.366876188168e-04, ...
   9.202998763432e-03,  2.742276317175e-03,  3.044773891692e-04,  2.160000000000e+03,  2.558144451794e-04,  7.760342525429e-04, -3.626970983073e-05, -4.442804590880e-05, ...
  -7.585547023917e-04, -1.445258766608e-04, -2.241607759555e-04, -6.443953743437e-04, -1.634546261908e-03,  1.602895511062e-04,  1.755039480870e+00, ...
   2.976061799015e+00,  1.108345161540e+00, "n",  7.541836433619e-01,  1.108294382181e+00,  6.181967879154e+00,  4.421430238116e+00, -6.268155961297e+00);
assert(isequalRel(ep,     7.548347905283e-01, TOL));
assert(isequalRel(inclp,  1.107814305552e+00, TOL));
assert(isequalRel(nodep,  6.180931495728e+00, TOL));
assert(isequalRel(argpp,  4.422979543302e+00, TOL));
assert(isequalRel(mp,    -6.270457752273e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -1.880237977527e-04,  6.551908742706e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -1.668215845123e-03, ...
   3.610858069376e-03, -4.299448087716e-03, -1.722984622184e-03, -6.889598529018e-05,  3.935976325614e-03,  3.059743184660e-03,  1.789568818084e-03,  2.366876188168e-04, ...
   9.202998763432e-03,  2.742276317175e-03,  3.044773891692e-04,  2.280000000000e+03,  2.558144451794e-04,  7.760342525429e-04, -3.626970983073e-05, -4.442804590880e-05, ...
  -7.585547023917e-04, -1.445258766608e-04, -2.241607759555e-04, -6.443953743437e-04, -1.634546261908e-03,  1.602895511062e-04,  1.755039480870e+00, ...
   2.976061799015e+00,  1.108345161540e+00, "n",  7.541843346598e-01,  1.108291561106e+00,  6.181730772766e+00,  4.421433042333e+00, -5.238311186793e+00);
assert(isequalRel(ep,     7.548272663125e-01, TOL));
assert(isequalRel(inclp,  1.107811617212e+00, TOL));
assert(isequalRel(nodep,  6.180689395443e+00, TOL));
assert(isequalRel(argpp,  4.422986941844e+00, TOL));
assert(isequalRel(mp,    -5.240617590340e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -1.880237977527e-04,  6.551908742706e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -1.668215845123e-03, ...
   3.610858069376e-03, -4.299448087716e-03, -1.722984622184e-03, -6.889598529018e-05,  3.935976325614e-03,  3.059743184660e-03,  1.789568818084e-03,  2.366876188168e-04, ...
   9.202998763432e-03,  2.742276317175e-03,  3.044773891692e-04,  2.400000000000e+03,  2.558144451794e-04,  7.760342525429e-04, -3.626970983073e-05, -4.442804590880e-05, ...
  -7.585547023917e-04, -1.445258766608e-04, -2.241607759555e-04, -6.443953743437e-04, -1.634546261908e-03,  1.602895511062e-04,  1.755039480870e+00, ...
   2.976061799015e+00,  1.108345161540e+00, "n",  7.541850259577e-01,  1.108288740030e+00,  6.181493666166e+00,  4.421435846549e+00, -4.208464457654e+00);
assert(isequalRel(ep,     7.548197458860e-01, TOL));
assert(isequalRel(inclp,  1.107809013123e+00, TOL));
assert(isequalRel(nodep,  6.180447570013e+00, TOL));
assert(isequalRel(argpp,  4.422993957081e+00, TOL));
assert(isequalRel(mp,    -4.210774936486e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -1.880237977527e-04,  6.551908742706e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -1.668215845123e-03, ...
   3.610858069376e-03, -4.299448087716e-03, -1.722984622184e-03, -6.889598529018e-05,  3.935976325614e-03,  3.059743184660e-03,  1.789568818084e-03,  2.366876188168e-04, ...
   9.202998763432e-03,  2.742276317175e-03,  3.044773891692e-04,  2.520000000000e+03,  2.558144451794e-04,  7.760342525429e-04, -3.626970983073e-05, -4.442804590880e-05, ...
  -7.585547023917e-04, -1.445258766608e-04, -2.241607759555e-04, -6.443953743437e-04, -1.634546261908e-03,  1.602895511062e-04,  1.755039480870e+00, ...
   2.976061799015e+00,  1.108345161540e+00, "n",  7.541857172556e-01,  1.108285918955e+00,  6.181256559353e+00,  4.421438650765e+00, -3.178615773879e+00);
assert(isequalRel(ep,     7.548122369457e-01, TOL));
assert(isequalRel(inclp,  1.107806491943e+00, TOL));
assert(isequalRel(nodep,  6.180206020017e+00, TOL));
assert(isequalRel(argpp,  4.423000590452e+00, TOL));
assert(isequalRel(mp,    -3.180929795093e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -1.880237977527e-04,  6.551908742706e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -1.668215845123e-03, ...
   3.610858069376e-03, -4.299448087716e-03, -1.722984622184e-03, -6.889598529018e-05,  3.935976325614e-03,  3.059743184660e-03,  1.789568818084e-03,  2.366876188168e-04, ...
   9.202998763432e-03,  2.742276317175e-03,  3.044773891692e-04,  2.640000000000e+03,  2.558144451794e-04,  7.760342525429e-04, -3.626970983073e-05, -4.442804590880e-05, ...
  -7.585547023917e-04, -1.445258766608e-04, -2.241607759555e-04, -6.443953743437e-04, -1.634546261908e-03,  1.602895511062e-04,  1.755039480870e+00, ...
   2.976061799015e+00,  1.108345161540e+00, "n",  7.541864085535e-01,  1.108283097879e+00,  6.181019452329e+00,  4.421441454981e+00, -2.148765135467e+00);
assert(isequalRel(ep,     7.548047470908e-01, TOL));
assert(isequalRel(inclp,  1.107804052247e+00, TOL));
assert(isequalRel(nodep,  6.179964745694e+00, TOL));
assert(isequalRel(argpp,  4.423006843844e+00, TOL));
assert(isequalRel(mp,    -2.151082171175e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -1.880237977527e-04,  6.551908742706e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -1.668215845123e-03, ...
   3.610858069376e-03, -4.299448087716e-03, -1.722984622184e-03, -6.889598529018e-05,  3.935976325614e-03,  3.059743184660e-03,  1.789568818084e-03,  2.366876188168e-04, ...
   9.202998763432e-03,  2.742276317175e-03,  3.044773891692e-04,  2.760000000000e+03,  2.558144451794e-04,  7.760342525429e-04, -3.626970983073e-05, -4.442804590880e-05, ...
  -7.585547023917e-04, -1.445258766608e-04, -2.241607759555e-04, -6.443953743437e-04, -1.634546261908e-03,  1.602895511062e-04,  1.755039480870e+00, ...
   2.976061799015e+00,  1.108345161540e+00, "n",  7.541870998514e-01,  1.108280276804e+00,  6.180782345093e+00,  4.421444259198e+00, -1.118912542420e+00);
assert(isequalRel(ep,     7.547972838155e-01, TOL));
assert(isequalRel(inclp,  1.107801692528e+00, TOL));
assert(isequalRel(nodep,  6.179723746952e+00, TOL));
assert(isequalRel(argpp,  4.423012719587e+00, TOL));
assert(isequalRel(mp,    -1.121232070356e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -1.880237977527e-04,  6.551908742706e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -1.668215845123e-03, ...
   3.610858069376e-03, -4.299448087716e-03, -1.722984622184e-03, -6.889598529018e-05,  3.935976325614e-03,  3.059743184660e-03,  1.789568818084e-03,  2.366876188168e-04, ...
   9.202998763432e-03,  2.742276317175e-03,  3.044773891692e-04,  2.880000000000e+03,  2.558144451794e-04,  7.760342525429e-04, -3.626970983073e-05, -4.442804590880e-05, ...
  -7.585547023917e-04, -1.445258766608e-04, -2.241607759555e-04, -6.443953743437e-04, -1.634546261908e-03,  1.602895511062e-04,  1.755039480870e+00, ...
   2.976061799015e+00,  1.108345161540e+00, "n",  7.541877911492e-01,  1.108277455728e+00,  6.180545237645e+00,  4.421447063414e+00, -8.905799473606e-02);
assert(isequalRel(ep,     7.547898545022e-01, TOL));
assert(isequalRel(inclp,  1.107799411201e+00, TOL));
assert(isequalRel(nodep,  6.179483023376e+00, TOL));
assert(isequalRel(argpp,  4.423018220442e+00, TOL));
assert(isequalRel(mp,    -9.137949885324e-02, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   5.883771878310e-04,  1.201802618946e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -3.424600980580e-03, ...
  -1.945460736508e-03,  2.807746435654e-03, -4.287929901990e-03, -6.285500316310e-05, -1.277477731310e-04,  3.309216641173e-03,  7.513453732828e-04, -1.615208443659e-03, ...
  -6.591258953724e-03,  8.653034599493e-03,  2.613596417420e-04,  0.000000000000e+00, -7.580873897080e-04,  8.944532635768e-05, -3.308948578837e-05,  4.592174078680e-04, ...
  -3.581021323765e-04, -3.094906804917e-04,  8.206020674696e-05,  1.595875573261e-03, -2.025915791658e-05,  1.375905769766e-04,  1.503851507578e+00, ...
   2.957112607744e+00,  1.230387309486e-01, "y",  7.258491000000e-01,  1.230387309486e-01,  3.138517383448e+00,  5.167015834603e+00,  1.449687929999e-01);
assert(isequalRel(ep,     7.258491000000e-01, TOL));
assert(isequalRel(inclp,  1.230387309486e-01, TOL));
assert(isequalRel(nodep,  3.138517383448e+00, TOL));
assert(isequalRel(argpp,  5.167015834603e+00, TOL));
assert(isequalRel(mp,     1.449687929999e-01, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   5.883771878310e-04,  1.201802618946e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -3.424600980580e-03, ...
  -1.945460736508e-03,  2.807746435654e-03, -4.287929901990e-03, -6.285500316310e-05, -1.277477731310e-04,  3.309216641173e-03,  7.513453732828e-04, -1.615208443659e-03, ...
  -6.591258953724e-03,  8.653034599493e-03,  2.613596417420e-04,  0.000000000000e+00, -7.580873897080e-04,  8.944532635768e-05, -3.308948578837e-05,  4.592174078680e-04, ...
  -3.581021323765e-04, -3.094906804917e-04,  8.206020674696e-05,  1.595875573261e-03, -2.025915791658e-05,  1.375905769766e-04,  1.503851507578e+00, ...
   2.957112607744e+00,  1.230387309486e-01, "y",  7.258491000000e-01,  1.230387309486e-01,  3.138517383448e+00,  5.167015834603e+00, -6.138216514180e+00);
assert(isequalRel(ep,     7.258491000000e-01, TOL));
assert(isequalRel(inclp,  1.230387309486e-01, TOL));
assert(isequalRel(nodep,  3.138517383448e+00, TOL));
assert(isequalRel(argpp,  5.167015834603e+00, TOL));
assert(isequalRel(mp,    -6.138216514180e+00, TOL));
# 23177

[ep, inclp, nodep, argpp,  mp] = dpper(...
   5.883771878310e-04,  1.201802618946e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -3.424600980580e-03, ...
  -1.945460736508e-03,  2.807746435654e-03, -4.287929901990e-03, -6.285500316310e-05, -1.277477731310e-04,  3.309216641173e-03,  7.513453732828e-04, -1.615208443659e-03, ...
  -6.591258953724e-03,  8.653034599493e-03,  2.613596417420e-04,  0.000000000000e+00, -7.580873897080e-04,  8.944532635768e-05, -3.308948578837e-05,  4.592174078680e-04, ...
  -3.581021323765e-04, -3.094906804917e-04,  8.206020674696e-05,  1.595875573261e-03, -2.025915791658e-05,  1.375905769766e-04,  1.503851507578e+00, ...
   2.957112607744e+00,  1.230387309486e-01, "n",  7.258491000000e-01,  1.230387309486e-01,  3.138517383448e+00,  5.167015834603e+00, -6.138216514180e+00);
assert(isequalRel(ep,     7.265240070575e-01, TOL));
assert(isequalRel(inclp,  1.226463805910e-01, TOL));
assert(isequalRel(nodep,  3.142006943719e+00, TOL));
assert(isequalRel(argpp,  5.162439945903e+00, TOL));
assert(isequalRel(mp,    -6.135336172494e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   5.883771878310e-04,  1.201802618946e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -3.424600980580e-03, ...
  -1.945460736508e-03,  2.807746435654e-03, -4.287929901990e-03, -6.285500316310e-05, -1.277477731310e-04,  3.309216641173e-03,  7.513453732828e-04, -1.615208443659e-03, ...
  -6.591258953724e-03,  8.653034599493e-03,  2.613596417420e-04,  1.200000000000e+02, -7.580873897080e-04,  8.944532635768e-05, -3.308948578837e-05,  4.592174078680e-04, ...
  -3.581021323765e-04, -3.094906804917e-04,  8.206020674696e-05,  1.595875573261e-03, -2.025915791658e-05,  1.375905769766e-04,  1.503851507578e+00, ...
   2.957112607744e+00,  1.230387309486e-01, "n",  7.258477566906e-01,  1.230415830175e-01,  3.137882941738e+00,  5.168213520038e+00, -4.955374874161e+00);
assert(isequalRel(ep,     7.265302286317e-01, TOL));
assert(isequalRel(inclp,  1.226511895904e-01, TOL));
assert(isequalRel(nodep,  3.141323260382e+00, TOL));
assert(isequalRel(argpp,  5.163689562914e+00, TOL));
assert(isequalRel(mp,    -4.952500841980e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   5.883771878310e-04,  1.201802618946e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -3.424600980580e-03, ...
  -1.945460736508e-03,  2.807746435654e-03, -4.287929901990e-03, -6.285500316310e-05, -1.277477731310e-04,  3.309216641173e-03,  7.513453732828e-04, -1.615208443659e-03, ...
  -6.591258953724e-03,  8.653034599493e-03,  2.613596417420e-04,  2.400000000000e+02, -7.580873897080e-04,  8.944532635768e-05, -3.308948578837e-05,  4.592174078680e-04, ...
  -3.581021323765e-04, -3.094906804917e-04,  8.206020674696e-05,  1.595875573261e-03, -2.025915791658e-05,  1.375905769766e-04,  1.503851507578e+00, ...
   2.957112607744e+00,  1.230387309486e-01, "n",  7.258464133813e-01,  1.230444350864e-01,  3.137248499771e+00,  5.169411205474e+00, -3.772532755125e+00);
assert(isequalRel(ep,     7.265363640984e-01, TOL));
assert(isequalRel(inclp,  1.226561070185e-01, TOL));
assert(isequalRel(nodep,  3.140638391885e+00, TOL));
assert(isequalRel(argpp,  5.164940601417e+00, TOL));
assert(isequalRel(mp,    -3.769665672546e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   5.883771878310e-04,  1.201802618946e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -3.424600980580e-03, ...
  -1.945460736508e-03,  2.807746435654e-03, -4.287929901990e-03, -6.285500316310e-05, -1.277477731310e-04,  3.309216641173e-03,  7.513453732828e-04, -1.615208443659e-03, ...
  -6.591258953724e-03,  8.653034599493e-03,  2.613596417420e-04,  3.600000000000e+02, -7.580873897080e-04,  8.944532635768e-05, -3.308948578837e-05,  4.592174078680e-04, ...
  -3.581021323765e-04, -3.094906804917e-04,  8.206020674696e-05,  1.595875573261e-03, -2.025915791658e-05,  1.375905769766e-04,  1.503851507578e+00, ...
   2.957112607744e+00,  1.230387309486e-01, "n",  7.258450700719e-01,  1.230472871553e-01,  3.136614057546e+00,  5.170608890910e+00, -2.589690157071e+00);
assert(isequalRel(ep,     7.265424060375e-01, TOL));
assert(isequalRel(inclp,  1.226611304591e-01, TOL));
assert(isequalRel(nodep,  3.139952394326e+00, TOL));
assert(isequalRel(argpp,  5.166193002166e+00, TOL));
assert(isequalRel(mp,    -2.586830656773e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   5.883771878310e-04,  1.201802618946e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -3.424600980580e-03, ...
  -1.945460736508e-03,  2.807746435654e-03, -4.287929901990e-03, -6.285500316310e-05, -1.277477731310e-04,  3.309216641173e-03,  7.513453732828e-04, -1.615208443659e-03, ...
  -6.591258953724e-03,  8.653034599493e-03,  2.613596417420e-04,  4.800000000000e+02, -7.580873897080e-04,  8.944532635768e-05, -3.308948578837e-05,  4.592174078680e-04, ...
  -3.581021323765e-04, -3.094906804917e-04,  8.206020674696e-05,  1.595875573261e-03, -2.025915791658e-05,  1.375905769766e-04,  1.503851507578e+00, ...
   2.957112607744e+00,  1.230387309486e-01, "n",  7.258437267626e-01,  1.230501392242e-01,  3.135979615065e+00,  5.171806576346e+00, -1.406847080001e+00);
assert(isequalRel(ep,     7.265483472419e-01, TOL));
assert(isequalRel(inclp,  1.226662573664e-01, TOL));
assert(isequalRel(nodep,  3.139265324870e+00, TOL));
assert(isequalRel(argpp,  5.167446704548e+00, TOL));
assert(isequalRel(mp,    -1.403995786451e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   5.883771878310e-04,  1.201802618946e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -3.424600980580e-03, ...
  -1.945460736508e-03,  2.807746435654e-03, -4.287929901990e-03, -6.285500316310e-05, -1.277477731310e-04,  3.309216641173e-03,  7.513453732828e-04, -1.615208443659e-03, ...
  -6.591258953724e-03,  8.653034599493e-03,  2.613596417420e-04,  6.000000000000e+02, -7.580873897080e-04,  8.944532635768e-05, -3.308948578837e-05,  4.592174078680e-04, ...
  -3.581021323765e-04, -3.094906804917e-04,  8.206020674696e-05,  1.595875573261e-03, -2.025915791658e-05,  1.375905769766e-04,  1.503851507578e+00, ...
   2.957112607744e+00,  1.230387309486e-01, "n",  7.258423834532e-01,  1.230529912931e-01,  3.135345172326e+00,  5.173004261782e+00, -2.240035239135e-01);
assert(isequalRel(ep,     7.265541807253e-01, TOL));
assert(isequalRel(inclp,  1.226714850705e-01, TOL));
assert(isequalRel(nodep,  3.138577241647e+00, TOL));
assert(isequalRel(argpp,  5.168701646708e+00, TOL));
assert(isequalRel(mp,    -2.211610526032e-01, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   5.883771878310e-04,  1.201802618946e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -3.424600980580e-03, ...
  -1.945460736508e-03,  2.807746435654e-03, -4.287929901990e-03, -6.285500316310e-05, -1.277477731310e-04,  3.309216641173e-03,  7.513453732828e-04, -1.615208443659e-03, ...
  -6.591258953724e-03,  8.653034599493e-03,  2.613596417420e-04,  7.200000000000e+02, -7.580873897080e-04,  8.944532635768e-05, -3.308948578837e-05,  4.592174078680e-04, ...
  -3.581021323765e-04, -3.094906804917e-04,  8.206020674696e-05,  1.595875573261e-03, -2.025915791658e-05,  1.375905769766e-04,  1.503851507578e+00, ...
   2.957112607744e+00,  1.230387309486e-01, "n",  7.258410401438e-01,  1.230558433620e-01,  3.134710729330e+00,  5.174201947217e+00, -5.324344795989e+00);
assert(isequalRel(ep,     7.265598997298e-01, TOL));
assert(isequalRel(inclp,  1.226768107844e-01, TOL));
assert(isequalRel(nodep,  3.137888203634e+00, TOL));
assert(isequalRel(argpp,  5.169957765663e+00, TOL));
assert(isequalRel(mp,    -5.321511752693e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   5.883771878310e-04,  1.201802618946e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -3.424600980580e-03, ...
  -1.945460736508e-03,  2.807746435654e-03, -4.287929901990e-03, -6.285500316310e-05, -1.277477731310e-04,  3.309216641173e-03,  7.513453732828e-04, -1.615208443659e-03, ...
  -6.591258953724e-03,  8.653034599493e-03,  2.613596417420e-04,  8.400000000000e+02, -7.580873897080e-04,  8.944532635768e-05, -3.308948578837e-05,  4.592174078680e-04, ...
  -3.581021323765e-04, -3.094906804917e-04,  8.206020674696e-05,  1.595875573261e-03, -2.025915791658e-05,  1.375905769766e-04,  1.503851507578e+00, ...
   2.957112607744e+00,  1.230387309486e-01, "n",  7.258396968345e-01,  1.230586954309e-01,  3.134076286077e+00,  5.175399632653e+00, -4.141500281867e+00);
assert(isequalRel(ep,     7.265654977328e-01, TOL));
assert(isequalRel(inclp,  1.226822316095e-01, TOL));
assert(isequalRel(nodep,  3.137198270552e+00, TOL));
assert(isequalRel(argpp,  5.171214997427e+00, TOL));
assert(isequalRel(mp,    -4.138677261933e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   5.883771878310e-04,  1.201802618946e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -3.424600980580e-03, ...
  -1.945460736508e-03,  2.807746435654e-03, -4.287929901990e-03, -6.285500316310e-05, -1.277477731310e-04,  3.309216641173e-03,  7.513453732828e-04, -1.615208443659e-03, ...
  -6.591258953724e-03,  8.653034599493e-03,  2.613596417420e-04,  9.600000000000e+02, -7.580873897080e-04,  8.944532635768e-05, -3.308948578837e-05,  4.592174078680e-04, ...
  -3.581021323765e-04, -3.094906804917e-04,  8.206020674696e-05,  1.595875573261e-03, -2.025915791658e-05,  1.375905769766e-04,  1.503851507578e+00, ...
   2.957112607744e+00,  1.230387309486e-01, "n",  7.258383535251e-01,  1.230615474998e-01,  3.133441842567e+00,  5.176597318089e+00, -2.958655288728e+00);
assert(isequalRel(ep,     7.265709684529e-01, TOL));
assert(isequalRel(inclp,  1.226877445428e-01, TOL));
assert(isequalRel(nodep,  3.136507502758e+00, TOL));
assert(isequalRel(argpp,  5.172473277125e+00, TOL));
assert(isequalRel(mp,    -2.955842876387e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   5.883771878310e-04,  1.201802618946e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -3.424600980580e-03, ...
  -1.945460736508e-03,  2.807746435654e-03, -4.287929901990e-03, -6.285500316310e-05, -1.277477731310e-04,  3.309216641173e-03,  7.513453732828e-04, -1.615208443659e-03, ...
  -6.591258953724e-03,  8.653034599493e-03,  2.613596417420e-04,  1.080000000000e+03, -7.580873897080e-04,  8.944532635768e-05, -3.308948578837e-05,  4.592174078680e-04, ...
  -3.581021323765e-04, -3.094906804917e-04,  8.206020674696e-05,  1.595875573261e-03, -2.025915791658e-05,  1.375905769766e-04,  1.503851507578e+00, ...
   2.957112607744e+00,  1.230387309486e-01, "n",  7.258370102158e-01,  1.230643995687e-01,  3.132807398800e+00,  5.177795003525e+00, -1.775809816572e+00);
assert(isequalRel(ep,     7.265763058555e-01, TOL));
assert(isequalRel(inclp,  1.226933464828e-01, TOL));
assert(isequalRel(nodep,  3.135815961139e+00, TOL));
assert(isequalRel(argpp,  5.173732539112e+00, TOL));
assert(isequalRel(mp,    -1.773008584286e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   5.883771878310e-04,  1.201802618946e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -3.424600980580e-03, ...
  -1.945460736508e-03,  2.807746435654e-03, -4.287929901990e-03, -6.285500316310e-05, -1.277477731310e-04,  3.309216641173e-03,  7.513453732828e-04, -1.615208443659e-03, ...
  -6.591258953724e-03,  8.653034599493e-03,  2.613596417420e-04,  1.200000000000e+03, -7.580873897080e-04,  8.944532635768e-05, -3.308948578837e-05,  4.592174078680e-04, ...
  -3.581021323765e-04, -3.094906804917e-04,  8.206020674696e-05,  1.595875573261e-03, -2.025915791658e-05,  1.375905769766e-04,  1.503851507578e+00, ...
   2.957112607744e+00,  1.230387309486e-01, "n",  7.258356669064e-01,  1.230672516376e-01,  3.132172954775e+00,  5.178992688960e+00, -5.929638653992e-01);
assert(isequalRel(ep,     7.265815041584e-01, TOL));
assert(isequalRel(inclp,  1.226990342359e-01, TOL));
assert(isequalRel(nodep,  3.135123707008e+00, TOL));
assert(isequalRel(argpp,  5.174992717087e+00, TOL));
assert(isequalRel(mp,    -5.901743732302e-01, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   5.883771878310e-04,  1.201802618946e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -3.424600980580e-03, ...
  -1.945460736508e-03,  2.807746435654e-03, -4.287929901990e-03, -6.285500316310e-05, -1.277477731310e-04,  3.309216641173e-03,  7.513453732828e-04, -1.615208443659e-03, ...
  -6.591258953724e-03,  8.653034599493e-03,  2.613596417420e-04,  1.320000000000e+03, -7.580873897080e-04,  8.944532635768e-05, -3.308948578837e-05,  4.592174078680e-04, ...
  -3.581021323765e-04, -3.094906804917e-04,  8.206020674696e-05,  1.595875573261e-03, -2.025915791658e-05,  1.375905769766e-04,  1.503851507578e+00, ...
   2.957112607744e+00,  1.230387309486e-01, "n",  7.258343235971e-01,  1.230701037065e-01,  3.131538510494e+00,  5.180190374396e+00, -5.693302742389e+00);
assert(isequalRel(ep,     7.265865578358e-01, TOL));
assert(isequalRel(inclp,  1.227048045231e-01, TOL));
assert(isequalRel(nodep,  3.134430802001e+00, TOL));
assert(isequalRel(argpp,  5.176253744206e+00, TOL));
assert(isequalRel(mp,    -5.690525537403e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   5.883771878310e-04,  1.201802618946e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -3.424600980580e-03, ...
  -1.945460736508e-03,  2.807746435654e-03, -4.287929901990e-03, -6.285500316310e-05, -1.277477731310e-04,  3.309216641173e-03,  7.513453732828e-04, -1.615208443659e-03, ...
  -6.591258953724e-03,  8.653034599493e-03,  2.613596417420e-04,  1.440000000000e+03, -7.580873897080e-04,  8.944532635768e-05, -3.308948578837e-05,  4.592174078680e-04, ...
  -3.581021323765e-04, -3.094906804917e-04,  8.206020674696e-05,  1.595875573261e-03, -2.025915791658e-05,  1.375905769766e-04,  1.503851507578e+00, ...
   2.957112607744e+00,  1.230387309486e-01, "n",  7.258329802877e-01,  1.230729557754e-01,  3.130904065955e+00,  5.181388059832e+00, -4.510455833181e+00);
assert(isequalRel(ep,     7.265914616227e-01, TOL));
assert(isequalRel(inclp,  1.227106539862e-01, TOL));
assert(isequalRel(nodep,  3.133737307978e+00, TOL));
assert(isequalRel(argpp,  5.177515553197e+00, TOL));
assert(isequalRel(mp,    -4.507691448879e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   6.618130467595e-03, -7.503198877723e-03,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  4.629809809051e-02, ...
   4.271626851497e-02, -4.391480163694e-02,  4.776472532865e-02, -6.536713592881e-04,  5.087055669958e-02,  2.194123446194e-02,  8.750068533754e-02,  3.511647715856e-02, ...
   3.692252174204e-01, -4.025541103842e-01,  9.259903790801e-03,  0.000000000000e+00, -6.878292929739e-03, -7.775516402908e-03, -3.441197687525e-04, -1.179576494215e-02, ...
   1.169037463880e-02, -1.956589871380e-02,  2.039566495961e-02,  5.825328423320e-02,  6.572632496892e-02,  4.874798177836e-03,  5.607868196210e+00, ...
   5.196058843771e+00,  5.017647066558e-01, "y",  9.728298000000e-01,  5.017647066558e-01,  4.139920985731e-02,  5.312084111370e-01,  2.356194490192e-02);
assert(isequalRel(ep,     9.728298000000e-01, TOL));
assert(isequalRel(inclp,  5.017647066558e-01, TOL));
assert(isequalRel(nodep,  4.139920985731e-02, TOL));
assert(isequalRel(argpp,  5.312084111370e-01, TOL));
assert(isequalRel(mp,     2.356194490192e-02, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   6.618130467595e-03, -7.503198877723e-03,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  4.629809809051e-02, ...
   4.271626851497e-02, -4.391480163694e-02,  4.776472532865e-02, -6.536713592881e-04,  5.087055669958e-02,  2.194123446194e-02,  8.750068533754e-02,  3.511647715856e-02, ...
   3.692252174204e-01, -4.025541103842e-01,  9.259903790801e-03,  0.000000000000e+00, -6.878292929739e-03, -7.775516402908e-03, -3.441197687525e-04, -1.179576494215e-02, ...
   1.169037463880e-02, -1.956589871380e-02,  2.039566495961e-02,  5.825328423320e-02,  6.572632496892e-02,  4.874798177836e-03,  5.607868196210e+00, ...
   5.196058843771e+00,  5.017647066558e-01, "y",  9.728298000000e-01,  5.017647066558e-01,  4.139920985731e-02,  5.312084111370e-01,  2.356194490192e-02);
assert(isequalRel(ep,     9.728298000000e-01, TOL));
assert(isequalRel(inclp,  5.017647066558e-01, TOL));
assert(isequalRel(nodep,  4.139920985731e-02, TOL));
assert(isequalRel(argpp,  5.312084111370e-01, TOL));
assert(isequalRel(mp,     2.356194490192e-02, TOL));
# 23333

[ep, inclp, nodep, argpp,  mp] = dpper(...
   6.618130467595e-03, -7.503198877723e-03,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  4.629809809051e-02, ...
   4.271626851497e-02, -4.391480163694e-02,  4.776472532865e-02, -6.536713592881e-04,  5.087055669958e-02,  2.194123446194e-02,  8.750068533754e-02,  3.511647715856e-02, ...
   3.692252174204e-01, -4.025541103842e-01,  9.259903790801e-03,  0.000000000000e+00, -6.878292929739e-03, -7.775516402908e-03, -3.441197687525e-04, -1.179576494215e-02, ...
   1.169037463880e-02, -1.956589871380e-02,  2.039566495961e-02,  5.825328423320e-02,  6.572632496892e-02,  4.874798177836e-03,  5.607868196210e+00, ...
   5.196058843771e+00,  5.017647066558e-01, "n",  9.728298000000e-01,  5.017647066558e-01,  4.139920985731e-02,  5.312084111370e-01,  2.356194490192e-02);
assert(isequalRel(ep,     9.901739937014e-01, TOL));
assert(isequalRel(inclp,  5.276314320243e-01, TOL));
assert(isequalRel(nodep,  7.179895667651e-02, TOL));
assert(isequalRel(argpp,  5.066264859818e-01, TOL));
assert(isequalRel(mp,     4.572497090404e-03, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   6.618130467595e-03, -7.503198877723e-03,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  4.629809809051e-02, ...
   4.271626851497e-02, -4.391480163694e-02,  4.776472532865e-02, -6.536713592881e-04,  5.087055669958e-02,  2.194123446194e-02,  8.750068533754e-02,  3.511647715856e-02, ...
   3.692252174204e-01, -4.025541103842e-01,  9.259903790801e-03,  1.200000000000e+02, -6.878292929739e-03, -7.775516402908e-03, -3.441197687525e-04, -1.179576494215e-02, ...
   1.169037463880e-02, -1.956589871380e-02,  2.039566495961e-02,  5.825328423320e-02,  6.572632496892e-02,  4.874798177836e-03,  5.607868196210e+00, ...
   5.196058843771e+00,  5.017647066558e-01, "n",  9.728301529761e-01,  5.017234381172e-01,  4.132533348378e-02,  5.313128374156e-01,  6.142178741298e-02);
assert(isequalRel(ep,     9.902368124049e-01, TOL));
assert(isequalRel(inclp,  5.277346975847e-01, TOL));
assert(isequalRel(nodep,  7.189684073576e-02, TOL));
assert(isequalRel(argpp,  5.067038905635e-01, TOL));
assert(isequalRel(mp,     4.145282314350e-02, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   6.618130467595e-03, -7.503198877723e-03,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  4.629809809051e-02, ...
   4.271626851497e-02, -4.391480163694e-02,  4.776472532865e-02, -6.536713592881e-04,  5.087055669958e-02,  2.194123446194e-02,  8.750068533754e-02,  3.511647715856e-02, ...
   3.692252174204e-01, -4.025541103842e-01,  9.259903790801e-03,  2.400000000000e+02, -6.878292929739e-03, -7.775516402908e-03, -3.441197687525e-04, -1.179576494215e-02, ...
   1.169037463880e-02, -1.956589871380e-02,  2.039566495961e-02,  5.825328423320e-02,  6.572632496892e-02,  4.874798177836e-03,  5.607868196210e+00, ...
   5.196058843771e+00,  5.017647066558e-01, "n",  9.728305059522e-01,  5.016821695786e-01,  4.125145711004e-02,  5.314172636941e-01,  9.928163505136e-02);
assert(isequalRel(ep,     9.902963813893e-01, TOL));
assert(isequalRel(inclp,  5.278283263534e-01, TOL));
assert(isequalRel(nodep,  7.198415051087e-02, TOL));
assert(isequalRel(argpp,  5.067931956218e-01, TOL));
assert(isequalRel(mp,     7.830927429742e-02, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   6.618130467595e-03, -7.503198877723e-03,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  4.629809809051e-02, ...
   4.271626851497e-02, -4.391480163694e-02,  4.776472532865e-02, -6.536713592881e-04,  5.087055669958e-02,  2.194123446194e-02,  8.750068533754e-02,  3.511647715856e-02, ...
   3.692252174204e-01, -4.025541103842e-01,  9.259903790801e-03,  3.600000000000e+02, -6.878292929739e-03, -7.775516402908e-03, -3.441197687525e-04, -1.179576494215e-02, ...
   1.169037463880e-02, -1.956589871380e-02,  2.039566495961e-02,  5.825328423320e-02,  6.572632496892e-02,  4.874798177836e-03,  5.607868196210e+00, ...
   5.196058843771e+00,  5.017647066558e-01, "n",  9.728308589284e-01,  5.016409010400e-01,  4.117758073607e-02,  5.315216899727e-01,  1.371414878170e-01);
assert(isequalRel(ep,     9.903525732675e-01, TOL));
assert(isequalRel(inclp,  5.279119898278e-01, TOL));
assert(isequalRel(nodep,  7.206052187264e-02, TOL));
assert(isequalRel(argpp,  5.068945760055e-01, TOL));
assert(isequalRel(mp,     1.151429451126e-01, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   6.618130467595e-03, -7.503198877723e-03,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  4.629809809051e-02, ...
   4.271626851497e-02, -4.391480163694e-02,  4.776472532865e-02, -6.536713592881e-04,  5.087055669958e-02,  2.194123446194e-02,  8.750068533754e-02,  3.511647715856e-02, ...
   3.692252174204e-01, -4.025541103842e-01,  9.259903790801e-03,  4.800000000000e+02, -6.878292929739e-03, -7.775516402908e-03, -3.441197687525e-04, -1.179576494215e-02, ...
   1.169037463880e-02, -1.956589871380e-02,  2.039566495961e-02,  5.825328423320e-02,  6.572632496892e-02,  4.874798177836e-03,  5.607868196210e+00, ...
   5.196058843771e+00,  5.017647066558e-01, "n",  9.728312119045e-01,  5.015996325014e-01,  4.110370436189e-02,  5.316261162513e-01,  1.750013457100e-01);
assert(isequalRel(ep,     9.904052659166e-01, TOL));
assert(isequalRel(inclp,  5.279853757077e-01, TOL));
assert(isequalRel(nodep,  7.212560772295e-02, TOL));
assert(isequalRel(argpp,  5.070081862333e-01, TOL));
assert(isequalRel(mp,     1.519549807715e-01, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   6.618130467595e-03, -7.503198877723e-03,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  4.629809809051e-02, ...
   4.271626851497e-02, -4.391480163694e-02,  4.776472532865e-02, -6.536713592881e-04,  5.087055669958e-02,  2.194123446194e-02,  8.750068533754e-02,  3.511647715856e-02, ...
   3.692252174204e-01, -4.025541103842e-01,  9.259903790801e-03,  6.000000000000e+02, -6.878292929739e-03, -7.775516402908e-03, -3.441197687525e-04, -1.179576494215e-02, ...
   1.169037463880e-02, -1.956589871380e-02,  2.039566495961e-02,  5.825328423320e-02,  6.572632496892e-02,  4.874798177836e-03,  5.607868196210e+00, ...
   5.196058843771e+00,  5.017647066558e-01, "n",  9.728315648806e-01,  5.015583639628e-01,  4.102982798748e-02,  5.317305425299e-01,  2.128612087303e-01);
assert(isequalRel(ep,     9.904543427672e-01, TOL));
assert(isequalRel(inclp,  5.280481886594e-01, TOL));
assert(isequalRel(nodep,  7.217907871471e-02, TOL));
assert(isequalRel(argpp,  5.071341601600e-01, TOL));
assert(isequalRel(mp,     1.887465751394e-01, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   6.618130467595e-03, -7.503198877723e-03,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  4.629809809051e-02, ...
   4.271626851497e-02, -4.391480163694e-02,  4.776472532865e-02, -6.536713592881e-04,  5.087055669958e-02,  2.194123446194e-02,  8.750068533754e-02,  3.511647715856e-02, ...
   3.692252174204e-01, -4.025541103842e-01,  9.259903790801e-03,  7.200000000000e+02, -6.878292929739e-03, -7.775516402908e-03, -3.441197687525e-04, -1.179576494215e-02, ...
   1.169037463880e-02, -1.956589871380e-02,  2.039566495961e-02,  5.825328423320e-02,  6.572632496892e-02,  4.874798177836e-03,  5.607868196210e+00, ...
   5.196058843771e+00,  5.017647066558e-01, "n",  9.728319178567e-01,  5.015170954241e-01,  4.095595161285e-02,  5.318349688084e-01,  2.507210768779e-01);
assert(isequalRel(ep,     9.904996930842e-01, TOL));
assert(isequalRel(inclp,  5.281001510499e-01, TOL));
assert(isequalRel(nodep,  7.222062394323e-02, TOL));
assert(isequalRel(argpp,  5.072726106808e-01, TOL));
assert(isequalRel(mp,     2.255189686935e-01, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   6.618130467595e-03, -7.503198877723e-03,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  4.629809809051e-02, ...
   4.271626851497e-02, -4.391480163694e-02,  4.776472532865e-02, -6.536713592881e-04,  5.087055669958e-02,  2.194123446194e-02,  8.750068533754e-02,  3.511647715856e-02, ...
   3.692252174204e-01, -4.025541103842e-01,  9.259903790801e-03,  8.400000000000e+02, -6.878292929739e-03, -7.775516402908e-03, -3.441197687525e-04, -1.179576494215e-02, ...
   1.169037463880e-02, -1.956589871380e-02,  2.039566495961e-02,  5.825328423320e-02,  6.572632496892e-02,  4.874798177836e-03,  5.607868196210e+00, ...
   5.196058843771e+00,  5.017647066558e-01, "n",  9.728322708328e-01,  5.014758268855e-01,  4.088207523800e-02,  5.319393950870e-01,  2.885809501529e-01);
assert(isequalRel(ep,     9.905412122373e-01, TOL));
assert(isequalRel(inclp,  5.281410036478e-01, TOL));
assert(isequalRel(nodep,  7.224995160779e-02, TOL));
assert(isequalRel(argpp,  5.074236294748e-01, TOL));
assert(isequalRel(mp,     2.622734463224e-01, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   6.618130467595e-03, -7.503198877723e-03,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  4.629809809051e-02, ...
   4.271626851497e-02, -4.391480163694e-02,  4.776472532865e-02, -6.536713592881e-04,  5.087055669958e-02,  2.194123446194e-02,  8.750068533754e-02,  3.511647715856e-02, ...
   3.692252174204e-01, -4.025541103842e-01,  9.259903790801e-03,  9.600000000000e+02, -6.878292929739e-03, -7.775516402908e-03, -3.441197687525e-04, -1.179576494215e-02, ...
   1.169037463880e-02, -1.956589871380e-02,  2.039566495961e-02,  5.825328423320e-02,  6.572632496892e-02,  4.874798177836e-03,  5.607868196210e+00, ...
   5.196058843771e+00,  5.017647066558e-01, "n",  9.728326238090e-01,  5.014345583469e-01,  4.080819886293e-02,  5.320438213656e-01,  3.264408285551e-01);
assert(isequalRel(ep,     9.905788019594e-01, TOL));
assert(isequalRel(inclp,  5.281705062899e-01, TOL));
assert(isequalRel(nodep,  7.226678964202e-02, TOL));
assert(isequalRel(argpp,  5.075872867878e-01, TOL));
assert(isequalRel(mp,     2.990113350010e-01, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   6.618130467595e-03, -7.503198877723e-03,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  4.629809809051e-02, ...
   4.271626851497e-02, -4.391480163694e-02,  4.776472532865e-02, -6.536713592881e-04,  5.087055669958e-02,  2.194123446194e-02,  8.750068533754e-02,  3.511647715856e-02, ...
   3.692252174204e-01, -4.025541103842e-01,  9.259903790801e-03,  1.080000000000e+03, -6.878292929739e-03, -7.775516402908e-03, -3.441197687525e-04, -1.179576494215e-02, ...
   1.169037463880e-02, -1.956589871380e-02,  2.039566495961e-02,  5.825328423320e-02,  6.572632496892e-02,  4.874798177836e-03,  5.607868196210e+00, ...
   5.196058843771e+00,  5.017647066558e-01, "n",  9.728329767851e-01,  5.013932898083e-01,  4.073432248763e-02,  5.321482476442e-01,  3.643007120847e-01);
assert(isequalRel(ep,     9.906123705933e-01, TOL));
assert(isequalRel(inclp,  5.281884385088e-01, TOL));
assert(isequalRel(nodep,  7.227088631185e-02, TOL));
assert(isequalRel(argpp,  5.077636312532e-01, TOL));
assert(isequalRel(mp,     3.357340013456e-01, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   6.618130467595e-03, -7.503198877723e-03,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  4.629809809051e-02, ...
   4.271626851497e-02, -4.391480163694e-02,  4.776472532865e-02, -6.536713592881e-04,  5.087055669958e-02,  2.194123446194e-02,  8.750068533754e-02,  3.511647715856e-02, ...
   3.692252174204e-01, -4.025541103842e-01,  9.259903790801e-03,  1.200000000000e+03, -6.878292929739e-03, -7.775516402908e-03, -3.441197687525e-04, -1.179576494215e-02, ...
   1.169037463880e-02, -1.956589871380e-02,  2.039566495961e-02,  5.825328423320e-02,  6.572632496892e-02,  4.874798177836e-03,  5.607868196210e+00, ...
   5.196058843771e+00,  5.017647066558e-01, "n",  9.728333297612e-01,  5.013520212697e-01,  4.066044611212e-02,  5.322526739227e-01,  4.021606007415e-01);
assert(isequalRel(ep,     9.906418333255e-01, TOL));
assert(isequalRel(inclp,  5.281946001227e-01, TOL));
assert(isequalRel(nodep,  7.226201077991e-02, TOL));
assert(isequalRel(argpp,  5.079526897535e-01, TOL));
assert(isequalRel(mp,     3.724428490543e-01, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   6.618130467595e-03, -7.503198877723e-03,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  4.629809809051e-02, ...
   4.271626851497e-02, -4.391480163694e-02,  4.776472532865e-02, -6.536713592881e-04,  5.087055669958e-02,  2.194123446194e-02,  8.750068533754e-02,  3.511647715856e-02, ...
   3.692252174204e-01, -4.025541103842e-01,  9.259903790801e-03,  1.320000000000e+03, -6.878292929739e-03, -7.775516402908e-03, -3.441197687525e-04, -1.179576494215e-02, ...
   1.169037463880e-02, -1.956589871380e-02,  2.039566495961e-02,  5.825328423320e-02,  6.572632496892e-02,  4.874798177836e-03,  5.607868196210e+00, ...
   5.196058843771e+00,  5.017647066558e-01, "n",  9.728336827373e-01,  5.013107527311e-01,  4.058656973638e-02,  5.323571002013e-01,  4.400204945257e-01);
assert(isequalRel(ep,     9.906671124066e-01, TOL));
assert(isequalRel(inclp,  5.281888117829e-01, TOL));
assert(isequalRel(nodep,  7.223995363509e-02, TOL));
assert(isequalRel(argpp,  5.081544673199e-01, TOL));
assert(isequalRel(mp,     4.091393162368e-01, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   6.618130467595e-03, -7.503198877723e-03,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  4.629809809051e-02, ...
   4.271626851497e-02, -4.391480163694e-02,  4.776472532865e-02, -6.536713592881e-04,  5.087055669958e-02,  2.194123446194e-02,  8.750068533754e-02,  3.511647715856e-02, ...
   3.692252174204e-01, -4.025541103842e-01,  9.259903790801e-03,  1.440000000000e+03, -6.878292929739e-03, -7.775516402908e-03, -3.441197687525e-04, -1.179576494215e-02, ...
   1.169037463880e-02, -1.956589871380e-02,  2.039566495961e-02,  5.825328423320e-02,  6.572632496892e-02,  4.874798177836e-03,  5.607868196210e+00, ...
   5.196058843771e+00,  5.017647066558e-01, "n",  9.728340357135e-01,  5.012694841924e-01,  4.051269336042e-02,  5.324615264799e-01,  4.778803934372e-01);
assert(isequalRel(ep,     9.906881373566e-01, TOL));
assert(isequalRel(inclp,  5.281709154779e-01, TOL));
assert(isequalRel(nodep,  7.220452738625e-02, TOL));
assert(isequalRel(argpp,  5.083689470716e-01, TOL));
assert(isequalRel(mp,     4.458248726423e-01, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   6.618130467595e-03, -7.503198877723e-03,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  4.629809809051e-02, ...
   4.271626851497e-02, -4.391480163694e-02,  4.776472532865e-02, -6.536713592881e-04,  5.087055669958e-02,  2.194123446194e-02,  8.750068533754e-02,  3.511647715856e-02, ...
   3.692252174204e-01, -4.025541103842e-01,  9.259903790801e-03,  1.560000000000e+03, -6.878292929739e-03, -7.775516402908e-03, -3.441197687525e-04, -1.179576494215e-02, ...
   1.169037463880e-02, -1.956589871380e-02,  2.039566495961e-02,  5.825328423320e-02,  6.572632496892e-02,  4.874798177836e-03,  5.607868196210e+00, ...
   5.196058843771e+00,  5.017647066558e-01, "n",  9.728343886896e-01,  5.012282156538e-01,  4.043881698425e-02,  5.325659527584e-01,  5.157402974759e-01);
assert(isequalRel(ep,     9.907048451558e-01, TOL));
assert(isequalRel(inclp,  5.281407749933e-01, TOL));
assert(isequalRel(nodep,  7.215556691889e-02, TOL));
assert(isequalRel(argpp,  5.085960901936e-01, TOL));
assert(isequalRel(mp,     4.825010167886e-01, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   6.618130467595e-03, -7.503198877723e-03,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  4.629809809051e-02, ...
   4.271626851497e-02, -4.391480163694e-02,  4.776472532865e-02, -6.536713592881e-04,  5.087055669958e-02,  2.194123446194e-02,  8.750068533754e-02,  3.511647715856e-02, ...
   3.692252174204e-01, -4.025541103842e-01,  9.259903790801e-03,  1.600000000000e+03, -6.878292929739e-03, -7.775516402908e-03, -3.441197687525e-04, -1.179576494215e-02, ...
   1.169037463880e-02, -1.956589871380e-02,  2.039566495961e-02,  5.825328423320e-02,  6.572632496892e-02,  4.874798177836e-03,  5.607868196210e+00, ...
   5.196058843771e+00,  5.017647066558e-01, "n",  9.728345063483e-01,  5.012144594743e-01,  4.041419152547e-02,  5.326007615180e-01,  5.283602666283e-01);
assert(isequalRel(ep,     9.907094452596e-01, TOL));
assert(isequalRel(inclp,  5.281279868846e-01, TOL));
assert(isequalRel(nodep,  7.213621389646e-02, TOL));
assert(isequalRel(argpp,  5.086746087834e-01, TOL));
assert(isequalRel(mp,     4.947245693360e-01, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   1.917688589693e-04,  2.600403830731e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.021959812118e-03, ...
   4.664465684109e-04, -7.734435306744e-04, -3.415977655410e-03, -3.761802411036e-05, -2.320545150812e-04, -6.756286295110e-04, -1.848221304876e-04,  1.185722011180e-04, ...
   1.207731977398e-03,  5.449750974362e-03,  1.229961546518e-04,  0.000000000000e+00, -3.210545596328e-04,  4.292321013506e-04, -1.980369121860e-05, -7.343991154683e-05, ...
   1.243873320172e-04,  4.375268409065e-05,  1.339081864290e-05,  5.069978526244e-04, -6.661160092554e-04,  6.475028727329e-05,  6.619375088630e-01, ...
   2.893600055028e+00,  1.209984410530e-01, "y",  5.782022000000e-01,  1.209984410530e-01,  4.972443038932e-03,  4.789944431026e+00,  4.405647364347e-01);
assert(isequalRel(ep,     5.782022000000e-01, TOL));
assert(isequalRel(inclp,  1.209984410530e-01, TOL));
assert(isequalRel(nodep,  4.972443038932e-03, TOL));
assert(isequalRel(argpp,  4.789944431026e+00, TOL));
assert(isequalRel(mp,     4.405647364347e-01, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   1.917688589693e-04,  2.600403830731e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.021959812118e-03, ...
   4.664465684109e-04, -7.734435306744e-04, -3.415977655410e-03, -3.761802411036e-05, -2.320545150812e-04, -6.756286295110e-04, -1.848221304876e-04,  1.185722011180e-04, ...
   1.207731977398e-03,  5.449750974362e-03,  1.229961546518e-04,  0.000000000000e+00, -3.210545596328e-04,  4.292321013506e-04, -1.980369121860e-05, -7.343991154683e-05, ...
   1.243873320172e-04,  4.375268409065e-05,  1.339081864290e-05,  5.069978526244e-04, -6.661160092554e-04,  6.475028727329e-05,  6.619375088630e-01, ...
   2.893600055028e+00,  1.209984410530e-01, "y",  5.782022000000e-01,  1.209984410530e-01,  4.972443038932e-03,  4.789944431026e+00,  4.405647364347e-01);
assert(isequalRel(ep,     5.782022000000e-01, TOL));
assert(isequalRel(inclp,  1.209984410530e-01, TOL));
assert(isequalRel(nodep,  4.972443038932e-03, TOL));
assert(isequalRel(argpp,  4.789944431026e+00, TOL));
assert(isequalRel(mp,     4.405647364347e-01, TOL));
# 23599

[ep, inclp, nodep, argpp,  mp] = dpper(...
   1.917688589693e-04,  2.600403830731e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.021959812118e-03, ...
   4.664465684109e-04, -7.734435306744e-04, -3.415977655410e-03, -3.761802411036e-05, -2.320545150812e-04, -6.756286295110e-04, -1.848221304876e-04,  1.185722011180e-04, ...
   1.207731977398e-03,  5.449750974362e-03,  1.229961546518e-04,  0.000000000000e+00, -3.210545596328e-04,  4.292321013506e-04, -1.980369121860e-05, -7.343991154683e-05, ...
   1.243873320172e-04,  4.375268409065e-05,  1.339081864290e-05,  5.069978526244e-04, -6.661160092554e-04,  6.475028727329e-05,  6.619375088630e-01, ...
   2.893600055028e+00,  1.209984410530e-01, "n",  5.782022000000e-01,  1.209984410530e-01,  4.972443038932e-03,  4.789944431026e+00,  4.405647364347e-01);
assert(isequalRel(ep,     5.786495711665e-01, TOL));
assert(isequalRel(inclp,  1.210485627130e-01, TOL));
assert(isequalRel(nodep,  4.514591133760e-03, TOL));
assert(isequalRel(argpp,  4.790056644314e+00, TOL));
assert(isequalRel(mp,     4.411491365848e-01, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   1.917688589693e-04,  2.600403830731e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.021959812118e-03, ...
   4.664465684109e-04, -7.734435306744e-04, -3.415977655410e-03, -3.761802411036e-05, -2.320545150812e-04, -6.756286295110e-04, -1.848221304876e-04,  1.185722011180e-04, ...
   1.207731977398e-03,  5.449750974362e-03,  1.229961546518e-04,  2.000000000000e+01, -3.210545596328e-04,  4.292321013506e-04, -1.980369121860e-05, -7.343991154683e-05, ...
   1.243873320172e-04,  4.375268409065e-05,  1.339081864290e-05,  5.069978526244e-04, -6.661160092554e-04,  6.475028727329e-05,  6.619375088630e-01, ...
   2.893600055028e+00,  1.209984410530e-01, "n",  5.782005351391e-01,  1.209984242726e-01,  4.735393718511e-03,  4.790416164865e+00,  8.313413650959e-01);
assert(isequalRel(ep,     5.786483752808e-01, TOL));
assert(isequalRel(inclp,  1.210486159625e-01, TOL));
assert(isequalRel(nodep,  4.276986601269e-03, TOL));
assert(isequalRel(argpp,  4.790528650868e+00, TOL));
assert(isequalRel(mp,     8.319262714782e-01, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   1.917688589693e-04,  2.600403830731e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.021959812118e-03, ...
   4.664465684109e-04, -7.734435306744e-04, -3.415977655410e-03, -3.761802411036e-05, -2.320545150812e-04, -6.756286295110e-04, -1.848221304876e-04,  1.185722011180e-04, ...
   1.207731977398e-03,  5.449750974362e-03,  1.229961546518e-04,  4.000000000000e+01, -3.210545596328e-04,  4.292321013506e-04, -1.980369121860e-05, -7.343991154683e-05, ...
   1.243873320172e-04,  4.375268409065e-05,  1.339081864290e-05,  5.069978526244e-04, -6.661160092554e-04,  6.475028727329e-05,  6.619375088630e-01, ...
   2.893600055028e+00,  1.209984410530e-01, "n",  5.781988702782e-01,  1.209984074922e-01,  4.498342421034e-03,  4.790887898703e+00,  1.222120074367e+00);
assert(isequalRel(ep,     5.786471817869e-01, TOL));
assert(isequalRel(inclp,  1.210486693979e-01, TOL));
assert(isequalRel(nodep,  4.039391749110e-03, TOL));
assert(isequalRel(argpp,  4.791000650845e+00, TOL));
assert(isequalRel(mp,     1.222705478951e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   1.917688589693e-04,  2.600403830731e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.021959812118e-03, ...
   4.664465684109e-04, -7.734435306744e-04, -3.415977655410e-03, -3.761802411036e-05, -2.320545150812e-04, -6.756286295110e-04, -1.848221304876e-04,  1.185722011180e-04, ...
   1.207731977398e-03,  5.449750974362e-03,  1.229961546518e-04,  6.000000000000e+01, -3.210545596328e-04,  4.292321013506e-04, -1.980369121860e-05, -7.343991154683e-05, ...
   1.243873320172e-04,  4.375268409065e-05,  1.339081864290e-05,  5.069978526244e-04, -6.661160092554e-04,  6.475028727329e-05,  6.619375088630e-01, ...
   2.893600055028e+00,  1.209984410530e-01, "n",  5.781972054173e-01,  1.209983907118e-01,  4.261289146503e-03,  4.791359632542e+00, -4.670284442931e+00);
assert(isequalRel(ep,     5.786459906637e-01, TOL));
assert(isequalRel(inclp,  1.210487230157e-01, TOL));
assert(isequalRel(nodep,  3.801806629049e-03, TOL));
assert(isequalRel(argpp,  4.791472644224e+00, TOL));
assert(isequalRel(mp,    -4.669698548220e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   1.917688589693e-04,  2.600403830731e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.021959812118e-03, ...
   4.664465684109e-04, -7.734435306744e-04, -3.415977655410e-03, -3.761802411036e-05, -2.320545150812e-04, -6.756286295110e-04, -1.848221304876e-04,  1.185722011180e-04, ...
   1.207731977398e-03,  5.449750974362e-03,  1.229961546518e-04,  8.000000000000e+01, -3.210545596328e-04,  4.292321013506e-04, -1.980369121860e-05, -7.343991154683e-05, ...
   1.243873320172e-04,  4.375268409065e-05,  1.339081864290e-05,  5.069978526244e-04, -6.661160092554e-04,  6.475028727329e-05,  6.619375088630e-01, ...
   2.893600055028e+00,  1.209984410530e-01, "n",  5.781955405564e-01,  1.209983739314e-01,  4.024233894917e-03,  4.791831366380e+00, -4.279501572439e+00);
assert(isequalRel(ep,     5.786448018897e-01, TOL));
assert(isequalRel(inclp,  1.210487768123e-01, TOL));
assert(isequalRel(nodep,  3.564231292202e-03, TOL));
assert(isequalRel(argpp,  4.791944630980e+00, TOL));
assert(isequalRel(mp,    -4.278915195721e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   1.917688589693e-04,  2.600403830731e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.021959812118e-03, ...
   4.664465684109e-04, -7.734435306744e-04, -3.415977655410e-03, -3.761802411036e-05, -2.320545150812e-04, -6.756286295110e-04, -1.848221304876e-04,  1.185722011180e-04, ...
   1.207731977398e-03,  5.449750974362e-03,  1.229961546518e-04,  1.000000000000e+02, -3.210545596328e-04,  4.292321013506e-04, -1.980369121860e-05, -7.343991154683e-05, ...
   1.243873320172e-04,  4.375268409065e-05,  1.339081864290e-05,  5.069978526244e-04, -6.661160092554e-04,  6.475028727329e-05,  6.619375088630e-01, ...
   2.893600055028e+00,  1.209984410530e-01, "n",  5.781938756954e-01,  1.209983571510e-01,  3.787176666275e-03,  4.792303100219e+00, -3.888716621337e+00);
assert(isequalRel(ep,     5.786436154432e-01, TOL));
assert(isequalRel(inclp,  1.210488307840e-01, TOL));
assert(isequalRel(nodep,  3.326665789037e-03, TOL));
assert(isequalRel(argpp,  4.792416611090e+00, TOL));
assert(isequalRel(mp,    -3.888129770775e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   1.917688589693e-04,  2.600403830731e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.021959812118e-03, ...
   4.664465684109e-04, -7.734435306744e-04, -3.415977655410e-03, -3.761802411036e-05, -2.320545150812e-04, -6.756286295110e-04, -1.848221304876e-04,  1.185722011180e-04, ...
   1.207731977398e-03,  5.449750974362e-03,  1.229961546518e-04,  1.200000000000e+02, -3.210545596328e-04,  4.292321013506e-04, -1.980369121860e-05, -7.343991154683e-05, ...
   1.243873320172e-04,  4.375268409065e-05,  1.339081864290e-05,  5.069978526244e-04, -6.661160092554e-04,  6.475028727329e-05,  6.619375088630e-01, ...
   2.893600055028e+00,  1.209984410530e-01, "n",  5.781922108345e-01,  1.209983403706e-01,  3.550117460578e-03,  4.792774834057e+00, -3.497929589625e+00);
assert(isequalRel(ep,     5.786424313027e-01, TOL));
assert(isequalRel(inclp,  1.210488849271e-01, TOL));
assert(isequalRel(nodep,  3.089110169371e-03, TOL));
assert(isequalRel(argpp,  4.792888584532e+00, TOL));
assert(isequalRel(mp,    -3.497342273426e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   1.917688589693e-04,  2.600403830731e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.021959812118e-03, ...
   4.664465684109e-04, -7.734435306744e-04, -3.415977655410e-03, -3.761802411036e-05, -2.320545150812e-04, -6.756286295110e-04, -1.848221304876e-04,  1.185722011180e-04, ...
   1.207731977398e-03,  5.449750974362e-03,  1.229961546518e-04,  1.400000000000e+02, -3.210545596328e-04,  4.292321013506e-04, -1.980369121860e-05, -7.343991154683e-05, ...
   1.243873320172e-04,  4.375268409065e-05,  1.339081864290e-05,  5.069978526244e-04, -6.661160092554e-04,  6.475028727329e-05,  6.619375088630e-01, ...
   2.893600055028e+00,  1.209984410530e-01, "n",  5.781905459736e-01,  1.209983235902e-01,  3.313056277827e-03,  4.793246567896e+00, -3.107140477302e+00);
assert(isequalRel(ep,     5.786412494463e-01, TOL));
assert(isequalRel(inclp,  1.210489392381e-01, TOL));
assert(isequalRel(nodep,  2.851564482369e-03, TOL));
assert(isequalRel(argpp,  4.793360551284e+00, TOL));
assert(isequalRel(mp,    -3.106552703716e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   1.917688589693e-04,  2.600403830731e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.021959812118e-03, ...
   4.664465684109e-04, -7.734435306744e-04, -3.415977655410e-03, -3.761802411036e-05, -2.320545150812e-04, -6.756286295110e-04, -1.848221304876e-04,  1.185722011180e-04, ...
   1.207731977398e-03,  5.449750974362e-03,  1.229961546518e-04,  1.600000000000e+02, -3.210545596328e-04,  4.292321013506e-04, -1.980369121860e-05, -7.343991154683e-05, ...
   1.243873320172e-04,  4.375268409065e-05,  1.339081864290e-05,  5.069978526244e-04, -6.661160092554e-04,  6.475028727329e-05,  6.619375088630e-01, ...
   2.893600055028e+00,  1.209984410530e-01, "n",  5.781888811127e-01,  1.209983068098e-01,  3.075993118020e-03,  4.793718301734e+00, -2.716349284370e+00);
assert(isequalRel(ep,     5.786400698523e-01, TOL));
assert(isequalRel(inclp,  1.210489937132e-01, TOL));
assert(isequalRel(nodep,  2.614028776540e-03, TOL));
assert(isequalRel(argpp,  4.793832511325e+00, TOL));
assert(isequalRel(mp,    -2.715761061689e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   1.917688589693e-04,  2.600403830731e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.021959812118e-03, ...
   4.664465684109e-04, -7.734435306744e-04, -3.415977655410e-03, -3.761802411036e-05, -2.320545150812e-04, -6.756286295110e-04, -1.848221304876e-04,  1.185722011180e-04, ...
   1.207731977398e-03,  5.449750974362e-03,  1.229961546518e-04,  1.800000000000e+02, -3.210545596328e-04,  4.292321013506e-04, -1.980369121860e-05, -7.343991154683e-05, ...
   1.243873320172e-04,  4.375268409065e-05,  1.339081864290e-05,  5.069978526244e-04, -6.661160092554e-04,  6.475028727329e-05,  6.619375088630e-01, ...
   2.893600055028e+00,  1.209984410530e-01, "n",  5.781872162518e-01,  1.209982900294e-01,  2.838927981158e-03,  4.794190035573e+00, -2.325556010827e+00);
assert(isequalRel(ep,     5.786388924986e-01, TOL));
assert(isequalRel(inclp,  1.210490483490e-01, TOL));
assert(isequalRel(nodep,  2.376503099739e-03, TOL));
assert(isequalRel(argpp,  4.794304464632e+00, TOL));
assert(isequalRel(mp,    -2.324967347385e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   1.917688589693e-04,  2.600403830731e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.021959812118e-03, ...
   4.664465684109e-04, -7.734435306744e-04, -3.415977655410e-03, -3.761802411036e-05, -2.320545150812e-04, -6.756286295110e-04, -1.848221304876e-04,  1.185722011180e-04, ...
   1.207731977398e-03,  5.449750974362e-03,  1.229961546518e-04,  2.000000000000e+02, -3.210545596328e-04,  4.292321013506e-04, -1.980369121860e-05, -7.343991154683e-05, ...
   1.243873320172e-04,  4.375268409065e-05,  1.339081864290e-05,  5.069978526244e-04, -6.661160092554e-04,  6.475028727329e-05,  6.619375088630e-01, ...
   2.893600055028e+00,  1.209984410530e-01, "n",  5.781855513909e-01,  1.209982732490e-01,  2.601860867241e-03,  4.794661769411e+00, -1.934760656674e+00);
assert(isequalRel(ep,     5.786377173632e-01, TOL));
assert(isequalRel(inclp,  1.210491031415e-01, TOL));
assert(isequalRel(nodep,  2.138987499162e-03, TOL));
assert(isequalRel(argpp,  4.794776411184e+00, TOL));
assert(isequalRel(mp,    -1.934171560847e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   1.917688589693e-04,  2.600403830731e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.021959812118e-03, ...
   4.664465684109e-04, -7.734435306744e-04, -3.415977655410e-03, -3.761802411036e-05, -2.320545150812e-04, -6.756286295110e-04, -1.848221304876e-04,  1.185722011180e-04, ...
   1.207731977398e-03,  5.449750974362e-03,  1.229961546518e-04,  2.200000000000e+02, -3.210545596328e-04,  4.292321013506e-04, -1.980369121860e-05, -7.343991154683e-05, ...
   1.243873320172e-04,  4.375268409065e-05,  1.339081864290e-05,  5.069978526244e-04, -6.661160092554e-04,  6.475028727329e-05,  6.619375088630e-01, ...
   2.893600055028e+00,  1.209984410530e-01, "n",  5.781838865300e-01,  1.209982564686e-01,  2.364791776269e-03,  4.795133503250e+00, -1.543963221911e+00);
assert(isequalRel(ep,     5.786365444240e-01, TOL));
assert(isequalRel(inclp,  1.210491580874e-01, TOL));
assert(isequalRel(nodep,  1.901482021345e-03, TOL));
assert(isequalRel(argpp,  4.795248350962e+00, TOL));
assert(isequalRel(mp,    -1.543373702117e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   1.917688589693e-04,  2.600403830731e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.021959812118e-03, ...
   4.664465684109e-04, -7.734435306744e-04, -3.415977655410e-03, -3.761802411036e-05, -2.320545150812e-04, -6.756286295110e-04, -1.848221304876e-04,  1.185722011180e-04, ...
   1.207731977398e-03,  5.449750974362e-03,  1.229961546518e-04,  2.400000000000e+02, -3.210545596328e-04,  4.292321013506e-04, -1.980369121860e-05, -7.343991154683e-05, ...
   1.243873320172e-04,  4.375268409065e-05,  1.339081864290e-05,  5.069978526244e-04, -6.661160092554e-04,  6.475028727329e-05,  6.619375088630e-01, ...
   2.893600055028e+00,  1.209984410530e-01, "n",  5.781822216691e-01,  1.209982396882e-01,  2.127720708241e-03,  4.795605237088e+00, -1.153163706537e+00);
assert(isequalRel(ep,     5.786353736586e-01, TOL));
assert(isequalRel(inclp,  1.210492131827e-01, TOL));
assert(isequalRel(nodep,  1.663986712164e-03, TOL));
assert(isequalRel(argpp,  4.795720283944e+00, TOL));
assert(isequalRel(mp,    -1.152573771233e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   1.917688589693e-04,  2.600403830731e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.021959812118e-03, ...
   4.664465684109e-04, -7.734435306744e-04, -3.415977655410e-03, -3.761802411036e-05, -2.320545150812e-04, -6.756286295110e-04, -1.848221304876e-04,  1.185722011180e-04, ...
   1.207731977398e-03,  5.449750974362e-03,  1.229961546518e-04,  2.600000000000e+02, -3.210545596328e-04,  4.292321013506e-04, -1.980369121860e-05, -7.343991154683e-05, ...
   1.243873320172e-04,  4.375268409065e-05,  1.339081864290e-05,  5.069978526244e-04, -6.661160092554e-04,  6.475028727329e-05,  6.619375088630e-01, ...
   2.893600055028e+00,  1.209984410530e-01, "n",  5.781805568082e-01,  1.209982229077e-01,  1.890647663159e-03,  4.796076970927e+00, -7.623621105538e-01);
assert(isequalRel(ep,     5.786342050449e-01, TOL));
assert(isequalRel(inclp,  1.210492684240e-01, TOL));
assert(isequalRel(nodep,  1.426501616831e-03, TOL));
assert(isequalRel(argpp,  4.796192210111e+00, TOL));
assert(isequalRel(mp,    -7.617717682383e-01, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   1.917688589693e-04,  2.600403830731e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.021959812118e-03, ...
   4.664465684109e-04, -7.734435306744e-04, -3.415977655410e-03, -3.761802411036e-05, -2.320545150812e-04, -6.756286295110e-04, -1.848221304876e-04,  1.185722011180e-04, ...
   1.207731977398e-03,  5.449750974362e-03,  1.229961546518e-04,  2.800000000000e+02, -3.210545596328e-04,  4.292321013506e-04, -1.980369121860e-05, -7.343991154683e-05, ...
   1.243873320172e-04,  4.375268409065e-05,  1.339081864290e-05,  5.069978526244e-04, -6.661160092554e-04,  6.475028727329e-05,  6.619375088630e-01, ...
   2.893600055028e+00,  1.209984410530e-01, "n",  5.781788919473e-01,  1.209982061273e-01,  1.653572641022e-03,  4.796548704765e+00, -3.715584339600e-01);
assert(isequalRel(ep,     5.786330385602e-01, TOL));
assert(isequalRel(inclp,  1.210493238075e-01, TOL));
assert(isequalRel(nodep,  1.189026779896e-03, TOL));
assert(isequalRel(argpp,  4.796664129443e+00, TOL));
assert(isequalRel(mp,    -3.709676931711e-01, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   1.917688589693e-04,  2.600403830731e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.021959812118e-03, ...
   4.664465684109e-04, -7.734435306744e-04, -3.415977655410e-03, -3.761802411036e-05, -2.320545150812e-04, -6.756286295110e-04, -1.848221304876e-04,  1.185722011180e-04, ...
   1.207731977398e-03,  5.449750974362e-03,  1.229961546518e-04,  3.000000000000e+02, -3.210545596328e-04,  4.292321013506e-04, -1.980369121860e-05, -7.343991154683e-05, ...
   1.243873320172e-04,  4.375268409065e-05,  1.339081864290e-05,  5.069978526244e-04, -6.661160092554e-04,  6.475028727329e-05,  6.619375088630e-01, ...
   2.893600055028e+00,  1.209984410530e-01, "n",  5.781772270863e-01,  1.209981893469e-01,  1.416495641829e-03,  4.797020438604e+00,  1.924732324394e-02);
assert(isequalRel(ep,     5.786318741822e-01, TOL));
assert(isequalRel(inclp,  1.210493793295e-01, TOL));
assert(isequalRel(nodep,  9.515622452409e-04, TOL));
assert(isequalRel(argpp,  4.797136041921e+00, TOL));
assert(isequalRel(mp,     1.983845392882e-02, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   1.917688589693e-04,  2.600403830731e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.021959812118e-03, ...
   4.664465684109e-04, -7.734435306744e-04, -3.415977655410e-03, -3.761802411036e-05, -2.320545150812e-04, -6.756286295110e-04, -1.848221304876e-04,  1.185722011180e-04, ...
   1.207731977398e-03,  5.449750974362e-03,  1.229961546518e-04,  3.200000000000e+02, -3.210545596328e-04,  4.292321013506e-04, -1.980369121860e-05, -7.343991154683e-05, ...
   1.243873320172e-04,  4.375268409065e-05,  1.339081864290e-05,  5.069978526244e-04, -6.661160092554e-04,  6.475028727329e-05,  6.619375088630e-01, ...
   2.893600055028e+00,  1.209984410530e-01, "n",  5.781755622254e-01,  1.209981725665e-01,  1.179416665582e-03,  4.797492172442e+00,  4.100551610581e-01);
assert(isequalRel(ep,     5.786307118882e-01, TOL));
assert(isequalRel(inclp,  1.210494349863e-01, TOL));
assert(isequalRel(nodep,  7.141080560819e-04, TOL));
assert(isequalRel(argpp,  4.797607947526e+00, TOL));
assert(isequalRel(mp,     4.106466730225e-01, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   1.917688589693e-04,  2.600403830731e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.021959812118e-03, ...
   4.664465684109e-04, -7.734435306744e-04, -3.415977655410e-03, -3.761802411036e-05, -2.320545150812e-04, -6.756286295110e-04, -1.848221304876e-04,  1.185722011180e-04, ...
   1.207731977398e-03,  5.449750974362e-03,  1.229961546518e-04,  3.400000000000e+02, -3.210545596328e-04,  4.292321013506e-04, -1.980369121860e-05, -7.343991154683e-05, ...
   1.243873320172e-04,  4.375268409065e-05,  1.339081864290e-05,  5.069978526244e-04, -6.661160092554e-04,  6.475028727329e-05,  6.619375088630e-01, ...
   2.893600055028e+00,  1.209984410530e-01, "n",  5.781738973645e-01,  1.209981557861e-01,  9.423357122790e-04,  4.797963906281e+00,  8.008650794824e-01);
assert(isequalRel(ep,     5.786295516555e-01, TOL));
assert(isequalRel(inclp,  1.210494907744e-01, TOL));
assert(isequalRel(nodep,  4.766642549663e-04, TOL));
assert(isequalRel(argpp,  4.798079846240e+00, TOL));
assert(isequalRel(mp,     8.014569640714e-01, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   1.917688589693e-04,  2.600403830731e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.021959812118e-03, ...
   4.664465684109e-04, -7.734435306744e-04, -3.415977655410e-03, -3.761802411036e-05, -2.320545150812e-04, -6.756286295110e-04, -1.848221304876e-04,  1.185722011180e-04, ...
   1.207731977398e-03,  5.449750974362e-03,  1.229961546518e-04,  3.600000000000e+02, -3.210545596328e-04,  4.292321013506e-04, -1.980369121860e-05, -7.343991154683e-05, ...
   1.243873320172e-04,  4.375268409065e-05,  1.339081864290e-05,  5.069978526244e-04, -6.661160092554e-04,  6.475028727329e-05,  6.619375088630e-01, ...
   2.893600055028e+00,  1.209984410530e-01, "n",  5.781722325036e-01,  1.209981390057e-01,  7.052527819213e-04,  4.798435640119e+00,  1.191677078517e+00);
assert(isequalRel(ep,     5.786283934613e-01, TOL));
assert(isequalRel(inclp,  1.210495466899e-01, TOL));
assert(isequalRel(nodep,  2.392308837717e-04, TOL));
assert(isequalRel(argpp,  4.798551738045e+00, TOL));
assert(isequalRel(mp,     1.192269327038e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   1.917688589693e-04,  2.600403830731e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.021959812118e-03, ...
   4.664465684109e-04, -7.734435306744e-04, -3.415977655410e-03, -3.761802411036e-05, -2.320545150812e-04, -6.756286295110e-04, -1.848221304876e-04,  1.185722011180e-04, ...
   1.207731977398e-03,  5.449750974362e-03,  1.229961546518e-04,  3.800000000000e+02, -3.210545596328e-04,  4.292321013506e-04, -1.980369121860e-05, -7.343991154683e-05, ...
   1.243873320172e-04,  4.375268409065e-05,  1.339081864290e-05,  5.069978526244e-04, -6.661160092554e-04,  6.475028727329e-05,  6.619375088630e-01, ...
   2.893600055028e+00,  1.209984410530e-01, "n",  5.781705676427e-01,  1.209981222253e-01,  4.681678745084e-04,  4.798907373958e+00, -4.700694149018e+00);
assert(isequalRel(ep,     5.786272372828e-01, TOL));
assert(isequalRel(inclp,  1.210496027292e-01, TOL));
assert(isequalRel(nodep,  1.807983704540e-06, TOL));
assert(isequalRel(argpp,  4.799023622922e+00, TOL));
assert(isequalRel(mp,    -4.700101545296e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   1.917688589693e-04,  2.600403830731e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.021959812118e-03, ...
   4.664465684109e-04, -7.734435306744e-04, -3.415977655410e-03, -3.761802411036e-05, -2.320545150812e-04, -6.756286295110e-04, -1.848221304876e-04,  1.185722011180e-04, ...
   1.207731977398e-03,  5.449750974362e-03,  1.229961546518e-04,  4.000000000000e+02, -3.210545596328e-04,  4.292321013506e-04, -1.980369121860e-05, -7.343991154683e-05, ...
   1.243873320172e-04,  4.375268409065e-05,  1.339081864290e-05,  5.069978526244e-04, -6.661160092554e-04,  6.475028727329e-05,  6.619375088630e-01, ...
   2.893600055028e+00,  1.209984410530e-01, "n",  5.781689027818e-01,  1.209981054449e-01,  2.310809900405e-04,  4.799379107796e+00, -4.309877988763e+00);
assert(isequalRel(ep,     5.786260830971e-01, TOL));
assert(isequalRel(inclp,  1.210496588886e-01, TOL));
assert(isequalRel(nodep, -2.356044047010e-04, TOL));
assert(isequalRel(argpp,  4.799495500856e+00, TOL));
assert(isequalRel(mp,    -4.309285038608e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   1.917688589693e-04,  2.600403830731e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.021959812118e-03, ...
   4.664465684109e-04, -7.734435306744e-04, -3.415977655410e-03, -3.761802411036e-05, -2.320545150812e-04, -6.756286295110e-04, -1.848221304876e-04,  1.185722011180e-04, ...
   1.207731977398e-03,  5.449750974362e-03,  1.229961546518e-04,  4.200000000000e+02, -3.210545596328e-04,  4.292321013506e-04, -1.980369121860e-05, -7.343991154683e-05, ...
   1.243873320172e-04,  4.375268409065e-05,  1.339081864290e-05,  5.069978526244e-04, -6.661160092554e-04,  6.475028727329e-05,  6.619375088630e-01, ...
   2.893600055028e+00,  1.209984410530e-01, "n",  5.781672379209e-01,  1.209980886645e-01, -6.007871482545e-06,  4.799850841635e+00, -3.919059747898e+00);
assert(isequalRel(ep,     5.786249308810e-01, TOL));
assert(isequalRel(inclp,  1.210497151645e-01, TOL));
assert(isequalRel(nodep, -4.730062415845e-04, TOL));
assert(isequalRel(argpp,  4.799967371828e+00, TOL));
assert(isequalRel(mp,    -3.918466460114e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   1.917688589693e-04,  2.600403830731e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.021959812118e-03, ...
   4.664465684109e-04, -7.734435306744e-04, -3.415977655410e-03, -3.761802411036e-05, -2.320545150812e-04, -6.756286295110e-04, -1.848221304876e-04,  1.185722011180e-04, ...
   1.207731977398e-03,  5.449750974362e-03,  1.229961546518e-04,  4.400000000000e+02, -3.210545596328e-04,  4.292321013506e-04, -1.980369121860e-05, -7.343991154683e-05, ...
   1.243873320172e-04,  4.375268409065e-05,  1.339081864290e-05,  5.069978526244e-04, -6.661160092554e-04,  6.475028727329e-05,  6.619375088630e-01, ...
   2.893600055028e+00,  1.209984410530e-01, "n",  5.781655730600e-01,  1.209980718841e-01, -2.430987100607e-04,  4.800322575473e+00, -3.528239426423e+00);
assert(isequalRel(ep,     5.786237806114e-01, TOL));
assert(isequalRel(inclp,  1.210497715530e-01, TOL));
assert(isequalRel(nodep, -7.103974877600e-04, TOL));
assert(isequalRel(argpp,  4.800439235822e+00, TOL));
assert(isequalRel(mp,    -3.527645809850e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   1.917688589693e-04,  2.600403830731e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.021959812118e-03, ...
   4.664465684109e-04, -7.734435306744e-04, -3.415977655410e-03, -3.761802411036e-05, -2.320545150812e-04, -6.756286295110e-04, -1.848221304876e-04,  1.185722011180e-04, ...
   1.207731977398e-03,  5.449750974362e-03,  1.229961546518e-04,  4.600000000000e+02, -3.210545596328e-04,  4.292321013506e-04, -1.980369121860e-05, -7.343991154683e-05, ...
   1.243873320172e-04,  4.375268409065e-05,  1.339081864290e-05,  5.069978526244e-04, -6.661160092554e-04,  6.475028727329e-05,  6.619375088630e-01, ...
   2.893600055028e+00,  1.209984410530e-01, "n",  5.781639081991e-01,  1.209980551037e-01, -4.801915256939e-04,  4.800794309312e+00, -3.137417024337e+00);
assert(isequalRel(ep,     5.786226322653e-01, TOL));
assert(isequalRel(inclp,  1.210498280505e-01, TOL));
assert(isequalRel(nodep, -9.477781047176e-04, TOL));
assert(isequalRel(argpp,  4.800911092823e+00, TOL));
assert(isequalRel(mp,    -3.136823087853e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   1.917688589693e-04,  2.600403830731e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.021959812118e-03, ...
   4.664465684109e-04, -7.734435306744e-04, -3.415977655410e-03, -3.761802411036e-05, -2.320545150812e-04, -6.756286295110e-04, -1.848221304876e-04,  1.185722011180e-04, ...
   1.207731977398e-03,  5.449750974362e-03,  1.229961546518e-04,  4.800000000000e+02, -3.210545596328e-04,  4.292321013506e-04, -1.980369121860e-05, -7.343991154683e-05, ...
   1.243873320172e-04,  4.375268409065e-05,  1.339081864290e-05,  5.069978526244e-04, -6.661160092554e-04,  6.475028727329e-05,  6.619375088630e-01, ...
   2.893600055028e+00,  1.209984410530e-01, "n",  5.781622433382e-01,  1.209980383233e-01, -7.172863183822e-04,  4.801266043150e+00, -2.746592541641e+00);
assert(isequalRel(ep,     5.786214858193e-01, TOL));
assert(isequalRel(inclp,  1.210498846533e-01, TOL));
assert(isequalRel(nodep, -1.185148054624e-03, TOL));
assert(isequalRel(argpp,  4.801382942813e+00, TOL));
assert(isequalRel(mp,    -2.745998294157e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   1.917688589693e-04,  2.600403830731e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.021959812118e-03, ...
   4.664465684109e-04, -7.734435306744e-04, -3.415977655410e-03, -3.761802411036e-05, -2.320545150812e-04, -6.756286295110e-04, -1.848221304876e-04,  1.185722011180e-04, ...
   1.207731977398e-03,  5.449750974362e-03,  1.229961546518e-04,  5.000000000000e+02, -3.210545596328e-04,  4.292321013506e-04, -1.980369121860e-05, -7.343991154683e-05, ...
   1.243873320172e-04,  4.375268409065e-05,  1.339081864290e-05,  5.069978526244e-04, -6.661160092554e-04,  6.475028727329e-05,  6.619375088630e-01, ...
   2.893600055028e+00,  1.209984410530e-01, "n",  5.781605784772e-01,  1.209980215429e-01, -9.543830881256e-04,  4.801737776989e+00, -2.355765978336e+00);
assert(isequalRel(ep,     5.786203412501e-01, TOL));
assert(isequalRel(inclp,  1.210499413577e-01, TOL));
assert(isequalRel(nodep, -1.422507300325e-03, TOL));
assert(isequalRel(argpp,  4.801854785779e+00, TOL));
assert(isequalRel(mp,    -2.355171428797e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   1.917688589693e-04,  2.600403830731e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.021959812118e-03, ...
   4.664465684109e-04, -7.734435306744e-04, -3.415977655410e-03, -3.761802411036e-05, -2.320545150812e-04, -6.756286295110e-04, -1.848221304876e-04,  1.185722011180e-04, ...
   1.207731977398e-03,  5.449750974362e-03,  1.229961546518e-04,  5.200000000000e+02, -3.210545596328e-04,  4.292321013506e-04, -1.980369121860e-05, -7.343991154683e-05, ...
   1.243873320172e-04,  4.375268409065e-05,  1.339081864290e-05,  5.069978526244e-04, -6.661160092554e-04,  6.475028727329e-05,  6.619375088630e-01, ...
   2.893600055028e+00,  1.209984410530e-01, "n",  5.781589136163e-01,  1.209980047625e-01, -1.191481834924e-03,  4.802209510827e+00, -1.964937334419e+00);
assert(isequalRel(ep,     5.786191985342e-01, TOL));
assert(isequalRel(inclp,  1.210499981600e-01, TOL));
assert(isequalRel(nodep, -1.659855805344e-03, TOL));
assert(isequalRel(argpp,  4.802326621704e+00, TOL));
assert(isequalRel(mp,    -1.964342491807e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   1.917688589693e-04,  2.600403830731e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.021959812118e-03, ...
   4.664465684109e-04, -7.734435306744e-04, -3.415977655410e-03, -3.761802411036e-05, -2.320545150812e-04, -6.756286295110e-04, -1.848221304876e-04,  1.185722011180e-04, ...
   1.207731977398e-03,  5.449750974362e-03,  1.229961546518e-04,  5.400000000000e+02, -3.210545596328e-04,  4.292321013506e-04, -1.980369121860e-05, -7.343991154683e-05, ...
   1.243873320172e-04,  4.375268409065e-05,  1.339081864290e-05,  5.069978526244e-04, -6.661160092554e-04,  6.475028727329e-05,  6.619375088630e-01, ...
   2.893600055028e+00,  1.209984410530e-01, "n",  5.781572487554e-01,  1.209979879821e-01, -1.428582558778e-03,  4.802681244666e+00, -1.574106609893e+00);
assert(isequalRel(ep,     5.786180576483e-01, TOL));
assert(isequalRel(inclp,  1.210500550565e-01, TOL));
assert(isequalRel(nodep, -1.897193533884e-03, TOL));
assert(isequalRel(argpp,  4.802798450575e+00, TOL));
assert(isequalRel(mp,    -1.573511483223e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   1.917688589693e-04,  2.600403830731e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.021959812118e-03, ...
   4.664465684109e-04, -7.734435306744e-04, -3.415977655410e-03, -3.761802411036e-05, -2.320545150812e-04, -6.756286295110e-04, -1.848221304876e-04,  1.185722011180e-04, ...
   1.207731977398e-03,  5.449750974362e-03,  1.229961546518e-04,  5.600000000000e+02, -3.210545596328e-04,  4.292321013506e-04, -1.980369121860e-05, -7.343991154683e-05, ...
   1.243873320172e-04,  4.375268409065e-05,  1.339081864290e-05,  5.069978526244e-04, -6.661160092554e-04,  6.475028727329e-05,  6.619375088630e-01, ...
   2.893600055028e+00,  1.209984410530e-01, "n",  5.781555838945e-01,  1.209979712017e-01, -1.665685259686e-03,  4.803152978504e+00, -1.183273804757e+00);
assert(isequalRel(ep,     5.786169185686e-01, TOL));
assert(isequalRel(inclp,  1.210501120434e-01, TOL));
assert(isequalRel(nodep, -2.134520450830e-03, TOL));
assert(isequalRel(argpp,  4.803270272376e+00, TOL));
assert(isequalRel(mp,    -1.182678403076e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   1.917688589693e-04,  2.600403830731e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.021959812118e-03, ...
   4.664465684109e-04, -7.734435306744e-04, -3.415977655410e-03, -3.761802411036e-05, -2.320545150812e-04, -6.756286295110e-04, -1.848221304876e-04,  1.185722011180e-04, ...
   1.207731977398e-03,  5.449750974362e-03,  1.229961546518e-04,  5.800000000000e+02, -3.210545596328e-04,  4.292321013506e-04, -1.980369121860e-05, -7.343991154683e-05, ...
   1.243873320172e-04,  4.375268409065e-05,  1.339081864290e-05,  5.069978526244e-04, -6.661160092554e-04,  6.475028727329e-05,  6.619375088630e-01, ...
   2.893600055028e+00,  1.209984410530e-01, "n",  5.781539190336e-01,  1.209979544213e-01, -1.902789937650e-03,  4.803624712343e+00, -7.924389190101e-01);
assert(isequalRel(ep,     5.786157812716e-01, TOL));
assert(isequalRel(inclp,  1.210501691171e-01, TOL));
assert(isequalRel(nodep, -2.371836521749e-03, TOL));
assert(isequalRel(argpp,  4.803742087095e+00, TOL));
assert(isequalRel(mp,    -7.918432513995e-01, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   1.917688589693e-04,  2.600403830731e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.021959812118e-03, ...
   4.664465684109e-04, -7.734435306744e-04, -3.415977655410e-03, -3.761802411036e-05, -2.320545150812e-04, -6.756286295110e-04, -1.848221304876e-04,  1.185722011180e-04, ...
   1.207731977398e-03,  5.449750974362e-03,  1.229961546518e-04,  6.000000000000e+02, -3.210545596328e-04,  4.292321013506e-04, -1.980369121860e-05, -7.343991154683e-05, ...
   1.243873320172e-04,  4.375268409065e-05,  1.339081864290e-05,  5.069978526244e-04, -6.661160092554e-04,  6.475028727329e-05,  6.619375088630e-01, ...
   2.893600055028e+00,  1.209984410530e-01, "n",  5.781522541727e-01,  1.209979376409e-01, -2.139896592669e-03,  4.804096446181e+00, -4.016019526532e-01);
assert(isequalRel(ep,     5.786146457336e-01, TOL));
assert(isequalRel(inclp,  1.210502262738e-01, TOL));
assert(isequalRel(nodep, -2.609141712888e-03, TOL));
assert(isequalRel(argpp,  4.804213894717e+00, TOL));
assert(isequalRel(mp,    -4.010060282268e-01, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   1.917688589693e-04,  2.600403830731e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.021959812118e-03, ...
   4.664465684109e-04, -7.734435306744e-04, -3.415977655410e-03, -3.761802411036e-05, -2.320545150812e-04, -6.756286295110e-04, -1.848221304876e-04,  1.185722011180e-04, ...
   1.207731977398e-03,  5.449750974362e-03,  1.229961546518e-04,  6.200000000000e+02, -3.210545596328e-04,  4.292321013506e-04, -1.980369121860e-05, -7.343991154683e-05, ...
   1.243873320172e-04,  4.375268409065e-05,  1.339081864290e-05,  5.069978526244e-04, -6.661160092554e-04,  6.475028727329e-05,  6.619375088630e-01, ...
   2.893600055028e+00,  1.209984410530e-01, "n",  5.781505893118e-01,  1.209979208605e-01, -2.377005224743e-03,  4.804568180020e+00, -1.076290568618e-02);
assert(isequalRel(ep,     5.786135119308e-01, TOL));
assert(isequalRel(inclp,  1.210502835099e-01, TOL));
assert(isequalRel(nodep, -2.846435991180e-03, TOL));
assert(isequalRel(argpp,  4.804685695229e+00, TOL));
assert(isequalRel(mp,    -1.016673358934e-02, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   1.917688589693e-04,  2.600403830731e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.021959812118e-03, ...
   4.664465684109e-04, -7.734435306744e-04, -3.415977655410e-03, -3.761802411036e-05, -2.320545150812e-04, -6.756286295110e-04, -1.848221304876e-04,  1.185722011180e-04, ...
   1.207731977398e-03,  5.449750974362e-03,  1.229961546518e-04,  6.400000000000e+02, -3.210545596328e-04,  4.292321013506e-04, -1.980369121860e-05, -7.343991154683e-05, ...
   1.243873320172e-04,  4.375268409065e-05,  1.339081864290e-05,  5.069978526244e-04, -6.661160092554e-04,  6.475028727329e-05,  6.619375088630e-01, ...
   2.893600055028e+00,  1.209984410530e-01, "n",  5.781489244509e-01,  1.209979040801e-01, -2.614115833872e-03,  4.805039913858e+00,  3.800782218911e-01);
assert(isequalRel(ep,     5.786123798394e-01, TOL));
assert(isequalRel(inclp,  1.210503408216e-01, TOL));
assert(isequalRel(nodep, -3.083719324240e-03, TOL));
assert(isequalRel(argpp,  4.805157488618e+00, TOL));
assert(isequalRel(mp,     3.806746324812e-01, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   1.917688589693e-04,  2.600403830731e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.021959812118e-03, ...
   4.664465684109e-04, -7.734435306744e-04, -3.415977655410e-03, -3.761802411036e-05, -2.320545150812e-04, -6.756286295110e-04, -1.848221304876e-04,  1.185722011180e-04, ...
   1.207731977398e-03,  5.449750974362e-03,  1.229961546518e-04,  6.600000000000e+02, -3.210545596328e-04,  4.292321013506e-04, -1.980369121860e-05, -7.343991154683e-05, ...
   1.243873320172e-04,  4.375268409065e-05,  1.339081864290e-05,  5.069978526244e-04, -6.661160092554e-04,  6.475028727329e-05,  6.619375088630e-01, ...
   2.893600055028e+00,  1.209984410530e-01, "n",  5.781472595900e-01,  1.209978872997e-01, -2.851228420056e-03,  4.805511647697e+00,  7.709214300785e-01);
assert(isequalRel(ep,     5.786112494354e-01, TOL));
assert(isequalRel(inclp,  1.210503982052e-01, TOL));
assert(isequalRel(nodep, -3.320991680369e-03, TOL));
assert(isequalRel(argpp,  4.805629274873e+00, TOL));
assert(isequalRel(mp,     7.715180699538e-01, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   1.917688589693e-04,  2.600403830731e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.021959812118e-03, ...
   4.664465684109e-04, -7.734435306744e-04, -3.415977655410e-03, -3.761802411036e-05, -2.320545150812e-04, -6.756286295110e-04, -1.848221304876e-04,  1.185722011180e-04, ...
   1.207731977398e-03,  5.449750974362e-03,  1.229961546518e-04,  6.800000000000e+02, -3.210545596328e-04,  4.292321013506e-04, -1.980369121860e-05, -7.343991154683e-05, ...
   1.243873320172e-04,  4.375268409065e-05,  1.339081864290e-05,  5.069978526244e-04, -6.661160092554e-04,  6.475028727329e-05,  6.619375088630e-01, ...
   2.893600055028e+00,  1.209984410530e-01, "n",  5.781455947291e-01,  1.209978705192e-01, -3.088342983295e-03,  4.805983381535e+00,  1.161766718876e+00);
assert(isequalRel(ep,     5.786101206950e-01, TOL));
assert(isequalRel(inclp,  1.210504556569e-01, TOL));
assert(isequalRel(nodep, -3.558253028552e-03, TOL));
assert(isequalRel(argpp,  4.806101053981e+00, TOL));
assert(isequalRel(mp,     1.162363578798e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   1.917688589693e-04,  2.600403830731e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.021959812118e-03, ...
   4.664465684109e-04, -7.734435306744e-04, -3.415977655410e-03, -3.761802411036e-05, -2.320545150812e-04, -6.756286295110e-04, -1.848221304876e-04,  1.185722011180e-04, ...
   1.207731977398e-03,  5.449750974362e-03,  1.229961546518e-04,  7.000000000000e+02, -3.210545596328e-04,  4.292321013506e-04, -1.980369121860e-05, -7.343991154683e-05, ...
   1.243873320172e-04,  4.375268409065e-05,  1.339081864290e-05,  5.069978526244e-04, -6.661160092554e-04,  6.475028727329e-05,  6.619375088630e-01, ...
   2.893600055028e+00,  1.209984410530e-01, "n",  5.781439298681e-01,  1.209978537388e-01, -3.325459523590e-03,  4.806455115374e+00, -4.730571218896e+00);
assert(isequalRel(ep,     5.786089935940e-01, TOL));
assert(isequalRel(inclp,  1.210505131732e-01, TOL));
assert(isequalRel(nodep, -3.795503338460e-03, TOL));
assert(isequalRel(argpp,  4.806572825930e+00, TOL));
assert(isequalRel(mp,    -4.729974148196e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   1.917688589693e-04,  2.600403830731e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.021959812118e-03, ...
   4.664465684109e-04, -7.734435306744e-04, -3.415977655410e-03, -3.761802411036e-05, -2.320545150812e-04, -6.756286295110e-04, -1.848221304876e-04,  1.185722011180e-04, ...
   1.207731977398e-03,  5.449750974362e-03,  1.229961546518e-04,  7.200000000000e+02, -3.210545596328e-04,  4.292321013506e-04, -1.980369121860e-05, -7.343991154683e-05, ...
   1.243873320172e-04,  4.375268409065e-05,  1.339081864290e-05,  5.069978526244e-04, -6.661160092554e-04,  6.475028727329e-05,  6.619375088630e-01, ...
   2.893600055028e+00,  1.209984410530e-01, "n",  5.781422650072e-01,  1.209978369584e-01, -3.562578040939e-03,  4.806926849212e+00, -4.339721768878e+00);
assert(isequalRel(ep,     5.786078681085e-01, TOL));
assert(isequalRel(inclp,  1.210505707502e-01, TOL));
assert(isequalRel(nodep, -4.032742580451e-03, TOL));
assert(isequalRel(argpp,  4.807044590710e+00, TOL));
assert(isequalRel(mp,    -4.339124496699e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -7.726902954388e-06, -5.176143424006e-07,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  3.935674677679e-05, ...
   3.101303936462e-05, -1.095943198289e-02,  1.543789357065e-02, -2.047755658748e-04,  1.170723269672e-03, -1.086189670839e-03, -1.002689875952e-03, -1.074034874057e-03, ...
   1.012379841762e-02, -1.636988036209e-02,  4.778128024756e-04,  0.000000000000e+00,  2.915576106025e-03, -4.189146928255e-04, -1.078023679235e-04, -3.065019513911e-04, ...
  -3.781667774154e-05, -2.998211222471e-05,  2.707830507804e-04, -2.963865666279e-03,  7.064676449674e-04,  2.515405161303e-04,  1.864840548802e+00, ...
   2.984345003862e+00,  6.725800805485e-02, "y",  2.664000000000e-03,  6.725800805485e-02,  1.396474586435e+00,  5.429679160382e+00,  8.429940287133e-01);
assert(isequalRel(ep,     2.664000000000e-03, TOL));
assert(isequalRel(inclp,  6.725800805485e-02, TOL));
assert(isequalRel(nodep,  1.396474586435e+00, TOL));
assert(isequalRel(argpp,  5.429679160382e+00, TOL));
assert(isequalRel(mp,     8.429940287133e-01, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -7.726902954388e-06, -5.176143424006e-07,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  3.935674677679e-05, ...
   3.101303936462e-05, -1.095943198289e-02,  1.543789357065e-02, -2.047755658748e-04,  1.170723269672e-03, -1.086189670839e-03, -1.002689875952e-03, -1.074034874057e-03, ...
   1.012379841762e-02, -1.636988036209e-02,  4.778128024756e-04,  0.000000000000e+00,  2.915576106025e-03, -4.189146928255e-04, -1.078023679235e-04, -3.065019513911e-04, ...
  -3.781667774154e-05, -2.998211222471e-05,  2.707830507804e-04, -2.963865666279e-03,  7.064676449674e-04,  2.515405161303e-04,  1.864840548802e+00, ...
   2.984345003862e+00,  6.725800805485e-02, "y",  2.664000000000e-03,  6.725800805485e-02,  1.396474586435e+00,  5.429679160382e+00, -5.440191278466e+00);
assert(isequalRel(ep,     2.664000000000e-03, TOL));
assert(isequalRel(inclp,  6.725800805485e-02, TOL));
assert(isequalRel(nodep,  1.396474586435e+00, TOL));
assert(isequalRel(argpp,  5.429679160382e+00, TOL));
assert(isequalRel(mp,    -5.440191278466e+00, TOL));
# 24208

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -7.726902954388e-06, -5.176143424006e-07,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  3.935674677679e-05, ...
   3.101303936462e-05, -1.095943198289e-02,  1.543789357065e-02, -2.047755658748e-04,  1.170723269672e-03, -1.086189670839e-03, -1.002689875952e-03, -1.074034874057e-03, ...
   1.012379841762e-02, -1.636988036209e-02,  4.778128024756e-04,  0.000000000000e+00,  2.915576106025e-03, -4.189146928255e-04, -1.078023679235e-04, -3.065019513911e-04, ...
  -3.781667774154e-05, -2.998211222471e-05,  2.707830507804e-04, -2.963865666279e-03,  7.064676449674e-04,  2.515405161303e-04,  1.864840548802e+00, ...
   2.984345003862e+00,  6.725800805485e-02, "n",  2.664000000000e-03,  6.725800805485e-02,  1.396474586435e+00,  5.429679160382e+00, -5.440191278466e+00);
assert(isequalRel(ep,     2.655459145005e-03, TOL));
assert(isequalRel(inclp,  6.746005864474e-02, TOL));
assert(isequalRel(nodep,  1.390250822316e+00, TOL));
assert(isequalRel(argpp,  5.439942671579e+00, TOL));
assert(isequalRel(mp,    -5.443917779494e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -7.726902954388e-06, -5.176143424006e-07,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  3.935674677679e-05, ...
   3.101303936462e-05, -1.095943198289e-02,  1.543789357065e-02, -2.047755658748e-04,  1.170723269672e-03, -1.086189670839e-03, -1.002689875952e-03, -1.074034874057e-03, ...
   1.012379841762e-02, -1.636988036209e-02,  4.778128024756e-04,  1.200000000000e+02,  2.915576106025e-03, -4.189146928255e-04, -1.078023679235e-04, -3.065019513911e-04, ...
  -3.781667774154e-05, -2.998211222471e-05,  2.707830507804e-04, -2.963865666279e-03,  7.064676449674e-04,  2.515405161303e-04,  1.864840548802e+00, ...
   2.984345003862e+00,  6.725800805485e-02, "n",  2.664011914437e-03,  6.726164540465e-02,  1.396457075947e+00,  5.429723628061e+00, -4.912534575175e+00);
assert(isequalRel(ep,     2.655397268479e-03, TOL));
assert(isequalRel(inclp,  6.746651798965e-02, TOL));
assert(isequalRel(nodep,  1.390268051864e+00, TOL));
assert(isequalRel(argpp,  5.439923164371e+00, TOL));
assert(isequalRel(mp,    -4.916230533694e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -7.726902954388e-06, -5.176143424006e-07,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  3.935674677679e-05, ...
   3.101303936462e-05, -1.095943198289e-02,  1.543789357065e-02, -2.047755658748e-04,  1.170723269672e-03, -1.086189670839e-03, -1.002689875952e-03, -1.074034874057e-03, ...
   1.012379841762e-02, -1.636988036209e-02,  4.778128024756e-04,  2.400000000000e+02,  2.915576106025e-03, -4.189146928255e-04, -1.078023679235e-04, -3.065019513911e-04, ...
  -3.781667774154e-05, -2.998211222471e-05,  2.707830507804e-04, -2.963865666279e-03,  7.064676449674e-04,  2.515405161303e-04,  1.864840548802e+00, ...
   2.984345003862e+00,  6.725800805485e-02, "n",  2.664023828874e-03,  6.726528275444e-02,  1.396439565459e+00,  5.429768095741e+00, -4.384877963727e+00);
assert(isequalRel(ep,     2.655337584895e-03, TOL));
assert(isequalRel(inclp,  6.747291138212e-02, TOL));
assert(isequalRel(nodep,  1.390286409434e+00, TOL));
assert(isequalRel(argpp,  5.439902031895e+00, TOL));
assert(isequalRel(mp,    -4.388542982091e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -7.726902954388e-06, -5.176143424006e-07,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  3.935674677679e-05, ...
   3.101303936462e-05, -1.095943198289e-02,  1.543789357065e-02, -2.047755658748e-04,  1.170723269672e-03, -1.086189670839e-03, -1.002689875952e-03, -1.074034874057e-03, ...
   1.012379841762e-02, -1.636988036209e-02,  4.778128024756e-04,  3.600000000000e+02,  2.915576106025e-03, -4.189146928255e-04, -1.078023679235e-04, -3.065019513911e-04, ...
  -3.781667774154e-05, -2.998211222471e-05,  2.707830507804e-04, -2.963865666279e-03,  7.064676449674e-04,  2.515405161303e-04,  1.864840548802e+00, ...
   2.984345003862e+00,  6.725800805485e-02, "n",  2.664035743311e-03,  6.726892010423e-02,  1.396422054970e+00,  5.429812563420e+00, -3.857221444122e+00);
assert(isequalRel(ep,     2.655280139032e-03, TOL));
assert(isequalRel(inclp,  6.747923674516e-02, TOL));
assert(isequalRel(nodep,  1.390305850094e+00, TOL));
assert(isequalRel(argpp,  5.439879352292e+00, TOL));
assert(isequalRel(mp,    -3.860855159549e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -7.726902954388e-06, -5.176143424006e-07,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  3.935674677679e-05, ...
   3.101303936462e-05, -1.095943198289e-02,  1.543789357065e-02, -2.047755658748e-04,  1.170723269672e-03, -1.086189670839e-03, -1.002689875952e-03, -1.074034874057e-03, ...
   1.012379841762e-02, -1.636988036209e-02,  4.778128024756e-04,  4.800000000000e+02,  2.915576106025e-03, -4.189146928255e-04, -1.078023679235e-04, -3.065019513911e-04, ...
  -3.781667774154e-05, -2.998211222471e-05,  2.707830507804e-04, -2.963865666279e-03,  7.064676449674e-04,  2.515405161303e-04,  1.864840548802e+00, ...
   2.984345003862e+00,  6.725800805485e-02, "n",  2.664047657747e-03,  6.727255745402e-02,  1.396404544482e+00,  5.429857031100e+00, -3.329565016360e+00);
assert(isequalRel(ep,     2.655224972268e-03, TOL));
assert(isequalRel(inclp,  6.748549211343e-02, TOL));
assert(isequalRel(nodep,  1.390326328033e+00, TOL));
assert(isequalRel(argpp,  5.439855204837e+00, TOL));
assert(isequalRel(mp,    -3.333167101079e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -7.726902954388e-06, -5.176143424006e-07,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  3.935674677679e-05, ...
   3.101303936462e-05, -1.095943198289e-02,  1.543789357065e-02, -2.047755658748e-04,  1.170723269672e-03, -1.086189670839e-03, -1.002689875952e-03, -1.074034874057e-03, ...
   1.012379841762e-02, -1.636988036209e-02,  4.778128024756e-04,  6.000000000000e+02,  2.915576106025e-03, -4.189146928255e-04, -1.078023679235e-04, -3.065019513911e-04, ...
  -3.781667774154e-05, -2.998211222471e-05,  2.707830507804e-04, -2.963865666279e-03,  7.064676449674e-04,  2.515405161303e-04,  1.864840548802e+00, ...
   2.984345003862e+00,  6.725800805485e-02, "n",  2.664059572184e-03,  6.727619480381e-02,  1.396387033994e+00,  5.429901498779e+00, -2.801908680441e+00);
assert(isequalRel(ep,     2.655172122585e-03, TOL));
assert(isequalRel(inclp,  6.749167563394e-02, TOL));
assert(isequalRel(nodep,  1.390347796642e+00, TOL));
assert(isequalRel(argpp,  5.439829669806e+00, TOL));
assert(isequalRel(mp,    -2.805478841785e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -7.726902954388e-06, -5.176143424006e-07,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  3.935674677679e-05, ...
   3.101303936462e-05, -1.095943198289e-02,  1.543789357065e-02, -2.047755658748e-04,  1.170723269672e-03, -1.086189670839e-03, -1.002689875952e-03, -1.074034874057e-03, ...
   1.012379841762e-02, -1.636988036209e-02,  4.778128024756e-04,  7.200000000000e+02,  2.915576106025e-03, -4.189146928255e-04, -1.078023679235e-04, -3.065019513911e-04, ...
  -3.781667774154e-05, -2.998211222471e-05,  2.707830507804e-04, -2.963865666279e-03,  7.064676449674e-04,  2.515405161303e-04,  1.864840548802e+00, ...
   2.984345003862e+00,  6.725800805485e-02, "n",  2.664071486621e-03,  6.727983215360e-02,  1.396369523506e+00,  5.429945966459e+00, -2.274252436365e+00);
assert(isequalRel(ep,     2.655121624578e-03, TOL));
assert(isequalRel(inclp,  6.749778556662e-02, TOL));
assert(isequalRel(nodep,  1.390370208590e+00, TOL));
assert(isequalRel(argpp,  5.439802828356e+00, TOL));
assert(isequalRel(mp,    -2.277790416815e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -7.726902954388e-06, -5.176143424006e-07,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  3.935674677679e-05, ...
   3.101303936462e-05, -1.095943198289e-02,  1.543789357065e-02, -2.047755658748e-04,  1.170723269672e-03, -1.086189670839e-03, -1.002689875952e-03, -1.074034874057e-03, ...
   1.012379841762e-02, -1.636988036209e-02,  4.778128024756e-04,  8.400000000000e+02,  2.915576106025e-03, -4.189146928255e-04, -1.078023679235e-04, -3.065019513911e-04, ...
  -3.781667774154e-05, -2.998211222471e-05,  2.707830507804e-04, -2.963865666279e-03,  7.064676449674e-04,  2.515405161303e-04,  1.864840548802e+00, ...
   2.984345003862e+00,  6.725800805485e-02, "n",  2.664083401058e-03,  6.728346950339e-02,  1.396352013018e+00,  5.429990434139e+00, -1.746596259352e+00);
assert(isequalRel(ep,     2.655073509466e-03, TOL));
assert(isequalRel(inclp,  6.750382028469e-02, TOL));
assert(isequalRel(nodep,  1.390393515898e+00, TOL));
assert(isequalRel(argpp,  5.439774762397e+00, TOL));
assert(isequalRel(mp,    -1.750101836536e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -7.726902954388e-06, -5.176143424006e-07,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  3.935674677679e-05, ...
   3.101303936462e-05, -1.095943198289e-02,  1.543789357065e-02, -2.047755658748e-04,  1.170723269672e-03, -1.086189670839e-03, -1.002689875952e-03, -1.074034874057e-03, ...
   1.012379841762e-02, -1.636988036209e-02,  4.778128024756e-04,  9.600000000000e+02,  2.915576106025e-03, -4.189146928255e-04, -1.078023679235e-04, -3.065019513911e-04, ...
  -3.781667774154e-05, -2.998211222471e-05,  2.707830507804e-04, -2.963865666279e-03,  7.064676449674e-04,  2.515405161303e-04,  1.864840548802e+00, ...
   2.984345003862e+00,  6.725800805485e-02, "n",  2.664095315495e-03,  6.728710685319e-02,  1.396334502530e+00,  5.430034901818e+00, -1.218940167073e+00);
assert(isequalRel(ep,     2.655027805113e-03, TOL));
assert(isequalRel(inclp,  6.750977827477e-02, TOL));
assert(isequalRel(nodep,  1.390417670016e+00, TOL));
assert(isequalRel(argpp,  5.439745554471e+00, TOL));
assert(isequalRel(mp,    -1.222413153711e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -7.726902954388e-06, -5.176143424006e-07,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  3.935674677679e-05, ...
   3.101303936462e-05, -1.095943198289e-02,  1.543789357065e-02, -2.047755658748e-04,  1.170723269672e-03, -1.086189670839e-03, -1.002689875952e-03, -1.074034874057e-03, ...
   1.012379841762e-02, -1.636988036209e-02,  4.778128024756e-04,  1.080000000000e+03,  2.915576106025e-03, -4.189146928255e-04, -1.078023679235e-04, -3.065019513911e-04, ...
  -3.781667774154e-05, -2.998211222471e-05,  2.707830507804e-04, -2.963865666279e-03,  7.064676449674e-04,  2.515405161303e-04,  1.864840548802e+00, ...
   2.984345003862e+00,  6.725800805485e-02, "n",  2.664107229932e-03,  6.729074420298e-02,  1.396316992041e+00,  5.430079369498e+00, -6.912841595288e-01);
assert(isequalRel(ep,     2.654984536046e-03, TOL));
assert(isequalRel(inclp,  6.751565813695e-02, TOL));
assert(isequalRel(nodep,  1.390442621892e+00, TOL));
assert(isequalRel(argpp,  5.439715287634e+00, TOL));
assert(isequalRel(mp,    -6.947244033387e-01, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -7.726902954388e-06, -5.176143424006e-07,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  3.935674677679e-05, ...
   3.101303936462e-05, -1.095943198289e-02,  1.543789357065e-02, -2.047755658748e-04,  1.170723269672e-03, -1.086189670839e-03, -1.002689875952e-03, -1.074034874057e-03, ...
   1.012379841762e-02, -1.636988036209e-02,  4.778128024756e-04,  1.200000000000e+03,  2.915576106025e-03, -4.189146928255e-04, -1.078023679235e-04, -3.065019513911e-04, ...
  -3.781667774154e-05, -2.998211222471e-05,  2.707830507804e-04, -2.963865666279e-03,  7.064676449674e-04,  2.515405161303e-04,  1.864840548802e+00, ...
   2.984345003862e+00,  6.725800805485e-02, "n",  2.664119144369e-03,  6.729438155277e-02,  1.396299481553e+00,  5.430123837177e+00, -1.636282367186e-01);
assert(isequalRel(ep,     2.654943723481e-03, TOL));
assert(isequalRel(inclp,  6.752145858463e-02, TOL));
assert(isequalRel(nodep,  1.390468322050e+00, TOL));
assert(isequalRel(argpp,  5.439684045341e+00, TOL));
assert(isequalRel(mp,    -1.670356202728e-01, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -7.726902954388e-06, -5.176143424006e-07,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  3.935674677679e-05, ...
   3.101303936462e-05, -1.095943198289e-02,  1.543789357065e-02, -2.047755658748e-04,  1.170723269672e-03, -1.086189670839e-03, -1.002689875952e-03, -1.074034874057e-03, ...
   1.012379841762e-02, -1.636988036209e-02,  4.778128024756e-04,  1.320000000000e+03,  2.915576106025e-03, -4.189146928255e-04, -1.078023679235e-04, -3.065019513911e-04, ...
  -3.781667774154e-05, -2.998211222471e-05,  2.707830507804e-04, -2.963865666279e-03,  7.064676449674e-04,  2.515405161303e-04,  1.864840548802e+00, ...
   2.984345003862e+00,  6.725800805485e-02, "n",  2.664131058805e-03,  6.729801890256e-02,  1.396281971065e+00,  5.430168304857e+00, -5.919157705822e+00);
assert(isequalRel(ep,     2.654905385358e-03, TOL));
assert(isequalRel(inclp,  6.752717844416e-02, TOL));
assert(isequalRel(nodep,  1.390494720652e+00, TOL));
assert(isequalRel(argpp,  5.439651911328e+00, TOL));
assert(isequalRel(mp,    -5.922532146364e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -7.726902954388e-06, -5.176143424006e-07,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  3.935674677679e-05, ...
   3.101303936462e-05, -1.095943198289e-02,  1.543789357065e-02, -2.047755658748e-04,  1.170723269672e-03, -1.086189670839e-03, -1.002689875952e-03, -1.074034874057e-03, ...
   1.012379841762e-02, -1.636988036209e-02,  4.778128024756e-04,  1.440000000000e+03,  2.915576106025e-03, -4.189146928255e-04, -1.078023679235e-04, -3.065019513911e-04, ...
  -3.781667774154e-05, -2.998211222471e-05,  2.707830507804e-04, -2.963865666279e-03,  7.064676449674e-04,  2.515405161303e-04,  1.864840548802e+00, ...
   2.984345003862e+00,  6.725800805485e-02, "n",  2.664142973242e-03,  6.730165625235e-02,  1.396264460577e+00,  5.430212772536e+00, -5.391501952481e+00);
assert(isequalRel(ep,     2.654869536369e-03, TOL));
assert(isequalRel(inclp,  6.753281665443e-02, TOL));
assert(isequalRel(nodep,  1.390521767576e+00, TOL));
assert(isequalRel(argpp,  5.439618969505e+00, TOL));
assert(isequalRel(mp,    -5.394843401698e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -1.443253711966e-07, -4.967861523155e-07,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.393510838524e-06, ...
   2.297499314735e-06, -1.264715658450e-02, -1.273189516222e-02, -2.058112167495e-04, -1.099705176855e-03,  1.167960133285e-03,  1.176752281702e-03,  9.654718969481e-04, ...
   1.215221622343e-02,  1.153344263874e-02,  4.802261863070e-04,  0.000000000000e+00,  6.708089970693e-04, -2.691818508104e-03, -1.083475775834e-04, -2.688548161140e-04, ...
  -1.120931668890e-04, -7.859155231505e-05,  2.677016040710e-04, -4.478395208697e-04,  2.528608623316e-03,  2.528110216744e-04,  4.917119876491e+00, ...
   6.132061041587e-01,  6.981317007977e-06, "y",  1.765000000000e-04,  6.981317007977e-06,  4.255350081140e+00,  2.710391608592e-01,  3.964236143225e-01);
assert(isequalRel(ep,     1.765000000000e-04, TOL));
assert(isequalRel(inclp,  6.981317007977e-06, TOL));
assert(isequalRel(nodep,  4.255350081140e+00, TOL));
assert(isequalRel(argpp,  2.710391608592e-01, TOL));
assert(isequalRel(mp,     3.964236143225e-01, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -1.443253711966e-07, -4.967861523155e-07,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.393510838524e-06, ...
   2.297499314735e-06, -1.264715658450e-02, -1.273189516222e-02, -2.058112167495e-04, -1.099705176855e-03,  1.167960133285e-03,  1.176752281702e-03,  9.654718969481e-04, ...
   1.215221622343e-02,  1.153344263874e-02,  4.802261863070e-04,  0.000000000000e+00,  6.708089970693e-04, -2.691818508104e-03, -1.083475775834e-04, -2.688548161140e-04, ...
  -1.120931668890e-04, -7.859155231505e-05,  2.677016040710e-04, -4.478395208697e-04,  2.528608623316e-03,  2.528110216744e-04,  4.917119876491e+00, ...
   6.132061041587e-01,  6.981317007977e-06, "y",  1.765000000000e-04,  6.981317007977e-06,  4.255350081140e+00,  2.710391608592e-01,  3.964236143225e-01);
assert(isequalRel(ep,     1.765000000000e-04, TOL));
assert(isequalRel(inclp,  6.981317007977e-06, TOL));
assert(isequalRel(nodep,  4.255350081140e+00, TOL));
assert(isequalRel(argpp,  2.710391608592e-01, TOL));
assert(isequalRel(mp,     3.964236143225e-01, TOL));
# 25954

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -1.443253711966e-07, -4.967861523155e-07,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.393510838524e-06, ...
   2.297499314735e-06, -1.264715658450e-02, -1.273189516222e-02, -2.058112167495e-04, -1.099705176855e-03,  1.167960133285e-03,  1.176752281702e-03,  9.654718969481e-04, ...
   1.215221622343e-02,  1.153344263874e-02,  4.802261863070e-04,  0.000000000000e+00,  6.708089970693e-04, -2.691818508104e-03, -1.083475775834e-04, -2.688548161140e-04, ...
  -1.120931668890e-04, -7.859155231505e-05,  2.677016040710e-04, -4.478395208697e-04,  2.528608623316e-03,  2.528110216744e-04,  4.917119876491e+00, ...
   6.132061041587e-01,  6.981317007977e-06, "n",  1.765000000000e-04,  6.981317007977e-06,  4.255350081140e+00,  2.710391608592e-01,  3.964236143225e-01);
assert(isequalRel(ep,     1.760036093954e-04, TOL));
assert(isequalRel(inclp, -3.181072487146e-04, TOL));
assert(isequalRel(nodep,  1.507262520351e+00, TOL));
assert(isequalRel(argpp,  3.023134057191e+00, TOL));
assert(isequalRel(mp,     3.928039119015e-01, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -1.443253711966e-07, -4.967861523155e-07,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.393510838524e-06, ...
   2.297499314735e-06, -1.264715658450e-02, -1.273189516222e-02, -2.058112167495e-04, -1.099705176855e-03,  1.167960133285e-03,  1.176752281702e-03,  9.654718969481e-04, ...
   1.215221622343e-02,  1.153344263874e-02,  4.802261863070e-04, -1.440000000000e+03,  6.708089970693e-04, -2.691818508104e-03, -1.083475775834e-04, -2.688548161140e-04, ...
  -1.120931668890e-04, -7.859155231505e-05,  2.677016040710e-04, -4.478395208697e-04,  2.528608623316e-03,  2.528110216744e-04,  4.917119876491e+00, ...
   6.132061041587e-01,  6.981317007977e-06, "n",  1.764948834542e-04,  4.377823574785e-05,  4.255584206509e+00,  2.705369316222e-01, -5.903670499891e+00);
assert(isequalRel(ep,     1.760434962297e-04, TOL));
assert(isequalRel(inclp, -3.186699773118e-04, TOL));
assert(isequalRel(nodep,  1.453614251549e+00, TOL));
assert(isequalRel(argpp,  3.076891155585e+00, TOL));
assert(isequalRel(mp,    -5.907652049468e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -1.443253711966e-07, -4.967861523155e-07,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.393510838524e-06, ...
   2.297499314735e-06, -1.264715658450e-02, -1.273189516222e-02, -2.058112167495e-04, -1.099705176855e-03,  1.167960133285e-03,  1.176752281702e-03,  9.654718969481e-04, ...
   1.215221622343e-02,  1.153344263874e-02,  4.802261863070e-04, -1.320000000000e+03,  6.708089970693e-04, -2.691818508104e-03, -1.083475775834e-04, -2.688548161140e-04, ...
  -1.120931668890e-04, -7.859155231505e-05,  2.677016040710e-04, -4.478395208697e-04,  2.528608623316e-03,  2.528110216744e-04,  4.917119876491e+00, ...
   6.132061041587e-01,  6.981317007977e-06, "n",  1.764953098331e-04,  4.071182585286e-05,  4.255564696062e+00,  2.705787840586e-01, -5.378662541756e+00);
assert(isequalRel(ep,     1.760392159224e-04, TOL));
assert(isequalRel(inclp, -3.188761844696e-04, TOL));
assert(isequalRel(nodep,  1.458360403460e+00, TOL));
assert(isequalRel(argpp,  3.072138494170e+00, TOL));
assert(isequalRel(mp,    -5.382616277313e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -1.443253711966e-07, -4.967861523155e-07,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.393510838524e-06, ...
   2.297499314735e-06, -1.264715658450e-02, -1.273189516222e-02, -2.058112167495e-04, -1.099705176855e-03,  1.167960133285e-03,  1.176752281702e-03,  9.654718969481e-04, ...
   1.215221622343e-02,  1.153344263874e-02,  4.802261863070e-04, -1.200000000000e+03,  6.708089970693e-04, -2.691818508104e-03, -1.083475775834e-04, -2.688548161140e-04, ...
  -1.120931668890e-04, -7.859155231505e-05,  2.677016040710e-04, -4.478395208697e-04,  2.528608623316e-03,  2.528110216744e-04,  4.917119876491e+00, ...
   6.132061041587e-01,  6.981317007977e-06, "n",  1.764957362119e-04,  3.764541595787e-05,  4.255545185615e+00,  2.706206364950e-01, -4.853654604581e+00);
assert(isequalRel(ep,     1.760350964137e-04, TOL));
assert(isequalRel(inclp, -3.190253131947e-04, TOL));
assert(isequalRel(nodep,  1.463072657601e+00, TOL));
assert(isequalRel(argpp,  3.067419153378e+00, TOL));
assert(isequalRel(mp,    -4.857579994601e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -1.443253711966e-07, -4.967861523155e-07,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.393510838524e-06, ...
   2.297499314735e-06, -1.264715658450e-02, -1.273189516222e-02, -2.058112167495e-04, -1.099705176855e-03,  1.167960133285e-03,  1.176752281702e-03,  9.654718969481e-04, ...
   1.215221622343e-02,  1.153344263874e-02,  4.802261863070e-04, -1.080000000000e+03,  6.708089970693e-04, -2.691818508104e-03, -1.083475775834e-04, -2.688548161140e-04, ...
  -1.120931668890e-04, -7.859155231505e-05,  2.677016040710e-04, -4.478395208697e-04,  2.528608623316e-03,  2.528110216744e-04,  4.917119876491e+00, ...
   6.132061041587e-01,  6.981317007977e-06, "n",  1.764961625907e-04,  3.457900606288e-05,  4.255525675167e+00,  2.706624889315e-01, -4.328646688368e+00);
assert(isequalRel(ep,     1.760311421121e-04, TOL));
assert(isequalRel(inclp, -3.191204447167e-04, TOL));
assert(isequalRel(nodep,  1.467746573234e+00, TOL));
assert(isequalRel(argpp,  3.062737605200e+00, TOL));
assert(isequalRel(mp,    -4.332543231181e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -1.443253711966e-07, -4.967861523155e-07,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.393510838524e-06, ...
   2.297499314735e-06, -1.264715658450e-02, -1.273189516222e-02, -2.058112167495e-04, -1.099705176855e-03,  1.167960133285e-03,  1.176752281702e-03,  9.654718969481e-04, ...
   1.215221622343e-02,  1.153344263874e-02,  4.802261863070e-04, -9.600000000000e+02,  6.708089970693e-04, -2.691818508104e-03, -1.083475775834e-04, -2.688548161140e-04, ...
  -1.120931668890e-04, -7.859155231505e-05,  2.677016040710e-04, -4.478395208697e-04,  2.528608623316e-03,  2.528110216744e-04,  4.917119876491e+00, ...
   6.132061041587e-01,  6.981317007977e-06, "n",  1.764965889695e-04,  3.151259616789e-05,  4.255506164720e+00,  2.707043413679e-01, -3.803638793115e+00);
assert(isequalRel(ep,     1.760273572284e-04, TOL));
assert(isequalRel(inclp, -3.191647713351e-04, TOL));
assert(isequalRel(nodep,  1.472377527676e+00, TOL));
assert(isequalRel(argpp,  3.058098504642e+00, TOL));
assert(isequalRel(mp,    -3.807506017840e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -1.443253711966e-07, -4.967861523155e-07,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.393510838524e-06, ...
   2.297499314735e-06, -1.264715658450e-02, -1.273189516222e-02, -2.058112167495e-04, -1.099705176855e-03,  1.167960133285e-03,  1.176752281702e-03,  9.654718969481e-04, ...
   1.215221622343e-02,  1.153344263874e-02,  4.802261863070e-04, -8.400000000000e+02,  6.708089970693e-04, -2.691818508104e-03, -1.083475775834e-04, -2.688548161140e-04, ...
  -1.120931668890e-04, -7.859155231505e-05,  2.677016040710e-04, -4.478395208697e-04,  2.528608623316e-03,  2.528110216744e-04,  4.917119876491e+00, ...
   6.132061041587e-01,  6.981317007977e-06, "n",  1.764970153483e-04,  2.844618627290e-05,  4.255486654272e+00,  2.707461938043e-01, -3.278630918822e+00);
assert(isequalRel(ep,     1.760237457653e-04, TOL));
assert(isequalRel(inclp, -3.191615930979e-04, TOL));
assert(isequalRel(nodep,  1.476960713811e+00, TOL));
assert(isequalRel(argpp,  3.053506692184e+00, TOL));
assert(isequalRel(mp,    -3.282468386268e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -1.443253711966e-07, -4.967861523155e-07,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.393510838524e-06, ...
   2.297499314735e-06, -1.264715658450e-02, -1.273189516222e-02, -2.058112167495e-04, -1.099705176855e-03,  1.167960133285e-03,  1.176752281702e-03,  9.654718969481e-04, ...
   1.215221622343e-02,  1.153344263874e-02,  4.802261863070e-04, -7.200000000000e+02,  6.708089970693e-04, -2.691818508104e-03, -1.083475775834e-04, -2.688548161140e-04, ...
  -1.120931668890e-04, -7.859155231505e-05,  2.677016040710e-04, -4.478395208697e-04,  2.528608623316e-03,  2.528110216744e-04,  4.917119876491e+00, ...
   6.132061041587e-01,  6.981317007977e-06, "n",  1.764974417271e-04,  2.537977637791e-05,  4.255467143825e+00,  2.707880462407e-01, -2.753623065491e+00);
assert(isequalRel(ep,     1.760203115082e-04, TOL));
assert(isequalRel(inclp, -3.191143142016e-04, TOL));
assert(isequalRel(nodep,  1.481491138267e+00, TOL));
assert(isequalRel(argpp,  3.048967195556e+00, TOL));
assert(isequalRel(mp,    -2.757430369021e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -1.443253711966e-07, -4.967861523155e-07,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.393510838524e-06, ...
   2.297499314735e-06, -1.264715658450e-02, -1.273189516222e-02, -2.058112167495e-04, -1.099705176855e-03,  1.167960133285e-03,  1.176752281702e-03,  9.654718969481e-04, ...
   1.215221622343e-02,  1.153344263874e-02,  4.802261863070e-04, -6.000000000000e+02,  6.708089970693e-04, -2.691818508104e-03, -1.083475775834e-04, -2.688548161140e-04, ...
  -1.120931668890e-04, -7.859155231505e-05,  2.677016040710e-04, -4.478395208697e-04,  2.528608623316e-03,  2.528110216744e-04,  4.917119876491e+00, ...
   6.132061041587e-01,  6.981317007977e-06, "n",  1.764978681059e-04,  2.231336648292e-05,  4.255447633377e+00,  2.708298986771e-01, -2.228615233131e+00);
assert(isequalRel(ep,     1.760170580145e-04, TOL));
assert(isequalRel(inclp, -3.190264391121e-04, TOL));
assert(isequalRel(nodep,  1.485963620378e+00, TOL));
assert(isequalRel(argpp,  3.044485230748e+00, TOL));
assert(isequalRel(mp,    -2.232391999492e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -1.443253711966e-07, -4.967861523155e-07,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.393510838524e-06, ...
   2.297499314735e-06, -1.264715658450e-02, -1.273189516222e-02, -2.058112167495e-04, -1.099705176855e-03,  1.167960133285e-03,  1.176752281702e-03,  9.654718969481e-04, ...
   1.215221622343e-02,  1.153344263874e-02,  4.802261863070e-04, -4.800000000000e+02,  6.708089970693e-04, -2.691818508104e-03, -1.083475775834e-04, -2.688548161140e-04, ...
  -1.120931668890e-04, -7.859155231505e-05,  2.677016040710e-04, -4.478395208697e-04,  2.528608623316e-03,  2.528110216744e-04,  4.917119876491e+00, ...
   6.132061041587e-01,  6.981317007977e-06, "n",  1.764982944847e-04,  1.924695658794e-05,  4.255428122930e+00,  2.708717511135e-01, -1.703607421727e+00);
assert(isequalRel(ep,     1.760139886047e-04, TOL));
assert(isequalRel(inclp, -3.189015684064e-04, TOL));
assert(isequalRel(nodep,  1.490372791981e+00, TOL));
assert(isequalRel(argpp,  3.040066202161e+00, TOL));
assert(isequalRel(mp,    -1.707353311834e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -1.443253711966e-07, -4.967861523155e-07,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.393510838524e-06, ...
   2.297499314735e-06, -1.264715658450e-02, -1.273189516222e-02, -2.058112167495e-04, -1.099705176855e-03,  1.167960133285e-03,  1.176752281702e-03,  9.654718969481e-04, ...
   1.215221622343e-02,  1.153344263874e-02,  4.802261863070e-04, -3.600000000000e+02,  6.708089970693e-04, -2.691818508104e-03, -1.083475775834e-04, -2.688548161140e-04, ...
  -1.120931668890e-04, -7.859155231505e-05,  2.677016040710e-04, -4.478395208697e-04,  2.528608623316e-03,  2.528110216744e-04,  4.917119876491e+00, ...
   6.132061041587e-01,  6.981317007977e-06, "n",  1.764987208636e-04,  1.618054669295e-05,  4.255408612483e+00,  2.709136035500e-01, -1.178599631280e+00);
assert(isequalRel(ep,     1.760111063528e-04, TOL));
assert(isequalRel(inclp, -3.187433943361e-04, TOL));
assert(isequalRel(nodep,  1.494713098173e+00, TOL));
assert(isequalRel(argpp,  3.035715701805e+00, TOL));
assert(isequalRel(mp,    -1.182314340950e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -1.443253711966e-07, -4.967861523155e-07,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.393510838524e-06, ...
   2.297499314735e-06, -1.264715658450e-02, -1.273189516222e-02, -2.058112167495e-04, -1.099705176855e-03,  1.167960133285e-03,  1.176752281702e-03,  9.654718969481e-04, ...
   1.215221622343e-02,  1.153344263874e-02,  4.802261863070e-04, -2.400000000000e+02,  6.708089970693e-04, -2.691818508104e-03, -1.083475775834e-04, -2.688548161140e-04, ...
  -1.120931668890e-04, -7.859155231505e-05,  2.677016040710e-04, -4.478395208697e-04,  2.528608623316e-03,  2.528110216744e-04,  4.917119876491e+00, ...
   6.132061041587e-01,  6.981317007977e-06, "n",  1.764991472424e-04,  1.311413679796e-05,  4.255389102035e+00,  2.709554559864e-01, -6.535918617890e-01);
assert(isequalRel(ep,     1.760084140769e-04, TOL));
assert(isequalRel(inclp, -3.185556961158e-04, TOL));
assert(isequalRel(nodep,  1.498978799121e+00, TOL));
assert(isequalRel(argpp,  3.031439507447e+00, TOL));
assert(isequalRel(mp,    -6.572751224409e-01, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -1.443253711966e-07, -4.967861523155e-07,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.393510838524e-06, ...
   2.297499314735e-06, -1.264715658450e-02, -1.273189516222e-02, -2.058112167495e-04, -1.099705176855e-03,  1.167960133285e-03,  1.176752281702e-03,  9.654718969481e-04, ...
   1.215221622343e-02,  1.153344263874e-02,  4.802261863070e-04, -1.200000000000e+02,  6.708089970693e-04, -2.691818508104e-03, -1.083475775834e-04, -2.688548161140e-04, ...
  -1.120931668890e-04, -7.859155231505e-05,  2.677016040710e-04, -4.478395208697e-04,  2.528608623316e-03,  2.528110216744e-04,  4.917119876491e+00, ...
   6.132061041587e-01,  6.981317007977e-06, "n",  1.764995736212e-04,  1.004772690297e-05,  4.255369591588e+00,  2.709973084228e-01, -1.285841132550e-01);
assert(isequalRel(ep,     1.760059143308e-04, TOL));
assert(isequalRel(inclp, -3.183423349373e-04, TOL));
assert(isequalRel(nodep,  1.503163973026e+00, TOL));
assert(isequalRel(argpp,  3.027243579590e+00, TOL));
assert(isequalRel(mp,    -1.322356925462e-01, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -1.443253711966e-07, -4.967861523155e-07,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.393510838524e-06, ...
   2.297499314735e-06, -1.264715658450e-02, -1.273189516222e-02, -2.058112167495e-04, -1.099705176855e-03,  1.167960133285e-03,  1.176752281702e-03,  9.654718969481e-04, ...
   1.215221622343e-02,  1.153344263874e-02,  4.802261863070e-04,  0.000000000000e+00,  6.708089970693e-04, -2.691818508104e-03, -1.083475775834e-04, -2.688548161140e-04, ...
  -1.120931668890e-04, -7.859155231505e-05,  2.677016040710e-04, -4.478395208697e-04,  2.528608623316e-03,  2.528110216744e-04,  4.917119876491e+00, ...
   6.132061041587e-01,  6.981317007977e-06, "n",  1.765000000000e-04,  6.981317007977e-06,  4.255350081140e+00,  2.710391608592e-01,  3.964236143225e-01);
assert(isequalRel(ep,     1.760036093954e-04, TOL));
assert(isequalRel(inclp, -3.181072487146e-04, TOL));
assert(isequalRel(nodep,  1.507262520351e+00, TOL));
assert(isequalRel(argpp,  3.023134057191e+00, TOL));
assert(isequalRel(mp,     3.928039119015e-01, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -1.443253711966e-07, -4.967861523155e-07,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.393510838524e-06, ...
   2.297499314735e-06, -1.264715658450e-02, -1.273189516222e-02, -2.058112167495e-04, -1.099705176855e-03,  1.167960133285e-03,  1.176752281702e-03,  9.654718969481e-04, ...
   1.215221622343e-02,  1.153344263874e-02,  4.802261863070e-04,  1.200000000000e+02,  6.708089970693e-04, -2.691818508104e-03, -1.083475775834e-04, -2.688548161140e-04, ...
  -1.120931668890e-04, -7.859155231505e-05,  2.677016040710e-04, -4.478395208697e-04,  2.528608623316e-03,  2.528110216744e-04,  4.917119876491e+00, ...
   6.132061041587e-01,  6.981317007977e-06, "n",  1.765004263788e-04,  3.914907112988e-06,  4.255330570693e+00,  2.710810132956e-01,  9.214313209434e-01);
assert(isequalRel(ep,     1.760015012701e-04, TOL));
assert(isequalRel(inclp, -3.178544465630e-04, TOL));
assert(isequalRel(nodep,  1.511268169443e+00, TOL));
assert(isequalRel(argpp,  3.019117251990e+00, TOL));
assert(isequalRel(mp,     9.178436535329e-01, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -1.443253711966e-07, -4.967861523155e-07,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.393510838524e-06, ...
   2.297499314735e-06, -1.264715658450e-02, -1.273189516222e-02, -2.058112167495e-04, -1.099705176855e-03,  1.167960133285e-03,  1.176752281702e-03,  9.654718969481e-04, ...
   1.215221622343e-02,  1.153344263874e-02,  4.802261863070e-04,  2.400000000000e+02,  6.708089970693e-04, -2.691818508104e-03, -1.083475775834e-04, -2.688548161140e-04, ...
  -1.120931668890e-04, -7.859155231505e-05,  2.677016040710e-04, -4.478395208697e-04,  2.528608623316e-03,  2.528110216744e-04,  4.917119876491e+00, ...
   6.132061041587e-01,  6.981317007977e-06, "n",  1.765008527576e-04,  8.484972179984e-07,  4.255311060246e+00,  2.711228657320e-01,  1.446439006608e+00);
assert(isequalRel(ep,     1.759995916656e-04, TOL));
assert(isequalRel(inclp, -3.175880030189e-04, TOL));
assert(isequalRel(nodep,  1.515174483639e+00, TOL));
assert(isequalRel(argpp,  3.015199641335e+00, TOL));
assert(isequalRel(mp,     1.442883494497e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -1.443253711966e-07, -4.967861523155e-07,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.393510838524e-06, ...
   2.297499314735e-06, -1.264715658450e-02, -1.273189516222e-02, -2.058112167495e-04, -1.099705176855e-03,  1.167960133285e-03,  1.176752281702e-03,  9.654718969481e-04, ...
   1.215221622343e-02,  1.153344263874e-02,  4.802261863070e-04,  3.600000000000e+02,  6.708089970693e-04, -2.691818508104e-03, -1.083475775834e-04, -2.688548161140e-04, ...
  -1.120931668890e-04, -7.859155231505e-05,  2.677016040710e-04, -4.478395208697e-04,  2.528608623316e-03,  2.528110216744e-04,  4.917119876491e+00, ...
   6.132061041587e-01,  6.981317007977e-06, "n",  1.765012791364e-04, -2.217912676991e-06,  4.255291549798e+00,  2.711647181685e-01, -4.311738635864e+00);
assert(isequalRel(ep,     1.759978819962e-04, TOL));
assert(isequalRel(inclp, -3.173120520055e-04, TOL));
assert(isequalRel(nodep,  1.518974870005e+00, TOL));
assert(isequalRel(argpp,  3.011387859390e+00, TOL));
assert(isequalRel(mp,    -4.315261910658e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -1.443253711966e-07, -4.967861523155e-07,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.393510838524e-06, ...
   2.297499314735e-06, -1.264715658450e-02, -1.273189516222e-02, -2.058112167495e-04, -1.099705176855e-03,  1.167960133285e-03,  1.176752281702e-03,  9.654718969481e-04, ...
   1.215221622343e-02,  1.153344263874e-02,  4.802261863070e-04,  4.800000000000e+02,  6.708089970693e-04, -2.691818508104e-03, -1.083475775834e-04, -2.688548161140e-04, ...
  -1.120931668890e-04, -7.859155231505e-05,  2.677016040710e-04, -4.478395208697e-04,  2.528608623316e-03,  2.528110216744e-04,  4.917119876491e+00, ...
   6.132061041587e-01,  6.981317007977e-06, "n",  1.765017055153e-04, -5.284322571981e-06,  4.255272039351e+00,  2.712065706049e-01, -3.786730992113e+00);
assert(isequalRel(ep,     1.759963733724e-04, TOL));
assert(isequalRel(inclp, -3.170307805519e-04, TOL));
assert(isequalRel(nodep,  1.522662589807e+00, TOL));
assert(isequalRel(argpp,  3.007688686598e+00, TOL));
assert(isequalRel(mp,    -3.790221986210e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -1.443253711966e-07, -4.967861523155e-07,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.393510838524e-06, ...
   2.297499314735e-06, -1.264715658450e-02, -1.273189516222e-02, -2.058112167495e-04, -1.099705176855e-03,  1.167960133285e-03,  1.176752281702e-03,  9.654718969481e-04, ...
   1.215221622343e-02,  1.153344263874e-02,  4.802261863070e-04,  6.000000000000e+02,  6.708089970693e-04, -2.691818508104e-03, -1.083475775834e-04, -2.688548161140e-04, ...
  -1.120931668890e-04, -7.859155231505e-05,  2.677016040710e-04, -4.478395208697e-04,  2.528608623316e-03,  2.528110216744e-04,  4.917119876491e+00, ...
   6.132061041587e-01,  6.981317007977e-06, "n",  1.765021318941e-04, -8.350732466970e-06,  4.255252528903e+00,  2.712484230413e-01, -3.261723369318e+00);
assert(isequalRel(ep,     1.759950665953e-04, TOL));
assert(isequalRel(inclp, -3.167484222738e-04, TOL));
assert(isequalRel(nodep,  1.526230770843e+00, TOL));
assert(isequalRel(argpp,  3.004109037282e+00, TOL));
assert(isequalRel(mp,    -3.265182078274e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -1.443253711966e-07, -4.967861523155e-07,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.393510838524e-06, ...
   2.297499314735e-06, -1.264715658450e-02, -1.273189516222e-02, -2.058112167495e-04, -1.099705176855e-03,  1.167960133285e-03,  1.176752281702e-03,  9.654718969481e-04, ...
   1.215221622343e-02,  1.153344263874e-02,  4.802261863070e-04,  7.200000000000e+02,  6.708089970693e-04, -2.691818508104e-03, -1.083475775834e-04, -2.688548161140e-04, ...
  -1.120931668890e-04, -7.859155231505e-05,  2.677016040710e-04, -4.478395208697e-04,  2.528608623316e-03,  2.528110216744e-04,  4.917119876491e+00, ...
   6.132061041587e-01,  6.981317007977e-06, "n",  1.765025582729e-04, -1.141714236196e-05,  4.255233018456e+00,  2.712902754777e-01, -2.736715767480e+00);
assert(isequalRel(ep,     1.759939621497e-04, TOL));
assert(isequalRel(inclp, -3.164692506247e-04, TOL));
assert(isequalRel(nodep,  1.529672421759e+00, TOL));
assert(isequalRel(argpp,  3.000655945262e+00, TOL));
assert(isequalRel(mp,    -2.740142226022e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -1.443253711966e-07, -4.967861523155e-07,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.393510838524e-06, ...
   2.297499314735e-06, -1.264715658450e-02, -1.273189516222e-02, -2.058112167495e-04, -1.099705176855e-03,  1.167960133285e-03,  1.176752281702e-03,  9.654718969481e-04, ...
   1.215221622343e-02,  1.153344263874e-02,  4.802261863070e-04,  8.400000000000e+02,  6.708089970693e-04, -2.691818508104e-03, -1.083475775834e-04, -2.688548161140e-04, ...
  -1.120931668890e-04, -7.859155231505e-05,  2.677016040710e-04, -4.478395208697e-04,  2.528608623316e-03,  2.528110216744e-04,  4.917119876491e+00, ...
   6.132061041587e-01,  6.981317007977e-06, "n",  1.765029846517e-04, -1.448355225695e-05,  4.255213508009e+00,  2.713321279141e-01, -2.211708186584e+00);
assert(isequalRel(ep,     1.759930601990e-04, TOL));
assert(isequalRel(inclp, -3.161975719277e-04, TOL));
assert(isequalRel(nodep,  1.532980448454e+00, TOL));
assert(isequalRel(argpp,  2.997336547379e+00, TOL));
assert(isequalRel(mp,    -2.215102468781e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -1.443253711966e-07, -4.967861523155e-07,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.393510838524e-06, ...
   2.297499314735e-06, -1.264715658450e-02, -1.273189516222e-02, -2.058112167495e-04, -1.099705176855e-03,  1.167960133285e-03,  1.176752281702e-03,  9.654718969481e-04, ...
   1.215221622343e-02,  1.153344263874e-02,  4.802261863070e-04,  9.600000000000e+02,  6.708089970693e-04, -2.691818508104e-03, -1.083475775834e-04, -2.688548161140e-04, ...
  -1.120931668890e-04, -7.859155231505e-05,  2.677016040710e-04, -4.478395208697e-04,  2.528608623316e-03,  2.528110216744e-04,  4.917119876491e+00, ...
   6.132061041587e-01,  6.981317007977e-06, "n",  1.765034110305e-04, -1.754996215194e-05,  4.255193997561e+00,  2.713739803505e-01, -1.686700626640e+00);
assert(isequalRel(ep,     1.759923605799e-04, TOL));
assert(isequalRel(inclp, -3.159377181986e-04, TOL));
assert(isequalRel(nodep,  1.536147672705e+00, TOL));
assert(isequalRel(argpp,  2.994158064800e+00, TOL));
assert(isequalRel(mp,    -1.690062846008e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -1.443253711966e-07, -4.967861523155e-07,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.393510838524e-06, ...
   2.297499314735e-06, -1.264715658450e-02, -1.273189516222e-02, -2.058112167495e-04, -1.099705176855e-03,  1.167960133285e-03,  1.176752281702e-03,  9.654718969481e-04, ...
   1.215221622343e-02,  1.153344263874e-02,  4.802261863070e-04,  1.080000000000e+03,  6.708089970693e-04, -2.691818508104e-03, -1.083475775834e-04, -2.688548161140e-04, ...
  -1.120931668890e-04, -7.859155231505e-05,  2.677016040710e-04, -4.478395208697e-04,  2.528608623316e-03,  2.528110216744e-04,  4.917119876491e+00, ...
   6.132061041587e-01,  6.981317007977e-06, "n",  1.765038374093e-04, -2.061637204693e-05,  4.255174487114e+00,  2.714158327870e-01, -1.161693087648e+00);
assert(isequalRel(ep,     1.759918627984e-04, TOL));
assert(isequalRel(inclp, -3.156940397718e-04, TOL));
assert(isequalRel(nodep,  1.539166853084e+00, TOL));
assert(isequalRel(argpp,  2.991127782027e+00, TOL));
assert(isequalRel(mp,    -1.165023397180e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -1.443253711966e-07, -4.967861523155e-07,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.393510838524e-06, ...
   2.297499314735e-06, -1.264715658450e-02, -1.273189516222e-02, -2.058112167495e-04, -1.099705176855e-03,  1.167960133285e-03,  1.176752281702e-03,  9.654718969481e-04, ...
   1.215221622343e-02,  1.153344263874e-02,  4.802261863070e-04,  1.200000000000e+03,  6.708089970693e-04, -2.691818508104e-03, -1.083475775834e-04, -2.688548161140e-04, ...
  -1.120931668890e-04, -7.859155231505e-05,  2.677016040710e-04, -4.478395208697e-04,  2.528608623316e-03,  2.528110216744e-04,  4.917119876491e+00, ...
   6.132061041587e-01,  6.981317007977e-06, "n",  1.765042637881e-04, -2.368278194192e-05,  4.255154976666e+00,  2.714576852234e-01, -6.366855696087e-01);
assert(isequalRel(ep,     1.759915660253e-04, TOL));
assert(isequalRel(inclp, -3.154708977426e-04, TOL));
assert(isequalRel(nodep,  1.542030708294e+00, TOL));
assert(isequalRel(argpp,  2.988253023482e+00, TOL));
assert(isequalRel(mp,    -6.399841617388e-01, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -1.443253711966e-07, -4.967861523155e-07,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.393510838524e-06, ...
   2.297499314735e-06, -1.264715658450e-02, -1.273189516222e-02, -2.058112167495e-04, -1.099705176855e-03,  1.167960133285e-03,  1.176752281702e-03,  9.654718969481e-04, ...
   1.215221622343e-02,  1.153344263874e-02,  4.802261863070e-04,  1.320000000000e+03,  6.708089970693e-04, -2.691818508104e-03, -1.083475775834e-04, -2.688548161140e-04, ...
  -1.120931668890e-04, -7.859155231505e-05,  2.677016040710e-04, -4.478395208697e-04,  2.528608623316e-03,  2.528110216744e-04,  4.917119876491e+00, ...
   6.132061041587e-01,  6.981317007977e-06, "n",  1.765046901669e-04, -2.674919183691e-05,  4.255135466219e+00,  2.714995376598e-01, -1.116780725214e-01);
assert(isequalRel(ep,     1.759914690937e-04, TOL));
assert(isequalRel(inclp, -3.152726562388e-04, TOL));
assert(isequalRel(nodep,  1.544731942977e+00, TOL));
assert(isequalRel(argpp,  2.985541127624e+00, TOL));
assert(isequalRel(mp,    -1.149451790184e-01, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -1.443253711966e-07, -4.967861523155e-07,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.393510838524e-06, ...
   2.297499314735e-06, -1.264715658450e-02, -1.273189516222e-02, -2.058112167495e-04, -1.099705176855e-03,  1.167960133285e-03,  1.176752281702e-03,  9.654718969481e-04, ...
   1.215221622343e-02,  1.153344263874e-02,  4.802261863070e-04,  1.440000000000e+03,  6.708089970693e-04, -2.691818508104e-03, -1.083475775834e-04, -2.688548161140e-04, ...
  -1.120931668890e-04, -7.859155231505e-05,  2.677016040710e-04, -4.478395208697e-04,  2.528608623316e-03,  2.528110216744e-04,  4.917119876491e+00, ...
   6.132061041587e-01,  6.981317007977e-06, "n",  1.765051165458e-04, -2.981560173190e-05,  4.255115955772e+00,  2.715413900962e-01,  4.133294036137e-01);
assert(isequalRel(ep,     1.759915704957e-04, TOL));
assert(isequalRel(inclp, -3.151036745359e-04, TOL));
assert(isequalRel(nodep,  1.547263276078e+00, TOL));
assert(isequalRel(argpp,  2.982999418511e+00, TOL));
assert(isequalRel(mp,     4.100935118299e-01, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -4.297357109584e-07, -8.575863014313e-07,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  4.977710503291e-06, ...
  -3.758122880832e-06,  1.170238813200e-02,  1.596617407202e-02, -2.058059586065e-04, -1.469489949578e-03,  7.031457064751e-04,  6.596584265507e-04,  1.342180142943e-03, ...
  -1.219566699304e-02, -1.716537238492e-02,  4.802139525359e-04,  0.000000000000e+00,  1.468610866371e-03, -2.762771903365e-03, -1.083448094784e-04,  2.443977229280e-04, ...
   1.980068154638e-04,  1.700595365594e-04, -2.181240526799e-04, -1.672610170679e-03,  2.984308463316e-03,  2.528045813088e-04,  4.685095846573e+00, ...
   1.775121968701e+00,  2.862339973271e-04, "y",  3.319000000000e-04,  2.862339973271e-04,  4.651962191022e+00,  1.504114277393e+00,  3.181019641392e+00);
assert(isequalRel(ep,     3.319000000000e-04, TOL));
assert(isequalRel(inclp,  2.862339973271e-04, TOL));
assert(isequalRel(nodep,  4.651962191022e+00, TOL));
assert(isequalRel(argpp,  1.504114277393e+00, TOL));
assert(isequalRel(mp,     3.181019641392e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -4.297357109584e-07, -8.575863014313e-07,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  4.977710503291e-06, ...
  -3.758122880832e-06,  1.170238813200e-02,  1.596617407202e-02, -2.058059586065e-04, -1.469489949578e-03,  7.031457064751e-04,  6.596584265507e-04,  1.342180142943e-03, ...
  -1.219566699304e-02, -1.716537238492e-02,  4.802139525359e-04,  0.000000000000e+00,  1.468610866371e-03, -2.762771903365e-03, -1.083448094784e-04,  2.443977229280e-04, ...
   1.980068154638e-04,  1.700595365594e-04, -2.181240526799e-04, -1.672610170679e-03,  2.984308463316e-03,  2.528045813088e-04,  4.685095846573e+00, ...
   1.775121968701e+00,  2.862339973271e-04, "y",  3.319000000000e-04,  2.862339973271e-04,  4.651962191022e+00,  1.504114277393e+00, -3.102165665787e+00);
assert(isequalRel(ep,     3.319000000000e-04, TOL));
assert(isequalRel(inclp,  2.862339973271e-04, TOL));
assert(isequalRel(nodep,  4.651962191022e+00, TOL));
assert(isequalRel(argpp,  1.504114277393e+00, TOL));
assert(isequalRel(mp,    -3.102165665787e+00, TOL));
# 26900

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -4.297357109584e-07, -8.575863014313e-07,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  4.977710503291e-06, ...
  -3.758122880832e-06,  1.170238813200e-02,  1.596617407202e-02, -2.058059586065e-04, -1.469489949578e-03,  7.031457064751e-04,  6.596584265507e-04,  1.342180142943e-03, ...
  -1.219566699304e-02, -1.716537238492e-02,  4.802139525359e-04,  0.000000000000e+00,  1.468610866371e-03, -2.762771903365e-03, -1.083448094784e-04,  2.443977229280e-04, ...
   1.980068154638e-04,  1.700595365594e-04, -2.181240526799e-04, -1.672610170679e-03,  2.984308463316e-03,  2.528045813088e-04,  4.685095846573e+00, ...
   1.775121968701e+00,  2.862339973271e-04, "n",  3.319000000000e-04,  2.862339973271e-04,  4.651962191022e+00,  1.504114277393e+00, -3.102165665787e+00);
assert(isequalRel(ep,     3.324007076248e-04, TOL));
assert(isequalRel(inclp,  6.418718145903e-04, TOL));
assert(isequalRel(nodep,  4.452998291986e+00, TOL));
assert(isequalRel(argpp,  1.707950317169e+00, TOL));
assert(isequalRel(mp,    -3.107225994137e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -4.297357109584e-07, -8.575863014313e-07,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  4.977710503291e-06, ...
  -3.758122880832e-06,  1.170238813200e-02,  1.596617407202e-02, -2.058059586065e-04, -1.469489949578e-03,  7.031457064751e-04,  6.596584265507e-04,  1.342180142943e-03, ...
  -1.219566699304e-02, -1.716537238492e-02,  4.802139525359e-04,  9.300000000000e+03,  1.468610866371e-03, -2.762771903365e-03, -1.083448094784e-04,  2.443977229280e-04, ...
   1.980068154638e-04,  1.700595365594e-04, -2.181240526799e-04, -1.672610170679e-03,  2.984308463316e-03,  2.528045813088e-04,  4.685095846573e+00, ...
   1.775121968701e+00,  2.862339973271e-04, "n",  3.318672471937e-04,  3.695292090188e-07,  4.650450041159e+00,  1.507983890820e+00, -1.124273827984e-01);
assert(isequalRel(ep,     3.323987052004e-04, TOL));
assert(isequalRel(inclp,  2.859810927383e-04, TOL));
assert(isequalRel(nodep,  4.290815342854e+00, TOL));
assert(isequalRel(argpp,  1.871699521437e+00, TOL));
assert(isequalRel(mp,    -1.164931000316e-01, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -4.297357109584e-07, -8.575863014313e-07,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  4.977710503291e-06, ...
  -3.758122880832e-06,  1.170238813200e-02,  1.596617407202e-02, -2.058059586065e-04, -1.469489949578e-03,  7.031457064751e-04,  6.596584265507e-04,  1.342180142943e-03, ...
  -1.219566699304e-02, -1.716537238492e-02,  4.802139525359e-04,  9.360000000000e+03,  1.468610866371e-03, -2.762771903365e-03, -1.083448094784e-04,  2.443977229280e-04, ...
   1.980068154638e-04,  1.700595365594e-04, -2.181240526799e-04, -1.672610170679e-03,  2.984308463316e-03,  2.528045813088e-04,  4.685095846573e+00, ...
   1.775121968701e+00,  2.862339973271e-04, "n",  3.318670358853e-04, -1.474757682065e-06,  4.650440285353e+00,  1.508008856068e+00, -6.133101894511e+00);
assert(isequalRel(ep,     3.323997182347e-04, TOL));
assert(isequalRel(inclp,  2.852236192364e-04, TOL));
assert(isequalRel(nodep,  4.289737524403e+00, TOL));
assert(isequalRel(argpp,  1.872805146244e+00, TOL));
assert(isequalRel(mp,    -6.137179822557e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -4.297357109584e-07, -8.575863014313e-07,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  4.977710503291e-06, ...
  -3.758122880832e-06,  1.170238813200e-02,  1.596617407202e-02, -2.058059586065e-04, -1.469489949578e-03,  7.031457064751e-04,  6.596584265507e-04,  1.342180142943e-03, ...
  -1.219566699304e-02, -1.716537238492e-02,  4.802139525359e-04,  9.400000000000e+03,  1.468610866371e-03, -2.762771903365e-03, -1.083448094784e-04,  2.443977229280e-04, ...
   1.980068154638e-04,  1.700595365594e-04, -2.181240526799e-04, -1.672610170679e-03,  2.984308463316e-03,  2.528045813088e-04,  4.685095846573e+00, ...
   1.775121968701e+00,  2.862339973271e-04, "n",  3.318668950130e-04, -2.704282276121e-06,  4.650433781483e+00,  1.508025499566e+00, -5.958094682754e+00);
assert(isequalRel(ep,     3.324003491048e-04, TOL));
assert(isequalRel(inclp,  2.847318975903e-04, TOL));
assert(isequalRel(nodep,  4.289053112191e+00, TOL));
assert(isequalRel(argpp,  1.873508221753e+00, TOL));
assert(isequalRel(mp,    -5.962180891322e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -2.267021997425e-04, -2.551224465045e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  2.254910627255e-03, ...
  -2.280386619192e-04, -3.389917058225e-03,  1.654422300963e-03, -8.310926481500e-05, -9.721139826925e-04, -2.919237403379e-03,  6.537866741737e-04,  3.149325116495e-03, ...
   9.242202107515e-03, -3.312631236734e-03,  2.656187161612e-04,  0.000000000000e+00,  5.870668970928e-04,  3.411079917117e-04, -4.375217084695e-05, -2.939157970135e-04, ...
   4.419605173894e-04,  3.177266725877e-04, -4.193605290405e-04, -1.435489158349e-03, -9.317921317489e-04,  1.398327307491e-04,  1.367187593900e+00, ...
   2.946802915738e+00,  1.195051373450e+00, "y",  5.602877000000e-01,  1.195051373450e+00,  4.121251198722e+00,  2.159817024075e+00,  5.280959654819e+00);
assert(isequalRel(ep,     5.602877000000e-01, TOL));
assert(isequalRel(inclp,  1.195051373450e+00, TOL));
assert(isequalRel(nodep,  4.121251198722e+00, TOL));
assert(isequalRel(argpp,  2.159817024075e+00, TOL));
assert(isequalRel(mp,     5.280959654819e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -2.267021997425e-04, -2.551224465045e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  2.254910627255e-03, ...
  -2.280386619192e-04, -3.389917058225e-03,  1.654422300963e-03, -8.310926481500e-05, -9.721139826925e-04, -2.919237403379e-03,  6.537866741737e-04,  3.149325116495e-03, ...
   9.242202107515e-03, -3.312631236734e-03,  2.656187161612e-04,  0.000000000000e+00,  5.870668970928e-04,  3.411079917117e-04, -4.375217084695e-05, -2.939157970135e-04, ...
   4.419605173894e-04,  3.177266725877e-04, -4.193605290405e-04, -1.435489158349e-03, -9.317921317489e-04,  1.398327307491e-04,  1.367187593900e+00, ...
   2.946802915738e+00,  1.195051373450e+00, "y",  5.602877000000e-01,  1.195051373450e+00,  4.121251198722e+00,  2.159817024075e+00, -1.002225652360e+00);
assert(isequalRel(ep,     5.602877000000e-01, TOL));
assert(isequalRel(inclp,  1.195051373450e+00, TOL));
assert(isequalRel(nodep,  4.121251198722e+00, TOL));
assert(isequalRel(argpp,  2.159817024075e+00, TOL));
assert(isequalRel(mp,    -1.002225652360e+00, TOL));
# 26975

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -2.267021997425e-04, -2.551224465045e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  2.254910627255e-03, ...
  -2.280386619192e-04, -3.389917058225e-03,  1.654422300963e-03, -8.310926481500e-05, -9.721139826925e-04, -2.919237403379e-03,  6.537866741737e-04,  3.149325116495e-03, ...
   9.242202107515e-03, -3.312631236734e-03,  2.656187161612e-04,  0.000000000000e+00,  5.870668970928e-04,  3.411079917117e-04, -4.375217084695e-05, -2.939157970135e-04, ...
   4.419605173894e-04,  3.177266725877e-04, -4.193605290405e-04, -1.435489158349e-03, -9.317921317489e-04,  1.398327307491e-04,  1.367187593900e+00, ...
   2.946802915738e+00,  1.195051373450e+00, "n",  5.602877000000e-01,  1.195051373450e+00,  4.121251198722e+00,  2.159817024075e+00, -1.002225652360e+00);
assert(isequalRel(ep,     5.596907306968e-01, TOL));
assert(isequalRel(inclp,  1.195286930784e+00, TOL));
assert(isequalRel(nodep,  4.121105406205e+00, TOL));
assert(isequalRel(argpp,  2.160879361844e+00, TOL));
assert(isequalRel(mp,    -1.004797713802e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -2.267021997425e-04, -2.551224465045e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  2.254910627255e-03, ...
  -2.280386619192e-04, -3.389917058225e-03,  1.654422300963e-03, -8.310926481500e-05, -9.721139826925e-04, -2.919237403379e-03,  6.537866741737e-04,  3.149325116495e-03, ...
   9.242202107515e-03, -3.312631236734e-03,  2.656187161612e-04,  1.200000000000e+02,  5.870668970928e-04,  3.411079917117e-04, -4.375217084695e-05, -2.939157970135e-04, ...
   4.419605173894e-04,  3.177266725877e-04, -4.193605290405e-04, -1.435489158349e-03, -9.317921317489e-04,  1.398327307491e-04,  1.367187593900e+00, ...
   2.946802915738e+00,  1.195051373450e+00, "n",  5.602829346170e-01,  1.195051493191e+00,  4.121169189651e+00,  2.159782713190e+00, -6.208590126996e+00);
assert(isequalRel(ep,     5.596829474228e-01, TOL));
assert(isequalRel(inclp,  1.195281375113e+00, TOL));
assert(isequalRel(nodep,  4.121029699585e+00, TOL));
assert(isequalRel(argpp,  2.160846813484e+00, TOL));
assert(isequalRel(mp,    -6.211173826878e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -2.267021997425e-04, -2.551224465045e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  2.254910627255e-03, ...
  -2.280386619192e-04, -3.389917058225e-03,  1.654422300963e-03, -8.310926481500e-05, -9.721139826925e-04, -2.919237403379e-03,  6.537866741737e-04,  3.149325116495e-03, ...
   9.242202107515e-03, -3.312631236734e-03,  2.656187161612e-04,  2.400000000000e+02,  5.870668970928e-04,  3.411079917117e-04, -4.375217084695e-05, -2.939157970135e-04, ...
   4.419605173894e-04,  3.177266725877e-04, -4.193605290405e-04, -1.435489158349e-03, -9.317921317489e-04,  1.398327307491e-04,  1.367187593900e+00, ...
   2.946802915738e+00,  1.195051373450e+00, "n",  5.602781692340e-01,  1.195051612933e+00,  4.121087180581e+00,  2.159748402306e+00, -5.131769150719e+00);
assert(isequalRel(ep,     5.596752551928e-01, TOL));
assert(isequalRel(inclp,  1.195275683498e+00, TOL));
assert(isequalRel(nodep,  4.120954129675e+00, TOL));
assert(isequalRel(argpp,  2.160814017534e+00, TOL));
assert(isequalRel(mp,    -5.134364021312e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -2.267021997425e-04, -2.551224465045e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  2.254910627255e-03, ...
  -2.280386619192e-04, -3.389917058225e-03,  1.654422300963e-03, -8.310926481500e-05, -9.721139826925e-04, -2.919237403379e-03,  6.537866741737e-04,  3.149325116495e-03, ...
   9.242202107515e-03, -3.312631236734e-03,  2.656187161612e-04,  3.600000000000e+02,  5.870668970928e-04,  3.411079917117e-04, -4.375217084695e-05, -2.939157970135e-04, ...
   4.419605173894e-04,  3.177266725877e-04, -4.193605290405e-04, -1.435489158349e-03, -9.317921317489e-04,  1.398327307491e-04,  1.367187593900e+00, ...
   2.946802915738e+00,  1.195051373450e+00, "n",  5.602734038510e-01,  1.195051732674e+00,  4.121005171510e+00,  2.159714091421e+00, -4.054948030709e+00);
assert(isequalRel(ep,     5.596676572803e-01, TOL));
assert(isequalRel(inclp,  1.195269862240e+00, TOL));
assert(isequalRel(nodep,  4.120878689352e+00, TOL));
assert(isequalRel(argpp,  2.160780971664e+00, TOL));
assert(isequalRel(mp,    -4.057553590710e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -2.267021997425e-04, -2.551224465045e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  2.254910627255e-03, ...
  -2.280386619192e-04, -3.389917058225e-03,  1.654422300963e-03, -8.310926481500e-05, -9.721139826925e-04, -2.919237403379e-03,  6.537866741737e-04,  3.149325116495e-03, ...
   9.242202107515e-03, -3.312631236734e-03,  2.656187161612e-04,  4.800000000000e+02,  5.870668970928e-04,  3.411079917117e-04, -4.375217084695e-05, -2.939157970135e-04, ...
   4.419605173894e-04,  3.177266725877e-04, -4.193605290405e-04, -1.435489158349e-03, -9.317921317489e-04,  1.398327307491e-04,  1.367187593900e+00, ...
   2.946802915738e+00,  1.195051373450e+00, "n",  5.602686384679e-01,  1.195051852416e+00,  4.120923162440e+00,  2.159679780537e+00, -2.978126766966e+00);
assert(isequalRel(ep,     5.596601567836e-01, TOL));
assert(isequalRel(inclp,  1.195263917775e+00, TOL));
assert(isequalRel(nodep,  4.120803371368e+00, TOL));
assert(isequalRel(argpp,  2.160747673969e+00, TOL));
assert(isequalRel(mp,    -2.980742522420e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -2.267021997425e-04, -2.551224465045e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  2.254910627255e-03, ...
  -2.280386619192e-04, -3.389917058225e-03,  1.654422300963e-03, -8.310926481500e-05, -9.721139826925e-04, -2.919237403379e-03,  6.537866741737e-04,  3.149325116495e-03, ...
   9.242202107515e-03, -3.312631236734e-03,  2.656187161612e-04,  6.000000000000e+02,  5.870668970928e-04,  3.411079917117e-04, -4.375217084695e-05, -2.939157970135e-04, ...
   4.419605173894e-04,  3.177266725877e-04, -4.193605290405e-04, -1.435489158349e-03, -9.317921317489e-04,  1.398327307491e-04,  1.367187593900e+00, ...
   2.946802915738e+00,  1.195051373450e+00, "n",  5.602638730849e-01,  1.195051972157e+00,  4.120841153369e+00,  2.159645469652e+00, -1.901305359490e+00);
assert(isequalRel(ep,     5.596527566234e-01, TOL));
assert(isequalRel(inclp,  1.195257856665e+00, TOL));
assert(isequalRel(nodep,  4.120728168356e+00, TOL));
assert(isequalRel(argpp,  2.160714122961e+00, TOL));
assert(isequalRel(mp,    -1.903930804721e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -2.267021997425e-04, -2.551224465045e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  2.254910627255e-03, ...
  -2.280386619192e-04, -3.389917058225e-03,  1.654422300963e-03, -8.310926481500e-05, -9.721139826925e-04, -2.919237403379e-03,  6.537866741737e-04,  3.149325116495e-03, ...
   9.242202107515e-03, -3.312631236734e-03,  2.656187161612e-04,  7.200000000000e+02,  5.870668970928e-04,  3.411079917117e-04, -4.375217084695e-05, -2.939157970135e-04, ...
   4.419605173894e-04,  3.177266725877e-04, -4.193605290405e-04, -1.435489158349e-03, -9.317921317489e-04,  1.398327307491e-04,  1.367187593900e+00, ...
   2.946802915738e+00,  1.195051373450e+00, "n",  5.602591077019e-01,  1.195052091898e+00,  4.120759144299e+00,  2.159611158768e+00, -8.244838082801e-01);
assert(isequalRel(ep,     5.596454595409e-01, TOL));
assert(isequalRel(inclp,  1.195251685580e+00, TOL));
assert(isequalRel(nodep,  4.120653072853e+00, TOL));
assert(isequalRel(argpp,  2.160680317566e+00, TOL));
assert(isequalRel(mp,    -8.271184268269e-01, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -2.267021997425e-04, -2.551224465045e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  2.254910627255e-03, ...
  -2.280386619192e-04, -3.389917058225e-03,  1.654422300963e-03, -8.310926481500e-05, -9.721139826925e-04, -2.919237403379e-03,  6.537866741737e-04,  3.149325116495e-03, ...
   9.242202107515e-03, -3.312631236734e-03,  2.656187161612e-04,  8.400000000000e+02,  5.870668970928e-04,  3.411079917117e-04, -4.375217084695e-05, -2.939157970135e-04, ...
   4.419605173894e-04,  3.177266725877e-04, -4.193605290405e-04, -1.435489158349e-03, -9.317921317489e-04,  1.398327307491e-04,  1.367187593900e+00, ...
   2.946802915738e+00,  1.195051373450e+00, "n",  5.602543423189e-01,  1.195052211640e+00,  4.120677135228e+00,  2.159576847883e+00, -6.030847047537e+00);
assert(isequalRel(ep,     5.596382680962e-01, TOL));
assert(isequalRel(inclp,  1.195245411290e+00, TOL));
assert(isequalRel(nodep,  4.120578077306e+00, TOL));
assert(isequalRel(argpp,  2.160646257121e+00, TOL));
assert(isequalRel(mp,    -6.033490313089e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -2.267021997425e-04, -2.551224465045e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  2.254910627255e-03, ...
  -2.280386619192e-04, -3.389917058225e-03,  1.654422300963e-03, -8.310926481500e-05, -9.721139826925e-04, -2.919237403379e-03,  6.537866741737e-04,  3.149325116495e-03, ...
   9.242202107515e-03, -3.312631236734e-03,  2.656187161612e-04,  9.600000000000e+02,  5.870668970928e-04,  3.411079917117e-04, -4.375217084695e-05, -2.939157970135e-04, ...
   4.419605173894e-04,  3.177266725877e-04, -4.193605290405e-04, -1.435489158349e-03, -9.317921317489e-04,  1.398327307491e-04,  1.367187593900e+00, ...
   2.946802915738e+00,  1.195051373450e+00, "n",  5.602495769359e-01,  1.195052331381e+00,  4.120595126158e+00,  2.159542536999e+00, -4.954024731611e+00);
assert(isequalRel(ep,     5.596311846668e-01, TOL));
assert(isequalRel(inclp,  1.195239040648e+00, TOL));
assert(isequalRel(nodep,  4.120503174092e+00, TOL));
assert(isequalRel(argpp,  2.160611941370e+00, TOL));
assert(isequalRel(mp,    -4.956676108948e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -2.267021997425e-04, -2.551224465045e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  2.254910627255e-03, ...
  -2.280386619192e-04, -3.389917058225e-03,  1.654422300963e-03, -8.310926481500e-05, -9.721139826925e-04, -2.919237403379e-03,  6.537866741737e-04,  3.149325116495e-03, ...
   9.242202107515e-03, -3.312631236734e-03,  2.656187161612e-04,  1.080000000000e+03,  5.870668970928e-04,  3.411079917117e-04, -4.375217084695e-05, -2.939157970135e-04, ...
   4.419605173894e-04,  3.177266725877e-04, -4.193605290405e-04, -1.435489158349e-03, -9.317921317489e-04,  1.398327307491e-04,  1.367187593900e+00, ...
   2.946802915738e+00,  1.195051373450e+00, "n",  5.602448115529e-01,  1.195052451122e+00,  4.120513117087e+00,  2.159508226114e+00, -3.877202167682e+00);
assert(isequalRel(ep,     5.596242114465e-01, TOL));
assert(isequalRel(inclp,  1.195232580580e+00, TOL));
assert(isequalRel(nodep,  4.120428355526e+00, TOL));
assert(isequalRel(argpp,  2.160577370451e+00, TOL));
assert(isequalRel(mp,    -3.879861113611e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -2.267021997425e-04, -2.551224465045e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  2.254910627255e-03, ...
  -2.280386619192e-04, -3.389917058225e-03,  1.654422300963e-03, -8.310926481500e-05, -9.721139826925e-04, -2.919237403379e-03,  6.537866741737e-04,  3.149325116495e-03, ...
   9.242202107515e-03, -3.312631236734e-03,  2.656187161612e-04,  1.200000000000e+03,  5.870668970928e-04,  3.411079917117e-04, -4.375217084695e-05, -2.939157970135e-04, ...
   4.419605173894e-04,  3.177266725877e-04, -4.193605290405e-04, -1.435489158349e-03, -9.317921317489e-04,  1.398327307491e-04,  1.367187593900e+00, ...
   2.946802915738e+00,  1.195051373450e+00, "n",  5.602400461699e-01,  1.195052570864e+00,  4.120431108016e+00,  2.159473915230e+00, -2.800379355749e+00);
assert(isequalRel(ep,     5.596173504456e-01, TOL));
assert(isequalRel(inclp,  1.195226038072e+00, TOL));
assert(isequalRel(nodep,  4.120353613878e+00, TOL));
assert(isequalRel(argpp,  2.160542544896e+00, TOL));
assert(isequalRel(mp,    -2.803045320040e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -2.267021997425e-04, -2.551224465045e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  2.254910627255e-03, ...
  -2.280386619192e-04, -3.389917058225e-03,  1.654422300963e-03, -8.310926481500e-05, -9.721139826925e-04, -2.919237403379e-03,  6.537866741737e-04,  3.149325116495e-03, ...
   9.242202107515e-03, -3.312631236734e-03,  2.656187161612e-04,  1.320000000000e+03,  5.870668970928e-04,  3.411079917117e-04, -4.375217084695e-05, -2.939157970135e-04, ...
   4.419605173894e-04,  3.177266725877e-04, -4.193605290405e-04, -1.435489158349e-03, -9.317921317489e-04,  1.398327307491e-04,  1.367187593900e+00, ...
   2.946802915738e+00,  1.195051373450e+00, "n",  5.602352807868e-01,  1.195052690605e+00,  4.120349098946e+00,  2.159439604345e+00, -1.723556295812e+00);
assert(isequalRel(ep,     5.596106034897e-01, TOL));
assert(isequalRel(inclp,  1.195219420159e+00, TOL));
assert(isequalRel(nodep,  4.120278941386e+00, TOL));
assert(isequalRel(argpp,  2.160507465622e+00, TOL));
assert(isequalRel(mp,    -1.726228722130e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -2.267021997425e-04, -2.551224465045e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  2.254910627255e-03, ...
  -2.280386619192e-04, -3.389917058225e-03,  1.654422300963e-03, -8.310926481500e-05, -9.721139826925e-04, -2.919237403379e-03,  6.537866741737e-04,  3.149325116495e-03, ...
   9.242202107515e-03, -3.312631236734e-03,  2.656187161612e-04,  1.440000000000e+03,  5.870668970928e-04,  3.411079917117e-04, -4.375217084695e-05, -2.939157970135e-04, ...
   4.419605173894e-04,  3.177266725877e-04, -4.193605290405e-04, -1.435489158349e-03, -9.317921317489e-04,  1.398327307491e-04,  1.367187593900e+00, ...
   2.946802915738e+00,  1.195051373450e+00, "n",  5.602305154038e-01,  1.195052810346e+00,  4.120267089875e+00,  2.159405293461e+00, -6.467329878722e-01);
assert(isequalRel(ep,     5.596039722206e-01, TOL));
assert(isequalRel(inclp,  1.195212733910e+00, TOL));
assert(isequalRel(nodep,  4.120204330269e+00, TOL));
assert(isequalRel(argpp,  2.160472133921e+00, TOL));
assert(isequalRel(mp,    -6.494113146977e-01, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -2.267021997425e-04, -2.551224465045e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  2.254910627255e-03, ...
  -2.280386619192e-04, -3.389917058225e-03,  1.654422300963e-03, -8.310926481500e-05, -9.721139826925e-04, -2.919237403379e-03,  6.537866741737e-04,  3.149325116495e-03, ...
   9.242202107515e-03, -3.312631236734e-03,  2.656187161612e-04,  1.560000000000e+03,  5.870668970928e-04,  3.411079917117e-04, -4.375217084695e-05, -2.939157970135e-04, ...
   4.419605173894e-04,  3.177266725877e-04, -4.193605290405e-04, -1.435489158349e-03, -9.317921317489e-04,  1.398327307491e-04,  1.367187593900e+00, ...
   2.946802915738e+00,  1.195051373450e+00, "n",  5.602257500208e-01,  1.195052930088e+00,  4.120185080805e+00,  2.159370982576e+00, -5.853094386644e+00);
assert(isequalRel(ep,     5.595974580961e-01, TOL));
assert(isequalRel(inclp,  1.195205986419e+00, TOL));
assert(isequalRel(nodep,  4.120129772736e+00, TOL));
assert(isequalRel(argpp,  2.160436551453e+00, TOL));
assert(isequalRel(mp,    -5.855778048195e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -2.267021997425e-04, -2.551224465045e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  2.254910627255e-03, ...
  -2.280386619192e-04, -3.389917058225e-03,  1.654422300963e-03, -8.310926481500e-05, -9.721139826925e-04, -2.919237403379e-03,  6.537866741737e-04,  3.149325116495e-03, ...
   9.242202107515e-03, -3.312631236734e-03,  2.656187161612e-04,  1.680000000000e+03,  5.870668970928e-04,  3.411079917117e-04, -4.375217084695e-05, -2.939157970135e-04, ...
   4.419605173894e-04,  3.177266725877e-04, -4.193605290405e-04, -1.435489158349e-03, -9.317921317489e-04,  1.398327307491e-04,  1.367187593900e+00, ...
   2.946802915738e+00,  1.195051373450e+00, "n",  5.602209846378e-01,  1.195053049829e+00,  4.120103071734e+00,  2.159336671692e+00, -4.776270132726e+00);
assert(isequalRel(ep,     5.595910623914e-01, TOL));
assert(isequalRel(inclp,  1.195199184794e+00, TOL));
assert(isequalRel(nodep,  4.120055261002e+00, TOL));
assert(isequalRel(argpp,  2.160400720238e+00, TOL));
assert(isequalRel(mp,    -4.778958559864e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -2.267021997425e-04, -2.551224465045e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  2.254910627255e-03, ...
  -2.280386619192e-04, -3.389917058225e-03,  1.654422300963e-03, -8.310926481500e-05, -9.721139826925e-04, -2.919237403379e-03,  6.537866741737e-04,  3.149325116495e-03, ...
   9.242202107515e-03, -3.312631236734e-03,  2.656187161612e-04,  1.800000000000e+03,  5.870668970928e-04,  3.411079917117e-04, -4.375217084695e-05, -2.939157970135e-04, ...
   4.419605173894e-04,  3.177266725877e-04, -4.193605290405e-04, -1.435489158349e-03, -9.317921317489e-04,  1.398327307491e-04,  1.367187593900e+00, ...
   2.946802915738e+00,  1.195051373450e+00, "n",  5.602162192548e-01,  1.195053169571e+00,  4.120021062664e+00,  2.159302360807e+00, -3.699445533297e+00);
assert(isequalRel(ep,     5.595847861996e-01, TOL));
assert(isequalRel(inclp,  1.195192336143e+00, TOL));
assert(isequalRel(nodep,  4.119980787302e+00, TOL));
assert(isequalRel(argpp,  2.160364642645e+00, TOL));
assert(isequalRel(mp,    -3.702138154426e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -2.267021997425e-04, -2.551224465045e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  2.254910627255e-03, ...
  -2.280386619192e-04, -3.389917058225e-03,  1.654422300963e-03, -8.310926481500e-05, -9.721139826925e-04, -2.919237403379e-03,  6.537866741737e-04,  3.149325116495e-03, ...
   9.242202107515e-03, -3.312631236734e-03,  2.656187161612e-04,  1.920000000000e+03,  5.870668970928e-04,  3.411079917117e-04, -4.375217084695e-05, -2.939157970135e-04, ...
   4.419605173894e-04,  3.177266725877e-04, -4.193605290405e-04, -1.435489158349e-03, -9.317921317489e-04,  1.398327307491e-04,  1.367187593900e+00, ...
   2.946802915738e+00,  1.195051373450e+00, "n",  5.602114538718e-01,  1.195053289312e+00,  4.119939053593e+00,  2.159268049922e+00, -2.622620588358e+00);
assert(isequalRel(ep,     5.595786304336e-01, TOL));
assert(isequalRel(inclp,  1.195185447563e+00, TOL));
assert(isequalRel(nodep,  4.119906343896e+00, TOL));
assert(isequalRel(argpp,  2.160328321385e+00, TOL));
assert(isequalRel(mp,    -2.625316830311e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -2.267021997425e-04, -2.551224465045e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  2.254910627255e-03, ...
  -2.280386619192e-04, -3.389917058225e-03,  1.654422300963e-03, -8.310926481500e-05, -9.721139826925e-04, -2.919237403379e-03,  6.537866741737e-04,  3.149325116495e-03, ...
   9.242202107515e-03, -3.312631236734e-03,  2.656187161612e-04,  2.040000000000e+03,  5.870668970928e-04,  3.411079917117e-04, -4.375217084695e-05, -2.939157970135e-04, ...
   4.419605173894e-04,  3.177266725877e-04, -4.193605290405e-04, -1.435489158349e-03, -9.317921317489e-04,  1.398327307491e-04,  1.367187593900e+00, ...
   2.946802915738e+00,  1.195051373450e+00, "n",  5.602066884888e-01,  1.195053409053e+00,  4.119857044523e+00,  2.159233739038e+00, -1.545795297907e+00);
assert(isequalRel(ep,     5.595725958272e-01, TOL));
assert(isequalRel(inclp,  1.195178526133e+00, TOL));
assert(isequalRel(nodep,  4.119831923087e+00, TOL));
assert(isequalRel(argpp,  2.160291759499e+00, TOL));
assert(isequalRel(mp,    -1.548494586822e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -2.267021997425e-04, -2.551224465045e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  2.254910627255e-03, ...
  -2.280386619192e-04, -3.389917058225e-03,  1.654422300963e-03, -8.310926481500e-05, -9.721139826925e-04, -2.919237403379e-03,  6.537866741737e-04,  3.149325116495e-03, ...
   9.242202107515e-03, -3.312631236734e-03,  2.656187161612e-04,  2.160000000000e+03,  5.870668970928e-04,  3.411079917117e-04, -4.375217084695e-05, -2.939157970135e-04, ...
   4.419605173894e-04,  3.177266725877e-04, -4.193605290405e-04, -1.435489158349e-03, -9.317921317489e-04,  1.398327307491e-04,  1.367187593900e+00, ...
   2.946802915738e+00,  1.195051373450e+00, "n",  5.602019231057e-01,  1.195053528795e+00,  4.119775035452e+00,  2.159199428153e+00, -4.689696619461e-01);
assert(isequalRel(ep,     5.595666829374e-01, TOL));
assert(isequalRel(inclp,  1.195171578899e+00, TOL));
assert(isequalRel(nodep,  4.119757517228e+00, TOL));
assert(isequalRel(argpp,  2.160254960346e+00, TOL));
assert(isequalRel(mp,    -4.716714241202e-01, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -2.267021997425e-04, -2.551224465045e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  2.254910627255e-03, ...
  -2.280386619192e-04, -3.389917058225e-03,  1.654422300963e-03, -8.310926481500e-05, -9.721139826925e-04, -2.919237403379e-03,  6.537866741737e-04,  3.149325116495e-03, ...
   9.242202107515e-03, -3.312631236734e-03,  2.656187161612e-04,  2.280000000000e+03,  5.870668970928e-04,  3.411079917117e-04, -4.375217084695e-05, -2.939157970135e-04, ...
   4.419605173894e-04,  3.177266725877e-04, -4.193605290405e-04, -1.435489158349e-03, -9.317921317489e-04,  1.398327307491e-04,  1.367187593900e+00, ...
   2.946802915738e+00,  1.195051373450e+00, "n",  5.601971577227e-01,  1.195053648536e+00,  4.119693026381e+00,  2.159165117269e+00, -5.675328662965e+00);
assert(isequalRel(ep,     5.595608921464e-01, TOL));
assert(isequalRel(inclp,  1.195164612868e+00, TOL));
assert(isequalRel(nodep,  4.119683118734e+00, TOL));
assert(isequalRel(argpp,  2.160217927597e+00, TOL));
assert(isequalRel(mp,    -5.678032325704e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -2.267021997425e-04, -2.551224465045e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  2.254910627255e-03, ...
  -2.280386619192e-04, -3.389917058225e-03,  1.654422300963e-03, -8.310926481500e-05, -9.721139826925e-04, -2.919237403379e-03,  6.537866741737e-04,  3.149325116495e-03, ...
   9.242202107515e-03, -3.312631236734e-03,  2.656187161612e-04,  2.400000000000e+03,  5.870668970928e-04,  3.411079917117e-04, -4.375217084695e-05, -2.939157970135e-04, ...
   4.419605173894e-04,  3.177266725877e-04, -4.193605290405e-04, -1.435489158349e-03, -9.317921317489e-04,  1.398327307491e-04,  1.367187593900e+00, ...
   2.946802915738e+00,  1.195051373450e+00, "n",  5.601923923397e-01,  1.195053768277e+00,  4.119611017311e+00,  2.159130806384e+00, -4.598501922529e+00);
assert(isequalRel(ep,     5.595552236640e-01, TOL));
assert(isequalRel(inclp,  1.195157634995e+00, TOL));
assert(isequalRel(nodep,  4.119608720094e+00, TOL));
assert(isequalRel(argpp,  2.160180665220e+00, TOL));
assert(isequalRel(mp,    -4.601206914974e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -2.267021997425e-04, -2.551224465045e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  2.254910627255e-03, ...
  -2.280386619192e-04, -3.389917058225e-03,  1.654422300963e-03, -8.310926481500e-05, -9.721139826925e-04, -2.919237403379e-03,  6.537866741737e-04,  3.149325116495e-03, ...
   9.242202107515e-03, -3.312631236734e-03,  2.656187161612e-04,  2.520000000000e+03,  5.870668970928e-04,  3.411079917117e-04, -4.375217084695e-05, -2.939157970135e-04, ...
   4.419605173894e-04,  3.177266725877e-04, -4.193605290405e-04, -1.435489158349e-03, -9.317921317489e-04,  1.398327307491e-04,  1.367187593900e+00, ...
   2.946802915738e+00,  1.195051373450e+00, "n",  5.601876269567e-01,  1.195053888019e+00,  4.119529008240e+00,  2.159096495500e+00, -3.521674747818e+00);
assert(isequalRel(ep,     5.595496775306e-01, TOL));
assert(isequalRel(inclp,  1.195150652174e+00, TOL));
assert(isequalRel(nodep,  4.119534313877e+00, TOL));
assert(isequalRel(argpp,  2.160143177471e+00, TOL));
assert(isequalRel(mp,    -3.524380501755e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -2.267021997425e-04, -2.551224465045e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  2.254910627255e-03, ...
  -2.280386619192e-04, -3.389917058225e-03,  1.654422300963e-03, -8.310926481500e-05, -9.721139826925e-04, -2.919237403379e-03,  6.537866741737e-04,  3.149325116495e-03, ...
   9.242202107515e-03, -3.312631236734e-03,  2.656187161612e-04,  2.640000000000e+03,  5.870668970928e-04,  3.411079917117e-04, -4.375217084695e-05, -2.939157970135e-04, ...
   4.419605173894e-04,  3.177266725877e-04, -4.193605290405e-04, -1.435489158349e-03, -9.317921317489e-04,  1.398327307491e-04,  1.367187593900e+00, ...
   2.946802915738e+00,  1.195051373450e+00, "n",  5.601828615737e-01,  1.195054007760e+00,  4.119446999170e+00,  2.159062184615e+00, -2.444847138832e+00);
assert(isequalRel(ep,     5.595442536193e-01, TOL));
assert(isequalRel(inclp,  1.195143671231e+00, TOL));
assert(isequalRel(nodep,  4.119459892745e+00, TOL));
assert(isequalRel(argpp,  2.160105468881e+00, TOL));
assert(isequalRel(mp,    -2.447553089484e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -2.267021997425e-04, -2.551224465045e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  2.254910627255e-03, ...
  -2.280386619192e-04, -3.389917058225e-03,  1.654422300963e-03, -8.310926481500e-05, -9.721139826925e-04, -2.919237403379e-03,  6.537866741737e-04,  3.149325116495e-03, ...
   9.242202107515e-03, -3.312631236734e-03,  2.656187161612e-04,  2.760000000000e+03,  5.870668970928e-04,  3.411079917117e-04, -4.375217084695e-05, -2.939157970135e-04, ...
   4.419605173894e-04,  3.177266725877e-04, -4.193605290405e-04, -1.435489158349e-03, -9.317921317489e-04,  1.398327307491e-04,  1.367187593900e+00, ...
   2.946802915738e+00,  1.195051373450e+00, "n",  5.601780961907e-01,  1.195054127502e+00,  4.119364990099e+00,  2.159027873731e+00, -1.368019095571e+00);
assert(isequalRel(ep,     5.595389516398e-01, TOL));
assert(isequalRel(inclp,  1.195136698914e+00, TOL));
assert(isequalRel(nodep,  4.119385449462e+00, TOL));
assert(isequalRel(argpp,  2.160067544246e+00, TOL));
assert(isequalRel(mp,    -1.370724682373e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -2.267021997425e-04, -2.551224465045e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  2.254910627255e-03, ...
  -2.280386619192e-04, -3.389917058225e-03,  1.654422300963e-03, -8.310926481500e-05, -9.721139826925e-04, -2.919237403379e-03,  6.537866741737e-04,  3.149325116495e-03, ...
   9.242202107515e-03, -3.312631236734e-03,  2.656187161612e-04,  2.880000000000e+03,  5.870668970928e-04,  3.411079917117e-04, -4.375217084695e-05, -2.939157970135e-04, ...
   4.419605173894e-04,  3.177266725877e-04, -4.193605290405e-04, -1.435489158349e-03, -9.317921317489e-04,  1.398327307491e-04,  1.367187593900e+00, ...
   2.946802915738e+00,  1.195051373450e+00, "n",  5.601733308077e-01,  1.195054247243e+00,  4.119282981029e+00,  2.158993562846e+00, -2.911906180352e-01);
assert(isequalRel(ep,     5.595337711410e-01, TOL));
assert(isequalRel(inclp,  1.195129741881e+00, TOL));
assert(isequalRel(nodep,  4.119310976899e+00, TOL));
assert(isequalRel(argpp,  2.160029408615e+00, TOL));
assert(isequalRel(mp,    -2.938952853870e-01, TOL));
# 28057

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -3.876849228949e-06,  5.421891510864e-06,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.399586065802e-06, ...
   3.979795711446e-05, -7.340466124056e-03, -9.267102539452e-04, -1.028902184234e-04,  1.019818515817e-03, -1.260734846663e-04, -3.379233009896e-04, -1.160185387548e-03, ...
   6.096109975713e-03,  1.773703432654e-03,  2.400824215399e-04,  0.000000000000e+00,  6.595724207569e-04,  1.091630835372e-03, -5.416568688173e-05, -1.288582105817e-04, ...
  -9.703376083569e-05, -8.270003713552e-05,  1.575914794162e-04, -4.514061623044e-04, -1.081448579815e-03,  1.263893640252e-04,  1.529662090192e+00, ...
   2.959059713970e+00,  9.552152089580e-01, "y",  4.850600000000e-03,  9.552152089580e-01,  5.669000452744e+00,  4.647183479530e+00,  1.626058686901e+00);
assert(isequalRel(ep,     4.850600000000e-03, TOL));
assert(isequalRel(inclp,  9.552152089580e-01, TOL));
assert(isequalRel(nodep,  5.669000452744e+00, TOL));
assert(isequalRel(argpp,  4.647183479530e+00, TOL));
assert(isequalRel(mp,     1.626058686901e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -3.876849228949e-06,  5.421891510864e-06,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.399586065802e-06, ...
   3.979795711446e-05, -7.340466124056e-03, -9.267102539452e-04, -1.028902184234e-04,  1.019818515817e-03, -1.260734846663e-04, -3.379233009896e-04, -1.160185387548e-03, ...
   6.096109975713e-03,  1.773703432654e-03,  2.400824215399e-04,  0.000000000000e+00,  6.595724207569e-04,  1.091630835372e-03, -5.416568688173e-05, -1.288582105817e-04, ...
  -9.703376083569e-05, -8.270003713552e-05,  1.575914794162e-04, -4.514061623044e-04, -1.081448579815e-03,  1.263893640252e-04,  1.529662090192e+00, ...
   2.959059713970e+00,  9.552152089580e-01, "y",  4.850600000000e-03,  9.552152089580e-01,  5.669000452744e+00,  4.647183479530e+00, -4.657126620279e+00);
assert(isequalRel(ep,     4.850600000000e-03, TOL));
assert(isequalRel(inclp,  9.552152089580e-01, TOL));
assert(isequalRel(nodep,  5.669000452744e+00, TOL));
assert(isequalRel(argpp,  4.647183479530e+00, TOL));
assert(isequalRel(mp,    -4.657126620279e+00, TOL));
# 28129

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -3.876849228949e-06,  5.421891510864e-06,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.399586065802e-06, ...
   3.979795711446e-05, -7.340466124056e-03, -9.267102539452e-04, -1.028902184234e-04,  1.019818515817e-03, -1.260734846663e-04, -3.379233009896e-04, -1.160185387548e-03, ...
   6.096109975713e-03,  1.773703432654e-03,  2.400824215399e-04,  0.000000000000e+00,  6.595724207569e-04,  1.091630835372e-03, -5.416568688173e-05, -1.288582105817e-04, ...
  -9.703376083569e-05, -8.270003713552e-05,  1.575914794162e-04, -4.514061623044e-04, -1.081448579815e-03,  1.263893640252e-04,  1.529662090192e+00, ...
   2.959059713970e+00,  9.552152089580e-01, "n",  4.850600000000e-03,  9.552152089580e-01,  5.669000452744e+00,  4.647183479530e+00, -4.657126620279e+00);
assert(isequalRel(ep,     4.855811949908e-03, TOL));
assert(isequalRel(inclp,  9.551791418784e-01, TOL));
assert(isequalRel(nodep,  5.668650919884e+00, TOL));
assert(isequalRel(argpp,  4.649155828260e+00, TOL));
assert(isequalRel(mp,    -4.658383986709e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -3.876849228949e-06,  5.421891510864e-06,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.399586065802e-06, ...
   3.979795711446e-05, -7.340466124056e-03, -9.267102539452e-04, -1.028902184234e-04,  1.019818515817e-03, -1.260734846663e-04, -3.379233009896e-04, -1.160185387548e-03, ...
   6.096109975713e-03,  1.773703432654e-03,  2.400824215399e-04,  1.200000000000e+02,  6.595724207569e-04,  1.091630835372e-03, -5.416568688173e-05, -1.288582105817e-04, ...
  -9.703376083569e-05, -8.270003713552e-05,  1.575914794162e-04, -4.514061623044e-04, -1.081448579815e-03,  1.263893640252e-04,  1.529662090192e+00, ...
   2.959059713970e+00,  9.552152089580e-01, "n",  4.850586718336e-03,  9.552142299865e-01,  5.668941309532e+00,  4.647217303900e+00, -3.606985152115e+00);
assert(isequalRel(ep,     4.855728790311e-03, TOL));
assert(isequalRel(inclp,  9.551806053262e-01, TOL));
assert(isequalRel(nodep,  5.668590694209e+00, TOL));
assert(isequalRel(argpp,  4.649202155376e+00, TOL));
assert(isequalRel(mp,    -3.608255158411e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -3.876849228949e-06,  5.421891510864e-06,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.399586065802e-06, ...
   3.979795711446e-05, -7.340466124056e-03, -9.267102539452e-04, -1.028902184234e-04,  1.019818515817e-03, -1.260734846663e-04, -3.379233009896e-04, -1.160185387548e-03, ...
   6.096109975713e-03,  1.773703432654e-03,  2.400824215399e-04,  2.400000000000e+02,  6.595724207569e-04,  1.091630835372e-03, -5.416568688173e-05, -1.288582105817e-04, ...
  -9.703376083569e-05, -8.270003713552e-05,  1.575914794162e-04, -4.514061623044e-04, -1.081448579815e-03,  1.263893640252e-04,  1.529662090192e+00, ...
   2.959059713970e+00,  9.552152089580e-01, "n",  4.850573436672e-03,  9.552132510150e-01,  5.668882166319e+00,  4.647251128269e+00, -2.556843683951e+00);
assert(isequalRel(ep,     4.855644003059e-03, TOL));
assert(isequalRel(inclp,  9.551820851360e-01, TOL));
assert(isequalRel(nodep,  5.668530536576e+00, TOL));
assert(isequalRel(argpp,  4.649248126257e+00, TOL));
assert(isequalRel(mp,    -2.558126116365e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -3.876849228949e-06,  5.421891510864e-06,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.399586065802e-06, ...
   3.979795711446e-05, -7.340466124056e-03, -9.267102539452e-04, -1.028902184234e-04,  1.019818515817e-03, -1.260734846663e-04, -3.379233009896e-04, -1.160185387548e-03, ...
   6.096109975713e-03,  1.773703432654e-03,  2.400824215399e-04,  3.600000000000e+02,  6.595724207569e-04,  1.091630835372e-03, -5.416568688173e-05, -1.288582105817e-04, ...
  -9.703376083569e-05, -8.270003713552e-05,  1.575914794162e-04, -4.514061623044e-04, -1.081448579815e-03,  1.263893640252e-04,  1.529662090192e+00, ...
   2.959059713970e+00,  9.552152089580e-01, "n",  4.850560155007e-03,  9.552122720435e-01,  5.668823023107e+00,  4.647284952638e+00, -1.506702215787e+00);
assert(isequalRel(ep,     4.855557665539e-03, TOL));
assert(isequalRel(inclp,  9.551835788355e-01, TOL));
assert(isequalRel(nodep,  5.668470447770e+00, TOL));
assert(isequalRel(argpp,  4.649293729207e+00, TOL));
assert(isequalRel(mp,    -1.507996848233e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -3.876849228949e-06,  5.421891510864e-06,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.399586065802e-06, ...
   3.979795711446e-05, -7.340466124056e-03, -9.267102539452e-04, -1.028902184234e-04,  1.019818515817e-03, -1.260734846663e-04, -3.379233009896e-04, -1.160185387548e-03, ...
   6.096109975713e-03,  1.773703432654e-03,  2.400824215399e-04,  4.800000000000e+02,  6.595724207569e-04,  1.091630835372e-03, -5.416568688173e-05, -1.288582105817e-04, ...
  -9.703376083569e-05, -8.270003713552e-05,  1.575914794162e-04, -4.514061623044e-04, -1.081448579815e-03,  1.263893640252e-04,  1.529662090192e+00, ...
   2.959059713970e+00,  9.552152089580e-01, "n",  4.850546873343e-03,  9.552112930720e-01,  5.668763879894e+00,  4.647318777008e+00, -4.565607476237e-01);
assert(isequalRel(ep,     4.855469856575e-03, TOL));
assert(isequalRel(inclp,  9.551850839587e-01, TOL));
assert(isequalRel(nodep,  5.668410428469e+00, TOL));
assert(isequalRel(argpp,  4.649338953206e+00, TOL));
assert(isequalRel(mp,    -4.578673421809e-01, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -3.876849228949e-06,  5.421891510864e-06,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.399586065802e-06, ...
   3.979795711446e-05, -7.340466124056e-03, -9.267102539452e-04, -1.028902184234e-04,  1.019818515817e-03, -1.260734846663e-04, -3.379233009896e-04, -1.160185387548e-03, ...
   6.096109975713e-03,  1.773703432654e-03,  2.400824215399e-04,  6.000000000000e+02,  6.595724207569e-04,  1.091630835372e-03, -5.416568688173e-05, -1.288582105817e-04, ...
  -9.703376083569e-05, -8.270003713552e-05,  1.575914794162e-04, -4.514061623044e-04, -1.081448579815e-03,  1.263893640252e-04,  1.529662090192e+00, ...
   2.959059713970e+00,  9.552152089580e-01, "n",  4.850533591679e-03,  9.552103141005e-01,  5.668704736682e+00,  4.647352601377e+00, -5.689604586639e+00);
assert(isequalRel(ep,     4.855380656278e-03, TOL));
assert(isequalRel(inclp,  9.551865980493e-01, TOL));
assert(isequalRel(nodep,  5.668350479244e+00, TOL));
assert(isequalRel(argpp,  4.649383787916e+00, TOL));
assert(isequalRel(mp,    -5.690922894069e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -3.876849228949e-06,  5.421891510864e-06,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.399586065802e-06, ...
   3.979795711446e-05, -7.340466124056e-03, -9.267102539452e-04, -1.028902184234e-04,  1.019818515817e-03, -1.260734846663e-04, -3.379233009896e-04, -1.160185387548e-03, ...
   6.096109975713e-03,  1.773703432654e-03,  2.400824215399e-04,  7.200000000000e+02,  6.595724207569e-04,  1.091630835372e-03, -5.416568688173e-05, -1.288582105817e-04, ...
  -9.703376083569e-05, -8.270003713552e-05,  1.575914794162e-04, -4.514061623044e-04, -1.081448579815e-03,  1.263893640252e-04,  1.529662090192e+00, ...
   2.959059713970e+00,  9.552152089580e-01, "n",  4.850520310015e-03,  9.552093351290e-01,  5.668645593469e+00,  4.647386425746e+00, -4.639463118476e+00);
assert(isequalRel(ep,     4.855290145897e-03, TOL));
assert(isequalRel(inclp,  9.551881186646e-01, TOL));
assert(isequalRel(nodep,  5.668290600559e+00, TOL));
assert(isequalRel(argpp,  4.649428223683e+00, TOL));
assert(isequalRel(mp,    -4.640792878741e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -3.876849228949e-06,  5.421891510864e-06,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.399586065802e-06, ...
   3.979795711446e-05, -7.340466124056e-03, -9.267102539452e-04, -1.028902184234e-04,  1.019818515817e-03, -1.260734846663e-04, -3.379233009896e-04, -1.160185387548e-03, ...
   6.096109975713e-03,  1.773703432654e-03,  2.400824215399e-04,  8.400000000000e+02,  6.595724207569e-04,  1.091630835372e-03, -5.416568688173e-05, -1.288582105817e-04, ...
  -9.703376083569e-05, -8.270003713552e-05,  1.575914794162e-04, -4.514061623044e-04, -1.081448579815e-03,  1.263893640252e-04,  1.529662090192e+00, ...
   2.959059713970e+00,  9.552152089580e-01, "n",  4.850507028350e-03,  9.552083561576e-01,  5.668586450256e+00,  4.647420250116e+00, -3.589321650312e+00);
assert(isequalRel(ep,     4.855198407677e-03, TOL));
assert(isequalRel(inclp,  9.551896433792e-01, TOL));
assert(isequalRel(nodep,  5.668230792775e+00, TOL));
assert(isequalRel(argpp,  4.649472251545e+00, TOL));
assert(isequalRel(mp,    -3.590662593112e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -3.876849228949e-06,  5.421891510864e-06,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.399586065802e-06, ...
   3.979795711446e-05, -7.340466124056e-03, -9.267102539452e-04, -1.028902184234e-04,  1.019818515817e-03, -1.260734846663e-04, -3.379233009896e-04, -1.160185387548e-03, ...
   6.096109975713e-03,  1.773703432654e-03,  2.400824215399e-04,  9.600000000000e+02,  6.595724207569e-04,  1.091630835372e-03, -5.416568688173e-05, -1.288582105817e-04, ...
  -9.703376083569e-05, -8.270003713552e-05,  1.575914794162e-04, -4.514061623044e-04, -1.081448579815e-03,  1.263893640252e-04,  1.529662090192e+00, ...
   2.959059713970e+00,  9.552152089580e-01, "n",  4.850493746686e-03,  9.552073771861e-01,  5.668527307044e+00,  4.647454074485e+00, -2.539180182148e+00);
assert(isequalRel(ep,     4.855105524715e-03, TOL));
assert(isequalRel(inclp,  9.551911697881e-01, TOL));
assert(isequalRel(nodep,  5.668171056148e+00, TOL));
assert(isequalRel(argpp,  4.649515863230e+00, TOL));
assert(isequalRel(mp,    -2.540532027454e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -3.876849228949e-06,  5.421891510864e-06,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.399586065802e-06, ...
   3.979795711446e-05, -7.340466124056e-03, -9.267102539452e-04, -1.028902184234e-04,  1.019818515817e-03, -1.260734846663e-04, -3.379233009896e-04, -1.160185387548e-03, ...
   6.096109975713e-03,  1.773703432654e-03,  2.400824215399e-04,  1.080000000000e+03,  6.595724207569e-04,  1.091630835372e-03, -5.416568688173e-05, -1.288582105817e-04, ...
  -9.703376083569e-05, -8.270003713552e-05,  1.575914794162e-04, -4.514061623044e-04, -1.081448579815e-03,  1.263893640252e-04,  1.529662090192e+00, ...
   2.959059713970e+00,  9.552152089580e-01, "n",  4.850480465022e-03,  9.552063982146e-01,  5.668468163831e+00,  4.647487898854e+00, -1.489038713984e+00);
assert(isequalRel(ep,     4.855011580817e-03, TOL));
assert(isequalRel(inclp,  9.551926955103e-01, TOL));
assert(isequalRel(nodep,  5.668111390832e+00, TOL));
assert(isequalRel(argpp,  4.649559051159e+00, TOL));
assert(isequalRel(mp,    -1.490401172582e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -3.876849228949e-06,  5.421891510864e-06,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.399586065802e-06, ...
   3.979795711446e-05, -7.340466124056e-03, -9.267102539452e-04, -1.028902184234e-04,  1.019818515817e-03, -1.260734846663e-04, -3.379233009896e-04, -1.160185387548e-03, ...
   6.096109975713e-03,  1.773703432654e-03,  2.400824215399e-04,  1.200000000000e+03,  6.595724207569e-04,  1.091630835372e-03, -5.416568688173e-05, -1.288582105817e-04, ...
  -9.703376083569e-05, -8.270003713552e-05,  1.575914794162e-04, -4.514061623044e-04, -1.081448579815e-03,  1.263893640252e-04,  1.529662090192e+00, ...
   2.959059713970e+00,  9.552152089580e-01, "n",  4.850467183358e-03,  9.552054192431e-01,  5.668409020619e+00,  4.647521723224e+00, -4.388972458197e-01);
assert(isequalRel(ep,     4.854916660358e-03, TOL));
assert(isequalRel(inclp,  9.551942181921e-01, TOL));
assert(isequalRel(nodep,  5.668051796878e+00, TOL));
assert(isequalRel(argpp,  4.649601808444e+00, TOL));
assert(isequalRel(mp,    -4.402700198582e-01, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -3.876849228949e-06,  5.421891510864e-06,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.399586065802e-06, ...
   3.979795711446e-05, -7.340466124056e-03, -9.267102539452e-04, -1.028902184234e-04,  1.019818515817e-03, -1.260734846663e-04, -3.379233009896e-04, -1.160185387548e-03, ...
   6.096109975713e-03,  1.773703432654e-03,  2.400824215399e-04,  1.320000000000e+03,  6.595724207569e-04,  1.091630835372e-03, -5.416568688173e-05, -1.288582105817e-04, ...
  -9.703376083569e-05, -8.270003713552e-05,  1.575914794162e-04, -4.514061623044e-04, -1.081448579815e-03,  1.263893640252e-04,  1.529662090192e+00, ...
   2.959059713970e+00,  9.552152089580e-01, "n",  4.850453901693e-03,  9.552044402716e-01,  5.668349877406e+00,  4.647555547593e+00, -5.671941084835e+00);
assert(isequalRel(ep,     4.854820848150e-03, TOL));
assert(isequalRel(inclp,  9.551957355098e-01, TOL));
assert(isequalRel(nodep,  5.667992274241e+00, TOL));
assert(isequalRel(argpp,  4.649644128887e+00, TOL));
assert(isequalRel(mp,    -5.673323868376e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
  -3.876849228949e-06,  5.421891510864e-06,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.399586065802e-06, ...
   3.979795711446e-05, -7.340466124056e-03, -9.267102539452e-04, -1.028902184234e-04,  1.019818515817e-03, -1.260734846663e-04, -3.379233009896e-04, -1.160185387548e-03, ...
   6.096109975713e-03,  1.773703432654e-03,  2.400824215399e-04,  1.440000000000e+03,  6.595724207569e-04,  1.091630835372e-03, -5.416568688173e-05, -1.288582105817e-04, ...
  -9.703376083569e-05, -8.270003713552e-05,  1.575914794162e-04, -4.514061623044e-04, -1.081448579815e-03,  1.263893640252e-04,  1.529662090192e+00, ...
   2.959059713970e+00,  9.552152089580e-01, "n",  4.850440620029e-03,  9.552034613001e-01,  5.668290734194e+00,  4.647589371962e+00, -4.621799616671e+00);
assert(isequalRel(ep,     4.854724229303e-03, TOL));
assert(isequalRel(inclp,  9.551972451728e-01, TOL));
assert(isequalRel(nodep,  5.667932822776e+00, TOL));
assert(isequalRel(argpp,  4.649686006979e+00, TOL));
assert(isequalRel(mp,    -4.623192096242e+00, TOL));
# 28350
# *** error: t:= 1560.000000 *** code =   1

[ep, inclp, nodep, argpp,  mp] = dpper(...
   2.080207273239e-04,  2.279612848318e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.010666927152e-03, ...
   1.234888459603e-04,  4.404694052449e-04, -3.174852765982e-03, -4.246782106577e-05,  4.897361699131e-04, -1.594883558919e-04, -1.422358125944e-03, -1.642085155919e-03, ...
  -1.791873501287e-03,  5.840111590196e-03,  1.481689063817e-04,  0.000000000000e+00, -3.876052640328e-04,  2.628367881541e-04, -2.235682588341e-05, -7.296812344377e-05, ...
  -4.081833544751e-05, -6.948628061380e-05,  3.512666727653e-04,  8.272799129225e-04, -3.372511878045e-04,  7.800226991119e-05,  2.040461217495e+00, ...
   2.997593526865e+00,  4.977679026688e-01, "y",  6.249053000000e-01,  4.977679026688e-01,  2.006838915138e+00,  2.971510317983e+00,  3.715744890972e+00);
assert(isequalRel(ep,     6.249053000000e-01, TOL));
assert(isequalRel(inclp,  4.977679026688e-01, TOL));
assert(isequalRel(nodep,  2.006838915138e+00, TOL));
assert(isequalRel(argpp,  2.971510317983e+00, TOL));
assert(isequalRel(mp,     3.715744890972e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   2.080207273239e-04,  2.279612848318e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.010666927152e-03, ...
   1.234888459603e-04,  4.404694052449e-04, -3.174852765982e-03, -4.246782106577e-05,  4.897361699131e-04, -1.594883558919e-04, -1.422358125944e-03, -1.642085155919e-03, ...
  -1.791873501287e-03,  5.840111590196e-03,  1.481689063817e-04,  0.000000000000e+00, -3.876052640328e-04,  2.628367881541e-04, -2.235682588341e-05, -7.296812344377e-05, ...
  -4.081833544751e-05, -6.948628061380e-05,  3.512666727653e-04,  8.272799129225e-04, -3.372511878045e-04,  7.800226991119e-05,  2.040461217495e+00, ...
   2.997593526865e+00,  4.977679026688e-01, "y",  6.249053000000e-01,  4.977679026688e-01,  2.006838915138e+00,  2.971510317983e+00, -2.567440416207e+00);
assert(isequalRel(ep,     6.249053000000e-01, TOL));
assert(isequalRel(inclp,  4.977679026688e-01, TOL));
assert(isequalRel(nodep,  2.006838915138e+00, TOL));
assert(isequalRel(argpp,  2.971510317983e+00, TOL));
assert(isequalRel(mp,    -2.567440416207e+00, TOL));
# 28623

[ep, inclp, nodep, argpp,  mp] = dpper(...
   2.080207273239e-04,  2.279612848318e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.010666927152e-03, ...
   1.234888459603e-04,  4.404694052449e-04, -3.174852765982e-03, -4.246782106577e-05,  4.897361699131e-04, -1.594883558919e-04, -1.422358125944e-03, -1.642085155919e-03, ...
  -1.791873501287e-03,  5.840111590196e-03,  1.481689063817e-04,  0.000000000000e+00, -3.876052640328e-04,  2.628367881541e-04, -2.235682588341e-05, -7.296812344377e-05, ...
  -4.081833544751e-05, -6.948628061380e-05,  3.512666727653e-04,  8.272799129225e-04, -3.372511878045e-04,  7.800226991119e-05,  2.040461217495e+00, ...
   2.997593526865e+00,  4.977679026688e-01, "n",  6.249053000000e-01,  4.977679026688e-01,  2.006838915138e+00,  2.971510317983e+00, -2.567440416207e+00);
assert(isequalRel(ep,     6.254682956809e-01, TOL));
assert(isequalRel(inclp,  4.980692740112e-01, TOL));
assert(isequalRel(nodep,  2.006534084409e+00, TOL));
assert(isequalRel(argpp,  2.971448058414e+00, TOL));
assert(isequalRel(mp,    -2.566511307246e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   2.080207273239e-04,  2.279612848318e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.010666927152e-03, ...
   1.234888459603e-04,  4.404694052449e-04, -3.174852765982e-03, -4.246782106577e-05,  4.897361699131e-04, -1.594883558919e-04, -1.422358125944e-03, -1.642085155919e-03, ...
  -1.791873501287e-03,  5.840111590196e-03,  1.481689063817e-04,  1.200000000000e+02, -3.876052640328e-04,  2.628367881541e-04, -2.235682588341e-05, -7.296812344377e-05, ...
  -4.081833544751e-05, -6.948628061380e-05,  3.512666727653e-04,  8.272799129225e-04, -3.372511878045e-04,  7.800226991119e-05,  2.040461217495e+00, ...
   2.997593526865e+00,  4.977679026688e-01, "n",  6.248242912742e-01,  4.977705212968e-01,  2.005805228711e+00,  2.973191025599e+00, -5.802254567053e-01);
assert(isequalRel(ep,     6.253864672108e-01, TOL));
assert(isequalRel(inclp,  4.980751146231e-01, TOL));
assert(isequalRel(nodep,  2.005501376214e+00, TOL));
assert(isequalRel(argpp,  2.973134373896e+00, TOL));
assert(isequalRel(mp,    -5.793089258303e-01, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   2.080207273239e-04,  2.279612848318e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.010666927152e-03, ...
   1.234888459603e-04,  4.404694052449e-04, -3.174852765982e-03, -4.246782106577e-05,  4.897361699131e-04, -1.594883558919e-04, -1.422358125944e-03, -1.642085155919e-03, ...
  -1.791873501287e-03,  5.840111590196e-03,  1.481689063817e-04,  2.400000000000e+02, -3.876052640328e-04,  2.628367881541e-04, -2.235682588341e-05, -7.296812344377e-05, ...
  -4.081833544751e-05, -6.948628061380e-05,  3.512666727653e-04,  8.272799129225e-04, -3.372511878045e-04,  7.800226991119e-05,  2.040461217495e+00, ...
   2.997593526865e+00,  4.977679026688e-01, "n",  6.247432825483e-01,  4.977731399248e-01,  2.004771131589e+00,  2.974871733214e+00, -4.875638436739e+00);
assert(isequalRel(ep,     6.253045461722e-01, TOL));
assert(isequalRel(inclp,  4.980808536236e-01, TOL));
assert(isequalRel(nodep,  2.004468302296e+00, TOL));
assert(isequalRel(argpp,  2.974820620274e+00, TOL));
assert(isequalRel(mp,    -4.874734497927e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   2.080207273239e-04,  2.279612848318e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.010666927152e-03, ...
   1.234888459603e-04,  4.404694052449e-04, -3.174852765982e-03, -4.246782106577e-05,  4.897361699131e-04, -1.594883558919e-04, -1.422358125944e-03, -1.642085155919e-03, ...
  -1.791873501287e-03,  5.840111590196e-03,  1.481689063817e-04,  3.600000000000e+02, -3.876052640328e-04,  2.628367881541e-04, -2.235682588341e-05, -7.296812344377e-05, ...
  -4.081833544751e-05, -6.948628061380e-05,  3.512666727653e-04,  8.272799129225e-04, -3.372511878045e-04,  7.800226991119e-05,  2.040461217495e+00, ...
   2.997593526865e+00,  4.977679026688e-01, "n",  6.246622738225e-01,  4.977757585527e-01,  2.003736623770e+00,  2.976552440830e+00, -2.887308741949e+00);
assert(isequalRel(ep,     6.252225346268e-01, TOL));
assert(isequalRel(inclp,  4.980864893222e-01, TOL));
assert(isequalRel(nodep,  2.003434861134e+00, TOL));
assert(isequalRel(argpp,  2.976506793696e+00, TOL));
assert(isequalRel(mp,    -2.886417398529e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   2.080207273239e-04,  2.279612848318e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.010666927152e-03, ...
   1.234888459603e-04,  4.404694052449e-04, -3.174852765982e-03, -4.246782106577e-05,  4.897361699131e-04, -1.594883558919e-04, -1.422358125944e-03, -1.642085155919e-03, ...
  -1.791873501287e-03,  5.840111590196e-03,  1.481689063817e-04,  4.800000000000e+02, -3.876052640328e-04,  2.628367881541e-04, -2.235682588341e-05, -7.296812344377e-05, ...
  -4.081833544751e-05, -6.948628061380e-05,  3.512666727653e-04,  8.272799129225e-04, -3.372511878045e-04,  7.800226991119e-05,  2.040461217495e+00, ...
   2.997593526865e+00,  4.977679026688e-01, "n",  6.245812650966e-01,  4.977783771807e-01,  2.002701705257e+00,  2.978233148446e+00, -8.984216795151e-01);
assert(isequalRel(ep,     6.251404347237e-01, TOL));
assert(isequalRel(inclp,  4.980920201735e-01, TOL));
assert(isequalRel(nodep,  2.002401051172e+00, TOL));
assert(isequalRel(argpp,  2.978192890445e+00, TOL));
assert(isequalRel(mp,    -8.975429243022e-01, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   2.080207273239e-04,  2.279612848318e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.010666927152e-03, ...
   1.234888459603e-04,  4.404694052449e-04, -3.174852765982e-03, -4.246782106577e-05,  4.897361699131e-04, -1.594883558919e-04, -1.422358125944e-03, -1.642085155919e-03, ...
  -1.791873501287e-03,  5.840111590196e-03,  1.481689063817e-04,  6.000000000000e+02, -3.876052640328e-04,  2.628367881541e-04, -2.235682588341e-05, -7.296812344377e-05, ...
  -4.081833544751e-05, -6.948628061380e-05,  3.512666727653e-04,  8.272799129225e-04, -3.372511878045e-04,  7.800226991119e-05,  2.040461217495e+00, ...
   2.997593526865e+00,  4.977679026688e-01, "n",  6.245002563708e-01,  4.977809958087e-01,  2.001666376047e+00,  2.979913856062e+00,  1.091022750563e+00);
assert(isequalRel(ep,     6.250582486959e-01, TOL));
assert(isequalRel(inclp,  4.980974447757e-01, TOL));
assert(isequalRel(nodep,  2.001366870816e+00, TOL));
assert(isequalRel(argpp,  2.979878906944e+00, TOL));
assert(isequalRel(mp,     1.091888935124e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   2.080207273239e-04,  2.279612848318e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.010666927152e-03, ...
   1.234888459603e-04,  4.404694052449e-04, -3.174852765982e-03, -4.246782106577e-05,  4.897361699131e-04, -1.594883558919e-04, -1.422358125944e-03, -1.642085155919e-03, ...
  -1.791873501287e-03,  5.840111590196e-03,  1.481689063817e-04,  7.200000000000e+02, -3.876052640328e-04,  2.628367881541e-04, -2.235682588341e-05, -7.296812344377e-05, ...
  -4.081833544751e-05, -6.948628061380e-05,  3.512666727653e-04,  8.272799129225e-04, -3.372511878045e-04,  7.800226991119e-05,  2.040461217495e+00, ...
   2.997593526865e+00,  4.977679026688e-01, "n",  6.244192476449e-01,  4.977836144367e-01,  2.000630636141e+00,  2.981594563678e+00, -3.202160758895e+00);
assert(isequalRel(ep,     6.249759788550e-01, TOL));
assert(isequalRel(inclp,  4.981027618710e-01, TOL));
assert(isequalRel(nodep,  2.000332318446e+00, TOL));
assert(isequalRel(argpp,  2.981564839757e+00, TOL));
assert(isequalRel(mp,    -3.201307117212e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   2.080207273239e-04,  2.279612848318e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.010666927152e-03, ...
   1.234888459603e-04,  4.404694052449e-04, -3.174852765982e-03, -4.246782106577e-05,  4.897361699131e-04, -1.594883558919e-04, -1.422358125944e-03, -1.642085155919e-03, ...
  -1.791873501287e-03,  5.840111590196e-03,  1.481689063817e-04,  8.400000000000e+02, -3.876052640328e-04,  2.628367881541e-04, -2.235682588341e-05, -7.296812344377e-05, ...
  -4.081833544751e-05, -6.948628061380e-05,  3.512666727653e-04,  8.272799129225e-04, -3.372511878045e-04,  7.800226991119e-05,  2.040461217495e+00, ...
   2.997593526865e+00,  4.977679026688e-01, "n",  6.243382389191e-01,  4.977862330647e-01,  1.999594485540e+00,  2.983275271293e+00, -1.211601593530e+00);
assert(isequalRel(ep,     6.248936275882e-01, TOL));
assert(isequalRel(inclp,  4.981079703437e-01, TOL));
assert(isequalRel(nodep,  1.999297392409e+00, TOL));
assert(isequalRel(argpp,  2.983250685593e+00, TOL));
assert(isequalRel(mp,    -1.210760456896e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   2.080207273239e-04,  2.279612848318e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.010666927152e-03, ...
   1.234888459603e-04,  4.404694052449e-04, -3.174852765982e-03, -4.246782106577e-05,  4.897361699131e-04, -1.594883558919e-04, -1.422358125944e-03, -1.642085155919e-03, ...
  -1.791873501287e-03,  5.840111590196e-03,  1.481689063817e-04,  9.600000000000e+02, -3.876052640328e-04,  2.628367881541e-04, -2.235682588341e-05, -7.296812344377e-05, ...
  -4.081833544751e-05, -6.948628061380e-05,  3.512666727653e-04,  8.272799129225e-04, -3.372511878045e-04,  7.800226991119e-05,  2.040461217495e+00, ...
   2.997593526865e+00,  4.977679026688e-01, "n",  6.242572301932e-01,  4.977888516927e-01,  1.998557924243e+00,  2.984955978909e+00,  7.795149394794e-01);
assert(isequalRel(ep,     6.248111973534e-01, TOL));
assert(isequalRel(inclp,  4.981130692199e-01, TOL));
assert(isequalRel(nodep,  1.998262091029e+00, TOL));
assert(isequalRel(argpp,  2.984936441303e+00, TOL));
assert(isequalRel(mp,     7.803436187781e-01, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   2.080207273239e-04,  2.279612848318e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.010666927152e-03, ...
   1.234888459603e-04,  4.404694052449e-04, -3.174852765982e-03, -4.246782106577e-05,  4.897361699131e-04, -1.594883558919e-04, -1.422358125944e-03, -1.642085155919e-03, ...
  -1.791873501287e-03,  5.840111590196e-03,  1.481689063817e-04,  1.080000000000e+03, -3.876052640328e-04,  2.628367881541e-04, -2.235682588341e-05, -7.296812344377e-05, ...
  -4.081833544751e-05, -6.948628061380e-05,  3.512666727653e-04,  8.272799129225e-04, -3.372511878045e-04,  7.800226991119e-05,  2.040461217495e+00, ...
   2.997593526865e+00,  4.977679026688e-01, "n",  6.241762214674e-01,  4.977914703206e-01,  1.997520952250e+00,  2.986636686525e+00, -3.511996467047e+00);
assert(isequalRel(ep,     6.247286906754e-01, TOL));
assert(isequalRel(inclp,  4.981180576656e-01, TOL));
assert(isequalRel(nodep,  1.997226412606e+00, TOL));
assert(isequalRel(argpp,  2.986622103886e+00, TOL));
assert(isequalRel(mp,    -3.511180187667e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   2.080207273239e-04,  2.279612848318e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.010666927152e-03, ...
   1.234888459603e-04,  4.404694052449e-04, -3.174852765982e-03, -4.246782106577e-05,  4.897361699131e-04, -1.594883558919e-04, -1.422358125944e-03, -1.642085155919e-03, ...
  -1.791873501287e-03,  5.840111590196e-03,  1.481689063817e-04,  1.200000000000e+03, -3.876052640328e-04,  2.628367881541e-04, -2.235682588341e-05, -7.296812344377e-05, ...
  -4.081833544751e-05, -6.948628061380e-05,  3.512666727653e-04,  8.272799129225e-04, -3.372511878045e-04,  7.800226991119e-05,  2.040461217495e+00, ...
   2.997593526865e+00,  4.977679026688e-01, "n",  6.240952127415e-01,  4.977940889486e-01,  1.996483569561e+00,  2.988317394141e+00, -1.519765198750e+00);
assert(isequalRel(ep,     6.246461101419e-01, TOL));
assert(isequalRel(inclp,  4.981229349860e-01, TOL));
assert(isequalRel(nodep,  1.996190355416e+00, TOL));
assert(isequalRel(argpp,  2.988307670487e+00, TOL));
assert(isequalRel(mp,    -1.518961252355e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   2.080207273239e-04,  2.279612848318e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.010666927152e-03, ...
   1.234888459603e-04,  4.404694052449e-04, -3.174852765982e-03, -4.246782106577e-05,  4.897361699131e-04, -1.594883558919e-04, -1.422358125944e-03, -1.642085155919e-03, ...
  -1.791873501287e-03,  5.840111590196e-03,  1.481689063817e-04,  1.320000000000e+03, -3.876052640328e-04,  2.628367881541e-04, -2.235682588341e-05, -7.296812344377e-05, ...
  -4.081833544751e-05, -6.948628061380e-05,  3.512666727653e-04,  8.272799129225e-04, -3.372511878045e-04,  7.800226991119e-05,  2.040461217495e+00, ...
   2.997593526865e+00,  4.977679026688e-01, "n",  6.240142040157e-01,  4.977967075766e-01,  1.995445776177e+00,  2.989998101756e+00,  4.730234371911e-01);
assert(isequalRel(ep,     6.245634583992e-01, TOL));
assert(isequalRel(inclp,  4.981277006234e-01, TOL));
assert(isequalRel(nodep,  1.995153917718e+00, TOL));
assert(isequalRel(argpp,  2.989993138397e+00, TOL));
assert(isequalRel(mp,     4.738151268539e-01, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   2.080207273239e-04,  2.279612848318e-04,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -2.010666927152e-03, ...
   1.234888459603e-04,  4.404694052449e-04, -3.174852765982e-03, -4.246782106577e-05,  4.897361699131e-04, -1.594883558919e-04, -1.422358125944e-03, -1.642085155919e-03, ...
  -1.791873501287e-03,  5.840111590196e-03,  1.481689063817e-04,  1.440000000000e+03, -3.876052640328e-04,  2.628367881541e-04, -2.235682588341e-05, -7.296812344377e-05, ...
  -4.081833544751e-05, -6.948628061380e-05,  3.512666727653e-04,  8.272799129225e-04, -3.372511878045e-04,  7.800226991119e-05,  2.040461217495e+00, ...
   2.997593526865e+00,  4.977679026688e-01, "n",  6.239331952898e-01,  4.977993262046e-01,  1.994407572097e+00,  2.991678809372e+00, -3.816815866404e+00);
assert(isequalRel(ep,     6.244807381484e-01, TOL));
assert(isequalRel(inclp,  4.981323541560e-01, TOL));
assert(isequalRel(nodep,  1.994117097755e+00, TOL));
assert(isequalRel(argpp,  2.991678505058e+00, TOL));
assert(isequalRel(mp,    -3.816036348103e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   9.730286584479e-08,  4.116645807083e-09,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -4.897269431303e-07, ...
  -3.982514162897e-07,  1.218979806720e-02, -1.372729148759e-02, -2.058135042329e-04, -1.607052704128e-03,  1.922166128879e-04,  1.068903225853e-04,  1.503069663730e-03, ...
  -1.268456207451e-02,  1.252883219957e-02,  4.802315103772e-04,  0.000000000000e+00, -2.791926643954e-03, -6.071229788246e-05, -1.083487818097e-04,  2.358741028641e-04, ...
   2.037703492136e-04,  1.978957741048e-04, -1.979448507755e-04,  2.660801647839e-03,  3.319557433091e-04,  2.528138244862e-04,  1.734002358913e+00, ...
   2.974474794500e+00,  3.316125578789e-05, "y",  3.350000000000e-05,  3.316125578789e-05,  5.008105351538e+00,  2.407123197766e-01,  9.712827100519e-01);
assert(isequalRel(ep,     3.350000000000e-05, TOL));
assert(isequalRel(inclp,  3.316125578789e-05, TOL));
assert(isequalRel(nodep,  5.008105351538e+00, TOL));
assert(isequalRel(argpp,  2.407123197766e-01, TOL));
assert(isequalRel(mp,     9.712827100519e-01, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   9.730286584479e-08,  4.116645807083e-09,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -4.897269431303e-07, ...
  -3.982514162897e-07,  1.218979806720e-02, -1.372729148759e-02, -2.058135042329e-04, -1.607052704128e-03,  1.922166128879e-04,  1.068903225853e-04,  1.503069663730e-03, ...
  -1.268456207451e-02,  1.252883219957e-02,  4.802315103772e-04,  0.000000000000e+00, -2.791926643954e-03, -6.071229788246e-05, -1.083487818097e-04,  2.358741028641e-04, ...
   2.037703492136e-04,  1.978957741048e-04, -1.979448507755e-04,  2.660801647839e-03,  3.319557433091e-04,  2.528138244862e-04,  1.734002358913e+00, ...
   2.974474794500e+00,  3.316125578789e-05, "y",  3.350000000000e-05,  3.316125578789e-05,  5.008105351538e+00,  2.407123197766e-01,  9.712827100519e-01);
assert(isequalRel(ep,     3.350000000000e-05, TOL));
assert(isequalRel(inclp,  3.316125578789e-05, TOL));
assert(isequalRel(nodep,  5.008105351538e+00, TOL));
assert(isequalRel(argpp,  2.407123197766e-01, TOL));
assert(isequalRel(mp,     9.712827100519e-01, TOL));
# 28626

[ep, inclp, nodep, argpp,  mp] = dpper(...
   9.730286584479e-08,  4.116645807083e-09,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -4.897269431303e-07, ...
  -3.982514162897e-07,  1.218979806720e-02, -1.372729148759e-02, -2.058135042329e-04, -1.607052704128e-03,  1.922166128879e-04,  1.068903225853e-04,  1.503069663730e-03, ...
  -1.268456207451e-02,  1.252883219957e-02,  4.802315103772e-04,  0.000000000000e+00, -2.791926643954e-03, -6.071229788246e-05, -1.083487818097e-04,  2.358741028641e-04, ...
   2.037703492136e-04,  1.978957741048e-04, -1.979448507755e-04,  2.660801647839e-03,  3.319557433091e-04,  2.528138244862e-04,  1.734002358913e+00, ...
   2.974474794500e+00,  3.316125578789e-05, "n",  3.350000000000e-05,  3.316125578789e-05,  5.008105351538e+00,  2.407123197766e-01,  9.712827100519e-01);
assert(isequalRel(ep,     3.359793813658e-05, TOL));
assert(isequalRel(inclp,  1.439086128498e-04, TOL));
assert(isequalRel(nodep,  6.085057622826e+00, TOL));
assert(isequalRel(argpp, -8.409622687856e-01, TOL));
assert(isequalRel(mp,     9.762174114462e-01, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   9.730286584479e-08,  4.116645807083e-09,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -4.897269431303e-07, ...
  -3.982514162897e-07,  1.218979806720e-02, -1.372729148759e-02, -2.058135042329e-04, -1.607052704128e-03,  1.922166128879e-04,  1.068903225853e-04,  1.503069663730e-03, ...
  -1.268456207451e-02,  1.252883219957e-02,  4.802315103772e-04,  1.200000000000e+02, -2.791926643954e-03, -6.071229788246e-05, -1.083487818097e-04,  2.358741028641e-04, ...
   2.037703492136e-04,  1.978957741048e-04, -1.979448507755e-04,  2.660801647839e-03,  3.319557433091e-04,  2.528138244862e-04,  1.734002358913e+00, ...
   2.974474794500e+00,  3.316125578789e-05, "n",  3.349986039785e-05,  2.962464315222e-05,  5.008085841597e+00,  2.407554244625e-01, -4.786901774431e+00);
assert(isequalRel(ep,     3.359891488502e-05, TOL));
assert(isequalRel(inclp,  1.368161443485e-04, TOL));
assert(isequalRel(nodep,  6.103223961610e+00, TOL));
assert(isequalRel(argpp, -8.590844279934e-01, TOL));
assert(isequalRel(mp,    -4.781985087145e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   9.730286584479e-08,  4.116645807083e-09,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -4.897269431303e-07, ...
  -3.982514162897e-07,  1.218979806720e-02, -1.372729148759e-02, -2.058135042329e-04, -1.607052704128e-03,  1.922166128879e-04,  1.068903225853e-04,  1.503069663730e-03, ...
  -1.268456207451e-02,  1.252883219957e-02,  4.802315103772e-04,  2.400000000000e+02, -2.791926643954e-03, -6.071229788246e-05, -1.083487818097e-04,  2.358741028641e-04, ...
   2.037703492136e-04,  1.978957741048e-04, -1.979448507755e-04,  2.660801647839e-03,  3.319557433091e-04,  2.528138244862e-04,  1.734002358913e+00, ...
   2.974474794500e+00,  3.316125578789e-05, "n",  3.349972079571e-05,  2.608803051655e-05,  5.008066331656e+00,  2.407985291485e-01, -4.261901052547e+00);
assert(isequalRel(ep,     3.359986973832e-05, TOL));
assert(isequalRel(inclp,  1.297085572407e-04, TOL));
assert(isequalRel(nodep,  6.121643881100e+00, TOL));
assert(isequalRel(argpp, -8.774593103222e-01, TOL));
assert(isequalRel(mp,    -4.257003303210e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   9.730286584479e-08,  4.116645807083e-09,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -4.897269431303e-07, ...
  -3.982514162897e-07,  1.218979806720e-02, -1.372729148759e-02, -2.058135042329e-04, -1.607052704128e-03,  1.922166128879e-04,  1.068903225853e-04,  1.503069663730e-03, ...
  -1.268456207451e-02,  1.252883219957e-02,  4.802315103772e-04,  3.600000000000e+02, -2.791926643954e-03, -6.071229788246e-05, -1.083487818097e-04,  2.358741028641e-04, ...
   2.037703492136e-04,  1.978957741048e-04, -1.979448507755e-04,  2.660801647839e-03,  3.319557433091e-04,  2.528138244862e-04,  1.734002358913e+00, ...
   2.974474794500e+00,  3.316125578789e-05, "n",  3.349958119356e-05,  2.255141788087e-05,  5.008046821715e+00,  2.408416338345e-01, -3.736900431474e+00);
assert(isequalRel(ep,     3.360080182079e-05, TOL));
assert(isequalRel(inclp,  1.225894941284e-04, TOL));
assert(isequalRel(nodep,  6.140310433893e+00, TOL));
assert(isequalRel(argpp, -8.960799934456e-01, TOL));
assert(isequalRel(mp,    -3.732022522011e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   9.730286584479e-08,  4.116645807083e-09,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -4.897269431303e-07, ...
  -3.982514162897e-07,  1.218979806720e-02, -1.372729148759e-02, -2.058135042329e-04, -1.607052704128e-03,  1.922166128879e-04,  1.068903225853e-04,  1.503069663730e-03, ...
  -1.268456207451e-02,  1.252883219957e-02,  4.802315103772e-04,  4.800000000000e+02, -2.791926643954e-03, -6.071229788246e-05, -1.083487818097e-04,  2.358741028641e-04, ...
   2.037703492136e-04,  1.978957741048e-04, -1.979448507755e-04,  2.660801647839e-03,  3.319557433091e-04,  2.528138244862e-04,  1.734002358913e+00, ...
   2.974474794500e+00,  3.316125578789e-05, "n",  3.349944159141e-05,  1.901480524520e-05,  5.008027311774e+00,  2.408847385205e-01, -3.211899911212e+00);
assert(isequalRel(ep,     3.360171029721e-05, TOL));
assert(isequalRel(inclp,  1.154625728329e-04, TOL));
assert(isequalRel(nodep,  6.159215856705e+00, TOL));
assert(isequalRel(argpp, -9.149387399639e-01, TOL));
assert(isequalRel(mp,    -3.207042720741e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   9.730286584479e-08,  4.116645807083e-09,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -4.897269431303e-07, ...
  -3.982514162897e-07,  1.218979806720e-02, -1.372729148759e-02, -2.058135042329e-04, -1.607052704128e-03,  1.922166128879e-04,  1.068903225853e-04,  1.503069663730e-03, ...
  -1.268456207451e-02,  1.252883219957e-02,  4.802315103772e-04,  6.000000000000e+02, -2.791926643954e-03, -6.071229788246e-05, -1.083487818097e-04,  2.358741028641e-04, ...
   2.037703492136e-04,  1.978957741048e-04, -1.979448507755e-04,  2.660801647839e-03,  3.319557433091e-04,  2.528138244862e-04,  1.734002358913e+00, ...
   2.974474794500e+00,  3.316125578789e-05, "n",  3.349930198927e-05,  1.547819260953e-05,  5.008007801833e+00,  2.409278432065e-01, -2.686899491763e+00);
assert(isequalRel(ep,     3.360259437335e-05, TOL));
assert(isequalRel(inclp,  1.083313815875e-04, TOL));
assert(isequalRel(nodep,  6.178351552380e+00, TOL));
assert(isequalRel(argpp, -9.340269793670e-01, TOL));
assert(isequalRel(mp,    -2.682063875741e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   9.730286584479e-08,  4.116645807083e-09,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -4.897269431303e-07, ...
  -3.982514162897e-07,  1.218979806720e-02, -1.372729148759e-02, -2.058135042329e-04, -1.607052704128e-03,  1.922166128879e-04,  1.068903225853e-04,  1.503069663730e-03, ...
  -1.268456207451e-02,  1.252883219957e-02,  4.802315103772e-04,  7.200000000000e+02, -2.791926643954e-03, -6.071229788246e-05, -1.083487818097e-04,  2.358741028641e-04, ...
   2.037703492136e-04,  1.978957741048e-04, -1.979448507755e-04,  2.660801647839e-03,  3.319557433091e-04,  2.528138244862e-04,  1.734002358913e+00, ...
   2.974474794500e+00,  3.316125578789e-05, "n",  3.349916238712e-05,  1.194157997385e-05,  5.007988291893e+00,  2.409709478924e-01, -2.161899173125e+00);
assert(isequalRel(ep,     3.360345329638e-05, TOL));
assert(isequalRel(inclp,  1.011994744013e-04, TOL));
assert(isequalRel(nodep,  6.197708077323e+00, TOL));
assert(isequalRel(argpp, -9.533352954133e-01, TOL));
assert(isequalRel(mp,    -2.157085962558e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   9.730286584479e-08,  4.116645807083e-09,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -4.897269431303e-07, ...
  -3.982514162897e-07,  1.218979806720e-02, -1.372729148759e-02, -2.058135042329e-04, -1.607052704128e-03,  1.922166128879e-04,  1.068903225853e-04,  1.503069663730e-03, ...
  -1.268456207451e-02,  1.252883219957e-02,  4.802315103772e-04,  8.400000000000e+02, -2.791926643954e-03, -6.071229788246e-05, -1.083487818097e-04,  2.358741028641e-04, ...
   2.037703492136e-04,  1.978957741048e-04, -1.979448507755e-04,  2.660801647839e-03,  3.319557433091e-04,  2.528138244862e-04,  1.734002358913e+00, ...
   2.974474794500e+00,  3.316125578789e-05, "n",  3.349902278497e-05,  8.404967338182e-06,  5.007968781952e+00,  2.410140525784e-01, -1.636898955258e+00);
assert(isequalRel(ep,     3.360428635524e-05, TOL));
assert(isequalRel(inclp,  9.407036659860e-05, TOL));
assert(isequalRel(nodep,  6.217275134930e+00, TOL));
assert(isequalRel(argpp, -9.728534195090e-01, TOL));
assert(isequalRel(mp,    -1.632108955943e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   9.730286584479e-08,  4.116645807083e-09,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -4.897269431303e-07, ...
  -3.982514162897e-07,  1.218979806720e-02, -1.372729148759e-02, -2.058135042329e-04, -1.607052704128e-03,  1.922166128879e-04,  1.068903225853e-04,  1.503069663730e-03, ...
  -1.268456207451e-02,  1.252883219957e-02,  4.802315103772e-04,  9.600000000000e+02, -2.791926643954e-03, -6.071229788246e-05, -1.083487818097e-04,  2.358741028641e-04, ...
   2.037703492136e-04,  1.978957741048e-04, -1.979448507755e-04,  2.660801647839e-03,  3.319557433091e-04,  2.528138244862e-04,  1.734002358913e+00, ...
   2.974474794500e+00,  3.316125578789e-05, "n",  3.349888318283e-05,  4.868354702509e-06,  5.007949272011e+00,  2.410571572644e-01, -1.111898838190e+00);
assert(isequalRel(ep,     3.360509288091e-05, TOL));
assert(isequalRel(inclp,  8.694753053609e-05, TOL));
assert(isequalRel(nodep,  6.237041575551e+00, TOL));
assert(isequalRel(argpp, -9.925702306225e-01, TOL));
assert(isequalRel(mp,    -1.107132830017e+00, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   9.730286584479e-08,  4.116645807083e-09,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -4.897269431303e-07, ...
  -3.982514162897e-07,  1.218979806720e-02, -1.372729148759e-02, -2.058135042329e-04, -1.607052704128e-03,  1.922166128879e-04,  1.068903225853e-04,  1.503069663730e-03, ...
  -1.268456207451e-02,  1.252883219957e-02,  4.802315103772e-04,  1.080000000000e+03, -2.791926643954e-03, -6.071229788246e-05, -1.083487818097e-04,  2.358741028641e-04, ...
   2.037703492136e-04,  1.978957741048e-04, -1.979448507755e-04,  2.660801647839e-03,  3.319557433091e-04,  2.528138244862e-04,  1.734002358913e+00, ...
   2.974474794500e+00,  3.316125578789e-05, "n",  3.349874358068e-05,  1.331742066836e-06,  5.007929762070e+00,  2.411002619504e-01, -5.868988219216e-01);
assert(isequalRel(ep,     3.360587224660e-05, TOL));
assert(isequalRel(inclp,  7.983439149988e-05, TOL));
assert(isequalRel(nodep,  6.256995403470e+00, TOL));
assert(isequalRel(argpp, -1.012473762212e+00, TOL));
assert(isequalRel(mp,    -5.821575582148e-01, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   9.730286584479e-08,  4.116645807083e-09,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -4.897269431303e-07, ...
  -3.982514162897e-07,  1.218979806720e-02, -1.372729148759e-02, -2.058135042329e-04, -1.607052704128e-03,  1.922166128879e-04,  1.068903225853e-04,  1.503069663730e-03, ...
  -1.268456207451e-02,  1.252883219957e-02,  4.802315103772e-04,  1.200000000000e+03, -2.791926643954e-03, -6.071229788246e-05, -1.083487818097e-04,  2.358741028641e-04, ...
   2.037703492136e-04,  1.978957741048e-04, -1.979448507755e-04,  2.660801647839e-03,  3.319557433091e-04,  2.528138244862e-04,  1.734002358913e+00, ...
   2.974474794500e+00,  3.316125578789e-05, "n",  3.349860397853e-05, -2.204870568837e-06,  5.007910252129e+00,  2.411433666364e-01, -6.189890645293e-02);
assert(isequalRel(ep,     3.360662386790e-05, TOL));
assert(isequalRel(inclp,  7.273432378416e-05, TOL));
assert(isequalRel(nodep,  6.277123791289e+00, TOL));
assert(isequalRel(argpp, -1.032551216560e+00, TOL));
assert(isequalRel(mp,    -5.718311336225e-02, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   9.730286584479e-08,  4.116645807083e-09,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -4.897269431303e-07, ...
  -3.982514162897e-07,  1.218979806720e-02, -1.372729148759e-02, -2.058135042329e-04, -1.607052704128e-03,  1.922166128879e-04,  1.068903225853e-04,  1.503069663730e-03, ...
  -1.268456207451e-02,  1.252883219957e-02,  4.802315103772e-04,  1.320000000000e+03, -2.791926643954e-03, -6.071229788246e-05, -1.083487818097e-04,  2.358741028641e-04, ...
   2.037703492136e-04,  1.978957741048e-04, -1.979448507755e-04,  2.660801647839e-03,  3.319557433091e-04,  2.528138244862e-04,  1.734002358913e+00, ...
   2.974474794500e+00,  3.316125578789e-05, "n",  3.349846437639e-05, -5.741483204510e-06,  5.007890742188e+00,  2.411864713223e-01,  4.631009082162e-01);
assert(isequalRel(ep,     3.360734720282e-05, TOL));
assert(isequalRel(inclp,  6.565064695245e-05, TOL));
assert(isequalRel(nodep,  6.297413102022e+00, TOL));
assert(isequalRel(argpp, -1.052788986818e+00, TOL));
assert(isequalRel(mp,     4.677905322749e-01, TOL));

[ep, inclp, nodep, argpp,  mp] = dpper(...
   9.730286584479e-08,  4.116645807083e-09,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00,  0.000000000000e+00, -4.897269431303e-07, ...
  -3.982514162897e-07,  1.218979806720e-02, -1.372729148759e-02, -2.058135042329e-04, -1.607052704128e-03,  1.922166128879e-04,  1.068903225853e-04,  1.503069663730e-03, ...
  -1.268456207451e-02,  1.252883219957e-02,  4.802315103772e-04,  1.440000000000e+03, -2.791926643954e-03, -6.071229788246e-05, -1.083487818097e-04,  2.358741028641e-04, ...
   2.037703492136e-04,  1.978957741048e-04, -1.979448507755e-04,  2.660801647839e-03,  3.319557433091e-04,  2.528138244862e-04,  1.734002358913e+00, ...
   2.974474794500e+00,  3.316125578789e-05, "n",  3.349832477424e-05, -9.278095840183e-06,  5.007871232247e+00,  2.412295760083e-01,  9.881006220858e-01);
assert(isequalRel(ep,     3.360804175182e-05, TOL));
assert(isequalRel(inclp,  5.858662228194e-05, TOL));
assert(isequalRel(nodep,  6.317848919089e+00, TOL));
assert(isequalRel(argpp, -1.073172686956e+00, TOL));
assert(isequalRel(mp,     9.927634069458e-01, TOL));
# 28872
# 29141
# *** error: t:= 440.000000 *** code =   6
# 29238
# 88888












