dpm25nuc7.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	lundin
subroutine	bamlun (IHAD, KFA1, KFA2, KFA3, KFA4, AEO, IOPT, IREJ)
subroutine	xseapa (ECM, XXXX, IPSQ1, IPSAQ1, XPSQ1, XPSAQ1, IREJ)
subroutine	shmaki (NA, NCA, NB, NCB, RPROJ, RTARG, PPN)
double precision function	sigsds (S)
subroutine	shmakf (NA, NCA, NB, NCB)
subroutine	shmako (NA, NB, B, INTT, INTA, INTB, JS, JT, PPN, KKMAT)
subroutine	title (NA, NB, NCA, NCB)
subroutine	conucl (X, N, R)
subroutine	modb (BSITE, N, BSTEP, B)
subroutine	diagr (NA, NB, B, JS, JT, INT, INTA, INTB)
subroutine	fluini
subroutine	calbam (NNCH, I1, I2, IFB11, IFB22, IFB33, IFB44, AMCH, NOBAM, IHAD)
subroutine	dbamje (IHAD, KFA1, KFA2, KFA3, KFA4, AE0, IOPT)
subroutine	indexd (KA, KB, IND)
double precision function	dbeta (X1, X2, BET)
subroutine	ddrela (X, Y, Z, COTE, SITE, COPS, SIPS)
subroutine	dthrep (UMO, ECM1, ECM2, ECM3, PCM1, PCM2, PCM3, COD1, COF1, SIF1, COD2, COF2, SIF2, COD3, COF3, SIF3, AM1, AM2, AM3)
double precision function	dxlamb (X, Y, Z)
subroutine	strafo (GAM, BGAM, CX, CY, CZ, COD, COF, SIF, P, ECM, PL, CXL, CYL, CZL, EL)
subroutine	drtran (XO, YO, ZO, CDE, SDE, SFE, CFE, X, Y, Z)
subroutine	dchant
subroutine	dtwopd (UMO, ECM1, ECM2, PCM1, PCM2, COD1, COF1, SIF1, COD2, COF2, SIF2, AM1, AM2)
subroutine	dsfecf (SFE, CFE)
subroutine	ddates
subroutine	ddatar
subroutine	tecalb
subroutine	distcm (IOP, NHAD, POLAB, KPROJ, KTARG)
subroutine	ddecay (IHAD, ISTAB)
subroutine	shmak (ICASE, NN, NNA, NNB, NA, NB, UMO, BIMP)
subroutine	shmak1 (ICASE, NN, NNA, NNB, NA, NB, UMO, BIMP)
subroutine	previo (RA, RB, NSTB, BMAX, BSTEP, SIG, RO, G)
subroutine	profb (BSTEP, NSTAT, NA, RA, NB, RB, BSITE, NSITEB)
subroutine	dparje (IHAD, I)
subroutine	sort (A, N)
subroutine	sortin (A, N)
subroutine	xsglau (NA, NB, IJPROJ, NTARG)
subroutine	conuclx (COOP1, NA, RASH, I)
subroutine	dbklas (I, J, K, I8, I10)
double precision function	sippsd (ECM)
double precision function	siinel (KPROJ, KTARG, UMO)
double precision function	phnsch (KP, KTARG, PLAB)
subroutine	selpts (PTXSQ1, PTYSQ1, PLQ1, EQ1, PTXSA2, PTYSA2, PLAQ2, EAQ2, AMCH1, IREJ, IKVALA, PTTQ1)

Function/Subroutine Documentation

subroutine bamlun	(		IHAD,
			KFA1,
			KFA2,
			KFA3,
			KFA4,
			AEO,
			IOPT,
			IREJ
	)

Definition at line 371 of file dpm25nuc7.f.

References testem0.App::init(), mcihad(), n, py2ent(), py4ent(), pydat1, pyedit(), pyexec(), pyjets, pyjoin(), pylist(), pymass(), pyp(), pyshow(), rndm(), G4Abla::tau(), and xseapa().

Referenced by dbamje().

subroutine calbam	(		NNCH,
			I1,
			I2,
			IFB11,
			IFB22,
			IFB33,
			IFB44,
			AMCH,
			NOBAM,
			IHAD
	)

