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.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
  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