Changeset 39530

Timestamp:

Apr 16, 2016, 6:57:43 AM (10 years ago)

Author:

eugene

Message:

gzip cannot handle tiles with length > 2^{15, force smaller tiles}

File:

• trunk/Ohana/src/libfits/table/F_compress_T.c (modified) (1 diff)

trunk/Ohana/src/libfits/table/F_compress_T.c

@@ -69 +69 @@
   unsigned long int Ntile, ztilelast;
   if (!ztilelen) ztilelen = srcheader->Naxis[1];
+
+  // avoid tiles with size > 31bit (2GB)
+  // maximum tile size = ztilelen * 8
+  unsigned long maxTileSize = 0x7fffffff / 8;
+  if (ztilelen >= maxTileSize) {
+    long nScale = ztilelen / maxTileSize;
+    if (ztilelen % nScale) nScale ++;
+    ztilelen = ztilelen / nScale;
+  }
 
   if (!srcheader->Naxis[1]) {