dpm25nuc6g4.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	kkinc (EPN, NTMASS, NTCHAR, NPMASS, NPCHAR, IDP, KKMAT, IDT, NHKKH1, IREJ)
subroutine	defaux (EPN, PPN)
subroutine	nclpot (IPZ, IP, ITZ, IT, AFERP, AFERT, MODE)
subroutine	resncl (EPN, MODE)
subroutine	scn4ba
subroutine	ficonf (IJPROJ, IP, IPZ, IT, ITZ, IREJ)
subroutine	eva2he (MO, EEXCF, IRCL, IREJ)
subroutine	fozoca (LFZC, IREJ)
subroutine	inucas (IT, IP, IDXCAS, LCAS, NCAS, IREJ)
subroutine	absorp (IDCAS, PCAS, NCAS, NSPE, IDSPE, IDXSPE, MODE, IREJ)
subroutine	hadri1 (IDPR, PPR, IDTA, PTA, MODE, IREJ)
subroutine	evtput (IST, ID, M1, M2, PX, PY, PZ, E, IDR, IDXR, IDC)
subroutine	mashel (PA1, PA2, XM1, XM2, P1, P2, IREJ)
subroutine	mytran (IMODE, XO, YO, ZO, CDE, SDE, CFE, SFE, X, Y, Z)
double precision function	ylamb (X, Y, Z)
subroutine	evtemc (PXIO, PYIO, PZIO, EIO, IMODE, IPOS, IREJ)
subroutine	ltrans (PXI, PYI, PZI, PEI, PXO, PYO, PZO, PEO, ID, MODE)
subroutine	ltnuc (PIN, EIN, POUT, EOUT, MODE)
subroutine	evtini (ID, IP, IT, EPN, PPN, ECM, NHKKH1, MODE)
subroutine	ltini (IDP, EPN, PPN, ECM)
double precision function	energy (A, Z)
double precision function	enrg (A, Z)
subroutine	berttp
subroutine	incini
subroutine	decays (PIN, IDXIN, POUT, IDXOUT, NSEC, IREJ)
subroutine	decay1
function	icihad (MCIND)
function	ipdgha (MCIND)
subroutine	sihnab (IDP, IDT, PLAB, SIGABS)

Function/Subroutine Documentation

subroutine absorp	(		IDCAS,
		dimension(5)	PCAS,
			NCAS,
			NSPE,
		dimension(2)	IDSPE,
		dimension(2)	IDXSPE,
			MODE,
			IREJ
	)

Definition at line 3049 of file dpm25nuc6g4.f.

References HepGeom::Plane3D< T >::d(), daltra(), dtwopd(), evtemc(), hadri1(), nmxhkk, c2_transformation< float_type >::one(), CLHEP::HepLorentzVector::px(), CLHEP::HepLorentzVector::py(), CLHEP::HepLorentzVector::pz(), HepGeom::BasicVector3D< T >::r(), rndm(), c2_factory< float_type >::sqrt(), and G4Abla::tau().

subroutine berttp

(

)

Definition at line 4655 of file dpm25nuc6g4.f.

References HepGeom::Plane3D< T >::d(), iz, mxafbk, mxffbk, mxnfbk, mxpsfb, mxpsst, mxzfbk, nxafbk, nxnfbk, nxzfbk, G4StokesVector::p1(), G4StokesVector::p2(), HepGeom::BasicVector3D< T >::rho(), sigmas(), stalin(), CLHEP::HepLorentzVector::t(), and HepGeom::BasicVector3D< T >::unit().

subroutine decay1

(

)

Definition at line 5790 of file dpm25nuc6g4.f.

References decays(), evtput(), ipdgha(), n, and nmxhkk.

subroutine decays	(	dimension(4)	PIN,
			IDXIN,
		dimension(20,4)	POUT,
		dimension(20)	IDXOUT,
			NSEC,
			IREJ
	)

Definition at line 5636 of file dpm25nuc6g4.f.

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

subroutine defaux	(		EPN,
			PPN
	)

Definition at line 641 of file dpm25nuc6g4.f.

References c2_transformation< float_type >::one(), and c2_transformation< float_type >::zero().

double precision function energy	(		A,
			Z
	)

Definition at line 4106 of file dpm25nuc6g4.f.

References a, HepGeom::Plane3D< T >::d(), energy(), enrg(), iz, n, G4Abla::nint(), G4StokesVector::p1(), G4StokesVector::p2(), HepGeom::BasicVector3D< T >::rho(), CLHEP::HepLorentzVector::t(), and z.

double precision function enrg	(		A,
			Z
	)

Definition at line 4459 of file dpm25nuc6g4.f.