Definition at line 2138 of file dpm25nuc7.f.

References dbamje(), dparje(), testem0.App::init(), and rndm().

Referenced by hadjet(), and tecalb().

subroutine conucl	(	dimension(3,n)	X,
			N,
			R
	)

Definition at line 1759 of file dpm25nuc7.f.

References c2_factory< float_type >::cos(), c2_factory< float_type >::exp(), G4Abla::f(), n, HepGeom::BasicVector3D< T >::r(), rannor(), rndm(), c2_factory< float_type >::sin(), and c2_factory< float_type >::sqrt().

Referenced by conuclx(), diagr(), and profb().

subroutine conuclx	(	dimension(3,maxncl)	COOP1,
			NA,
			RASH,
			I
	)

Definition at line 6084 of file dpm25nuc7.f.

References conucl().

Referenced by xsglau().

subroutine dbamje	(		IHAD,
			KFA1,
			KFA2,
			KFA3,
			KFA4,
			AE0,
			IOPT
	)

Definition at line 2374 of file dpm25nuc7.f.

References bamlun(), testem0.App::init(), and G4Abla::tau().

Referenced by calbam().

double precision function dbeta	(		X1,
			X2,
			BET
	)

Definition at line 2672 of file dpm25nuc7.f.

References c2_factory< float_type >::exp().

Referenced by dbeta(), diqdss(), diqdzz(), diqssd(), diqsv(), diqvs(), diqzzd(), flksaa(), gen_qel(), hiboost(), lepto(), lframe(), linit(), lkinem(), lmeps(), lshowr(), and xptfl1().

subroutine dbklas	(		I,
			J,
			K,
			I8,
			I10
	)

Definition at line 6096 of file dpm25nuc7.f.

References indexd().

Referenced by cobcma(), diffch(), and zobcma().

subroutine dchant

(

)

Definition at line 3289 of file dpm25nuc7.f.

References G4Abla::tau().

Referenced by dminit().

subroutine ddatar

(

)

Definition at line 3503 of file dpm25nuc7.f.

Referenced by dminit().

subroutine ddates

(

)

Definition at line 3374 of file dpm25nuc7.f.

References mpdgha(), G4Abla::tau(), and z.

Referenced by dminit().

subroutine ddecay	(		IHAD,
			ISTAB
	)

Definition at line 4057 of file dpm25nuc7.f.

References HepGeom::Plane3D< T >::d(), dthrep(), dtrafo(), dtwopd(), rndm(), c2_factory< float_type >::sqrt(), G4Abla::tau(), and test().

Referenced by tecalb().

subroutine ddrela	(		X,
			Y,
			Z,
			COTE,
			SITE,
			COPS,
			SIPS
	)

Definition at line 2686 of file dpm25nuc7.f.

References HepGeom::BasicVector3D< T >::y(), and z.

subroutine diagr	(		NA,
			NB,
			B,
		dimension(namx)	JS,
		dimension(namx)	JT,
			INT,
			INTA,
			INTB
	)

Definition at line 1952 of file dpm25nuc7.f.

References conucl(), CLHEP::HepLorentzVector::e(), c2_factory< float_type >::exp(), testem0.App::init(), int(), intmd, intmx, modb(), rndm(), sort(), sortin(), and HepGeom::Transform3D::xy().

Referenced by shmako().

subroutine distcm	(		IOP,
			NHAD,
			POLAB,
			KPROJ,
			KTARG
	)

Definition at line 3745 of file dpm25nuc7.f.

References HepGeom::Plane3D< T >::d(), HepGeom::Transform3D::dy(), CLHEP::HepLorentzVector::e(), G4StatDouble::fill(), c2_factory< float_type >::log(), plot(), CLHEP::HepLorentzVector::px(), CLHEP::HepLorentzVector::py(), CLHEP::HepLorentzVector::pz(), c2_factory< float_type >::sqrt(), G4Abla::tau(), and HepGeom::Transform3D::yy().

Referenced by tecalb().

subroutine dparje	(		IHAD,
			I
	)

Definition at line 4630 of file dpm25nuc7.f.

References testem0.App::init(), and G4Abla::tau().

Referenced by calbam().

