mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-11-08 16:06:16 -05:00
59 lines
2 KiB
Diff
59 lines
2 KiB
Diff
|
Patch taken from the Sage packaging system.
|
||
|
|
|
||
|
|
--- lcalc-1.23/include/Lgamma.h 2012-08-08 23:21:55.000000000 +0200
|
||
|
|
+++ lcalc-1.23/include/Lgamma.h 2014-05-18 21:15:27.786889718 +0200
|
||
|
|
@@ -77,7 +77,7 @@
|
||
|
|
//n=0 should just give log_GAMMA(z)... thus making log_GAMMA
|
||
|
|
//code obsolete. But leave log_GAMMA intact anyways.
|
||
|
|
template <class ttype>
|
||
|
|
-precise(ttype) log_GAMMA (ttype z,int n=0)
|
||
|
|
+precise(ttype) log_GAMMA (ttype z,int n)
|
||
|
|
{
|
||
|
|
int M;
|
||
|
|
precise(ttype) log_G,r,r2,y;
|
||
|
|
@@ -230,7 +230,7 @@
|
||
|
|
//value exp_w which holds exp(-w)
|
||
|
|
//computes G(z,w), so there's an extra w^(-z) factor.
|
||
|
|
template <class ttype>
|
||
|
|
-Complex inc_GAMMA (ttype z,ttype w, const char *method="temme", ttype exp_w = 0, bool recycle=false)
|
||
|
|
+Complex inc_GAMMA (ttype z,ttype w, const char *method, ttype exp_w, bool recycle)
|
||
|
|
{
|
||
|
|
|
||
|
|
Complex G;
|
||
|
|
@@ -334,7 +334,7 @@
|
||
|
|
|
||
|
|
|
||
|
|
template <class ttype>
|
||
|
|
-ttype cfrac_GAMMA (ttype z,ttype w, ttype exp_w=0, bool recycle=false) //computes G(z,w) via continued fraction
|
||
|
|
+ttype cfrac_GAMMA (ttype z,ttype w, ttype exp_w, bool recycle) //computes G(z,w) via continued fraction
|
||
|
|
{
|
||
|
|
|
||
|
|
ttype G;
|
||
|
|
@@ -424,7 +424,7 @@
|
||
|
|
}
|
||
|
|
|
||
|
|
template <class ttype>
|
||
|
|
-ttype asympt_GAMMA (ttype z,ttype w, ttype exp_w = 0, bool recycle=false) //computes G(z,w) via asymptotic series
|
||
|
|
+ttype asympt_GAMMA (ttype z,ttype w, ttype exp_w, bool recycle) //computes G(z,w) via asymptotic series
|
||
|
|
{
|
||
|
|
|
||
|
|
if(my_verbose>3) cout << "called asympt_GAMMA("<<z<<","<<w<<")"<< endl;
|
||
|
|
@@ -446,7 +446,7 @@
|
||
|
|
|
||
|
|
|
||
|
|
template <class ttype>
|
||
|
|
-ttype comp_inc_GAMMA (ttype z,ttype w,ttype exp_w = 0, bool recycle=false) //computes g(z,w)
|
||
|
|
+ttype comp_inc_GAMMA (ttype z,ttype w,ttype exp_w, bool recycle) //computes g(z,w)
|
||
|
|
{
|
||
|
|
|
||
|
|
ttype g;
|
||
|
|
@@ -604,7 +604,7 @@
|
||
|
|
}
|
||
|
|
|
||
|
|
template <class ttype>
|
||
|
|
-Complex gamma_sum(Complex s, int what_type, ttype *coeff, int N, Double g, Complex l, Double Q, Long Period, Complex delta=1, const char *method="temme")
|
||
|
|
+Complex gamma_sum(Complex s, int what_type, ttype *coeff, int N, Double g, Complex l, Double Q, Long Period, Complex delta, const char *method)
|
||
|
|
{
|
||
|
|
Complex SUM=0;
|
||
|
|
|