dpm25nulib.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	timdat
subroutine	rndmst (NA1, NA2, NA3, NB1)
subroutine	rndmin (UIN, CIN, CDIN, CMIN, IIN, JIN)
subroutine	rndmou (UOUT, COUT, CDOUT, CMOUT, IOUT, JOUT)
subroutine	rndmte (IO)
subroutine	rannor (X, Y)
subroutine	plot (X, Y, N, M, MM, XO, DX, YO, DY)
double precision function	dbetar (GAM, ETA)
double precision function	dgamrn (ALAM, ETA)
double precision function	betrej (GAM, ETA, XMIN, XMAX)
function	mcihad (MCIND)
function	mpdgha (MCIND)
function	mchad (ITDTU)
subroutine	dtrans (XO, YO, ZO, CDE, SDE, SFE, CFE, X, Y, Z)
subroutine	daltra (GA, BGX, BGY, BGZ, PCX, PCY, PCZ, EC, P, PX, PY, PZ, E)
subroutine	faltra (GA, BGA, CX, CY, CZ, COD, COF, SIF, PC, EC, P, PX, PY, PZ, E)
subroutine	dpoli (CS, SI)
subroutine	dfermi (GPART)
double precision function	gquad (F, AX, BX, NX)
subroutine	gset (AX, BX, NX, Z, W)
subroutine	d106bd
double precision function	samsqx (X1, X2)
double precision function	sampey (X1, X2)
double precision function	sampex (X1, X2)
double precision function	sampxb (X1, X2, B)
subroutine	sorti (A, N)
subroutine	rm48 (RVEC, LENV)
double precision function	rndm (RDUMMY)

Function/Subroutine Documentation

double precision function betrej	(		GAM,
			ETA,
			XMIN,
			XMAX
	)

Definition at line 344 of file dpm25nulib.f.

References HepGeom::BasicVector3D< T >::eta(), rndm(), c2_function< float_type >::xmax(), c2_function< float_type >::xmin(), HepGeom::Transform3D::xx(), and HepGeom::Transform3D::yy().

Referenced by hadjck(), and xksamp().

subroutine d106bd

(

)

Definition at line 747 of file dpm25nulib.f.

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

Referenced by gquad(), and gset().

subroutine daltra	(		GA,
			BGX,
			BGY,
			BGZ,
			PCX,
			PCY,
			PCZ,
			EC,
			P,
			PX,
			PY,
			PZ,
			E
	)

Definition at line 542 of file dpm25nulib.f.

References CLHEP::HepLorentzVector::e(), c2_transformation< float_type >::one(), CLHEP::HepLorentzVector::px(), CLHEP::HepLorentzVector::py(), CLHEP::HepLorentzVector::pz(), and c2_factory< float_type >::sqrt().

Referenced by absorp(), fhad(), hadjet(), hadri1(), inucas(), kkevds(), kkevsd(), kkevss(), kkevsv(), kkevvs(), kkevvv(), lortmo(), lortrp(), ltnuc(), mashel(), pinkla(), sdiff(), and zorval().

double precision function dbetar	(		GAM,
			ETA
	)

Definition at line 289 of file dpm25nulib.f.

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

Referenced by hadjck(), vahmsd(), and xksamp().

subroutine dfermi

(

GPART

)

Definition at line 609 of file dpm25nulib.f.

References rndm().

Referenced by fer4m(), fer4mp(), and fer4mt().

double precision function dgamrn	(		ALAM,
			ETA
	)

Definition at line 307 of file dpm25nulib.f.

References HepGeom::Plane3D< T >::d(), HepGeom::BasicVector3D< T >::eta(), c2_factory< float_type >::exp(), G4Abla::f(), c2_factory< float_type >::log(), n, HepGeom::BasicVector3D< T >::r(), rndm(), HepGeom::BasicVector3D< T >::y(), and z.

Referenced by dbetar().

subroutine dpoli	(		CS,
			SI
	)

Definition at line 597 of file dpm25nulib.f.

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

Referenced by fer4m(), fer4mp(), fer4mt(), and pinkla().

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

Definition at line 510 of file dpm25nulib.f.

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

Referenced by cromsc(), hadjet(), and sdiff().

