Index: /trunk/Ohana/src/tools/src/fits_insert.c
===================================================================
--- /trunk/Ohana/src/tools/src/fits_insert.c	(revision 16995)
+++ /trunk/Ohana/src/tools/src/fits_insert.c	(revision 16996)
@@ -7,5 +7,5 @@
 int main (int argc, char **argv) {
 
-  int i, N, status, EXTNUM, Nbytes, skip;
+  int i, N, status, EXTNUM, Nbytes, skip, Delete, DeleteStart, DeleteStop;
   int Nreserved, start_size;
   char *p, keyword[16], line[256];
@@ -26,4 +26,15 @@
   }
 
+  /* check for delete options */
+  Delete = FALSE;
+  if ((N = get_argument (argc, argv, "-delete"))) {
+    Delete = TRUE;
+    remove_argument (N, &argc, argv);
+    DeleteStart = atoi (argv[N]);
+    remove_argument (N, &argc, argv);
+    DeleteStop = atoi (argv[N]);
+    remove_argument (N, &argc, argv);
+  }
+
   /* check for command line options */
   EXTNUM = -1; /* -1 is primary header */
@@ -35,5 +46,5 @@
 
   if (argc != 3) {
-    fprintf (stderr, "USAGE: gfits_insert (image.fits) (header.hdx) [-X N] [-comment N line]\n");
+    fprintf (stderr, "USAGE: gfits_insert (image.fits) (header.hdx) [-X N] [-comment N line] [-delete N]\n");
     exit (2);
   }
@@ -70,4 +81,14 @@
     if (p != (char *) NULL) {
       strncpy (p, line, 80);
+    }
+  }
+
+  /* wipe out lines from DeleteStart to < DeleteStop */ 
+  if (Delete) {
+    for (i = DeleteStart; i < DeleteStop; i++) {
+      p = gfits_header_lineno (&header, i);
+      if (p != (char *) NULL) {
+	memset (p, ' ', 80);
+      }
     }
   }