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