Add interface to fortran function Pytune

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

montecarlo/pythia6/inc/TPythia6.h

@@ -325,6 +325,7 @@ public:
    void             Pyrset(int lun, int move);
    void             Pystat(int flag);
    void             Pytest(int flag);
+   void             Pytune(int itune);
    void             Pyupda(int mupda, int lun);
    void             SetupTest();
 

montecarlo/pythia6/src/TPythia6.cxx

@@ -142,6 +142,7 @@ extern "C" int  type_of_call pyr(int *dummy);
 extern "C" int  type_of_call pyrget(int *lun, int *move);
 extern "C" int  type_of_call pyrset(int *lun, int *move);
 extern "C" int  type_of_call pytest(int *flag);
+extern "C" int  type_of_call pytune(int *itune);
 extern "C" int  type_of_call pyupda(int *mupda, int *lun);
 extern "C" void type_of_call py1ent(Int_t&, Int_t&, Double_t&, Double_t&, Double_t&);
 
@@ -595,6 +596,11 @@ void TPythia6::Pytest(int flag) {
    pytest(&flag);
 }
 
+void TPythia6::Pytune(int itune) {
+   //interface with fortran routine pytune
+   pytune(&itune);
+}
+
 void TPythia6::Pyupda(int mupda, int lun) {
    //interface with fortran routine pyupda
    pyupda(&mupda,&lun);