X-Git-Url: https://git.donarmstrong.com/?p=mothur.git;a=blobdiff_plain;f=linearalgebra.cpp;h=effb1ad44e04abd9c1bdd8523ca3b05f4253de94;hp=ab75b7e94bed1e90f44928a2e6e156220027f493;hb=1a20e24ee786195ab0e1cccd4f5aede7a88f3f4e;hpb=5d77fd07180d1fb8561ff1962e6d7429caf8555e diff --git a/linearalgebra.cpp b/linearalgebra.cpp index ab75b7e..effb1ad 100644 --- a/linearalgebra.cpp +++ b/linearalgebra.cpp @@ -222,7 +222,7 @@ double LinearAlgebra::betacf(const double a, const double b, const double x) { if (fabs(d) < FPMIN) d=FPMIN; d=1.0/d; h=d; - for (m1=1;m1<=MAXIT;m++) { + for (m1=1;m1<=MAXIT;m1++) { m2=2*m1; aa=m1*(b-m1)*x/((qam+m2)*(a+m2)); d=1.0+aa*d;