dpm25nuc1.f File Reference

Go to the source code of this file.

Functions/Subroutines
program	dpmjet
subroutine	dminit (NCASES, EPN, PPN, NCOUNT, IGLAUB)
subroutine	dttest (CODEWD, WHAT, SDUM)
subroutine	samppt (MODE, PT)
real *8 function	bsofpt (ACC, CC, PPTCUT)
subroutine	bsofc1 (B, F, DF)
real *8 function	bsof1 (B)
real *8 function	rtsafe (FUNCD, X1, X2, XACC)
real *8 function	var (A, B, C, D)
subroutine	zbrac (FUNC, X1, X2, SUCCES)
subroutine	checkf (EPN, PPN, IREJ, IORIG)
subroutine	checkn (EPN, PPN, IREJ, IORIG)
subroutine	checko (EPN, PPN, IREJ, IORIG)
subroutine	checke (EPN, PPN)
double precision function	ebind (IA, IZ)
subroutine	defaul (EPN, PPN)
subroutine	hadhad (EPN, PPN, NHKKH1, IHTAWW, ITTA, IREJFO)
subroutine	chebch (IREJ, NHKKH1)
subroutine	parpt (IFL, PT1, PT2, IPT, NEVT)
subroutine	hkkfil (IST, ID, M1, M2, PX, PY, PZ, E, NHKKAU, KORMO, ICALL)
subroutine	jsparr

Function/Subroutine Documentation

real * 8 function bsof1

(

B

)

Definition at line 4561 of file dpm25nuc1.f.

References c2_factory< float_type >::exp().

Referenced by bsof1(), and bsofpt().

subroutine bsofc1	(		B,
			F,
			DF
	)

Definition at line 4548 of file dpm25nuc1.f.

References c2_factory< float_type >::exp(), and G4Abla::f().

Referenced by bsofpt().

real * 8 function bsofpt	(		ACC,
			CC,
			PPTCUT
	)

Definition at line 4498 of file dpm25nuc1.f.

References bsof1(), bsofc1(), HepGeom::Plane3D< T >::d(), rtsafe(), HepGeom::BasicVector3D< T >::y(), and zbrac().

Referenced by bsofpt(), and samppt().

subroutine chebch	(		IREJ,
			NHKKH1
	)

Definition at line 6270 of file dpm25nuc1.f.

References testem0.App::init(), mcihad(), nmxhkk, G4Abla::tau(), and c2_transformation< float_type >::zero().

Referenced by kkinc().

subroutine checke	(		EPN,
			PPN
	)

Definition at line 5560 of file dpm25nuc1.f.

References testem0.App::init(), nmxhkk, CLHEP::HepLorentzVector::px(), CLHEP::HepLorentzVector::py(), and CLHEP::HepLorentzVector::pz().

subroutine checkf	(		EPN,
			PPN,
			IREJ,
			IORIG
	)

Definition at line 4717 of file dpm25nuc1.f.

References HepGeom::Plane3D< T >::d(), energy(), testem0.App::init(), nmxhkk, CLHEP::HepLorentzVector::px(), CLHEP::HepLorentzVector::py(), and CLHEP::HepLorentzVector::pz().

Referenced by kkinc().

subroutine checkn	(		EPN,
			PPN,
			IREJ,
			IORIG
	)

Definition at line 4992 of file dpm25nuc1.f.

References HepGeom::Plane3D< T >::d(), energy(), testem0.App::init(), nmxhkk, CLHEP::HepLorentzVector::px(), CLHEP::HepLorentzVector::py(), CLHEP::HepLorentzVector::pz(), and c2_factory< float_type >::sqrt().

Referenced by kkinc().

subroutine checko	(		EPN,
			PPN,
			IREJ,
			IORIG
	)

Definition at line 5295 of file dpm25nuc1.f.

References testem0.App::init(), nmxhkk, CLHEP::HepLorentzVector::px(), CLHEP::HepLorentzVector::py(), and CLHEP::HepLorentzVector::pz().

Referenced by kkinc().

subroutine defaul	(		EPN,
			PPN
	)

Definition at line 5820 of file dpm25nuc1.f.

References nmxhkk, c2_factory< float_type >::sqrt(), and G4Abla::tau().

Referenced by dminit().

subroutine dminit	(		NCASES,
			EPN,
			PPN,
			NCOUNT,
			IGLAUB
	)

Definition at line 866 of file dpm25nuc1.f.

References berttp(), HepGeom::Plane3D< T >::d(), dchanh(), dchant(), ddatar(), ddates(), defaul(), defaux(), dhadde(), diadif(), disres(), distco(), distpa(), distr(), distrc(), distrp(), dttest(), fluini(), incini(), testem0.App::init(), int(), intmd, intmx, jtdtu(), luinol(), lundin(), mxafbk, mxffbk, mxnfbk, mxpsfb, mxpsst, mxzfbk, G4Abla::nint(), nmax, nmxhkk, nxafbk, nxnfbk, nxzfbk, plomb(), plombc(), prblm2(), print(), samppt(), shmak(), shmak1(), shmakf(), shmaki(), sigtes(), c2_factory< float_type >::sqrt(), status, G4Abla::tau(), tecalb(), timdat(), title(), HepGeom::BasicVector3D< T >::unit(), CexmcException::what(), and xsglau().

