dpm25nuc3.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	saptre (AM1, G1, BGX1, BGY1, BGZ1, AM2, G2, BGX2, BGY2, BGZ2)
subroutine	sltraf (GA, BGA, EIN, PZIN, EOUT, PZOUT)
subroutine	nucmom
subroutine	fer4m (PFERM, PXT, PYT, PZT, ET, KT)
subroutine	fer4mp (IP, PFERM, PXT, PYT, PZT, ET, KT)
subroutine	fer4mt (IT, PFERM, PXT, PYT, PZT, ET, KT)
subroutine	dfatta (IT, PABS)
subroutine	dfatpr (IP, PABS)
subroutine	flksam
subroutine	flksaa (NN, ECM)
subroutine	flahad (ITYP, IBAR, IF1, IF2, IF3)
subroutine	xksamp (NN, ECM)
subroutine	parhkk
subroutine	hadrkk (NHKKH1, PPN)
subroutine	hadrvv
subroutine	hadrsv
subroutine	hadrss
subroutine	hadrvs
subroutine	hadjet (NHAD, AMCH, PPR, PTA, GAM, BGX, BGY, BGZ, IFB1, IFB2, IFB3, IFB4, I1, I2, NOBAM, NNCH, NORIG)
subroutine	lortrp (N, NAUX, GAM, BGX, BGY, BGZ)
subroutine	cobcma (IF1, IF2, IF3, IJNCH, NNCH, IREJ, AMCH, AMCHN, IKET)
subroutine	comcma (IFQ, IFAQ, IJNCH, NNCH, IREJ, AMCH, AMCHN)
subroutine	comcm2 (IQ1, IQ2, IAQ1, IAQ2, NNCH, IREJ, AMCH)
subroutine	cormom (AMCH1, AMCH2, AMCH1N, AMCH2N, PQ1X, PQ1Y, PQ1Z, PQ1E, PA1X, PA1Y, PA1Z, PA1E, PQ2X, PQ2Y, PQ2Z, PQ2E, PA2X, PA2Y, PA2Z, PA2E, PXCH1, PYCH1, PZCH1, ECH1, PXCH2, PYCH2, PZCH2, ECH2, IREJ)
subroutine	selpt4 (PTXSQ1, PTYSQ1, PLQ1, EQ1, PTXSA1, PTYSA1, PLAQ1, EAQ1, PTXSQ2, PTYSQ2, PLQ2, EQ2, PTXSA2, PTYSA2, PLAQ2, EAQ2, AMCH1, AMCH2, IREJ, IKVALA, PTTQ1, PTTA1, NSELPT)
subroutine	selpt (PTXSQ1, PTYSQ1, PLQ1, EQ1, PTXSA1, PTYSA1, PLAQ1, EAQ1, PTXSQ2, PTYSQ2, PLQ2, EQ2, PTXSA2, PTYSA2, PLAQ2, EAQ2, AMCH1, AMCH2, IREJ, IKVALA, PTTQ1, PTTA1, PTTQ2, PTTA2, NSELPT)
subroutine	dechkk (NHKKH1)
subroutine	dtrafo (GAM, BGAM, CX, CY, CZ, COD, COF, SIF, P, ECM, PL, CXL, CYL, CZL, EL)
subroutine	sttran (XO, YO, ZO, CDE, SDE, SFE, CFE, X, Y, Z)
subroutine	lortmo (N, GAM, BGX, BGY, BGZ)
subroutine	evtest (IREJ)
subroutine	corval (AMMM, IREJ, AMCH1, AMCH2, QTX1, QTY1, QZ1, QE1, QTX2, QTY2, QZ2, QE2, NORIG)
subroutine	hadrhh
subroutine	hadrzz
subroutine	qinnuc (X, Y)
subroutine	casavs
subroutine	casasv

Function/Subroutine Documentation

subroutine casasv

(

)

Definition at line 9447 of file dpm25nuc3.f.

References testem0.App::init(), intmd, intmx, nmxhkk, and rndm().

Referenced by hadrkk().

subroutine casavs

(

)

Definition at line 9163 of file dpm25nuc3.f.

References testem0.App::init(), intmd, intmx, nmxhkk, and rndm().

Referenced by hadrkk().

subroutine cobcma	(		IF1,
			IF2,
			IF3,
			IJNCH,
			NNCH,
			IREJ,
			AMCH,
			AMCHN,
			IKET
	)

