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