Changeset 2355 in Sophya for trunk/ArchTOIPipe/Kernel

Timestamp:

Mar 28, 2003, 5:06:40 PM (23 years ago)

Author:

cecile

Message:

ok

File:

• trunk/ArchTOIPipe/Kernel/fitsringwtr.cc (modified) (3 diffs)

trunk/ArchTOIPipe/Kernel/fitsringwtr.cc

@@ -4 +4 @@
 //                               Christophe Magneville
 //                               Reza Ansari
-// $Id: fitsringwtr.cc,v 1.5 2003-03-10 13:33:03 aubourg Exp $
+// $Id: fitsringwtr.cc,v 1.6 2003-03-28 16:06:40 cecile Exp $
 
 #include "fitsringwtr.h"
@@ -60 +60 @@
   fits_unlock();
   
+  char* ttype = "DATA";
+  char* tform = "1D";
+  char xname[100];
+  
   for (int ring = 0; ring<nRings; ring++) {
-    char* ttype = "DATA";
-    char* tform = "1D";
-    char xname[100];
     sprintf(xname, "CRING_%d", ring);
 
@@ -84 +85 @@
       fits_lock();
       fits_write_col(fptr, TDOUBLE, 1,i+1,1,1, &data, &fstatus);
-      fits_unlock();
+      fits_unlock();      
     }
-
-    fits_lock();
-    fits_close_file(fptr, &fstatus);
-    fits_report_error(stderr, fstatus);
-    fits_unlock();
   }
-
+  
+  fits_lock();
+  fits_close_file(fptr, &fstatus);
+  fits_report_error(stderr, fstatus);
+  fits_unlock();
+  cout << "fitsringwriter done " << endl;
 }