Definition at line 6049 of file dpm25nuc3.f.

References dbklas(), testem0.App::init(), and G4Abla::tau().

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

subroutine comcm2	(		IQ1,
			IQ2,
			IAQ1,
			IAQ2,
			NNCH,
			IREJ,
			AMCH
	)

Definition at line 6218 of file dpm25nuc3.f.

References testem0.App::init(), and G4Abla::tau().

Referenced by kkevvv().

subroutine comcma	(		IFQ,
			IFAQ,
			IJNCH,
			NNCH,
			IREJ,
			AMCH,
			AMCHN
	)

Definition at line 6135 of file dpm25nuc3.f.

References testem0.App::init(), and G4Abla::tau().

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

subroutine cormom	(		AMCH1,
			AMCH2,
			AMCH1N,
			AMCH2N,
			PQ1X,
			PQ1Y,
			PQ1Z,
			PQ1E,
			PA1X,
			PA1Y,
			PA1Z,
			PA1E,
			PQ2X,
			PQ2Y,
			PQ2Z,
			PQ2E,
			PA2X,
			PA2Y,
			PA2Z,
			PA2E,
			PXCH1,
			PYCH1,
			PZCH1,
			ECH1,
			PXCH2,
			PYCH2,
			PZCH2,
			ECH2,
			IREJ
	)

Definition at line 6305 of file dpm25nuc3.f.

References testem0.App::init(), and c2_factory< float_type >::sqrt().

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

subroutine corval	(		AMMM,
			IREJ,
			AMCH1,
			AMCH2,
			QTX1,
			QTY1,
			QZ1,
			QE1,
			QTX2,
			QTY2,
			QZ2,
			QE2,
			NORIG
	)

Definition at line 8390 of file dpm25nuc3.f.

References testem0.App::init(), and c2_factory< float_type >::sqrt().

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

subroutine dechkk

(

NHKKH1

)

Definition at line 6992 of file dpm25nuc3.f.

References HepGeom::Plane3D< T >::d(), dthrep(), dtrafo(), dtwopd(), CLHEP::HepLorentzVector::e(), testem0.App::init(), mcihad(), mpdgha(), nmxhkk, rndm(), c2_factory< float_type >::sqrt(), and G4Abla::tau().

Referenced by hadrhh(), hadrkk(), and kkinc().

subroutine dfatpr	(		IP,
			PABS
	)

Definition at line 571 of file dpm25nuc3.f.

References c2_factory< float_type >::exp(), testem0.App::init(), and rndm().

Referenced by fer4mp().

subroutine dfatta	(		IT,
			PABS
	)

Definition at line 489 of file dpm25nuc3.f.

References c2_factory< float_type >::exp(), testem0.App::init(), and rndm().

Referenced by fer4mt().

subroutine dtrafo	(		GAM,
			BGAM,
			CX,
			CY,
			CZ,
			COD,
			COF,
			SIF,
			P,
			ECM,
			PL,
			CXL,
			CYL,
			CZL,
			EL
	)

Definition at line 7346 of file dpm25nuc3.f.

References c2_factory< float_type >::sqrt(), and sttran().

Referenced by ddecay(), decays(), dechkk(), and dhadri().

subroutine evtest

(

IREJ

)

Definition at line 7496 of file dpm25nuc3.f.

References testem0.App::init(), intmd, intmx, n, nmxhkk, and G4Abla::tau().

Referenced by kkevt().

subroutine fer4m	(		PFERM,
			PXT,
			PYT,
			PZT,
			ET,
			KT
	)

Definition at line 320 of file dpm25nuc3.f.

References dfermi(), dpoli(), dsfecf(), CLHEP::HepLorentzVector::et(), c2_factory< float_type >::sqrt(), and G4Abla::tau().

Referenced by kkevle().

subroutine fer4mp	(		IP,
			PFERM,
			PXT,
			PYT,
			PZT,
			ET,
			KT
	)

Definition at line 373 of file dpm25nuc3.f.

References dfatpr(), dfermi(), dpoli(), dsfecf(), CLHEP::HepLorentzVector::et(), c2_factory< float_type >::sqrt(), and G4Abla::tau().

Referenced by kkevt().

subroutine fer4mt	(		IT,
			PFERM,
			PXT,
			PYT,
			PZT,
			ET,
			KT
	)

Definition at line 430 of file dpm25nuc3.f.

