1 /**************************************************************************
2 * Copyright(c) 1998-1999, ALICE Experiment at CERN, All rights reserved. *
4 * Author: The ALICE Off-line Project. *
5 * Contributors are mentioned in the code where appropriate. *
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 **************************************************************************/
18 //-----------------------------------------------------------------------------
19 // Class: AliHerwigRndm
20 // Responsibilities: Interface to Root random number generator
21 // from Fortran (re-implements FINCTION RLU_HERWIG
23 // Note: Since AliGenHerwig belongs to another module (THerwig) one cannot
24 // pass the ponter to the generator via static variable
25 // Collaborators: AliGenHerwig class
28 // root> AliGenHerwig *gener = new AliGenHerwig(-1);
29 // root> AliHerwigRndm::SetHerwigRandom(new TRandom3());
30 // root> AliHerwigRndm::GetHerwigRandom()->SetSeed(0);
31 // root> cout<<"Seed "<< AliHerwigRndm::GetHerwigRandom()->GetSeed() <<endl;
32 //-----------------------------------------------------------------------------
36 #include "AliHerwigRndm.h"
38 TRandom * AliHerwigRndm::fgHerwigRandom=0;
40 ClassImp(AliHerwigRndm)
42 //_______________________________________________________________________
43 void AliHerwigRndm::SetHerwigRandom(TRandom *ran) {
45 // Sets the pointer to an existing random numbers generator
47 if(ran) fgHerwigRandom=ran;
48 else fgHerwigRandom=gRandom;
51 //_______________________________________________________________________
52 TRandom * AliHerwigRndm::GetHerwigRandom() {
54 // Retrieves the pointer to the random numbers generator
56 return fgHerwigRandom;
59 //_______________________________________________________________________
60 # define hwrgen hwrgen_
63 Double_t hwrgen(Int_t /*dummy*/)
65 // Wrapper to FUNCTION HWR from HERWIG
66 // Uses static method to retrieve the pointer to the (C++) generator
68 do r=AliHerwigRndm::GetHerwigRandom()->Rndm();
69 while(0 >= r || r >= 1);