| 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 |
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 | |
| 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 | |
| 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 | |
git://git.uio.no / u / mrichter / AliRoot.git / blame