Ignore:
Timestamp:
Nov 27, 2009, 11:46:04 AM (15 years ago)
Author:
garnier
Message:

update CVS

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/physics_lists/builders/src/G4FTFCProtonBuilder.cc

    r825 r1203  
    2424// ********************************************************************
    2525//
     26// $Id: G4FTFCProtonBuilder.cc,v 1.4 2009/03/31 18:38:34 vnivanch Exp $
     27// GEANT4 tag $Name: geant4-09-03-cand-03 $
     28//
     29//---------------------------------------------------------------------------
     30//
     31// ClassName:   G4FTFCProtonBuilder
     32//
     33// Author: 2002 J.P. Wellisch
     34//
     35// Modified:
     36// 30.03.2009 V.Ivanchenko create cross section by new
     37//
     38//----------------------------------------------------------------------------
     39//
    2640#include "G4FTFCProtonBuilder.hh"
    2741#include "G4ParticleDefinition.hh"
    2842#include "G4ParticleTable.hh"
    2943#include "G4ProcessManager.hh"
    30 #include "TheoModelFactory.hh"
     44#include "G4ProtonInelasticCrossSection.hh"
    3145
    3246G4FTFCProtonBuilder::
     
    3448{
    3549  theMin = 4*GeV;
    36   theModel = TheoModelFactory<G4StringChipsParticleLevelInterface,
    37                               G4FTFModel, G4LundStringFragmentation>::New();
     50  theModel = new G4TheoFSGenerator;
     51
     52  theStringModel = new G4FTFModel;
     53  theStringDecay = new G4ExcitedStringDecay(new G4LundStringFragmentation);
     54  theStringModel->SetFragmentationModel(theStringDecay);
     55
     56  theCascade = new G4StringChipsParticleLevelInterface;
     57
     58  theModel->SetHighEnergyGenerator(theStringModel);
    3859                             
    39     if (quasiElastic)
     60  if (quasiElastic)
    4061  {
    4162     theQuasiElastic=new G4QuasiElasticChannel;
     
    4465  {  theQuasiElastic=0;} 
    4566
     67  theModel->SetTransport(theCascade);
     68  theModel->SetMinEnergy(theMin);
     69  theModel->SetMaxEnergy(100*TeV);
     70}
     71
     72G4FTFCProtonBuilder::~G4FTFCProtonBuilder()
     73{
     74  delete theCascade;
     75  delete theStringDecay;
     76  if ( theQuasiElastic ) delete theQuasiElastic;
     77  delete theStringModel;
     78  delete theModel;
    4679}
    4780
     
    5083{
    5184  theModel->SetMinEnergy(theMin);
    52   theModel->SetMaxEnergy(100*TeV);
    5385  aP->RegisterMe(theModel);
    54   aP->AddDataSet(&theXSec); 
     86  aP->AddDataSet(new G4ProtonInelasticCrossSection); 
     87}
     88
     89void G4FTFCProtonBuilder::
     90Build(G4HadronElasticProcess * )
     91{
    5592}
    5693
Note: See TracChangeset for help on using the changeset viewer.