dpm25nuc3dpm.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 9457 of file dpm25nuc3dpm.f.

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

subroutine casavs

(

)

Definition at line 9173 of file dpm25nuc3dpm.f.

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

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

Definition at line 6049 of file dpm25nuc3dpm.f.

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

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

Definition at line 6218 of file dpm25nuc3dpm.f.

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

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

Definition at line 6135 of file dpm25nuc3dpm.f.

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

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 dpm25nuc3dpm.f.

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

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

Definition at line 8393 of file dpm25nuc3dpm.f.

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

subroutine dechkk

(

NHKKH1

)

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

subroutine dfatpr	(		IP,
			PABS
	)

Definition at line 571 of file dpm25nuc3dpm.f.

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

subroutine dfatta	(		IT,
			PABS
	)

Definition at line 489 of file dpm25nuc3dpm.f.

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

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

Definition at line 7349 of file dpm25nuc3dpm.f.

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

subroutine evtest

(

IREJ

)

Definition at line 7499 of file dpm25nuc3dpm.f.

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

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

Definition at line 320 of file dpm25nuc3dpm.f.

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

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

Definition at line 373 of file dpm25nuc3dpm.f.

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

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

Definition at line 430 of file dpm25nuc3dpm.f.

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

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

Definition at line 1194 of file dpm25nuc3dpm.f.

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

subroutine flksaa	(		NN,
			ECM
	)

Definition at line 922 of file dpm25nuc3dpm.f.

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

subroutine flksam

(

)

Definition at line 653 of file dpm25nuc3dpm.f.

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

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 dpm25nuc3dpm.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().

subroutine hadrhh

(

)

Definition at line 8462 of file dpm25nuc3dpm.f.

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

subroutine hadrkk	(		NHKKH1,
			PPN
	)

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

subroutine hadrss

(

)

Definition at line 4727 of file dpm25nuc3dpm.f.

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

subroutine hadrsv

(

)

Definition at line 4279 of file dpm25nuc3dpm.f.

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

subroutine hadrvs

(

)

Definition at line 5230 of file dpm25nuc3dpm.f.

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

subroutine hadrvv

(

)

Definition at line 3726 of file dpm25nuc3dpm.f.

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

subroutine hadrzz

(

)

Definition at line 8808 of file dpm25nuc3dpm.f.

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

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

Definition at line 7423 of file dpm25nuc3dpm.f.

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

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

Definition at line 5983 of file dpm25nuc3dpm.f.

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

subroutine nucmom

(

)

Definition at line 83 of file dpm25nuc3dpm.f.

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

subroutine parhkk

(

)

Definition at line 2859 of file dpm25nuc3dpm.f.

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

subroutine qinnuc	(		X,
			Y
	)

Definition at line 9139 of file dpm25nuc3dpm.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.

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

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

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 dpm25nuc3dpm.f.

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

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 dpm25nuc3dpm.f.

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

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

Definition at line 72 of file dpm25nuc3dpm.f.

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

Definition at line 7372 of file dpm25nuc3dpm.f.

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

subroutine xksamp	(		NN,
			ECM
	)

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