Changeset 2102 in Sophya for trunk/ArchTOIPipe/ProcWSophya/toi2toi_addsp.cc

Timestamp:

Jul 16, 2002, 6:38:48 PM (23 years ago)

Author:

cecile

Message:

* empty log message *

File:

• trunk/ArchTOIPipe/ProcWSophya/toi2toi_addsp.cc (modified) (3 diffs)

trunk/ArchTOIPipe/ProcWSophya/toi2toi_addsp.cc

@@ -3 +3 @@
 //                               Christophe Magneville
 //                               Reza Ansari
-// $Id: toi2toi_addsp.cc,v 1.2 2002-07-16 15:26:19 cecile Exp $
+// $Id: toi2toi_addsp.cc,v 1.3 2002-07-16 16:38:48 cecile Exp $
 
 #include "machdefs.h"
@@ -45 +45 @@
   declareInput("lat"); 
  
-  declareOutput("BoloOut");  
+  declareOutput("BoloOut");
 }
 
@@ -131 +131 @@
 return;      
 }
+
+//--------------------------------------------------------------------
+//--------------------------------------------------------------------
+//--------------------------------------------------------------------
+//--------------------------------------------------------------------
+//--------------------------------------------------------------------
+//--------------------------------------------------------------------
+void Fill_Info_scr(Info_src* scr, int_4 ns)
+{
+  for (int i=0; i<ns ; i++){
+    scr[i].glon = 80.+i*10.;
+    scr[i].glat = 0.;
+    scr[i].amp  = 1.;
+    scr[i].tau1 = 0.5;
+    scr[i].tau2 = 0.5;
+  }
+}