Merging the VirtualMC branch to the main development branch (HEAD)
[u/mrichter/AliRoot.git] / EVGEN / 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 /*
17 $Log$
18 Revision 1.1.2.1  2002/07/24 08:56:29  alibrary
19 Updating EVGEN on TVirtulaMC
20
21 Revision 1.1  2002/07/22 10:19:12  morsch
22 Interface to pdfset and structa added.
23
24 */
25
26
27 #include "AliStructFuncType.h"
28
29 #ifndef WIN32
30 # define structa  structa_ 
31 # define pdfset   pdfset_
32 # define type_of_call
33 #else
34 # define structa  STRUCTA
35 # define pdfset   PDFSET
36 # define type_of_call _stdcall
37 #endif
38
39
40 extern "C" {
41     void type_of_call pdfset(char parm[20][20], Double_t value[20]);
42     
43     void type_of_call structa(Double_t& xx, Double_t& qq, Double_t& a,
44                                Double_t& upv, Double_t& dnv, Double_t& usea,
45                                Double_t& dsea,
46                                Double_t& str, Double_t& chm, Double_t& bot,
47                                Double_t& top, Double_t& gl);
48 }
49
50 ClassImp(AliStructFuncType)
51
52 void AliStructFuncType::PdfSet(char parm[20][20], Double_t value[20])
53 {
54     pdfset(parm, value);
55 }
56
57 void AliStructFuncType::StructA(Double_t xx, Double_t qq, Double_t a,
58                                 Double_t& upv, Double_t& dnv, Double_t& usea,
59                                 Double_t& dsea,
60                                 Double_t& str, Double_t& chm, Double_t& bot,
61                                 Double_t& top, Double_t& gl)
62 {
63     structa(xx, qq, a, upv, dnv, usea, dsea, str, chm, bot, top, gl);
64 }
65
66