From bcdb51cc79f1971d855f67a1bcd9b75359085994 Mon Sep 17 00:00:00 2001
From: morsch <morsch@f7af4fe6-9843-0410-8265-dc069ae4e863>
Date: Mon, 22 Jul 2002 10:19:12 +0000
Subject: [PATCH 1/1] Interface to pdfset and structa added.

---
 EVGEN/AliStructFuncType.cxx | 60 +++++++++++++++++++++++++++++++++++++
 EVGEN/AliStructFuncType.h   | 18 +++++++++++
 2 files changed, 78 insertions(+)
 create mode 100644 EVGEN/AliStructFuncType.cxx

diff --git a/EVGEN/AliStructFuncType.cxx b/EVGEN/AliStructFuncType.cxx
new file mode 100644
index 00000000000..ee8511e09cb
--- /dev/null
+++ b/EVGEN/AliStructFuncType.cxx
@@ -0,0 +1,60 @@
+/**************************************************************************
+ * Copyright(c) 1998-1999, ALICE Experiment at CERN, All rights reserved. *
+ *                                                                        *
+ * Author: The ALICE Off-line Project.                                    *
+ * Contributors are mentioned in the code where appropriate.              *
+ *                                                                        *
+ * Permission to use, copy, modify and distribute this software and its   *
+ * documentation strictly for non-commercial purposes is hereby granted   *
+ * without fee, provided that the above copyright notice appears in all   *
+ * copies and that both the copyright notice and this permission notice   *
+ * appear in the supporting documentation. The authors make no claims     *
+ * about the suitability of this software for any purpose. It is          *
+ * provided "as is" without express or implied warranty.                  *
+ **************************************************************************/
+
+/*
+$Log$
+*/
+
+
+#include "AliStructFuncType.h"
+
+#ifndef WIN32
+# define structa  structa_ 
+# define pdfset   pdfset_
+# define type_of_call
+#else
+# define structa  STRUCTA
+# define pdfset   PDFSET
+# define type_of_call _stdcall
+#endif
+
+
+extern "C" {
+    void type_of_call pdfset(char parm[20][20], Double_t value[20]);
+    
+    void type_of_call structa(Double_t& xx, Double_t& qq, Double_t& a,
+			       Double_t& upv, Double_t& dnv, Double_t& usea,
+			       Double_t& dsea,
+			       Double_t& str, Double_t& chm, Double_t& bot,
+			       Double_t& top, Double_t& gl);
+}
+
+ClassImp(AliStructFuncType)
+
+void AliStructFuncType::PdfSet(char parm[20][20], Double_t value[20])
+{
+    pdfset(parm, value);
+}
+
+void AliStructFuncType::StructA(Double_t xx, Double_t qq, Double_t a,
+				Double_t& upv, Double_t& dnv, Double_t& usea,
+				Double_t& dsea,
+				Double_t& str, Double_t& chm, Double_t& bot,
+				Double_t& top, Double_t& gl)
+{
+    structa(xx, qq, a, upv, dnv, usea, dsea, str, chm, bot, top, gl);
+}
+
+
diff --git a/EVGEN/AliStructFuncType.h b/EVGEN/AliStructFuncType.h
index fc103c011e2..89f723a9089 100644
--- a/EVGEN/AliStructFuncType.h
+++ b/EVGEN/AliStructFuncType.h
@@ -5,6 +5,22 @@
 
 /* $Id$ */
 
+#include <TObject.h>
+
+class AliStructFuncType : public TObject {
+    
+ public:
+    AliStructFuncType(){;}
+    virtual ~AliStructFuncType(){;}
+    static void PdfSet(char parm[20][20], Double_t value[20]);
+    static void StructA(Double_t xx, Double_t qq, Double_t a,
+			Double_t& upv, Double_t& dnv, Double_t& usea,
+			Double_t& dsea,
+			Double_t& str, Double_t& chm, Double_t& bot,
+			Double_t& top, Double_t& gl);
+    ClassDef(AliStructFuncType,1) // Library for partonic energy loss
+};
+
 typedef enum
 {
     kDOSet1     = 1006,
@@ -21,4 +37,6 @@ typedef enum
     kGRVLO98    = 5012
 }
 StrucFunc_t;
+
 #endif
+
-- 
2.39.3