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

Timestamp:

Aug 9, 2002, 3:03:41 PM (23 years ago)

Author:

cmv

Message:

long long et uint_2 cmv 9/8/02

File:

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

trunk/SophyaExt/FitsIOServer/fabtwriter.cc

@@ -306 +306 @@
   \endverbatim
 */
-void FitsABTWriter::Write(int col,long row,short val)
+void FitsABTWriter::Write(int col,long row,int_2 val)
 {
   if(FirstTime) createtbl();
@@ -312 +312 @@
   if(fits_write_col(FitsPtr,TSHORT,col+1,row+1,1,1,&val,&sta))
     printerrorwrite("short",col,row,sta);
+}
+
+/*! Write unsigned short (2 Bytes) data to FITS file (see below) */
+void FitsABTWriter::Write(int col,long row,uint_2 val)
+{
+  if(FirstTime) createtbl();
+  int sta=0;
+  if(fits_write_col(FitsPtr,TUSHORT,col+1,row+1,1,1,&val,&sta))
+    printerrorwrite("unsigned short",col,row,sta);
 }
 
@@ -365 +374 @@
       that is "N-1" is the number of the last row written.
 */
+/*! Write a vector of unsigned short (2 Bytes) data to FITS file (see below) */
+long FitsABTWriter::Write(int col,long row,TVector<uint_2>& val)
+{
+  if(FirstTime) createtbl();
+  long nel = val.Size();
+  int sta=0;
+  if(fits_write_col(FitsPtr,TUSHORT,col+1,row+1,1,nel,val.Data(),&sta))
+    printerrorwrite("long",col,row,sta);
+  return row+nel;
+}
+
 /*! Write a vector of long (4 Bytes) data to FITS file (see below) */
 long FitsABTWriter::Write(int col,long row,TVector<int_4>& val)
@@ -389 +409 @@
   return row+nel;
 #else
-  throw PException("FitsABTWriter::Write(..,TVector<int_8>&) Not in that cfitio version");
+  throw PException("FitsABTWriter::Write(..,TVector<int_8>&) Not in that cfitsio version");
 #endif
 }