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

Timestamp:

Oct 3, 2011, 6:32:44 PM (14 years ago)

Author:

cmv

Message:

read/write string, complex, bufferisation enlevee pour FitsABTColRd1F, cmv 03/10/2011

File:

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

trunk/SophyaExt/FitsIOServer/fabtwriter.cc

@@ -551 +551 @@
 
 /*! Write a character string to FITS file */
-void FitsABTWriter::Write(int col,LONGLONG row,const char* val)
-{
-  if(FirstTime) createtbl();
-  int sta=0;
-  if(fits_write_col(FitsPtr,TSTRING,col+1,row+1,1,1,&val,&sta))
+void FitsABTWriter::Write(int col,LONGLONG row,long nfirstel,const char* val)
+{
+  if(FirstTime) createtbl();
+  int sta=0;
+  if(fits_write_col(FitsPtr,TSTRING,col+1,row+1,nfirstel+1,1,&val,&sta))
     printerrorwrite("char*",col,row,sta);
 }
@@ -649 +649 @@
   int sta=0;
   if(fits_write_col(FitsPtr,TDOUBLE,col+1,row+1,nfirstel+1,1,&val,&sta))
+    printerrorwrite("double",col,row,sta);
+}
+
+/*! Write complex float data to FITS file (see below) */
+void FitsABTWriter::Write(int col,LONGLONG row,long nfirstel,complex<r_4> val)
+{
+  if(FirstTime) createtbl();
+  int sta=0;
+  r_4 tval[2]; tval[0] = val.real(); tval[1] = val.imag();
+  if(fits_write_col(FitsPtr,TCOMPLEX,col+1,row+1,nfirstel+1,1,&tval,&sta))
+    printerrorwrite("double",col,row,sta);
+}
+
+/*! Write complex double data to FITS file (see below) */
+void FitsABTWriter::Write(int col,LONGLONG row,long nfirstel,complex<r_8> val)
+{
+  if(FirstTime) createtbl();
+  int sta=0;
+  r_8 tval[2]; tval[0] = val.real(); tval[1] = val.imag();
+  if(fits_write_col(FitsPtr,TDBLCOMPLEX,col+1,row+1,nfirstel+1,1,&tval,&sta))
     printerrorwrite("double",col,row,sta);
 }