Changeset 16059 for trunk/Ohana/src/opihi/lib.shell/expand_vectors.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.shell/expand_vectors.c (modified) (1 diff)

trunk/Ohana/src/opihi/lib.shell/expand_vectors.c

@@ -113 +113 @@
       if (J < 0) J += buf[0].header.Naxis[1];
       ptr = (float *) buf[0].matrix.buffer;
-      f1 = ptr[I + J*buf[0].header.Naxis[1]];
+      f1 = ptr[I + J*buf[0].header.Naxis[0]];
     } else {
       if ((vec = SelectVector (tmpline, OLDVECTOR, TRUE)) == NULL) goto dumpline;