Changeset 3447 in Sophya

Timestamp:

Jan 31, 2008, 7:11:53 PM (18 years ago)

Author:

ansari

Message:

Ajout methodes Fits::ImageType(int_8 ) LONGLONG et FitsInOutFile::SetBScaleBZero()
Enregistrement conditionnel handlet FITS pour TArray<int_8>

Reza , 31/01/2008

Location:

trunk/SophyaExt/FitsIOServer

Files:

• fiosinit.cc (modified) (1 diff)
• fitsinoutfile.cc (modified) (1 diff)
• fitsinoutfile.h (modified) (2 diffs)

trunk/SophyaExt/FitsIOServer/fiosinit.cc

@@ -40 +40 @@
   FitsManager::RegisterHandler(new FitsArrayHandler<int_2> , 1, "TArray<int_2>");
   FitsManager::RegisterHandler(new FitsArrayHandler<int_4> , 1, "TArray<int_4> ");
+#ifdef TLONGLONG
+  FitsManager::RegisterHandler(new FitsArrayHandler<int_8> , 1, "TArray<int_8> ");
+#endif
   FitsManager::RegisterHandler(new FitsArrayHandler<r_4> , 1, "TArray<r_4>");
   FitsManager::RegisterHandler(new FitsArrayHandler< r_8 > , 1, "TArray<r_8>");

trunk/SophyaExt/FitsIOServer/fitsinoutfile.cc

@@ -370 +370 @@
   return bitpix;
 }
-
+/*-- Methode --*/
+ /*!
+   See cfitsio function fits_set_bscale() for more information 
+   Changes the BSCALE/BZERO values for read/write operations on the 
+   primary HDU, without changing the keyword values in the fits header
+ */
+void FitsInOutFile::SetBScaleBZero(double bscale, double bzero)
+{
+  int status = 0;
+  fits_set_bscale(fptr_, bscale, bzero, &status);
+  FitsCheckStatus(status, "FitsInOutFile::SetBScaleBZero() Error: ");
+}
 /*-- Methode --*/
 LONGLONG FitsInOutFile::GetNbRows()  const

trunk/SophyaExt/FitsIOServer/fitsinoutfile.h

@@ -37 +37 @@
  static int ImageType(int_2  d) { return SHORT_IMG; }
  static int ImageType(int_4  d) { return LONG_IMG; }
+#ifdef LONGLONGIMG
+ static int ImageType(int_8  d) { return LONGLONG_IMG; }
+#else 
+ static int ImageType(int_8  d)
+   { throw FitsIOException("FitsImageType: Unsupported data type int_8"); }
+#endif
+
  static int ImageType(r_4  d)   { return FLOAT_IMG; }
  static int ImageType(r_8  d)   { return DOUBLE_IMG; }
@@ -121 +128 @@
  int               GetImageHDUInfo(int& naxis, LONGLONG* naxes) const;
 
+ //! Change BSCALE/BZERO when reading/writing primary HDU
+ void              SetBScaleBZero(double bscale=1., double bzero=0.);
+        
  //---- BINARY_TBL or ASCII_TBL 
  //! Return number of rows in a table HDU