Index: trunk/MagicSoft/Simulation/Detector/StarResponse/srreadparam.cxx
===================================================================
--- trunk/MagicSoft/Simulation/Detector/StarResponse/srreadparam.cxx	(revision 681)
+++ trunk/MagicSoft/Simulation/Detector/StarResponse/srreadparam.cxx	(revision 682)
@@ -19,7 +19,7 @@
 //=
 //= $RCSfile: srreadparam.cxx,v $
-//= $Revision: 1.1 $
-//= $Author: magicsol $ 
-//= $Date: 2001-02-23 10:13:44 $
+//= $Revision: 1.2 $
+//= $Author: blanch $ 
+//= $Date: 2001-03-05 11:01:44 $
 //=
 //=//////////////////////////////////////////////////////////////////////
@@ -72,4 +72,11 @@
 static float Simulated_Phe_u = 50.0;         //@< higher limit for phe loop
 static float Simulated_Phe_p = 0.1;          //@< precision for phe loop
+static float FADC_Shape=0.0;
+static float FADC_Ampl=MFADC_RESPONSE_AMPLITUDE;
+static float FADC_FWHM=MFADC_RESPONSE_FWHM;
+static float Trig_Shape=0.0;
+static float Trig_Ampl=1.0;
+static float Trig_FWHM=2.0;
+static int   Write_Root=0;
 //!@}
 
@@ -141,9 +148,26 @@
     case simulated_phe:       //@< limits for the phe loop
           
-      // get energy range
       sscanf(line, "%s %f %f %f", token, &Simulated_Phe_l, &Simulated_Phe_u,
 	     &Simulated_Phe_p);
 
       break;
+
+    case trig_properties:       //@< shape of trigger response
+          
+      sscanf(line, "%s %f %f %f", token, &Trig_Shape, &Trig_Ampl,
+	     &Trig_FWHM);
+
+      break;
+
+    case fadc_properties:       //@< shape of fadc response
+          
+      sscanf(line, "%s %f %f %f", token, &FADC_Shape, &FADC_Ampl,
+	     &FADC_FWHM);
+
+      break;
+
+    case write_root:          //@< Write histogram
+
+      Write_Root = 1;
 
     case end_file:            //@< end of the parameters file
@@ -207,4 +231,70 @@
 //!@}
 
+//!-----------------------------------------------------------
+// @name get_trig_properties 
+//
+// @desc return shape of the single phe trigger response
+//
+// @var *shape number to indentify the shape (0 ->gaussian)
+// @var *ampl  Amplitud of the gaussian response
+// @var *fwhm  FWHM of the gaussian response
+// @return  void
+//
+// @date Wed Feb 21 18:04:03 CET 2001
+//------------------------------------------------------------
+// @function 
+
+//!@{
+void
+get_trig_properties(float *shape, float *ampl, float *fwhm)
+{
+  *shape =  Trig_Shape;
+  *ampl =  Trig_Ampl;
+  *fwhm =  Trig_FWHM;
+}
+//!@}
+
+//!-----------------------------------------------------------
+// @name get_fadc_properties 
+//
+// @desc return shape of the single phe FADC response
+//
+// @var *shape number to indentify the shape (0 ->gaussian)
+// @var *ampl  Amplitud of the gaussian response
+// @var *fwhm  FWHM of the gaussian response
+// @return  void
+//
+// @date Wed Feb 21 18:04:03 CET 2001
+//------------------------------------------------------------
+// @function 
+
+//!@{
+void
+get_fadc_properties(float *shape, float *ampl, float *fwhm)
+{
+  *shape =  FADC_Shape;
+  *ampl =  FADC_Ampl;
+  *fwhm =  FADC_FWHM;
+}
+//!@}
+
+//!-----------------------------------------------------------
+// @name get_write_root
+//                                                
+// @desc get boolean to write root files
+//
+// @return   0 (false) or 1 (true)
+//
+// @date Fri Mar  2 16:17:26 CET 2001
+//------------------------------------------------------------
+// @function 
+
+//!@{
+int 
+get_write_root(void)
+{
+  return (Write_Root);
+}
+//!@}
 
 //=------------------------------------------------------------
@@ -214,4 +304,8 @@
 //
 // $Log: not supported by cvs2svn $
+// Revision 1.1  2001/02/23 10:13:44  magicsol
+// It read form an input card (defeult=starresponse.par) the parameters that
+// are needed for the starresponse program.
+//
 //!@}