Interface to pdfset and structa added.
[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 */
19
20
21 #include "AliStructFuncType.h"
22
23 #ifndef WIN32
24 # define structa  structa_ 
25 # define pdfset   pdfset_
26 # define type_of_call
27 #else
28 # define structa  STRUCTA
29 # define pdfset   PDFSET
30 # define type_of_call _stdcall
31 #endif
32
33
34 extern "C" {
35     void type_of_call pdfset(char parm[20][20], Double_t value[20]);
36     
37     void type_of_call structa(Double_t& xx, Double_t& qq, Double_t& a,
38                                Double_t& upv, Double_t& dnv, Double_t& usea,
39                                Double_t& dsea,
40                                Double_t& str, Double_t& chm, Double_t& bot,
41                                Double_t& top, Double_t& gl);
42 }
43
44 ClassImp(AliStructFuncType)
45
46 void AliStructFuncType::PdfSet(char parm[20][20], Double_t value[20])
47 {
48     pdfset(parm, value);
49 }
50
51 void AliStructFuncType::StructA(Double_t xx, Double_t qq, Double_t a,
52                                 Double_t& upv, Double_t& dnv, Double_t& usea,
53                                 Double_t& dsea,
54                                 Double_t& str, Double_t& chm, Double_t& bot,
55                                 Double_t& top, Double_t& gl)
56 {
57     structa(xx, qq, a, upv, dnv, usea, dsea, str, chm, bot, top, gl);
58 }
59
60