Changeset 18106 for trunk/Ohana/src/libfits/matrix/F_compress_M.c

Timestamp:

Jun 12, 2008, 5:19:10 PM (18 years ago)

Author:

eugene

Message:

more robust check for compression

File:

• trunk/Ohana/src/libfits/matrix/F_compress_M.c (modified) (1 diff)

trunk/Ohana/src/libfits/matrix/F_compress_M.c

@@ -426 +426 @@
 int gfits_extension_is_compressed (Header *header) {
 
-    int has_extname, has_zimage, zimage;
-    char extname[80];
-
+    int has_extension, has_extname, has_zimage, zimage;
+    char extname[80], extension[80];
+
+    has_extension = gfits_scan (header, "XTENSION", "%s", 1, extension);
     has_extname = gfits_scan (header, "EXTNAME", "%s", 1, extname);
     has_zimage  = gfits_scan (header, "ZIMAGE", "%t", 1, &zimage);
 
+    if (has_extension && !strcmp (extension, "IMAGE")) return (FALSE);
     if (has_zimage && zimage) return (TRUE);
     if (has_extname) {