Changeset 2455 in Sophya for trunk/SophyaExt/FitsIOServer

Timestamp:

Nov 17, 2003, 7:20:55 PM (22 years ago)

Author:

cmv

Message:

modifs mineures cmv 17/11/03

File:

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

trunk/SophyaExt/FitsIOServer/fabtwriter.cc

@@ -774 +774 @@
 
 /*!
-  Write an image to FITS file.
-  \warning TMatrix data(Naxis2,Naxis1)
+  Write an unsigned short image to FITS file.
+  \warning TMatrix data(Naxis2,Naxis1) means Data(row,column)
 */
 void FitsImg2DWriter::Write(TMatrix<uint_2>& data)
@@ -782 +782 @@
  uint_2* arr = new uint_2[Naxis[0]];
 
- for(int j=0;j<Naxis[1];j++) {
-   for(int i=0;i<Naxis[0];i++) arr[i] = data(j,i);
-   long deb = j*Naxis[0]+1, nel = Naxis[0]; int sta=0;
+ for(int l=0;l<Naxis[1];l++) {
+   for(int c=0;c<Naxis[0];c++) arr[c] = data(l,c);
+   long deb = l*Naxis[0]+1, nel = Naxis[0]; int sta=0;
    fits_write_img(FitsPtr,TUSHORT,deb,nel,arr,&sta);
    if(sta) {
-     printerror(sta); delete [] arr;
+     printerrorwrite("uint_2",0,l,sta); delete [] arr;
      throw
        NotAvailableOperation("FitsImg2DRd::Write(TMatrix<uint_2>): Error Writing Fits file\n");
@@ -796 +796 @@
 }
 
-/*! Write an image to FITS file. */
+/*! Write a long image to FITS file. */
 void FitsImg2DWriter::Write(TMatrix<int_4>& data)
 {
@@ -803 +803 @@
  int_4* arr = new int_4[Naxis[0]];
 
- for(int j=0;j<Naxis[1];j++) {
-   for(int i=0;i<Naxis[0];i++) arr[i] = data(j,i);
-   long deb = j*Naxis[0]+1, nel = Naxis[0]; int sta=0;
+ for(int l=0;l<Naxis[1];l++) {
+   for(int c=0;c<Naxis[0];c++) arr[c] = data(l,c);
+   long deb = l*Naxis[0]+1, nel = Naxis[0]; int sta=0;
    fits_write_img(FitsPtr,T,deb,nel,arr,&sta);
    if(sta) {
-     printerror(sta); delete [] arr;
+     printerrorwrite("int_4",0,l,sta); delete [] arr;
      throw
        NotAvailableOperation("FitsImg2DRd::Write(TMatrix<int_4>): Error Writing Fits file\n");
@@ -817 +817 @@
 }
 
-/*! Write an image to FITS file. */
+/*! Write a float image to FITS file. */
 void FitsImg2DWriter::Write(TMatrix<float>& data)
 {
@@ -823 +823 @@
  float* arr = new float[Naxis[0]];
 
- for(int j=0;j<Naxis[1];j++) {
-   for(int i=0;i<Naxis[0];i++) arr[i] = data(j,i);
-   long deb = j*Naxis[0]+1, nel = Naxis[0]; int sta=0;
+ for(int l=0;l<Naxis[1];l++) {
+   for(int c=0;c<Naxis[0];c++) arr[c] = data(l,c);
+   long deb = l*Naxis[0]+1, nel = Naxis[0]; int sta=0;
    fits_write_img(FitsPtr,TFLOAT,deb,nel,arr,&sta);
    if(sta) {
-     printerror(sta); delete [] arr;
+     printerrorwrite("float",0,l,sta); delete [] arr;
      throw
        NotAvailableOperation("FitsImg2DRd::Write(TMatrix<float>): Error Writing Fits file\n");
@@ -837 +837 @@
 }
 
-/*! Write an image to FITS file. */
+/*! Write a double image to FITS file. */
 void FitsImg2DWriter::Write(TMatrix<double>& data)
 {
@@ -843 +843 @@
  double* arr = new double[Naxis[0]];
 
- for(int j=0;j<Naxis[1];j++) {
-   for(int i=0;i<Naxis[0];i++) arr[i] = data(j,i);
-   long deb = j*Naxis[0]+1, nel = Naxis[0]; int sta=0;
+ for(int l=0;l<Naxis[1];l++) {
+   for(int c=0;c<Naxis[0];c++) arr[c] = data(l,c);
+   long deb = l*Naxis[0]+1, nel = Naxis[0]; int sta=0;
    fits_write_img(FitsPtr,TDOUBLE,deb,nel,arr,&sta);
    if(sta) {
-     printerror(sta); delete [] arr;
+     printerrorwrite("double",0,l,sta); delete [] arr;
      throw
        NotAvailableOperation("FitsImg2DRd::Write(TMatrix<double>): Error Writing Fits file\n");