Changeset 2169 in Sophya for trunk/SophyaExt/FitsIOServer/fabtwriter.cc

Timestamp:

Aug 8, 2002, 7:48:02 PM (23 years ago)

Author:

cmv

Message:

long long gestion cfistio>2.4 (compat <2.4) cmv 8/8/2002

File:

• trunk/SophyaExt/FitsIOServer/fabtwriter.cc (modified) (6 diffs)

trunk/SophyaExt/FitsIOServer/fabtwriter.cc

@@ -179 +179 @@
           if BINARY_TBL and tform="" or tform=NULL)
   \param tunit : fits tunit definition (optional)
-  \param datatype : TBYTE TSHORT TLONG (TINT32BIT) TFLOAT TDOUBLE
+  \param datatype : TBYTE TSHORT TLONG (TINT32BIT) TLONGLONG TFLOAT TDOUBLE
                     TUSHORT TULONG. That parameter is only use in case
                     of a BINARY_TBL table when tform is not defined).
@@ -201 +201 @@
    if(datatype==TBYTE)          strcpy(str,"1B");
    else if(datatype==TSHORT)    strcpy(str,"1I");
-   //CMV$CHECK Commentaire temporaire (il faut au moins cfitsio 2204)
-   //else if(datatype==TINT32BIT) strcpy(str,"1J");
    else if(datatype==TLONG)     strcpy(str,"1J");
+#ifdef TINT32BIT
+   else if(datatype==TINT32BIT) strcpy(str,"1J");
+#endif
+#ifdef TLONGLONG
+   else if(datatype==TLONGLONG) strcpy(str,"1K");
+#endif
    else if(datatype==TFLOAT)    strcpy(str,"1E");
    else if(datatype==TDOUBLE)   strcpy(str,"1D");
@@ -310 +314 @@
 }
 
-/*! Write long data to FITS file (see below) */
+/*! Write long (4 Bytes) data to FITS file (see below) */
 void FitsABTWriter::Write(int col,long row,int_4 val)
 {
@@ -319 +323 @@
   if(fits_write_col(FitsPtr,T,col+1,row+1,1,1,&val,&sta))
     printerrorwrite("long",col,row,sta);
+}
+
+/*! Write long long (8 Bytes) data to FITS file (see below) */
+void FitsABTWriter::Write(int col,long row,int_8 val)
+{
+#ifdef TLONGLONG
+  if(FirstTime) createtbl();
+  int sta=0;
+  if(fits_write_col(FitsPtr,TLONGLONG,col+1,row+1,1,1,&val,&sta))
+    printerrorwrite("long long",col,row,sta);
+#else
+  throw PException("FitsABTWriter::Write(..,int_8) Not in that cfitsio version");
+#endif
 }
 
@@ -348 +365 @@
       that is "N-1" is the number of the last row written.
 */
-/*! Write a vector of long data to FITS file (see below) */
+/*! Write a vector of long (4 Bytes) data to FITS file (see below) */
 long FitsABTWriter::Write(int col,long row,TVector<int_4>& val)
 {
@@ -359 +376 @@
     printerrorwrite("long",col,row,sta);
   return row+nel;
+}
+
+/*! Write a vector of long long (8 Bytes) data to FITS file (see below) */
+long FitsABTWriter::Write(int col,long row,TVector<int_8>& val)
+{
+#ifdef TLONGLONG
+  if(FirstTime) createtbl();
+  long nel = val.Size();
+  int sta=0;
+  if(fits_write_col(FitsPtr,TLONGLONG,col+1,row+1,1,nel,val.Data(),&sta))
+    printerrorwrite("long long",col,row,sta);
+  return row+nel;
+#else
+  throw PException("FitsABTWriter::Write(..,TVector<int_8>&) Not in that cfitio version");
+#endif
 }