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

Timestamp:

Oct 24, 2000, 11:12:33 AM (25 years ago)

Author:

ansari

Message:

Modifs pour rassembler les mots-cle FITS ds l'entete du fichier de sortie , Reza 24/10/2000

File:

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

trunk/SophyaProg/PMixer/tgrsr.cc

@@ -135 +135 @@
   FitsOutFile fios(arg[4]);
   fios.firstImageOnPrimaryHeader(false);  // use secondary header
+  DVList dvl;
+  if (typ == 0) 
+    dvl["PDMTYPE"] = "FGRSPEC";
+  dvl.SetComment("PDMTYPE", "Planck Data Model Type"); 
+  dvl["SOPHYVER"] =  SophyaVersion();
+  dvl.SetComment("SOPHYVER", "Sophya Version"); 
+  dvl["TGRSRKW"] =  "Test Keyword from tgrsr.cc";
+  fios.DVListIntoPrimaryHeader(dvl);  
   fios << mtx ; 
   PrtTim("End of Matrix->FITS ");