Changeset 3047 in Sophya for trunk/SophyaExt/FitsIOServer/fitsinoutfile.cc

Timestamp:

Aug 11, 2006, 10:42:10 AM (19 years ago)

Author:

ansari

Message:

Ajout FitsInOutFile::SkipEmptyFirstHDU() , positionnement sur HDU 2 si HDU 1 vide ds operateur >> lisant des tables + autres petites corrections , Reza 11/08/2006

File:

• trunk/SophyaExt/FitsIOServer/fitsinoutfile.cc (modified) (1 diff)

trunk/SophyaExt/FitsIOServer/fitsinoutfile.cc

@@ -322 +322 @@
     return MoveRelToHDU(1);
   else return -1;
+}
+
+/*-- Methode --*/
+/*! 
+  Skip HDU 1 if NAXIS=0 (no data), on a file opened for reading.
+  return true if moved to HDU No 2
+*/
+bool FitsInOutFile::SkipEmptyFirstHDU()
+{
+  if (fptr_ == NULL) return false;
+  if (mode_ == Fits_Create) return false;
+  if (CurrentHDU() != 1) return false;
+  int naxis = 2;
+  long naxes[2];
+  GetImageHDUInfo(naxis, naxes);
+  if ((naxis == 0) &&  (NbHDUs() > 1)) {
+    MoveRelToHDU(1);
+    return true; 
+  }
+  return false; 
 }