subroutine drtran	(		XO,
			YO,
			ZO,
			CDE,
			SDE,
			SFE,
			CFE,
			X,
			Y,
			Z
	)

Definition at line 3265 of file dpm25nuc7.f.

References a, c2_factory< float_type >::sqrt(), HepGeom::BasicVector3D< T >::y(), and z.

Referenced by elhain(), strafo(), and zormom().

subroutine dsfecf	(		SFE,
			CFE
	)

Definition at line 3354 of file dpm25nuc7.f.

References rndm(), HepGeom::Transform3D::xx(), HepGeom::Transform3D::xy(), HepGeom::BasicVector3D< T >::y(), and HepGeom::Transform3D::yy().

Referenced by cromsc(), diffpt(), dthrep(), dtwopd(), elhain(), fer4m(), fer4mp(), fer4mt(), kkinc(), pinkla(), primpt(), rannor(), saptre(), selpt(), selpt4(), selpth(), selpts(), valmdd(), valmsd(), and zormom().

subroutine dthrep	(		UMO,
			ECM1,
			ECM2,
			ECM3,
			PCM1,
			PCM2,
			PCM3,
			COD1,
			COF1,
			SIF1,
			COD2,
			COF2,
			SIF2,
			COD3,
			COF3,
			SIF3,
			AM1,
			AM2,
			AM3
	)

Definition at line 2748 of file dpm25nuc7.f.

References HepGeom::Plane3D< T >::d(), dsfecf(), dxlamb(), G4Abla::f(), HepGeom::BasicVector3D< T >::rho(), rndm(), c2_factory< float_type >::sqrt(), HepGeom::Transform3D::xx(), and HepGeom::BasicVector3D< T >::y().

Referenced by ddecay(), decays(), dechkk(), and dhadri().

subroutine dtwopd	(		UMO,
			ECM1,
			ECM2,
			PCM1,
			PCM2,
			COD1,
			COF1,
			SIF1,
			COD2,
			COF2,
			SIF2,
			AM1,
			AM2
	)

Definition at line 3326 of file dpm25nuc7.f.

References dsfecf(), rndm(), and c2_factory< float_type >::sqrt().

Referenced by absorp(), ddecay(), decays(), dechkk(), and dhadri().

double precision function dxlamb	(		X,
			Y,
			Z
	)

Definition at line 3207 of file dpm25nuc7.f.

References HepGeom::Plane3D< T >::d(), c2_factory< float_type >::sqrt(), test(), HepGeom::BasicVector3D< T >::y(), HepGeom::Transform3D::yz(), and z.

Referenced by dthrep(), and dxlamb().

subroutine fluini

(

)

Definition at line 2076 of file dpm25nuc7.f.

References a, HepGeom::Transform3D::dx(), c2_factory< float_type >::exp(), n, and plot().

Referenced by dminit().

subroutine indexd	(		KA,
			KB,
			IND
	)

Definition at line 2637 of file dpm25nuc7.f.

Referenced by dbklas().

subroutine lundin

(

)

Definition at line 62 of file dpm25nuc7.f.

References n, pycomp, pydat1, pydat3, and pyjets.

Referenced by dminit().

subroutine modb	(	dimension(0:1,n)	BSITE,
			N,
			BSTEP,
			B
	)

Definition at line 1869 of file dpm25nuc7.f.

References CLHEP::HepLorentzVector::e(), left, n, rndm(), c2_factory< float_type >::sqrt(), and HepGeom::BasicVector3D< T >::y().

Referenced by diagr().

double precision function phnsch	(		KP,
			KTARG,
			PLAB
	)

Definition at line 6170 of file dpm25nuc7.f.

References HepGeom::Plane3D< T >::d(), c2_factory< float_type >::log(), rndm(), c2_factory< float_type >::sqrt(), and G4Abla::tau().

Referenced by kkevvv(), and phnsch().

subroutine previo	(		RA,
			RB,
			NSTB,
			BMAX,
			BSTEP,
			SIG,
			RO,
			G
	)

Definition at line 4470 of file dpm25nuc7.f.

Referenced by shmaki().

subroutine profb	(		BSTEP,
			NSTAT,
			NA,
			RA,
			NB,
			RB,
		dimension(0:1,nsiteb)	BSITE,
			NSITEB
	)

