dpm25nuc2.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	primpt (MPO, ECM)
subroutine	selpth (PQUAR, PAQUAR, TQUAR, TAQUAR, ECM, PTXSQ1, PTYSQ1, PLQ1, EQ1, PTXSA1, PTYSA1, PLAQ1, EAQ1, PTXSQ2, PTYSQ2, PLQ2, EQ2, PTXSA2, PTYSA2, PLAQ2, EAQ2, AMCH1, AMCH2, IREJ, IKVALA, pttq1, ptta1, pttq2, ptta2)
subroutine	xptfl (NHARD, NSEA, IREG, XMAX1, XMAX2)
subroutine	xptfl1 (NHARD, NSEA, NVAL, SOXUS1, SOXUS2, SOX1, SOX2, HAX1, HAX2, LPO, MPO, NPO, LPASOF, IJPVAL, IJTVAL, RJ1000, XMAX1, XMAX2)
subroutine	ptval (XP, XXP, XXT, XT, ECM, PTXVQ1, PTYVQ1, PLQ1, EQ1, PTXVA1, PTYVA1, PLAQ1, EAQ1, PTXVQ2, PTYVQ2, PLQ2, EQ2, PTXVA2, PTYVA2, PLAQ2, EAQ2, AMCH1, AMCH2, IREJ, IKVALA)
subroutine	kkevt (NHKKH1, EPN, PPN, KKMAT, IREJ)
subroutine	kkevvv (IREJVV, NBPROJ)
subroutine	kkevss
subroutine	kkevvs (IREJVS)
subroutine	kkevsv (IREJSV)
subroutine	cromsc (PX, PY, PZ, E, RX, RY, RZ, PXN, PYN, PZN, EN, IORIG)
subroutine	kkevhh
subroutine	kkevzz
subroutine	corrco
subroutine	kkevnu (NHKKH1, EPN, PPN, KKMAT, IREJ, ECM)
subroutine	kkevdi (NHKKH1, EPN, PPN, KKMAT, IREJ)
subroutine	luinol
subroutine	testfilenu
subroutine	filenu (EPN, LTYP, NUTYP, PLU21, PLU22, PLU23, NHO, IFLAG, LEND)
subroutine	read_ini
subroutine	testrot1s (PI, PO, PHI)
subroutine	testrot2s (PI, PO, PHI)
subroutine	testrot3s (PI, PO, PHI)
subroutine	testrot4s (PI, PO, PHI)
subroutine	rotate
subroutine	backrot
subroutine	backdpm
subroutine	dropdi (NN, NP, NT, ECM)

Function/Subroutine Documentation

subroutine backdpm

(

)

Definition at line 10544 of file dpm25nuc2.f.

References HepGeom::Plane3D< T >::d(), nmxhkk, testrot3s(), and testrot4s().

Referenced by kkinc().

subroutine backrot

(

)

Definition at line 10502 of file dpm25nuc2.f.

References HepGeom::Plane3D< T >::d(), n, pyjets, testrot3s(), and testrot4s().

Referenced by kkevnu(), and testfilenu().

subroutine corrco

(

)

Definition at line 8379 of file dpm25nuc2.f.

References nmxhkk.

Referenced by kkevt().

subroutine cromsc	(		PX,
			PY,
			PZ,
			E,
			RX,
			RY,
			RZ,
			PXN,
			PYN,
			PZN,
			EN,
			IORIG
	)

Definition at line 7037 of file dpm25nuc2.f.

References a, c2_factory< float_type >::cos(), dsfecf(), dtrans(), CLHEP::HepLorentzVector::e(), testem0.App::init(), CLHEP::HepLorentzVector::px(), CLHEP::HepLorentzVector::py(), CLHEP::HepLorentzVector::pz(), rannor(), c2_factory< float_type >::sin(), sltraf(), c2_factory< float_type >::sqrt(), and HepGeom::BasicVector3D< T >::theta().

Referenced by kkevds(), kkevdv(), kkevhh(), kkevsd(), kkevss(), kkevsv(), kkevvd(), kkevvs(), kkevvv(), and kkevzz().

subroutine dropdi	(		NN,
			NP,
			NT,
			ECM
	)

Definition at line 10605 of file dpm25nuc2.f.

References intmx, rndm(), siinel(), and sippsd().

Referenced by kkevt().

subroutine filenu	(		EPN,
			LTYP,
			NUTYP,
			PLU21,
			PLU22,
			PLU23,
			NHO,
			IFLAG,
			LEND
	)

Definition at line 10293 of file dpm25nuc2.f.

References G4String::first(), testem0.App::init(), lend, n, pyjets, read_ini(), and status.

Referenced by kkevnu(), and testfilenu().

subroutine kkevdi	(		NHKKH1,
			EPN,
			PPN,
			KKMAT,
			IREJ
	)

