Changeset 1239 in Sophya for trunk/SophyaProg/PMixer/tgrsr.cc

Timestamp:

Oct 18, 2000, 10:58:53 PM (25 years ago)

Author:

ansari

Message:

Modifs FITS , Reza 18/10/2000

File:

• trunk/SophyaProg/PMixer/tgrsr.cc (modified) (1 diff)

trunk/SophyaProg/PMixer/tgrsr.cc

@@ -133 +133 @@
   cout << "\n Writing Matrix NRows= " << mtx.NRows() << "  NCols= " 
        << mtx.NCols() << " to FITS file: " << (string)(arg[4]) << endl;
-  FITS_TArray<r_8> fios(&mtx);
-  fios.Write(arg[4]);   // $CHECK$ A passer em HDU=2 , Reza 31/7/2000
+  FitsOutFile fios(arg[4]);
+  fios.firstImageOnPrimaryHeader(false);  // use secondary header
+  fios << mtx ; 
   PrtTim("End of Matrix->FITS ");
   }
 
   if (narg > 5) { // Writing ImageR4 fo FITS file
-    cout << "wrting ImageR4(" << npt << ", 2) to FITS file: " 
+    cout << "writing ImageR4(" << npt << ", 2) to FITS file: " 
          << (string)(arg[5]) << endl;
-    FITS_TArray<r_4> fios(&img);
-    fios.Write(arg[5]);
+    FitsOutFile fios(arg[5]);
+    fios.firstImageOnPrimaryHeader(true);  // use primary  header
+    fios << img ; 
     PrtTim("End of ImageR4->FITS ");
   }