- Updates necessary for newio.

[u/mrichter/AliRoot.git] / PYTHIA6 / AliPythiaRndm.cxx

/**************************************************************************
 * Copyright(c) 1998-1999, ALICE Experiment at CERN, All rights reserved. *
 *                                                                        *
 * Author: The ALICE Off-line Project.                                    *
 * Contributors are mentioned in the code where appropriate.              *
 *                                                                        *
 * Permission to use, copy, modify and distribute this software and its   *
 * documentation strictly for non-commercial purposes is hereby granted   *
 * without fee, provided that the above copyright notice appears in all   *
 * copies and that both the copyright notice and this permission notice   *
 * appear in the supporting documentation. The authors make no claims     *
 * about the suitability of this software for any purpose. It is          *
 * provided "as is" without express or implied warranty.                  *
 **************************************************************************/

/* $Id$ */

//-----------------------------------------------------------------------------
//   Class: AliPythiaRndm
//   Random Number Interface to Fortran (FINCTION PYR from PYTHIA)
//   Very similar to AliHijingRndm
//   Author:
//-----------------------------------------------------------------------------

#include <TError.h>

#include "AliPythiaRndm.h"

TRandom * AliPythiaRndm::fgPythiaRandom=0;

ClassImp(AliPythiaRndm)

//_______________________________________________________________________
AliPythiaRndm::AliPythiaRndm()
{
  // 
  // Default ctor
  //
}

//_______________________________________________________________________
AliPythiaRndm::AliPythiaRndm(const AliPythiaRndm& rn)
{
  //
  // Copy constructor
  //
  rn.Copy(*this);
}

//_______________________________________________________________________
AliPythiaRndm::~AliPythiaRndm() {
  //
  // Destructor
  //
  fgPythiaRandom=0;
}

//_______________________________________________________________________
void AliPythiaRndm::Copy(AliPythiaRndm&) const
{
  //
  // No copy is allowed for the object
  //
  ::Fatal("Copy","Not implemented\n");
}

//_______________________________________________________________________
void AliPythiaRndm::SetPythiaRandom(TRandom *ran) {
  //
  // Sets the pointer to an existing random numbers generator
  //
  if(ran) fgPythiaRandom=ran;
  else fgPythiaRandom=gRandom;
}

//_______________________________________________________________________
TRandom * AliPythiaRndm::GetPythiaRandom() {
  //
  // Retrieves the pointer to the random numbers generator
  //
  return fgPythiaRandom;
}

//_______________________________________________________________________
#define pyr    pyr_
#define pyrset pyrset_
#define pyrget pyrget_

extern "C" {
  Double_t pyr(Int_t*) 
  {
    // Wrapper to FINCTION PYR from PYTHIA
    // Uses static method to retrieve the pointer to the (C++) generator
    Double_t r;
    do r=AliPythiaRndm::GetPythiaRandom()->Rndm();
    while(0 >= r || r >= 1);
    return r;
  }
  void pyrset(Int_t*,Int_t*) {}
  void pyrget(Int_t*,Int_t*) {}
}