X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=linearalgebra.cpp;h=effb1ad44e04abd9c1bdd8523ca3b05f4253de94;hb=3114ad297d40ecd47bd3c1fe7997bd76a81e8c75;hp=ab75b7e94bed1e90f44928a2e6e156220027f493;hpb=43ed0accfbc2852849e104ff7eccdd2c42acd4ec;p=mothur.git

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;