Definition at line 9426 of file dpm25nuc2.f.

References CLHEP::HepLorentzVector::e(), ebind(), fe, fer4mt(), testem0.App::init(), intmd, intmx, mcihad(), G4Abla::mod(), mpdgha(), nmxhkk, nucmom(), print(), rndm(), shmako(), c2_factory< float_type >::sqrt(), and G4Abla::tau().

Referenced by kkinc().

subroutine kkevhh

(

)

Definition at line 7193 of file dpm25nuc2.f.

References cromsc(), testem0.App::init(), intmd, intmx, n, nmxhkk, qinnuc(), and c2_factory< float_type >::sqrt().

Referenced by kkevt().

subroutine kkevnu	(		NHKKH1,
			EPN,
			PPN,
			KKMAT,
			IREJ,
			ECM
	)

Definition at line 8539 of file dpm25nuc2.f.

References backrot(), CLHEP::HepLorentzVector::e(), ebind(), fe, fer4mt(), filenu(), gen_delta(), testem0.App::init(), intmd, intmx, klu(), lend, ltini(), mass_ini(), mcihad(), G4Abla::mod(), mpdgha(), nmxhkk, nucmom(), plu(), pyjets, pylist(), qel_pol(), rndm(), rotate(), shmako(), c2_factory< float_type >::sqrt(), and G4Abla::tau().

Referenced by kkinc().

subroutine kkevss

(

)

Definition at line 3745 of file dpm25nuc2.f.

References comcma(), cormom(), corval(), cromsc(), daltra(), CLHEP::HepLorentzVector::e(), testem0.App::init(), intmd, intmx, n, nmxhkk, qinnuc(), selpt(), selpt4(), c2_factory< float_type >::sqrt(), and xptfl().

Referenced by kkevt().

subroutine kkevsv

(

IREJSV

)

Definition at line 5851 of file dpm25nuc2.f.

References cobcma(), comcma(), cormom(), corval(), cromsc(), daltra(), CLHEP::HepLorentzVector::e(), testem0.App::init(), intmd, intmx, n, nmxhkk, qinnuc(), selpt(), selpt4(), c2_factory< float_type >::sqrt(), G4Abla::tau(), and xptfl().

Referenced by kkevt().

subroutine kkevt	(		NHKKH1,
			EPN,
			PPN,
			KKMAT,
			IREJ
	)

Definition at line 1405 of file dpm25nuc2.f.

References corrco(), dropdi(), CLHEP::HepLorentzVector::e(), ebind(), evtest(), fe, fer4mp(), fer4mt(), flksaa(), flksam(), hadhad(), hadrkk(), testem0.App::init(), intmd, intmx, kkevds(), kkevdv(), kkevhh(), kkevsd(), kkevss(), kkevsv(), kkevvd(), kkevvs(), kkevvv(), kkevzz(), mcihad(), G4Abla::mod(), mpdgha(), n, nmxhkk, nucmom(), print(), rndm(), sdiff(), shmak(), shmak1(), shmako(), c2_factory< float_type >::sqrt(), G4Abla::tau(), and xksamp().

Referenced by kkinc().

subroutine kkevvs

(

IREJVS

)

Definition at line 4806 of file dpm25nuc2.f.

References cobcma(), comcma(), cormom(), corval(), cromsc(), daltra(), CLHEP::HepLorentzVector::e(), testem0.App::init(), intmd, intmx, n, nmxhkk, qinnuc(), selpt(), selpt4(), c2_factory< float_type >::sqrt(), G4Abla::tau(), and xptfl().

Referenced by kkevt().

subroutine kkevvv	(		IREJVV,
			NBPROJ
	)

Definition at line 2518 of file dpm25nuc2.f.

References cobcma(), comcm2(), comcma(), cormom(), corval(), cromsc(), daltra(), CLHEP::HepLorentzVector::e(), testem0.App::init(), intmd, intmx, n, nmxhkk, phnsch(), qinnuc(), rndm(), selpt(), selpts(), c2_factory< float_type >::sqrt(), G4Abla::tau(), xptfl(), and c2_transformation< float_type >::zero().

Referenced by kkevt().

subroutine kkevzz

(

)

Definition at line 7729 of file dpm25nuc2.f.

References cromsc(), testem0.App::init(), intmd, intmx, n, nmxhkk, qinnuc(), and c2_factory< float_type >::sqrt().

Referenced by kkevt().

subroutine luinol

(

)

Definition at line 10202 of file dpm25nuc2.f.

References lucomp().

Referenced by dminit().

subroutine primpt	(		MPO,
			ECM
	)

Definition at line 7 of file dpm25nuc2.f.

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