subroutine faltra	(		GA,
			BGA,
			CX,
			CY,
			CZ,
			COD,
			COF,
			SIF,
			PC,
			EC,
			P,
			PX,
			PY,
			PZ,
			E
	)

Definition at line 569 of file dpm25nulib.f.

References CLHEP::HepLorentzVector::e(), CLHEP::HepLorentzVector::px(), CLHEP::HepLorentzVector::py(), CLHEP::HepLorentzVector::pz(), and c2_factory< float_type >::sqrt().

double precision function gquad	(	external	F,
			AX,
			BX,
			NX
	)

Definition at line 636 of file dpm25nulib.f.

References a, CLHEP::HepBoost::beta(), d106bd(), CLHEP::HepAxisAngle::delta(), G4Abla::f(), jmax, and n.

subroutine gset	(		AX,
			BX,
			NX,
		dimension(192)	Z,
		dimension(192)	W
	)

Definition at line 689 of file dpm25nulib.f.

References a, CLHEP::HepBoost::beta(), d106bd(), CLHEP::HepAxisAngle::delta(), n, and z.

Referenced by csharm(), csj1m(), csj1mi(), G4AblaFission::gausshaz(), habint(), prblm2(), and qrblm2().

function mchad

(

ITDTU

)

Definition at line 488 of file dpm25nulib.f.

Referenced by inucas().

function mcihad

(

MCIND

)

Definition at line 364 of file dpm25nulib.f.

Referenced by bamlun(), chebch(), dechkk(), diadif(), diseva(), dispt(), distr(), distrc(), evtini(), hadrkk(), icihad(), jsparr(), kkevdi(), kkevle(), kkevnu(), kkevt(), and sewew().

function mpdgha

(

MCIND

)

Definition at line 386 of file dpm25nulib.f.

Referenced by ddates(), dechkk(), hadhad(), hadrdi(), hadrds(), hadrdv(), hadrdz(), hadrhh(), hadrsd(), hadrss(), hadrsv(), hadrvd(), hadrvs(), hadrvv(), hadrzd(), hadrzz(), ipdgha(), kkevdi(), kkevle(), kkevnu(), kkevt(), pinkla(), and sewew().

subroutine plot	(	dimension(n)	X,
		dimension(n)	Y,
			N,
			M,
			MM,
			XO,
			DX,
			YO,
			DY
	)

Definition at line 176 of file dpm25nulib.f.

References HepGeom::Transform3D::dx(), HepGeom::Transform3D::dy(), n, HepGeom::Transform3D::xx(), HepGeom::BasicVector3D< T >::y(), and HepGeom::Transform3D::yy().

Referenced by diadif(), diseva(), dispt(), distcm(), distr(), distrc(), dpmjet(), fluini(), hatest(), hisout(), plotResults::main(), profb(), samppt(), shmak(), shmak1(), sigmas(), and sigtes().

subroutine rannor	(		X,
			Y
	)

Definition at line 164 of file dpm25nulib.f.

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

Referenced by conucl(), and cromsc().

subroutine rm48	(	dimension(*)	RVEC,
			LENV
	)

Definition at line 1168 of file dpm25nulib.f.

References HepGeom::Plane3D< T >::d(), G4Abla::mod(), c2_transformation< float_type >::one(), CLHEP::HepLorentzVector::t(), HepGeom::BasicVector3D< T >::unit(), and c2_transformation< float_type >::zero().

Referenced by rndm().

double precision function rndm

(

RDUMMY

)

Definition at line 1460 of file dpm25nulib.f.

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

