Interface to pdfset and structa added.
authormorsch <morsch@f7af4fe6-9843-0410-8265-dc069ae4e863>
Mon, 22 Jul 2002 10:19:12 +0000 (10:19 +0000)
committermorsch <morsch@f7af4fe6-9843-0410-8265-dc069ae4e863>
Mon, 22 Jul 2002 10:19:12 +0000 (10:19 +0000)
EVGEN/AliStructFuncType.cxx [new file with mode: 0644]
EVGEN/AliStructFuncType.h

diff --git a/EVGEN/AliStructFuncType.cxx b/EVGEN/AliStructFuncType.cxx
new file mode 100644 (file)
index 0000000..ee8511e
--- /dev/null
@@ -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);
+}
+
+
index fc103c0..89f723a 100644 (file)
@@ -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
+