subroutine ptval	(		XP,
			XXP,
			XXT,
			XT,
			ECM,
			PTXVQ1,
			PTYVQ1,
			PLQ1,
			EQ1,
			PTXVA1,
			PTYVA1,
			PLAQ1,
			EAQ1,
			PTXVQ2,
			PTYVQ2,
			PLQ2,
			EQ2,
			PTXVA2,
			PTYVA2,
			PLAQ2,
			EAQ2,
			AMCH1,
			AMCH2,
			IREJ,
			IKVALA
	)

Definition at line 1364 of file dpm25nuc2.f.

References c2_factory< float_type >::sqrt(), and CLHEP::HepBoost::xt().

subroutine read_ini

(

)

Definition at line 10360 of file dpm25nuc2.f.

Referenced by filenu().

subroutine rotate

(

)

Definition at line 10457 of file dpm25nuc2.f.

References HepGeom::Plane3D< T >::d(), n, pyjets, testrot1s(), and testrot2s().

Referenced by export_G4TwoVector(), kkevnu(), G4GDMLWriteStructure::PhysvolWrite(), G4CollisionOutput::rotateEvent(), and testfilenu().

subroutine selpth	(	dimension(4)	PQUAR,
		dimension(4)	PAQUAR,
		dimension(4)	TQUAR,
		dimension(4)	TAQUAR,
			ECM,
			PTXSQ1,
			PTYSQ1,
			PLQ1,
			EQ1,
			PTXSA1,
			PTYSA1,
			PLAQ1,
			EAQ1,
			PTXSQ2,
			PTYSQ2,
			PLQ2,
			EQ2,
			PTXSA2,
			PTYSA2,
			PLAQ2,
			EAQ2,
			AMCH1,
			AMCH2,
			IREJ,
			IKVALA,
			pttq1,
			ptta1,
			pttq2,
			ptta2
	)

Definition at line 49 of file dpm25nuc2.f.

References dsfecf(), CLHEP::HepLorentzVector::e(), c2_factory< float_type >::log(), rndm(), and c2_factory< float_type >::sqrt().

subroutine testfilenu

(

)

Definition at line 10258 of file dpm25nuc2.f.

References backrot(), filenu(), lend, n, pyjets, and rotate().

subroutine testrot1s	(	dimension(3)	PI,
		dimension(3)	PO,
			PHI
	)

Definition at line 10380 of file dpm25nuc2.f.

References c2_factory< float_type >::cos(), HepGeom::BasicVector3D< T >::phi(), and c2_factory< float_type >::sin().

Referenced by rotate().

subroutine testrot2s	(	dimension(3)	PI,
		dimension(3)	PO,
			PHI
	)

Definition at line 10400 of file dpm25nuc2.f.

References c2_factory< float_type >::cos(), HepGeom::BasicVector3D< T >::phi(), and c2_factory< float_type >::sin().

Referenced by rotate().

subroutine testrot3s	(	dimension(3)	PI,
		dimension(3)	PO,
			PHI
	)

Definition at line 10419 of file dpm25nuc2.f.

References c2_factory< float_type >::cos(), HepGeom::BasicVector3D< T >::phi(), and c2_factory< float_type >::sin().

Referenced by backdpm(), and backrot().

subroutine testrot4s	(	dimension(3)	PI,
		dimension(3)	PO,
			PHI
	)

Definition at line 10438 of file dpm25nuc2.f.

References c2_factory< float_type >::cos(), HepGeom::BasicVector3D< T >::phi(), and c2_factory< float_type >::sin().

Referenced by backdpm(), and backrot().

subroutine xptfl	(		NHARD,
			NSEA,
			IREG,
			XMAX1,
			XMAX2
	)

Definition at line 115 of file dpm25nuc2.f.

References testem0.App::init(), intmx, c2_factory< float_type >::log(), G4Abla::mod(), nmax, c2_transformation< float_type >::one(), rndm(), samplm(), samplx(), selhrd(), c2_factory< float_type >::sqrt(), G4Abla::tau(), title(), xptfl1(), and c2_transformation< float_type >::zero().

Referenced by kkevss(), kkevsv(), kkevvs(), and kkevvv().

subroutine xptfl1	(		NHARD,
			NSEA,
			NVAL,
			SOXUS1,
			SOXUS2,
			SOX1,
			SOX2,
			HAX1,
			HAX2,
			LPO,
			MPO,
			NPO,
			LPASOF,
			IJPVAL,
			IJTVAL,
			RJ1000,
			XMAX1,
			XMAX2
	)

Definition at line 548 of file dpm25nuc2.f.

References dbeta(), diqdzz(), diqzzd(), gm, intmd, intmx, c2_factory< float_type >::log(), c2_transformation< float_type >::one(), rndm(), sampex(), sampey(), sampxb(), selpt(), c2_factory< float_type >::sqrt(), G4Abla::tau(), title(), and c2_transformation< float_type >::zero().

Referenced by xptfl().