Referenced by absorp(), bamlun(), betrej(), G4Abla::breakItUp(), calbam(), casasv(), casavs(), conucl(), dcosi(), ddecay(), G4MuonDecayChannelWithSpin::DecayIt(), decays(), dechkk(), dfatpr(), dfatta(), dfermi(), dgamrn(), diagr(), diffpt(), diqdss(), diqdzz(), diqssd(), diqsv(), diqvs(), diqzzd(), dpmevt(), dpmjet(), dpoli(), drandm(), dropdi(), dsfecf(), dshnel(), dshnto(), dthrep(), dtwopd(), elhain(), flahad(), flksaa(), fozoca(), DMXParticleSource::GenerateIsotropicFlux(), G4GeneralParticleSource::GeneratePrimaryVertex(), G4SPSRandomGenerator::GenRandEnergy(), G4SPSRandomGenerator::GenRandPhi(), G4SPSRandomGenerator::GenRandPosPhi(), G4SPSRandomGenerator::GenRandPosTheta(), G4SPSRandomGenerator::GenRandTheta(), G4SPSRandomGenerator::GenRandX(), G4SPSRandomGenerator::GenRandY(), G4SPSRandomGenerator::GenRandZ(), G4INCL::DeltaProductionChannel::getFinalState(), G4INCL::ElasticChannel::getFinalState(), G4RDPhotoElectricAngularGeneratorSauterGavrila::GetPhotoElectronDirection(), hadhad(), hadrds(), hadrdv(), hadrdz(), hadrsd(), hadrss(), hadrsv(), hadrvd(), hadrvs(), hadrvv(), hadrzd(), hamult(), harkin(), harsca(), hax1x2(), inucas(), kkevdi(), kkevle(), kkevnu(), kkevt(), kkevvv(), lepdcyp(), modb(), npoiss(), phnsch(), pinkla(), primpt(), qinnuc(), raco(), rannor(), rndmte(), sampex(), sampey(), G4PhotoElectricAngularGeneratorSauterGavrila::SampleDirection(), G4AdjointPhotoElectricModel::SampleSecondaries(), G4GoudsmitSaundersonTable::SampleTheta(), samplm(), samplx(), samppt(), sampxb(), samsqx(), saptre(), sdiff(), selpt(), selpt4(), selpth(), selpts(), sewew(), sihnin(), tsamcs(), vahmsd(), valmdd(), valmsd(), xksamp(), xptfl(), xptfl1(), xseapa(), and xshpto().

subroutine rndmin	(	dimension(97)	UIN,
			CIN,
			CDIN,
			CMIN,
			IIN,
			JIN
	)

Definition at line 109 of file dpm25nulib.f.

Referenced by rndmte().

subroutine rndmou	(	dimension(97)	UOUT,
			COUT,
			CDOUT,
			CMOUT,
			IOUT,
			JOUT
	)

Definition at line 124 of file dpm25nulib.f.

Referenced by rndmte().

subroutine rndmst	(		NA1,
			NA2,
			NA3,
			NB1
	)

Definition at line 81 of file dpm25nulib.f.

References G4Abla::mod(), and CLHEP::HepLorentzVector::t().

Referenced by rndmte().

subroutine rndmte

(

IO

)

Definition at line 139 of file dpm25nulib.f.

References HepGeom::Plane3D< T >::d(), rndm(), rndmin(), rndmou(), rndmst(), and HepGeom::Transform3D::xx().

double precision function sampex	(		X1,
			X2
	)

Definition at line 1118 of file dpm25nulib.f.

References c2_factory< float_type >::exp(), c2_factory< float_type >::log(), HepGeom::BasicVector3D< T >::r(), rndm(), and samsqx().

Referenced by xksamp(), xptfl1(), and xseapa().

double precision function sampey	(		X1,
			X2
	)

Definition at line 1107 of file dpm25nulib.f.

References c2_factory< float_type >::exp(), c2_factory< float_type >::log(), HepGeom::BasicVector3D< T >::r(), and rndm().

Referenced by hadjase(), hadjse(), vahmsd(), xksamp(), and xptfl1().

double precision function sampxb	(		X1,
			X2,
			B
	)

Definition at line 1133 of file dpm25nulib.f.

References a, c2_factory< float_type >::exp(), c2_factory< float_type >::log(), rndm(), and c2_factory< float_type >::sqrt().

Referenced by xksamp(), and xptfl1().

double precision function samsqx	(		X1,
			X2
	)

Definition at line 1099 of file dpm25nulib.f.

References HepGeom::BasicVector3D< T >::r(), rndm(), and c2_factory< float_type >::sqrt().

Referenced by sampex().

subroutine sorti	(	dimension(n)	A,
			N
	)

Definition at line 1147 of file dpm25nulib.f.

References a, and n.

subroutine timdat

(

)

Definition at line 1 of file dpm25nulib.f.

Referenced by dminit(), dpmjet(), dttest(), harini(), and laptab().