Rluget and Rluset calling FORTRAN functions rluget_hijing and rluset_hijing added.

diff --git a/THijing/THijing.cxx b/THijing/THijing.cxx
index 6b814b69ff2e2d2cba10985cecfe31c016364217..95251e6b2dfdb2997e9022d0f995c9c4546d2e09 100644 (file)
--- a/THijing/THijing.cxx
+++ b/THijing/THijing.cxx
@@ -47,11 +47,15 @@
 # define hijset hijset_
 # define hijing hijing_
 # define profile profile_
 # define hijset hijset_
 # define hijing hijing_
 # define profile profile_

+# define rluget_hijing rluget_hijing__
+# define rluset_hijing rluset_hijing__

 # define type_of_call
 #else
 # define hijset HIJSET
 # define hijing HIJING
 # define profile PROFILE
 # define type_of_call
 #else
 # define hijset HIJSET
 # define hijing HIJING
 # define profile PROFILE

+# define rluget_hijing RLUGET_HIJING
+# define rluset_hijing RLUSET_HIJING

 # define type_of_call _stdcall
 #endif
 
 # define type_of_call _stdcall
 #endif
 


@@ -72,6 +76,11 @@ extern "C" float type_of_call profile(Float_t &);
 //                                   float &bmax, Long_t l_frame);
 extern "C" void type_of_call hijing(const char *, Float_t  &,
                                    Float_t &, const int);
 //                                   float &bmax, Long_t l_frame);
 extern "C" void type_of_call hijing(const char *, Float_t  &,
                                    Float_t &, const int);

+
+extern "C" void type_of_call rluget_hijing(Int_t & lfn, Int_t & move);
+
+extern "C" void type_of_call rluset_hijing(Int_t & lfn, Int_t & move);
+

 #else
 //extern "C" void type_of_call hijset(float &efrm, const char *frame, 
 //                                Long_t l_frame, const char *proj, 
 #else
 //extern "C" void type_of_call hijset(float &efrm, const char *frame, 
 //                                Long_t l_frame, const char *proj, 


@@ -1148,4 +1157,16 @@ Float_t  THijing::Profile(float b)
 }
 
 
 }
 
 

+void  THijing::Rluget(Int_t lfn, Int_t move)
+{
+// write seed to file
+  rluget_hijing(lfn, move);
+}
+
+
+void  THijing::Rluset(Int_t lfn, Int_t move)
+{
+// read seed from file 
+  rluset_hijing(lfn, move);
+}

 
 

diff --git a/THijing/THijing.h b/THijing/THijing.h
index 8bf276b71967a95d61f91070cfc168c3686e40e2..54ab4b70322a77488d2ce91ec261ee056cbd4416 100644 (file)
--- a/THijing/THijing.h
+++ b/THijing/THijing.h
@@ -195,7 +195,11 @@ public:
    virtual void         Hijing(const char* frame, float bmin, float bmax);
 
    virtual Float_t      Profile(float b);
    virtual void         Hijing(const char* frame, float bmin, float bmax);
 
    virtual Float_t      Profile(float b);

-   
+
+   // access to Jeteset routines
+
+   virtual void         Rluget(Int_t lfn, Int_t move=0);
+   virtual void         Rluset(Int_t lfn, Int_t move=0);   

 
    ClassDef(THijing,1)  //Interface to Hijing Event Generator
 };
 
    ClassDef(THijing,1)  //Interface to Hijing Event Generator
 };