dpm25nuc1dpm.f File Reference

Go to the source code of this file.

Functions/Subroutines
program	dpmjet
subroutine	dminit (NCASES, MULTE, 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 4637 of file dpm25nuc1dpm.f.

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

subroutine bsofc1	(		B,
			F,
			DF
	)

Definition at line 4624 of file dpm25nuc1dpm.f.

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

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

Definition at line 4574 of file dpm25nuc1dpm.f.

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

subroutine chebch	(		IREJ,
			NHKKH1
	)

Definition at line 6346 of file dpm25nuc1dpm.f.

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

subroutine checke	(		EPN,
			PPN
	)

Definition at line 5636 of file dpm25nuc1dpm.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 4793 of file dpm25nuc1dpm.f.

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

subroutine checkn	(		EPN,
			PPN,
			IREJ,
			IORIG
	)

Definition at line 5068 of file dpm25nuc1dpm.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().

subroutine checko	(		EPN,
			PPN,
			IREJ,
			IORIG
	)

Definition at line 5371 of file dpm25nuc1dpm.f.

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

subroutine defaul	(		EPN,
			PPN
	)

Definition at line 5896 of file dpm25nuc1dpm.f.

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

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

Definition at line 921 of file dpm25nuc1dpm.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().

program dpmjet

(

)

Definition at line 2 of file dpm25nuc1dpm.f.

References HepGeom::Plane3D< T >::d(), diadif(), disres(), distco(), distpa(), distr(), distrc(), distrp(), dminit(), dpmevt(), testem0.App::init(), intmd, intmx, kkinc(), nmax, nmxhkk, parpt(), plomb(), plombc(), plot(), rndm(), 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 4091 of file dpm25nuc1dpm.f.

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

double precision function ebind	(		IA,
			IZ
	)

Definition at line 5865 of file dpm25nuc1dpm.f.

References ebind(), iz, and G4Abla::mod().

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

Definition at line 6102 of file dpm25nuc1dpm.f.

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

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

Definition at line 6585 of file dpm25nuc1dpm.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().

subroutine jsparr

(

)

Definition at line 6773 of file dpm25nuc1dpm.f.

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

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

Definition at line 6544 of file dpm25nuc1dpm.f.

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

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

Definition at line 4655 of file dpm25nuc1dpm.f.

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

subroutine samppt	(		MODE,
			PT
	)

Definition at line 4452 of file dpm25nuc1dpm.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(), sigshd(), c2_factory< float_type >::sqrt(), title(), and c2_transformation< float_type >::zero().

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

Definition at line 4725 of file dpm25nuc1dpm.f.

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

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

Definition at line 4749 of file dpm25nuc1dpm.f.