References a, HepGeom::Plane3D< T >::d(), energy(), enrg(), iz, n, G4Abla::nint(), G4StokesVector::p1(), G4StokesVector::p2(), HepGeom::BasicVector3D< T >::rho(), CLHEP::HepLorentzVector::t(), and z.

subroutine eva2he	(		MO,
			EEXCF,
			IRCL,
			IREJ
	)

Definition at line 1992 of file dpm25nuc6g4.f.

References HepGeom::Plane3D< T >::d(), evtemc(), evtput(), ipdgha(), nmxhkk, CLHEP::HepLorentzVector::px(), CLHEP::HepLorentzVector::py(), CLHEP::HepLorentzVector::pz(), and G4Abla::tau().

subroutine evtemc	(		PXIO,
			PYIO,
			PZIO,
			EIO,
			IMODE,
			IPOS,
			IREJ
	)

Definition at line 3789 of file dpm25nuc6g4.f.

References HepGeom::Plane3D< T >::d(), CLHEP::HepLorentzVector::e(), nmxhkk, CLHEP::HepLorentzVector::px(), CLHEP::HepLorentzVector::py(), CLHEP::HepLorentzVector::pz(), and c2_transformation< float_type >::zero().

subroutine evtini	(		ID,
			IP,
			IT,
			EPN,
			PPN,
			ECM,
			NHKKH1,
			MODE
	)

Definition at line 3988 of file dpm25nuc6g4.f.

References ltini(), mcihad(), and nmxhkk.

subroutine evtput	(		IST,
			ID,
			M1,
			M2,
			PX,
			PY,
			PZ,
			E,
			IDR,
			IDXR,
			IDC
	)

Definition at line 3498 of file dpm25nuc6g4.f.

References HepGeom::Plane3D< T >::d(), CLHEP::HepAxisAngle::delta(), CLHEP::HepLorentzVector::e(), icihad(), nmxhkk, CLHEP::HepLorentzVector::px(), CLHEP::HepLorentzVector::py(), CLHEP::HepLorentzVector::pz(), c2_factory< float_type >::sqrt(), G4Abla::tau(), and c2_transformation< float_type >::zero().

subroutine ficonf	(		IJPROJ,
			IP,
			IPZ,
			IT,
			ITZ,
			IREJ
	)

Definition at line 1518 of file dpm25nuc6g4.f.

References HepGeom::Plane3D< T >::d(), energy(), eva2he(), evevap(), evtput(), testem0.App::init(), int(), mashel(), nmxhkk, c2_transformation< float_type >::one(), raco(), c2_factory< float_type >::sqrt(), G4Abla::tau(), and c2_transformation< float_type >::zero().

subroutine fozoca	(	logical	LFZC,
			IREJ
	)

Definition at line 2151 of file dpm25nuc6g4.f.

References HepGeom::Plane3D< T >::d(), testem0.App::init(), int(), inucas(), nclpot(), nmxhkk, rndm(), and c2_transformation< float_type >::zero().

subroutine hadri1	(		IDPR,
		dimension(5)	PPR,
			IDTA,
		dimension(5)	PTA,
			MODE,
			IREJ
	)

Definition at line 3267 of file dpm25nuc6g4.f.

References HepGeom::Plane3D< T >::d(), daltra(), dhadri(), elhain(), evtemc(), mashel(), c2_transformation< float_type >::one(), CLHEP::HepLorentzVector::px(), CLHEP::HepLorentzVector::py(), CLHEP::HepLorentzVector::pz(), c2_factory< float_type >::sqrt(), G4Abla::tau(), and c2_transformation< float_type >::zero().

function icihad

(

MCIND

)

Definition at line 5839 of file dpm25nuc6g4.f.

References icihad(), and mcihad().

subroutine incini

(

)

Definition at line 5211 of file dpm25nuc6g4.f.

References HepGeom::Plane3D< T >::d(), energy(), enrg(), frbkin(), iz, mxafbk, mxffbk, mxnfbk, mxpsfb, mxpsst, mxzfbk, nxafbk, nxnfbk, nxzfbk, and c2_factory< float_type >::sqrt().

subroutine inucas	(		IT,
			IP,
			IDXCAS,
		logical	LCAS,
			NCAS,
			IREJ
	)

Definition at line 2334 of file dpm25nuc6g4.f.

References absorp(), HepGeom::Plane3D< T >::d(), daltra(), evtemc(), evtput(), hadri1(), icihad(), ipdgha(), c2_factory< float_type >::log(), ltnuc(), ltrans(), mchad(), nmxhkk, c2_transformation< float_type >::one(), CLHEP::HepLorentzVector::px(), CLHEP::HepLorentzVector::py(), CLHEP::HepLorentzVector::pz(), rndm(), sihnab(), sihnel(), sihnin(), c2_factory< float_type >::sqrt(), G4Abla::tau(), and c2_transformation< float_type >::zero().

