Index: trunk/Ohana/src/relastro/include/relastro.h
===================================================================
--- trunk/Ohana/src/relastro/include/relastro.h	(revision 16040)
+++ trunk/Ohana/src/relastro/include/relastro.h	(revision 16060)
@@ -207,4 +207,5 @@
 void unlock_image_db (FITS_DB *db);
 void create_image_db (FITS_DB *db);
+void save_catalogs (Catalog *catalog, int Ncatalog);
 
 int           main                PROTO((int argc, char **argv));
Index: trunk/Ohana/src/relastro/src/ConfigInit.c
===================================================================
--- trunk/Ohana/src/relastro/src/ConfigInit.c	(revision 16040)
+++ trunk/Ohana/src/relastro/src/ConfigInit.c	(revision 16060)
@@ -3,5 +3,4 @@
 void ConfigInit (int *argc, char **argv) {
 
-  double ZERO_POINT;
   char  *config, *file;
   char CatdirPhotcodeFile[256];
Index: trunk/Ohana/src/relastro/src/FitPM.c
===================================================================
--- trunk/Ohana/src/relastro/src/FitPM.c	(revision 16040)
+++ trunk/Ohana/src/relastro/src/FitPM.c	(revision 16060)
@@ -53,5 +53,5 @@
   B[3][0] = YT;
 
-  dgaussj (A, 4, B, 1);
+  dgaussjordan (A, B, 4, 1);
 
   fit[0].Ro = B[0][0];
Index: trunk/Ohana/src/relastro/src/FitPMandPar.c
===================================================================
--- trunk/Ohana/src/relastro/src/FitPMandPar.c	(revision 16040)
+++ trunk/Ohana/src/relastro/src/FitPMandPar.c	(revision 16060)
@@ -76,5 +76,5 @@
   B[4][0] = PRX + PDY;
 
-  dgaussj (A, 5, B, 1);
+  dgaussjordan (A, B, 5, 1);
 
   fit[0].Ro = B[0][0];
Index: trunk/Ohana/src/relastro/src/FitPar.c
===================================================================
--- trunk/Ohana/src/relastro/src/FitPar.c	(revision 16040)
+++ trunk/Ohana/src/relastro/src/FitPar.c	(revision 16060)
@@ -7,6 +7,6 @@
 
   double **A, **B;
-  double wx, wy, Wx, Wy, Tx, Ty, Tx2, Ty2, Xs, Ys, XT, YT;
-  double PR, PD, PRT, PDT, PRX, PDY, PR2, PD2;
+  double wx, wy, Wx, Wy, Xs, Ys;
+  double PR, PD, PRX, PDY, PR2, PD2;
 
   A = array_init (3, 3);
@@ -50,5 +50,5 @@
   B[2][0] = PRX + PDY;
 
-  dgaussj (A, 3, B, 1);
+  dgaussjordan (A, B, 3, 1);
 
   fit[0].Ro = B[0][0];
Index: trunk/Ohana/src/relastro/src/ImageOps.c
===================================================================
--- trunk/Ohana/src/relastro/src/ImageOps.c	(revision 16040)
+++ trunk/Ohana/src/relastro/src/ImageOps.c	(revision 16060)
@@ -289,4 +289,7 @@
       LM_to_XY (&ref[i].X, &ref[i].Y, ref[i].L, ref[i].M, &image[im].coords);
       break;
+      default:
+	fprintf (stderr, "invalid case");
+	abort();
     }
   }
Index: trunk/Ohana/src/relastro/src/MosaicOps.c
===================================================================
--- trunk/Ohana/src/relastro/src/MosaicOps.c	(revision 16040)
+++ trunk/Ohana/src/relastro/src/MosaicOps.c	(revision 16060)
@@ -22,7 +22,6 @@
 void initMosaics (Image *image, int Nimage) {
 
-  int i, j, status, found, NMOSAIC, *NIMLIST;
+  int i, j, found, NMOSAIC;
   unsigned int start, stop;
-  char *pname;
 
   Nmosaic = 0;
Index: trunk/Ohana/src/relastro/src/UpdateObjects.c
===================================================================
--- trunk/Ohana/src/relastro/src/UpdateObjects.c	(revision 16040)
+++ trunk/Ohana/src/relastro/src/UpdateObjects.c	(revision 16060)
@@ -179,5 +179,5 @@
 
 	default:
-	  fprintf (stderr, "programming error at %s, %s", __FILE__, __LINE__);
+	  fprintf (stderr, "programming error at %s, %d", __FILE__, __LINE__);
 	  exit (2);
       }	  
Index: trunk/Ohana/src/relastro/src/fitpoly.c
===================================================================
--- trunk/Ohana/src/relastro/src/fitpoly.c	(revision 16040)
+++ trunk/Ohana/src/relastro/src/fitpoly.c	(revision 16060)
@@ -137,5 +137,5 @@
   }	
 
-  dgaussj (matrix, fit[0].Nelems, vector, 2); 
+  dgaussjordan (matrix, vector, fit[0].Nelems, 2); 
 
   for (i = 0; i < fit[0].Nelems; i++) {
Index: trunk/Ohana/src/relastro/src/mkpolyterm.c
===================================================================
--- trunk/Ohana/src/relastro/src/mkpolyterm.c	(revision 16040)
+++ trunk/Ohana/src/relastro/src/mkpolyterm.c	(revision 16060)
@@ -61,5 +61,5 @@
       beta[1][0] = poly2d_eval (yfit, Nx, Ny, Xo, Yo);
 
-      dgaussj (alpha, 2, beta, 1);
+      dgaussjordan (alpha, beta, 2, 1);
 
       Xo -= beta[0][0];
Index: trunk/Ohana/src/relastro/src/plotstuff.c
===================================================================
--- trunk/Ohana/src/relastro/src/plotstuff.c	(revision 16040)
+++ trunk/Ohana/src/relastro/src/plotstuff.c	(revision 16060)
@@ -79,5 +79,5 @@
 
   float *values;
-  int i, Nbytes;
+  int i;
 
   if (Npts < 1) return;
Index: trunk/Ohana/src/relastro/src/relastro.c
===================================================================
--- trunk/Ohana/src/relastro/src/relastro.c	(revision 16040)
+++ trunk/Ohana/src/relastro/src/relastro.c	(revision 16060)
@@ -55,5 +55,5 @@
 
     default:
-      fprintf (stderr, "programming error at %s:%s", __FILE__, __LINE__);
+      fprintf (stderr, "programming error at %s:%d", __FILE__, __LINE__);
       exit (2);
   }