References dfatta(), dfermi(), dpoli(), dsfecf(), CLHEP::HepLorentzVector::et(), c2_factory< float_type >::sqrt(), and G4Abla::tau().

Referenced by kkevdi(), kkevnu(), and kkevt().

subroutine flahad	(		ITYP,
			IBAR,
			IF1,
			IF2,
			IF3
	)

Definition at line 1194 of file dpm25nuc3.f.

References testem0.App::init(), print(), and rndm().

Referenced by flksam().

subroutine flksaa	(		NN,
			ECM
	)

Definition at line 922 of file dpm25nuc3.f.

References dbeta(), gm, testem0.App::init(), intmd, intmx, n, nmxhkk, rndm(), and G4Abla::tau().

Referenced by kkevt().

subroutine flksam

(

)

Definition at line 653 of file dpm25nuc3.f.

References flahad(), testem0.App::init(), intmd, intmx, n, nmxhkk, and G4Abla::tau().

Referenced by kkevt().

subroutine hadjet	(		NHAD,
			AMCH,
		dimension(4)	PPR,
		dimension(4)	PTA,
			GAM,
			BGX,
			BGY,
			BGZ,
			IFB1,
			IFB2,
			IFB3,
			IFB4,
			I1,
			I2,
			NOBAM,
			NNCH,
			NORIG
	)

Definition at line 5651 of file dpm25nuc3.f.

References calbam(), HepGeom::Plane3D< T >::d(), daltra(), dtrans(), testem0.App::init(), lortmo(), lortrp(), pyp(), c2_factory< float_type >::sqrt(), HepGeom::Transform3D::xx(), HepGeom::Transform3D::yy(), and HepGeom::Transform3D::zz().

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

subroutine hadrhh

(

)

Definition at line 8459 of file dpm25nuc3.f.

References dechkk(), hadjet(), hkkfil(), testem0.App::init(), intmd, intmx, mpdgha(), nmxhkk, parpt(), and c2_factory< float_type >::sqrt().

Referenced by hadrkk().

subroutine hadrkk	(		NHKKH1,
			PPN
	)

Definition at line 3259 of file dpm25nuc3.f.

References casasv(), casavs(), dechkk(), hadrds(), hadrdv(), hadrdz(), hadrhh(), hadrsd(), hadrss(), hadrsv(), hadrvd(), hadrvs(), hadrvv(), hadrzd(), hadrzz(), testem0.App::init(), intmd, intmx, mcihad(), nmxhkk, sewew(), c2_factory< float_type >::sqrt(), and G4Abla::tau().

Referenced by kkevt().

subroutine hadrss

(

)

Definition at line 4727 of file dpm25nuc3.f.

References hadjet(), hkkfil(), testem0.App::init(), intmd, intmx, mpdgha(), nmxhkk, parpt(), rndm(), and c2_factory< float_type >::sqrt().

Referenced by hadrkk().

subroutine hadrsv

(

)

Definition at line 4279 of file dpm25nuc3.f.

References hadjck(), hadjet(), hadjse(), hkkfil(), testem0.App::init(), intmd, intmx, mpdgha(), nmxhkk, parpt(), rndm(), and c2_factory< float_type >::sqrt().

Referenced by hadrkk().

subroutine hadrvs

(

)

Definition at line 5230 of file dpm25nuc3.f.

References hadjck(), hadjet(), hadjse(), hkkfil(), testem0.App::init(), intmd, intmx, mpdgha(), nmxhkk, parpt(), rndm(), and c2_factory< float_type >::sqrt().

Referenced by hadrkk().

subroutine hadrvv

(

)

Definition at line 3726 of file dpm25nuc3.f.

References hadjck(), hadjet(), hadjse(), hkkfil(), testem0.App::init(), intmd, intmx, mpdgha(), nmxhkk, parpt(), rndm(), and c2_factory< float_type >::sqrt().

Referenced by hadrkk().

subroutine hadrzz

(

)

Definition at line 8798 of file dpm25nuc3.f.

References hadjet(), hkkfil(), testem0.App::init(), intmd, intmx, mpdgha(), nmxhkk, parpt(), and c2_factory< float_type >::sqrt().

Referenced by hadrkk().

subroutine lortmo	(		N,
			GAM,
			BGX,
			BGY,
			BGZ
	)

Definition at line 7420 of file dpm25nuc3.f.

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

Referenced by hadjet().

