dpm25nuc5.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	diqsv (ECM, ITV, J, IREJ)
subroutine	kkevdv (IREJDV)
subroutine	hadrdv
subroutine	diqvs (ECM, IPV, J, IREJ)
subroutine	kkevvd (IREJVD)
subroutine	hadrvd
subroutine	diqdss (ECM, ITS, IPS, IREJ)
subroutine	kkevds (IREJDS)
subroutine	hadrds
subroutine	diqssd (ECM, ITS, IPS, IREJ)
subroutine	kkevsd (IREJSD)
subroutine	hadrsd
subroutine	diqdzz (ECM, XPSQ1, XPSAQ1, XPSQ2, XPSAQ2, IPSQ1, IPSAQ1, IPSQ2, IPSAQ2, IREJDS)
subroutine	hadrdz
subroutine	diqzzd (ECM, XPSQ1, XPSAQ1, XPSQ2, XPSAQ2, IPSQ1, IPSAQ1, IPSQ2, IPSAQ2, IREJSD)
subroutine	hadrzd
subroutine	zobcma (IF1, IF2, IF3, IJNCH, NNCH, IREJ, AMCH, AMCHN, IKET)
subroutine	zomcma (IFQ, IFAQ, IJNCH, NNCH, IREJ, AMCH, AMCHN)
subroutine	zomcm2 (IQ1, IQ2, IAQ1, IAQ2, NNCH, IREJ, AMCH)
subroutine	zormom (AMMM, AMCH1, AMCH1N, AMCH2N, XP, XPP, XTVQ, XTVD, 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	zorval (AMMM, IREJ, AMCH1, AMCH2, QTX1, QTY1, QZ1, QE1, QTX2, QTY2, QZ2, QE2, IORI)

Function/Subroutine Documentation

subroutine diqdss	(		ECM,
			ITS,
			IPS,
			IREJ
	)

Definition at line 2829 of file dpm25nuc5.f.

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

Referenced by xksamp().

subroutine diqdzz	(		ECM,
			XPSQ1,
			XPSAQ1,
			XPSQ2,
			XPSAQ2,
			IPSQ1,
			IPSAQ1,
			IPSQ2,
			IPSAQ2,
			IREJDS
	)

Definition at line 5958 of file dpm25nuc5.f.

References dbeta(), CLHEP::HepLorentzVector::e(), gm, testem0.App::init(), intmd, n, rndm(), selpt(), c2_factory< float_type >::sqrt(), G4Abla::tau(), zobcma(), zormom(), and zorval().

Referenced by xptfl1().

subroutine diqssd	(		ECM,
			ITS,
			IPS,
			IREJ
	)

Definition at line 4398 of file dpm25nuc5.f.

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

Referenced by xksamp().

subroutine diqsv	(		ECM,
			ITV,
			J,
			IREJ
	)

Definition at line 1 of file dpm25nuc5.f.

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

Referenced by xksamp().

subroutine diqvs	(		ECM,
			IPV,
			J,
			IREJ
	)

Definition at line 1411 of file dpm25nuc5.f.

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

Referenced by xksamp().

subroutine diqzzd	(		ECM,
			XPSQ1,
			XPSAQ1,
			XPSQ2,
			XPSAQ2,
			IPSQ1,
			IPSAQ1,
			IPSQ2,
			IPSAQ2,
			IREJSD
	)

Definition at line 6951 of file dpm25nuc5.f.

References dbeta(), CLHEP::HepLorentzVector::e(), gm, testem0.App::init(), intmd, n, rndm(), selpt(), c2_factory< float_type >::sqrt(), G4Abla::tau(), zobcma(), zormom(), and zorval().

Referenced by xptfl1().

subroutine hadrds

(

)

Definition at line 3858 of file dpm25nuc5.f.

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

Referenced by hadrkk().

subroutine hadrdv

(

)

Definition at line 971 of file dpm25nuc5.f.

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

Referenced by hadrkk().

subroutine hadrdz

(

)

Definition at line 6432 of file dpm25nuc5.f.

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

Referenced by hadrkk().

subroutine hadrsd

(

)

Definition at line 5429 of file dpm25nuc5.f.

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

Referenced by hadrkk().

subroutine hadrvd

(

)

Definition at line 2382 of file dpm25nuc5.f.

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

Referenced by hadrkk().

subroutine hadrzd

(

)

Definition at line 7422 of file dpm25nuc5.f.

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

Referenced by hadrkk().

subroutine kkevds

(

IREJDS

)

Definition at line 3040 of file dpm25nuc5.f.

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

Referenced by kkevt().

subroutine kkevdv

(

IREJDV

)

Definition at line 208 of file dpm25nuc5.f.

References cobcma(), cormom(), cromsc(), testem0.App::init(), intmd, intmx, n, nmxhkk, qinnuc(), selpt(), selpt4(), c2_factory< float_type >::sqrt(), and G4Abla::tau().

Referenced by kkevt().

subroutine kkevsd

(

IREJSD

)

Definition at line 4612 of file dpm25nuc5.f.

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

Referenced by kkevt().

subroutine kkevvd

(

IREJVD

)

Definition at line 1622 of file dpm25nuc5.f.

References cobcma(), cormom(), cromsc(), testem0.App::init(), intmd, intmx, n, nmxhkk, qinnuc(), selpt(), selpt4(), c2_factory< float_type >::sqrt(), and G4Abla::tau().

Referenced by kkevt().

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

Definition at line 7947 of file dpm25nuc5.f.

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

Referenced by diqdzz(), and diqzzd().

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

Definition at line 8099 of file dpm25nuc5.f.

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

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

Definition at line 8028 of file dpm25nuc5.f.

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

subroutine zormom	(		AMMM,
			AMCH1,
			AMCH1N,
			AMCH2N,
			XP,
			XPP,
			XTVQ,
			XTVD,
			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 8190 of file dpm25nuc5.f.

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

Referenced by diqdzz(), and diqzzd().

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

Definition at line 8304 of file dpm25nuc5.f.

References daltra(), CLHEP::HepLorentzVector::e(), testem0.App::init(), and c2_factory< float_type >::sqrt().

Referenced by diqdzz(), and diqzzd().