Referenced by dpmjet().

program dpmjet

(

)

Definition at line 2 of file dpm25nuc1.f.

References HepGeom::Plane3D< T >::d(), diadif(), disres(), distco(), distpa(), distr(), distrc(), distrp(), dminit(), testem0.App::init(), intmd, intmx, kkinc(), nmax, nmxhkk, parpt(), plomb(), plombc(), plot(), shmak(), shmak1(), c2_factory< float_type >::sqrt(), status, G4Abla::tau(), and timdat().

subroutine dttest	(	character*8	CODEWD,
		dimension(6)	WHAT,
		character*8	SDUM
	)

Definition at line 4026 of file dpm25nuc1.f.

References int(), jtdtu(), laptab(), c2_factory< float_type >::log(), nmax, pomdi(), prblm2(), samppt(), timdat(), title(), CexmcException::what(), and z.

Referenced by dminit().

double precision function ebind	(		IA,
			IZ
	)

Definition at line 5789 of file dpm25nuc1.f.

References iz, and G4Abla::mod().

Referenced by ebind(), gen_qel(), kkevdi(), kkevle(), kkevnu(), kkevt(), and qel_pol().

subroutine hadhad	(		EPN,
			PPN,
			NHKKH1,
			IHTAWW,
			ITTA,
			IREJFO
	)

Definition at line 6026 of file dpm25nuc1.f.

References fhad(), testem0.App::init(), mpdgha(), nmxhkk, rndm(), sihnel(), sihnin(), and G4Abla::tau().

Referenced by kkevt().

subroutine hkkfil	(		IST,
			ID,
			M1,
			M2,
			PX,
			PY,
			PZ,
			E,
			NHKKAU,
			KORMO,
			ICALL
	)

Definition at line 6509 of file dpm25nuc1.f.

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

Referenced by hadrds(), hadrdv(), hadrdz(), hadrhh(), hadrsd(), hadrss(), hadrsv(), hadrvd(), hadrvs(), hadrvv(), hadrzd(), and hadrzz().

subroutine jsparr

(

)

Definition at line 6691 of file dpm25nuc1.f.

References mcihad(), G4Abla::mod(), n, pycomp, pydat1, pydat3, pyjets, pymass(), and pyname().

subroutine parpt	(		IFL,
			PT1,
			PT2,
			IPT,
			NEVT
	)

Definition at line 6468 of file dpm25nuc1.f.

References HepGeom::Plane3D< T >::d().

Referenced by dpmjet(), hadrhh(), hadrss(), hadrsv(), hadrvs(), hadrvv(), and hadrzz().

real * 8 function rtsafe	(		FUNCD,
			X1,
			X2,
			XACC
	)

Definition at line 4579 of file dpm25nuc1.f.

References HepGeom::Transform3D::dx(), G4Abla::f(), and var().

Referenced by bsofpt(), and rtsafe().

subroutine samppt	(		MODE,
			PT
	)

Definition at line 4387 of file dpm25nuc1.f.

References CLHEP::HepBoost::beta(), bsofpt(), HepGeom::Plane3D< T >::d(), CLHEP::HepLorentzVector::e(), c2_factory< float_type >::exp(), G4StatDouble::fill(), c2_factory< float_type >::log(), c2_transformation< float_type >::one(), plot(), rndm(), c2_factory< float_type >::sqrt(), title(), and c2_transformation< float_type >::zero().

Referenced by dminit(), dpmevt(), dttest(), and selpt().

real * 8 function var	(		A,
			B,
			C,
			D
	)

Definition at line 4649 of file dpm25nuc1.f.

References a, HepGeom::Plane3D< T >::d(), CLHEP::HepLorentzVector::e(), and c2_transformation< float_type >::one().

Referenced by G4EmCaptureCascade::ApplyYourself(), G4MuMinusCaptureCascade::DoCascade(), hntvar2(), G4GDMLRead::LoopRead(), MarshaledG4VHitsCollection::marshal1(), MarshaledG4VHitsCollection::marshal2(), G4PixeCrossSectionHandler::MicroscopicCrossSection(), G4LowEnergyCompton::PostStepDoIt(), G4LowEnergyPolarizedCompton::PostStepDoIt(), rtsafe(), G4LivermorePolarizedComptonModel::SampleSecondaries(), G4LivermoreComptonModifiedModel::SampleSecondaries(), G4LivermoreComptonModel::SampleSecondaries(), MarshaledG4VHitsCollection::unmarshal1(), MarshaledG4VHitsCollection::unmarshal2(), and var().

subroutine zbrac	(	external	FUNC,
			X1,
			X2,
		logical	SUCCES
	)

Definition at line 4673 of file dpm25nuc1.f.

Referenced by bsofpt().