Geant4
10.00.p03
Main Page
Related Pages
Modules
Namespaces
Classes
Files
File List
File Members
G4INCLRanecu.cc
Go to the documentation of this file.
1
//
2
// ********************************************************************
3
// * License and Disclaimer *
4
// * *
5
// * The Geant4 software is copyright of the Copyright Holders of *
6
// * the Geant4 Collaboration. It is provided under the terms and *
7
// * conditions of the Geant4 Software License, included in the file *
8
// * LICENSE and available at http://cern.ch/geant4/license . These *
9
// * include a list of copyright holders. *
10
// * *
11
// * Neither the authors of this software system, nor their employing *
12
// * institutes,nor the agencies providing financial support for this *
13
// * work make any representation or warranty, express or implied, *
14
// * regarding this software system or assume any liability for its *
15
// * use. Please see the license in the file LICENSE and URL above *
16
// * for the full disclaimer and the limitation of liability. *
17
// * *
18
// * This code implementation is the result of the scientific and *
19
// * technical work of the GEANT4 collaboration. *
20
// * By using, copying, modifying or distributing the software (or *
21
// * any work based on the software) you agree to acknowledge its *
22
// * use in resulting scientific publications, and indicate your *
23
// * acceptance of all terms of the Geant4 Software license. *
24
// ********************************************************************
25
//
26
// INCL++ intra-nuclear cascade model
27
// Pekka Kaitaniemi, CEA and Helsinki Institute of Physics
28
// Davide Mancusi, CEA
29
// Alain Boudard, CEA
30
// Sylvie Leray, CEA
31
// Joseph Cugnon, University of Liege
32
//
33
#define INCLXX_IN_GEANT4_MODE 1
34
35
#include "
globals.hh
"
36
37
/*
38
* G4INCLRanecu.cc
39
*
40
* \date 7 juin 2009
41
* \author Pekka Kaitaniemi
42
*/
43
44
#include "
G4INCLRanecu.hh
"
45
46
namespace
G4INCL
{
47
48
Ranecu::Ranecu
() {
49
iseed1
= 666;
50
iseed2
= 777;
51
}
52
53
Ranecu::Ranecu
(
const
Random::SeedVector
&sv) {
54
setSeeds
(sv);
55
}
56
57
Ranecu::~Ranecu
() {}
58
59
G4double
Ranecu::flat
()
60
{
61
// This is an adapted version of subroutine ranecu:
62
// A. Padal, J. Sempau Computer Physics Cummunications 175 (2006) 440-450
63
G4double
uscale=1.0/2.147483563e9;
64
65
long
i1=
iseed1
/53668;
66
iseed1
=40014*(
iseed1
-i1*53668)-i1*12211;
67
68
if
(
iseed1
< 0)
iseed1
=
iseed1
+ 2147483563;
69
70
long
i2=
iseed2
/52774;
71
iseed2
=40692*(
iseed2
-i2*52774)-i2*3791;
72
if
(
iseed2
< 0)
iseed2
=
iseed2
+2147483399;
73
74
long
iz
=
iseed1
-
iseed2
;
75
if
(iz < 1) iz=iz+2147483562;
76
77
return
iz*uscale;
78
}
79
80
}
G4INCL::Ranecu::iseed1
long iseed1
Definition:
G4INCLRanecu.hh:74
G4INCL::Ranecu::Ranecu
Ranecu()
Definition:
G4INCLRanecu.cc:48
G4INCL
Definition:
G4INCLBinaryCollisionAvatar.hh:52
G4INCL::Ranecu::~Ranecu
virtual ~Ranecu()
Definition:
G4INCLRanecu.cc:57
G4INCL::Ranecu::flat
G4double flat()
Definition:
G4INCLRanecu.cc:59
G4INCL::Ranecu::setSeeds
void setSeeds(const Random::SeedVector &sv)
Definition:
G4INCLRanecu.hh:65
iz
G4double iz
Definition:
TRTMaterials.hh:39
globals.hh
G4double
double G4double
Definition:
G4Types.hh:76
G4INCLRanecu.hh
G4INCL::Ranecu::iseed2
long iseed2
Definition:
G4INCLRanecu.hh:74
G4INCL::Random::SeedVector
Definition:
G4INCLRandomSeedVector.hh:54
source
source
processes
hadronic
models
inclxx
utils
src
G4INCLRanecu.cc
Generated on Sat Dec 13 2014 18:02:39 for Geant4 by
1.8.8