Add interface to pythia routine pygive

  void TPythia6::Pygive(const char *param)


git-svn-id: http://root.cern.ch/svn/root/trunk@32513 27541ba8-7e3a-0410-8455-c3a389f83636

montecarlo/pythia6/inc/TPythia6.h

@@ -316,6 +316,7 @@ public:
    void             Py1ent(Int_t line, Int_t kf, Double_t pe, Double_t theta, Double_t phi);
    void             Pyexec();
    void             Pyhepc(int mconv);
+   void             Pygive(const char *param);
    void             Pyinit(char* frame, char* beam, char* target, double wint);
    void             Pylist(int flag);
    double           Pymass(int kf);

montecarlo/pythia6/src/TPythia6.cxx

@@ -77,6 +77,7 @@ TPythia6*  TPythia6::fgInstance = 0;
 # define pyedit pyedit_
 # define pyexec pyexec_
 # define pyhepc pyhepc_
+# define pygive pygive_
 # define pylist pylist_
 # define pymass pymass_
 # define pyname pyname_
@@ -110,6 +111,7 @@ TPythia6*  TPythia6::fgInstance = 0;
 # define pycomp PYCOMP
 # define pyedit PYEDIT
 # define pyexec PYEXEC
+# define pygive PYGIVE
 # define pyhepc PYHEPC
 # define pylist PYLIST
 # define pymass PYMASS
@@ -134,6 +136,7 @@ extern "C" void type_of_call pylist(int *key);
 extern "C" void type_of_call pyedit(int *medit);
 extern "C" void type_of_call pydiff();
 extern "C" void type_of_call pyexec();
+extern "C" void type_of_call pygive(const char *param, Long_t lparam);
 extern "C" void type_of_call pyhepc(int *mconv);
 extern "C" void type_of_call pylist(int *flag);
 extern "C" int  type_of_call pychge(int *kf);
@@ -551,6 +554,12 @@ void TPythia6::Pyexec() {
    pyexec();
 }
 
+void TPythia6::Pygive(const char *param) {
+   //interface with fortran routine pygive
+   Long_t lparam = strlen(param);
+   pygive(param,lparam);
+}
+
 void TPythia6::Pyhepc(int mconv) {
    //interface with fortran routine pyhepc
    pyhepc(&mconv);