Record changes.
[u/mrichter/AliRoot.git] / LHAPDF / AliStructFuncType.cxx
1 /**************************************************************************
2  * Copyright(c) 1998-1999, ALICE Experiment at CERN, All rights reserved. *
3  *                                                                        *
4  * Author: The ALICE Off-line Project.                                    *
5  * Contributors are mentioned in the code where appropriate.              *
6  *                                                                        *
7  * Permission to use, copy, modify and distribute this software and its   *
8  * documentation strictly for non-commercial purposes is hereby granted   *
9  * without fee, provided that the above copyright notice appears in all   *
10  * copies and that both the copyright notice and this permission notice   *
11  * appear in the supporting documentation. The authors make no claims     *
12  * about the suitability of this software for any purpose. It is          *
13  * provided "as is" without express or implied warranty.                  *
14  **************************************************************************/
15
16 /* $Id$ */
17
18 // Helper class to interface pdflib and the TPythia 
19 // the c++ interface for Pythia
20 // The pdf codes used  in pdflib are mapped
21 // to a more user friendly enumeration type.
22 // Author: andreas.morsch@cern.ch
23
24 #include "AliStructFuncType.h"
25
26 #ifndef WIN32
27 # define structa  structa_ 
28 # define pdfset   pdfset_
29 # define type_of_call
30 #else
31 # define structa  STRUCTA
32 # define pdfset   PDFSET
33 # define type_of_call _stdcall
34 #endif
35
36
37 extern "C" {
38     void type_of_call pdfset(char parm[20][20], Double_t value[20]);
39     
40     void type_of_call structa(Double_t& xx, Double_t& qq, Double_t& a,
41                                Double_t& upv, Double_t& dnv, Double_t& usea,
42                                Double_t& dsea,
43                                Double_t& str, Double_t& chm, Double_t& bot,
44                                Double_t& top, Double_t& gl);
45 }
46
47 ClassImp(AliStructFuncType)
48
49 void AliStructFuncType::PdfSet(char parm[20][20], Double_t value[20])
50 {
51     pdfset(parm, value);
52 }
53
54 void AliStructFuncType::StructA(Double_t xx, Double_t qq, Double_t a,
55                                 Double_t& upv, Double_t& dnv, Double_t& usea,
56                                 Double_t& dsea,
57                                 Double_t& str, Double_t& chm, Double_t& bot,
58                                 Double_t& top, Double_t& gl)
59 {
60     structa(xx, qq, a, upv, dnv, usea, dsea, str, chm, bot, top, gl);
61 }
62
63