Definition at line 4525 of file dpm25nuc7.f.

References conucl(), HepGeom::Plane3D< T >::d(), CLHEP::HepLorentzVector::e(), c2_factory< float_type >::exp(), intmd, intmx, ns, plot(), and HepGeom::Transform3D::xy().

Referenced by shmaki().

subroutine selpts	(		PTXSQ1,
			PTYSQ1,
			PLQ1,
			EQ1,
			PTXSA2,
			PTYSA2,
			PLAQ2,
			EAQ2,
			AMCH1,
			IREJ,
			IKVALA,
			PTTQ1
	)

Definition at line 7324 of file dpm25nuc7.f.

References dsfecf(), testem0.App::init(), c2_factory< float_type >::log(), rndm(), and c2_factory< float_type >::sqrt().

Referenced by kkevvv().

subroutine shmak	(		ICASE,
			NN,
			NNA,
			NNB,
			NA,
			NB,
			UMO,
			BIMP
	)

Definition at line 4192 of file dpm25nuc7.f.

References a, HepGeom::Plane3D< T >::d(), CLHEP::HepLorentzVector::e(), testem0.App::init(), plot(), sihndi(), siinel(), and CLHEP::HepLorentzVector::t().

Referenced by dminit(), dpmjet(), and kkevt().

subroutine shmak1	(		ICASE,
			NN,
			NNA,
			NNB,
			NA,
			NB,
			UMO,
			BIMP
	)

Definition at line 4358 of file dpm25nuc7.f.

References a, HepGeom::Plane3D< T >::d(), CLHEP::HepLorentzVector::e(), testem0.App::init(), plot(), sihndi(), siinel(), and CLHEP::HepLorentzVector::t().

Referenced by dminit(), dpmjet(), and kkevt().

subroutine shmakf	(		NA,
			NCA,
			NB,
			NCB
	)

Definition at line 1515 of file dpm25nuc7.f.

References G4VITManager::iterator::end().

Referenced by dminit().

subroutine shmaki	(		NA,
			NCA,
			NB,
			NCB,
			RPROJ,
			RTARG,
			PPN
	)

Definition at line 1406 of file dpm25nuc7.f.

References dshpto(), c2_factory< float_type >::log(), previo(), profb(), sigsds(), c2_factory< float_type >::sqrt(), and title().

Referenced by dminit().

subroutine shmako	(		NA,
			NB,
			B,
			INTT,
			INTA,
			INTB,
		dimension(namx)	JS,
		dimension(namx)	JT,
			PPN,
			KKMAT
	)

Definition at line 1606 of file dpm25nuc7.f.

References diagr(), dshpto(), testem0.App::init(), intmd, intmx, c2_factory< float_type >::log(), sigsds(), and c2_factory< float_type >::sqrt().

Referenced by kkevdi(), kkevle(), kkevnu(), and kkevt().

double precision function sigsds

(

S

)

Definition at line 1505 of file dpm25nuc7.f.

Referenced by shmaki(), shmako(), and sigsds().

double precision function siinel	(		KPROJ,
			KTARG,
			UMO
	)

Definition at line 6156 of file dpm25nuc7.f.

References dshnel(), and dshnto().

Referenced by dropdi(), shmak(), shmak1(), siinel(), and xsglau().

double precision function sippsd

(

ECM

)

Definition at line 6127 of file dpm25nuc7.f.

Referenced by dropdi(), sihndi(), sippsd(), and xsglau().

subroutine sort	(	dimension(3,n)	A,
			N
	)

Definition at line 4670 of file dpm25nuc7.f.

References a, HepGeom::Plane3D< T >::d(), and n.

