PYTHIA6/QPYTHIA/AliQPythiaWrapper.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 //-----------------------------------------------------------------------------
  19 //   Class: AliQPythiaWrapper
  20 //   Responsibilities: Interface to C++ Functionality needed by the QPythia Fortran Code
  21 //                     So far only AliFastGlauber is interfaced
  22
  23 #include <TMath.h>
  24 #include <AliFastGlauber.h>
  25
  26 #include "AliQPythiaWrapper.h"
  27
  28 ClassImp(AliQPythiaWrapper)
  29
  30
  31 //_______________________________________________________________________
  32 #define getlength getlength_
  33
  34 extern "C" {
  35     void getlength(Double_t& ell, Double_t& b)
  36     {
  37         // Wrapper to method GetLength from AliGlauber
  38         (AliFastGlauber::Instance())->GetLength(ell, b);
  39     }
  40 }
  41
  42
  43 //_______________________________________________________________________
  44 #define getrandombhard getrandombhard_
  45
  46 extern "C" {
  47     void getrandombhard(Double_t& b)
  48     {
  49         // Wrapper to method GetRandomBHard from AliGlauber
  50         (AliFastGlauber::Instance())->GetRandomBHard(b);
  51     }
  52 }
  53
  54 //_______________________________________________________________________
  55 #define getrandomxy getrandomxy_
  56
  57 extern "C" {
  58     void getrandomxy(Double_t& x,Double_t& y )
  59     {
  60         // Wrapper to method GetRandomXY from AliGlauber
  61         (AliFastGlauber::Instance())->GetRandomXY(x,y);
  62     }
  63 }
  64
  65
  66 //_______________________________________________________________________
  67 #define calculatei0i1 calculatei0i1_
  68
  69 extern "C" {
  70   void calculatei0i1(Double_t& xintegral0,Double_t& xintegral1,Double_t& b,Double_t& x,Double_t& y,Double_t& phi,Double_t& ellCut)
  71     {
  72         // Wrapper to method GetRandomXY from AliGlauber
  73       (AliFastGlauber::Instance())->CalculateI0I1(xintegral0,xintegral1,b,x,y,phi,ellCut);
  74     }
  75 }
  76
  77
  78 //_______________________________________________________________________
  79 #define savexy savexy_
  80
  81 extern "C" {
  82  void savexy(Double_t& x, Double_t& y)
  83     {
  84         // Wrapper to save current production point
  85         return (AliFastGlauber::Instance())->SaveXY(x,y);
  86     }
  87 }
  88
  89 #define savei0i1 savei0i1_
  90
  91 extern "C" {
  92  void savei0i1(Double_t& i0, Double_t& i1)
  93     {
  94         // Wrapper to save current integrals I0 and I1
  95         return (AliFastGlauber::Instance())->SaveI0I1(i0, i1);
  96     }
  97 }