Changeset 16059 for trunk/Ohana/src/opihi/lib.data/mrq2dmin.c

Timestamp:

Jan 14, 2008, 1:50:11 PM (19 years ago)

Author:

eugene

Message:

convert to new gauss-jordan code (non-Press); fixing Wall,Werror warnings; fixed bug in shell command; fixed bug in matrix element lookup

File:

• trunk/Ohana/src/opihi/lib.data/mrq2dmin.c (modified) (2 diffs)

trunk/Ohana/src/opihi/lib.data/mrq2dmin.c

@@ -90 +90 @@
 
   /* keep this test in here? */
-  if (!fgaussj (talpha, Npar, tbeta, 1)) {
+  if (!fgaussjordan (talpha, tbeta, Npar, 1)) {
     lambda *= 10.0;
     return (ochisq);
@@ -183 +183 @@
 float **mrq2dcovar (int Npar) {
 
-  fgaussj (alpha, Npar, beta, 1);
+  fgaussjordan (alpha, beta, Npar, 1);
   return (alpha);