function ipdgha

(

MCIND

)

Definition at line 5843 of file dpm25nuc6g4.f.

References ipdgha(), and mpdgha().

subroutine kkinc	(		EPN,
			NTMASS,
			NTCHAR,
			NPMASS,
			NPCHAR,
			IDP,
			KKMAT,
			IDT,
			NHKKH1,
			IREJ
	)

Definition at line 5 of file dpm25nuc6g4.f.

References backdpm(), chebch(), checkf(), checkn(), checko(), HepGeom::Plane3D< T >::d(), decay1(), dechkk(), distco(), distr(), distrc(), dsfecf(), evtini(), ficonf(), fozoca(), testem0.App::init(), kkevdi(), kkevle(), kkevnu(), kkevt(), klu(), nclpot(), nmxhkk, c2_transformation< float_type >::one(), plu(), pyjets, resncl(), scn4ba(), c2_factory< float_type >::sqrt(), G4Abla::tau(), and c2_transformation< float_type >::zero().

subroutine ltini	(		IDP,
			EPN,
			PPN,
			ECM
	)

Definition at line 4036 of file dpm25nuc6g4.f.

References HepGeom::Plane3D< T >::d(), c2_transformation< float_type >::one(), c2_factory< float_type >::sqrt(), G4Abla::tau(), and c2_transformation< float_type >::zero().

subroutine ltnuc	(		PIN,
			EIN,
			POUT,
			EOUT,
			MODE
	)

Definition at line 3942 of file dpm25nuc6g4.f.

References daltra(), and c2_transformation< float_type >::zero().

subroutine ltrans	(		PXI,
			PYI,
			PZI,
			PEI,
			PXO,
			PYO,
			PZO,
			PEO,
			ID,
			MODE
	)

Definition at line 3898 of file dpm25nuc6g4.f.

References HepGeom::Plane3D< T >::d(), CLHEP::HepAxisAngle::delta(), ltnuc(), c2_factory< float_type >::sqrt(), G4Abla::tau(), and c2_transformation< float_type >::zero().

subroutine mashel	(	dimension(4)	PA1,
		dimension(4)	PA2,
			XM1,
			XM2,
		dimension(4)	P1,
		dimension(4)	P2,
			IREJ
	)

Definition at line 3631 of file dpm25nuc6g4.f.

References HepGeom::Plane3D< T >::d(), daltra(), mytran(), c2_transformation< float_type >::one(), G4StokesVector::p1(), G4StokesVector::p2(), CLHEP::HepLorentzVector::px(), CLHEP::HepLorentzVector::py(), CLHEP::HepLorentzVector::pz(), c2_factory< float_type >::sqrt(), HepGeom::Transform3D::xx(), ylamb(), HepGeom::Transform3D::yy(), c2_transformation< float_type >::zero(), and HepGeom::Transform3D::zz().

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

Definition at line 3731 of file dpm25nuc6g4.f.

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

subroutine nclpot	(		IPZ,
			IP,
			ITZ,
			IT,
			AFERP,
			AFERT,
			MODE
	)

Definition at line 702 of file dpm25nuc6g4.f.

References HepGeom::Plane3D< T >::d(), energy(), c2_transformation< float_type >::one(), c2_factory< float_type >::sqrt(), G4Abla::tau(), and c2_transformation< float_type >::zero().

subroutine resncl	(		EPN,
			MODE
	)

Definition at line 885 of file dpm25nuc6g4.f.

References HepGeom::Plane3D< T >::d(), energy(), evtemc(), ltini(), ltnuc(), ltrans(), nmxhkk, c2_transformation< float_type >::one(), c2_factory< float_type >::sqrt(), G4Abla::tau(), and c2_transformation< float_type >::zero().

subroutine scn4ba

(

)

Definition at line 1270 of file dpm25nuc6g4.f.

References HepGeom::Plane3D< T >::d(), G4CascadeCheckBalance::ekin(), evtput(), ltrans(), nclpot(), nmxhkk, c2_transformation< float_type >::one(), c2_factory< float_type >::sqrt(), G4Abla::tau(), and c2_transformation< float_type >::zero().

subroutine sihnab	(		IDP,
			IDT,
			PLAB,
			SIGABS
	)

Definition at line 5850 of file dpm25nuc6g4.f.

References a, HepGeom::Plane3D< T >::d(), G4CascadeCheckBalance::ekin(), c2_transformation< float_type >::one(), c2_factory< float_type >::sqrt(), and c2_transformation< float_type >::zero().

double precision function ylamb	(		X,
			Y,
			Z
	)

Definition at line 3765 of file dpm25nuc6g4.f.

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