Merging the VirtualMC branch to the main development branch (HEAD)
[u/mrichter/AliRoot.git] / EVGEN / AliStructFuncType.cxx
CommitLineData
bcdb51cc 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$
b9d0a01d 18Revision 1.1.2.1 2002/07/24 08:56:29 alibrary
19Updating EVGEN on TVirtulaMC
20
21Revision 1.1 2002/07/22 10:19:12 morsch
22Interface to pdfset and structa added.
23
bcdb51cc 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
40extern "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
50ClassImp(AliStructFuncType)
51
52void AliStructFuncType::PdfSet(char parm[20][20], Double_t value[20])
53{
54 pdfset(parm, value);
55}
56
57void 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