subroutine lortrp	(		N,
			NAUX,
			GAM,
			BGX,
			BGY,
			BGZ
	)

Definition at line 5983 of file dpm25nuc3.f.

References HepGeom::Plane3D< T >::d(), daltra(), n, c2_transformation< float_type >::one(), and pyp().

Referenced by hadjet().

subroutine nucmom

(

)

Definition at line 83 of file dpm25nuc3.f.

References testem0.App::init(), intmd, intmx, nmxhkk, sltraf(), c2_factory< float_type >::sqrt(), and G4Abla::tau().

Referenced by kkevdi(), kkevle(), kkevnu(), and kkevt().

subroutine parhkk

(

)

Definition at line 2859 of file dpm25nuc3.f.

References testem0.App::init(), intmd, intmx, and nmxhkk.

Referenced by xksamp().

subroutine qinnuc	(		X,
			Y
	)

Definition at line 9129 of file dpm25nuc3.f.

References HepGeom::Plane3D< T >::d(), c2_factory< float_type >::log(), HepGeom::BasicVector3D< T >::r(), rndm(), CLHEP::HepLorentzVector::t(), title(), HepGeom::BasicVector3D< T >::y(), and z.

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

subroutine saptre	(		AM1,
			G1,
			BGX1,
			BGY1,
			BGZ1,
			AM2,
			G2,
			BGX2,
			BGY2,
			BGZ2
	)

Definition at line 1 of file dpm25nuc3.f.

References dsfecf(), CLHEP::HepLorentzVector::e(), c2_factory< float_type >::exp(), c2_factory< float_type >::log(), rndm(), c2_factory< float_type >::sqrt(), and HepGeom::BasicVector3D< T >::y().

Referenced by hadrds(), hadrdv(), hadrdz(), hadrsd(), hadrvd(), and hadrzd().

subroutine selpt	(		PTXSQ1,
			PTYSQ1,
			PLQ1,
			EQ1,
			PTXSA1,
			PTYSA1,
			PLAQ1,
			EAQ1,
			PTXSQ2,
			PTYSQ2,
			PLQ2,
			EQ2,
			PTXSA2,
			PTYSA2,
			PLAQ2,
			EAQ2,
			AMCH1,
			AMCH2,
			IREJ,
			IKVALA,
			PTTQ1,
			PTTA1,
			PTTQ2,
			PTTA2,
			NSELPT
	)

Definition at line 6620 of file dpm25nuc3.f.

References dsfecf(), testem0.App::init(), c2_factory< float_type >::log(), rndm(), samppt(), and c2_factory< float_type >::sqrt().

Referenced by diqdzz(), diqzzd(), kkevds(), kkevdv(), kkevsd(), kkevss(), kkevsv(), kkevvd(), kkevvs(), kkevvv(), and xptfl1().

subroutine selpt4	(		PTXSQ1,
			PTYSQ1,
			PLQ1,
			EQ1,
			PTXSA1,
			PTYSA1,
			PLAQ1,
			EAQ1,
			PTXSQ2,
			PTYSQ2,
			PLQ2,
			EQ2,
			PTXSA2,
			PTYSA2,
			PLAQ2,
			EAQ2,
			AMCH1,
			AMCH2,
			IREJ,
			IKVALA,
			PTTQ1,
			PTTA1,
			NSELPT
	)

Definition at line 6435 of file dpm25nuc3.f.

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

Referenced by kkevdv(), kkevss(), kkevsv(), kkevvd(), and kkevvs().

subroutine sltraf	(		GA,
			BGA,
			EIN,
			PZIN,
			EOUT,
			PZOUT
	)

Definition at line 72 of file dpm25nuc3.f.

Referenced by cromsc(), and nucmom().

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

Definition at line 7369 of file dpm25nuc3.f.

References a, HepGeom::Plane3D< T >::d(), c2_factory< float_type >::sqrt(), HepGeom::BasicVector3D< T >::y(), and z.

Referenced by dtrafo().

subroutine xksamp	(		NN,
			ECM
	)

Definition at line 1273 of file dpm25nuc3.f.

References betrej(), HepGeom::Plane3D< T >::d(), dbetar(), diqdss(), diqssd(), diqsv(), diqvs(), testem0.App::init(), intmd, intmx, nmxhkk, parhkk(), rndm(), sampex(), sampey(), sampxb(), c2_factory< float_type >::sqrt(), and G4Abla::tau().

Referenced by kkevt().