Bhlumi.cxx File Reference

#include "Bhlumi.h"
#include "BhlumiRandom.h"
#include "CLHEP/Vector/LorentzVector.h"
#include "HepMC/GenEvent.h"
#include "HepMC/GenParticle.h"
#include "HepMC/GenVertex.h"
#include "GaudiKernel/ISvcLocator.h"
#include "GaudiKernel/MsgStream.h"
#include "GaudiKernel/SmartDataPtr.h"
#include "BesRndmGenSvc/IBesRndmGenSvc.h"
#include "GeneratorObject/McGenEvent.h"
#include "cfortran/cfortran.h"

Go to the source code of this file.

Classes
struct	MOMSET_DEF

Macros
#define	MOMSET   COMMON_BLOCK( MOMSET_DEF, momset )
#define	GLIMIT(LENMX)
#define	DUMPS(NOUT)
#define	BHLUMI(MODE, XPAR, NPAR)
#define	MARINI(IJKLIN, NTOTIN, NTOT2N)

Functions
	COMMON_BLOCK_DEF (MOMSET_DEF, MOMSET)
double	ranmarr_ ()
void	marran_ (float *rvec, int *nma)
void	ecuran_ (double *rvec, int *nma)
void	carran_ (double *rvec, int *nma)

Macro Definition Documentation

BHLUMI

#define BHLUMI	(		MODE,
			XPAR,
			NPAR )

Value:

CCALLSFSUB3( BHLUMI, bhlumi, INT, DOUBLEV, INTV, MODE, XPAR, NPAR )

Definition at line 58 of file Bhlumi.cxx.

#define BHLUMI( MODE, XPAR, NPAR )                                                            \
  CCALLSFSUB3( BHLUMI, bhlumi, INT, DOUBLEV, INTV, MODE, XPAR, NPAR )

Referenced by Bhlumi::execute(), Bhlumi::finalize(), and Bhlumi::initialize().

DUMPS

#define DUMPS

(

NOUT

)

Value:

CCALLSFSUB1( DUMPS, dumps, INT, NOUT )

Definition at line 55 of file Bhlumi.cxx.

Referenced by Bhlumi::execute(), and Bhwide::execute().

GLIMIT

#define GLIMIT

(

LENMX

)

Value:

CCALLSFSUB1( GLIMIT, glimit, INT, LENMX )

Definition at line 52 of file Bhlumi.cxx.

Referenced by COMMON_BLOCK_DEF(), Bhlumi::initialize(), and Bhwide::initialize().

MARINI

#define MARINI	(		IJKLIN,
			NTOTIN,
			NTOT2N )

Value:

CCALLSFSUB3( MARINI, marini, INT, INT, INT, IJKLIN, NTOTIN, NTOT2N )

Definition at line 62 of file Bhlumi.cxx.

#define MARINI( IJKLIN, NTOTIN, NTOT2N )                                                      \
  CCALLSFSUB3( MARINI, marini, INT, INT, INT, IJKLIN, NTOTIN, NTOT2N )

MOMSET

#define MOMSET   COMMON_BLOCK( MOMSET_DEF, momset )

Definition at line 45 of file Bhlumi.cxx.

Function Documentation

carran_()

void carran_ ( double * rvec, int * nma )

extern

Definition at line 82 of file Bhlumi.cxx.

                                       {
  int nmax = *nma;
  assert( nmax < 100 );
  double rvecd[100];
  BhlumiRandom::FlatArray( rvecd, nmax );
  for ( int i = 0; i < nmax; i++ ) rvec[i] = rvecd[i];
}

COMMON_BLOCK_DEF()

COMMON_BLOCK_DEF	(	MOMSET_DEF	,
		MOMSET	)

ecuran_()

void ecuran_ ( double * rvec, int * nma )

extern

Definition at line 90 of file Bhlumi.cxx.

                                       {
  int nmax = *nma;
  assert( nmax < 100 );
  double rvecd[100];
  BhlumiRandom::FlatArray( rvecd, nmax );
  for ( int i = 0; i < nmax; i++ ) rvec[i] = rvecd[i];
}

marran_()

void marran_ ( float * rvec, int * nma )

extern

Definition at line 74 of file Bhlumi.cxx.

                                      {
  int nmax = *nma;
  assert( nmax < 100 );
  double rvecd[100];
  BhlumiRandom::FlatArray( rvecd, nmax );
  for ( int i = 0; i < nmax; i++ ) rvec[i] = rvecd[i];
}

ranmarr_()

double ranmarr_ ( )

extern

Definition at line 72 of file Bhlumi.cxx.

{ return BhlumiRandom::random(); }