Referenced by G4NeutronHPCaptureFS::ApplyYourself(), G4CollisionOutput::boostToLabFrame(), G4ElementaryParticleCollider::collide(), G4IntraNucleiCascader::copySecondaries(), G4BigBanger::deExcite(), G4RadioactiveDecay::DeselectAVolume(), diagr(), G4TwistBoxSide::DistanceToSurface(), G4TwistTrapAlphaSide::DistanceToSurface(), G4TwistTrapParallelSide::DistanceToSurface(), exrdmAnalysisManager::EndOfEvent(), export_PhysicsLists(), G4HadPhaseSpaceGenbod::FillRandomBuffer(), G4IntraNucleiCascader::finishCascade(), G4PtrSort(), G4NucleiModel::generateInteractionPartners(), G4HadPhaseSpaceNBodyAsai::GenerateMultiBody(), G4NucleiModel::generateParticleFate(), GetNormalizedAngularRange(), UVCSGfaceted::InitVoxels(), HadrontherapyLet::LetOutput(), G4RadioactiveDecay::SelectAllVolumes(), G4RadioactiveDecay::SelectAVolume(), G4CollisionOutput::setOnShell(), __1DSortOut::Sort(), G4KDTreeResult::Sort(), G4FTFParticipants::SortInteractionsIncT(), G4Fancy3DNucleus::SortNucleonsIncZ(), HadrontherapyMatrix::StoreDoseFluenceAscii(), IORTMatrix::StoreDoseFluenceAscii(), and G4INCL::ProjectileRemnant::storeEnergyLevels().

subroutine sortin	(	dimension(3,n)	A,
			N
	)

Definition at line 4700 of file dpm25nuc7.f.

References a, HepGeom::Plane3D< T >::d(), n, and G4Abla::tau().

Referenced by diagr().

subroutine strafo	(		GAM,
			BGAM,
			CX,
			CY,
			CZ,
			COD,
			COF,
			SIF,
			P,
			ECM,
			PL,
			CXL,
			CYL,
			CZL,
			EL
	)

Definition at line 3244 of file dpm25nuc7.f.

References drtran(), CLHEP::HepLorentzVector::e(), and c2_factory< float_type >::sqrt().

subroutine tecalb

(

)

Definition at line 3635 of file dpm25nuc7.f.

References calbam(), ddecay(), G4IT::diff(), distcm(), and testem0.App::init().

Referenced by dminit().

subroutine title	(		NA,
			NB,
			NCA,
			NCB
	)

Definition at line 1744 of file dpm25nuc7.f.

References a.

Referenced by G4XmlNtupleManager::CreateNtuple(), G4CsvNtupleManager::CreateNtuple(), G4RootNtupleManager::CreateNtuple(), distrc(), dminit(), dttest(), ElectronRun::DumpData(), evtinfo(), G4ModelCmdCreateContextDir< M >::G4ModelCmdCreateContextDir(), G4H1ToolsManager::GetH1XAxisTitle(), G4H1ToolsManager::GetH1YAxisTitle(), G4H2ToolsManager::GetH2XAxisTitle(), G4H2ToolsManager::GetH2YAxisTitle(), G4H2ToolsManager::GetH2ZAxisTitle(), hadjase(), hadjck(), hadjse(), hijset(), jtdtu(), lmcmnd(), lmidat(), lminew(), lminto(), lmpint(), lmprin(), lmrazz(), lmsimp(), prblm2(), G4DNAMolecularReactionTable::PrintTable(), pybook(), pydump(), pyplot(), pyupin(), qinnuc(), qrblm2(), rdxsec(), samppt(), selhrd(), HistoManager::SetHisto(), G4H2Messenger::SetNewValue(), G4H1Messenger::SetNewValue(), G4VisCommandModelCreate< Factory >::SetNewValue(), HistoManager::SetNtuple(), shmaki(), sigshd(), xptfl(), and xptfl1().

subroutine xseapa	(		ECM,
			XXXX,
			IPSQ1,
			IPSAQ1,
			XPSQ1,
			XPSAQ1,
			IREJ
	)

Definition at line 1323 of file dpm25nuc7.f.

References rndm(), and sampex().

Referenced by bamlun(), hadjase(), hadjck(), and hadjse().

subroutine xsglau	(		NA,
			NB,
			IJPROJ,
			NTARG
	)

Definition at line 5699 of file dpm25nuc7.f.

References conuclx(), HepGeom::Plane3D< T >::d(), dshnel(), dshnto(), dshpto(), c2_factory< float_type >::exp(), c2_factory< float_type >::log(), neb, c2_transformation< float_type >::one(), sihndi(), siinel(), sippsd(), c2_factory< float_type >::sqrt(), G4Abla::tau(), and c2_transformation< float_type >::zero().

Referenced by dminit().