Index: /tags/ipp-20110406/Ohana/src/libfits/table/F_get_column.c
===================================================================
--- /tags/ipp-20110406/Ohana/src/libfits/table/F_get_column.c	(revision 31371)
+++ /tags/ipp-20110406/Ohana/src/libfits/table/F_get_column.c	(revision 31372)
@@ -30,9 +30,9 @@
   tlabel[0] = 0;
   if (!gfits_scan (header, "TFIELDS", "%d", 1, &Nfields)) return (NULL);
-  for (i = 1; strcmp (label, tlabel) && (i < Nfields + 1); i++) {
+  for (i = 1; strcasecmp (label, tlabel) && (i < Nfields + 1); i++) {
     sprintf (field, "TTYPE%d", i);
     gfits_scan (header, field, "%s", 1, tlabel);
   }
-  if (strcmp (label, tlabel)) return (NULL);
+  if (strcasecmp (label, tlabel)) return (NULL);
   N = i - 1;
 
@@ -137,9 +137,9 @@
   tlabel[0] = 0;
   gfits_scan (header, "TFIELDS", "%d", 1, &Nfields);
-  for (i = 1; strcmp (label, tlabel) && (i < Nfields + 1); i++) {
+  for (i = 1; strcasecmp (label, tlabel) && (i < Nfields + 1); i++) {
     sprintf (field, "TTYPE%d", i);
     gfits_scan (header, field, "%s", 1, tlabel);
   }
-  if (strcmp (label, tlabel)) return (FALSE);
+  if (strcasecmp (label, tlabel)) return (FALSE);
   N = i - 1;
 
@@ -166,9 +166,9 @@
   tlabel[0] = 0;
   gfits_scan (header, "TFIELDS", "%d", 1, &Nfields);
-  for (i = 1; strcmp (label, tlabel) && (i < Nfields + 1); i++) {
+  for (i = 1; strcasecmp (label, tlabel) && (i < Nfields + 1); i++) {
     sprintf (field, "TTYPE%d", i);
     gfits_scan (header, field, "%s", 1, tlabel);
   }
-  if (strcmp (label, tlabel)) return (FALSE);
+  if (strcasecmp (label, tlabel)) return (FALSE);
   N = i - 1;
 
@@ -291,9 +291,9 @@
   tlabel[0] = 0;
   gfits_scan (header, "TFIELDS", "%d", 1, &Nfields);
-  for (i = 1; strcmp (label, tlabel) && (i < Nfields + 1); i++) {
+  for (i = 1; strcasecmp (label, tlabel) && (i < Nfields + 1); i++) {
     sprintf (field, "TTYPE%d", i);
     gfits_scan (header, field, "%s", 1, tlabel);
   }
-  if (strcmp (label, tlabel)) return (FALSE);
+  if (strcasecmp (label, tlabel)) return (FALSE);
   N = i - 1;
 
@@ -321,9 +321,9 @@
   tlabel[0] = 0;
   gfits_scan (header, "TFIELDS", "%d", 1, &Nfields);
-  for (i = 1; strcmp (label, tlabel) && (i < Nfields + 1); i++) {
+  for (i = 1; strcasecmp (label, tlabel) && (i < Nfields + 1); i++) {
     sprintf (field, "TTYPE%d", i);
     gfits_scan (header, field, "%s", 1, tlabel);
   }
-  if (strcmp (label, tlabel)) return (FALSE);
+  if (strcasecmp (label, tlabel)) return (FALSE);
   N = i - 1;
 
Index: /tags/ipp-20110406/Ohana/src/libfits/table/F_set_column.c
===================================================================
--- /tags/ipp-20110406/Ohana/src/libfits/table/F_set_column.c	(revision 31371)
+++ /tags/ipp-20110406/Ohana/src/libfits/table/F_set_column.c	(revision 31372)
@@ -31,9 +31,9 @@
   tlabel[0] = 0;
   gfits_scan (header, "TFIELDS", "%d", 1, &Nfields);
-  for (i = 1; strcmp (label, tlabel) && (i < Nfields + 1); i++) {
+  for (i = 1; strcasecmp (label, tlabel) && (i < Nfields + 1); i++) {
     sprintf (field, "TTYPE%d", i);
     gfits_scan (header, field, "%s", 1, tlabel);
   }
-  if (strcmp (label, tlabel)) return (FALSE);
+  if (strcasecmp (label, tlabel)) return (FALSE);
   N = i - 1;