source: trunk/source/processes/hadronic/models/neutron_hp/src/G4NeutronHPLevel.cc @ 819

Last change on this file since 819 was 819, checked in by garnier, 16 years ago

import all except CVS

File size: 3.1 KB
Line 
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// neutron_hp -- source file
27// J.P. Wellisch, Nov-1996
28// A prototype of the low energy neutron transport model.
29//
30#include "G4NeutronHPLevel.hh"
31#include "G4NeutronHPGamma.hh"
32
33  G4NeutronHPLevel::~G4NeutronHPLevel() 
34  {
35    if(theGammas != 0)
36    {
37      for(G4int i=0; i<nGammas; i++) delete theGammas[i];
38    }
39    delete [] theGammas;
40  }
41
42  void G4NeutronHPLevel::SetNumberOfGammas(G4int aGammas)
43  {
44    nGammas = aGammas;
45    if(theGammas != 0)
46    {
47      for(G4int i=0; i<nGammas; i++) delete theGammas[i];
48    }
49    delete [] theGammas; 
50    theGammas = new G4NeutronHPGamma * [nGammas];
51  }
52
53  void G4NeutronHPLevel::SetGamma(G4int i, G4NeutronHPGamma * aGamma)
54  {
55    theGammas[i] = aGamma;
56    SetLevelEnergy(aGamma->GetLevelEnergy());
57  }
58
59  G4double G4NeutronHPLevel::GetGammaEnergy(G4int i)
60  {
61    return theGammas[i]->GetGammaEnergy();
62  }
63 
64  G4DynamicParticleVector * G4NeutronHPLevel::GetDecayGammas()
65  {
66    G4DynamicParticleVector * theResult;
67    G4double sum = 0;
68    G4double * running = new G4double[nGammas];
69    running[0] = 0;
70    G4int i;
71    for(i=0; i<nGammas; i++)
72    {
73      if(i!=0) running[i]=running[i-1];
74      running[i]+=theGammas[i]->GetWeight();
75    }
76    sum = running[nGammas-1];
77    G4int it(0);
78    G4double random = G4UniformRand();
79    for(i=0; i<nGammas; i++)
80    {
81      it = i;
82      if(random*sum < running[i]) break;
83    }
84    delete [] running;
85    theResult = theGammas[it]->GetDecayGammas();
86    return theResult;
87  }
Note: See TracBrowser for help on using the repository browser.