dpm25nuc1g4.f File Reference

Go to the source code of this file.

Functions/Subroutines
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 631 of file dpm25nuc1g4.f.

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

subroutine bsofc1	(		B,
			F,
			DF
	)

Definition at line 618 of file dpm25nuc1g4.f.

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

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

Definition at line 568 of file dpm25nuc1g4.f.

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

subroutine chebch	(		IREJ,
			NHKKH1
	)

Definition at line 2340 of file dpm25nuc1g4.f.

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

subroutine checke	(		EPN,
			PPN
	)

Definition at line 1630 of file dpm25nuc1g4.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 787 of file dpm25nuc1g4.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 1062 of file dpm25nuc1g4.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 1365 of file dpm25nuc1g4.f.

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

subroutine defaul	(		EPN,
			PPN
	)

Definition at line 1890 of file dpm25nuc1g4.f.

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

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

Definition at line 85 of file dpm25nuc1g4.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 1859 of file dpm25nuc1g4.f.

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

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

Definition at line 2096 of file dpm25nuc1g4.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 2579 of file dpm25nuc1g4.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 2767 of file dpm25nuc1g4.f.

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

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

Definition at line 2538 of file dpm25nuc1g4.f.

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

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

Definition at line 649 of file dpm25nuc1g4.f.

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

subroutine samppt	(		MODE,
			PT
	)

Definition at line 446 of file dpm25nuc1g4.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 719 of file dpm25nuc1g4.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 743 of file dpm25nuc1g4.f.