Changeset 669 in Sophya for trunk/SophyaLib/SkyT/tgrsr.cc

Timestamp:

Nov 29, 1999, 5:59:13 PM (26 years ago)

Author:

ansari

Message:

Adaptation a PPersist de SpectralResponse - Suite 1 , Sophie 29/11/99

File:

• trunk/SophyaLib/SkyT/tgrsr.cc (modified) (2 diffs)

trunk/SophyaLib/SkyT/tgrsr.cc

@@ -29 +29 @@
   if ((narg < 5) || ((narg>1) && (strcmp(arg[1],"-h") == 0)) )  {
     cout << " tgrsr : Generation of RadSpectraVec and SpecRespVec in FITS  " << endl;
-    cout << " Usage: tgrsr 0/1 Params NPoints FitsFileName [ImageR4FITSName]" << endl;
+    cout << " Usage: tgrsr 0/1 Params NPoints FitsFileName [ImageR4FITSName] [ppfname] " << endl;
     cout << " 0 -> GaussianFilter  T = A exp(((nu-nu0)/dnu)^2" << endl;
     cout << " Params : A,Nu0,DNu,MinFreq,MaxFreq " << endl;
@@ -82 +82 @@
       img(k,1) = tnu(k);
     }
+    if ((typ == 0) && (narg > 6)) { // Writing to ppf  file
+      cout << "writing SpecRespVec(" << npt << ") to PPF file: " 
+           << (string)(arg[6]) << endl;
+      cout << sr ; 
+      cout << srv ; 
+      {
+        POutPersist pos(arg[6]);
+        pos << srv;
+      }
+      PrtTim("End of ImageR4->PPF ");
+    }
+
   }
   else { // Generation de RadSpectraVec from PowerLawSpectra