dpm25nuc7g4.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	lundin
subroutine	bamlun (IHAD, KFA1, KFA2, KFA3, KFA4, AEO, IOPT, IREJ)
subroutine	xseapa (ECM, XXXX, IPSQ1, IPSAQ1, XPSQ1, XPSAQ1, IREJ)
subroutine	shmaki (NA, NCA, NB, NCB, RPROJ, RTARG, PPN)
double precision function	sigsds (S)
subroutine	shmakf (NA, NCA, NB, NCB)
subroutine	shmako (NA, NB, B, INTT, INTA, INTB, JS, JT, PPN, KKMAT)
subroutine	title (NA, NB, NCA, NCB)
subroutine	conucl (X, N, R)
subroutine	modb (BSITE, N, BSTEP, B)
subroutine	diagr (NA, NB, B, JS, JT, INT, INTA, INTB)
subroutine	fluini
subroutine	calbam (NNCH, I1, I2, IFB11, IFB22, IFB33, IFB44, AMCH, NOBAM, IHAD)
subroutine	dbamje (IHAD, KFA1, KFA2, KFA3, KFA4, AE0, IOPT)
subroutine	indexd (KA, KB, IND)
double precision function	dbeta (X1, X2, BET)
subroutine	ddrela (X, Y, Z, COTE, SITE, COPS, SIPS)
subroutine	dthrep (UMO, ECM1, ECM2, ECM3, PCM1, PCM2, PCM3, COD1, COF1, SIF1, COD2, COF2, SIF2, COD3, COF3, SIF3, AM1, AM2, AM3)
double precision function	dxlamb (X, Y, Z)
subroutine	strafo (GAM, BGAM, CX, CY, CZ, COD, COF, SIF, P, ECM, PL, CXL, CYL, CZL, EL)
subroutine	drtran (XO, YO, ZO, CDE, SDE, SFE, CFE, X, Y, Z)
subroutine	dchant
subroutine	dtwopd (UMO, ECM1, ECM2, PCM1, PCM2, COD1, COF1, SIF1, COD2, COF2, SIF2, AM1, AM2)
subroutine	dsfecf (SFE, CFE)
subroutine	ddates
subroutine	ddatar
subroutine	tecalb
subroutine	distcm (IOP, NHAD, POLAB, KPROJ, KTARG)
subroutine	ddecay (IHAD, ISTAB)
subroutine	shmak (ICASE, NN, NNA, NNB, NA, NB, UMO, BIMP)
subroutine	shmak1 (ICASE, NN, NNA, NNB, NA, NB, UMO, BIMP)
subroutine	previo (RA, RB, NSTB, BMAX, BSTEP, SIG, RO, G)
subroutine	profb (BSTEP, NSTAT, NA, RA, NB, RB, BSITE, NSITEB)
subroutine	dparje (IHAD, I)
subroutine	sort (A, N)
subroutine	sortin (A, N)
subroutine	xsglau (NA, NB, IJPROJ, NTARG)
subroutine	conuclx (COOP1, NA, RASH, I)
subroutine	dbklas (I, J, K, I8, I10)
double precision function	sippsd (ECM)
double precision function	siinel (KPROJ, KTARG, UMO)
double precision function	phnsch (KP, KTARG, PLAB)
subroutine	selpts (PTXSQ1, PTYSQ1, PLQ1, EQ1, PTXSA2, PTYSA2, PLAQ2, EAQ2, AMCH1, IREJ, IKVALA, PTTQ1)

Function/Subroutine Documentation

subroutine bamlun	(		IHAD,
			KFA1,
			KFA2,
			KFA3,
			KFA4,
			AEO,
			IOPT,
			IREJ
	)

Definition at line 371 of file dpm25nuc7g4.f.

References testem0.App::init(), mcihad(), n, py2ent(), py4ent(), pydat1, pyedit(), pyexec(), pyjets, pyjoin(), pylist(), pymass(), pyp(), pyshow(), rndm(), G4Abla::tau(), and xseapa().

subroutine calbam	(		NNCH,
			I1,
			I2,
			IFB11,
			IFB22,
			IFB33,
			IFB44,
			AMCH,
			NOBAM,
			IHAD
	)

Definition at line 2141 of file dpm25nuc7g4.f.

References dbamje(), dparje(), testem0.App::init(), and rndm().

subroutine conucl	(	dimension(3,n)	X,
			N,
			R
	)

Definition at line 1759 of file dpm25nuc7g4.f.

References c2_factory< float_type >::cos(), c2_factory< float_type >::exp(), G4Abla::f(), n, HepGeom::BasicVector3D< T >::r(), rannor(), rndm(), c2_factory< float_type >::sin(), and c2_factory< float_type >::sqrt().

subroutine conuclx	(	dimension(3,maxncl)	COOP1,
			NA,
			RASH,
			I
	)

Definition at line 6087 of file dpm25nuc7g4.f.

References conucl().

subroutine dbamje	(		IHAD,
			KFA1,
			KFA2,
			KFA3,
			KFA4,
			AE0,
			IOPT
	)

Definition at line 2377 of file dpm25nuc7g4.f.

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

double precision function dbeta	(		X1,
			X2,
			BET
	)

Definition at line 2675 of file dpm25nuc7g4.f.

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

subroutine dbklas	(		I,
			J,
			K,
			I8,
			I10
	)

Definition at line 6099 of file dpm25nuc7g4.f.

References indexd().

subroutine dchant

(

)

Definition at line 3292 of file dpm25nuc7g4.f.

References G4Abla::tau().

subroutine ddatar

(

)

Definition at line 3506 of file dpm25nuc7g4.f.

subroutine ddates

(

)

Definition at line 3377 of file dpm25nuc7g4.f.

References mpdgha(), G4Abla::tau(), and z.

subroutine ddecay	(		IHAD,
			ISTAB
	)

Definition at line 4060 of file dpm25nuc7g4.f.

References HepGeom::Plane3D< T >::d(), dthrep(), dtrafo(), dtwopd(), rndm(), c2_factory< float_type >::sqrt(), G4Abla::tau(), and test().

subroutine ddrela	(		X,
			Y,
			Z,
			COTE,
			SITE,
			COPS,
			SIPS
	)

Definition at line 2689 of file dpm25nuc7g4.f.

References HepGeom::BasicVector3D< T >::y(), and z.

subroutine diagr	(		NA,
			NB,
			B,
		dimension(namx)	JS,
		dimension(namx)	JT,
			INT,
			INTA,
			INTB
	)

Definition at line 1955 of file dpm25nuc7g4.f.

References conucl(), CLHEP::HepLorentzVector::e(), c2_factory< float_type >::exp(), testem0.App::init(), int(), intmd, intmx, modb(), rndm(), sort(), sortin(), and HepGeom::Transform3D::xy().

subroutine distcm	(		IOP,
			NHAD,
			POLAB,
			KPROJ,
			KTARG
	)

Definition at line 3748 of file dpm25nuc7g4.f.

References HepGeom::Plane3D< T >::d(), HepGeom::Transform3D::dy(), CLHEP::HepLorentzVector::e(), G4StatDouble::fill(), c2_factory< float_type >::log(), plot(), CLHEP::HepLorentzVector::px(), CLHEP::HepLorentzVector::py(), CLHEP::HepLorentzVector::pz(), c2_factory< float_type >::sqrt(), G4Abla::tau(), and HepGeom::Transform3D::yy().

subroutine dparje	(		IHAD,
			I
	)

Definition at line 4633 of file dpm25nuc7g4.f.

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

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

Definition at line 3268 of file dpm25nuc7g4.f.

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

subroutine dsfecf	(		SFE,
			CFE
	)

Definition at line 3357 of file dpm25nuc7g4.f.

References rndm(), HepGeom::Transform3D::xx(), HepGeom::Transform3D::xy(), HepGeom::BasicVector3D< T >::y(), and HepGeom::Transform3D::yy().

subroutine dthrep	(		UMO,
			ECM1,
			ECM2,
			ECM3,
			PCM1,
			PCM2,
			PCM3,
			COD1,
			COF1,
			SIF1,
			COD2,
			COF2,
			SIF2,
			COD3,
			COF3,
			SIF3,
			AM1,
			AM2,
			AM3
	)

Definition at line 2751 of file dpm25nuc7g4.f.

References HepGeom::Plane3D< T >::d(), dsfecf(), dxlamb(), G4Abla::f(), HepGeom::BasicVector3D< T >::rho(), rndm(), c2_factory< float_type >::sqrt(), HepGeom::Transform3D::xx(), and HepGeom::BasicVector3D< T >::y().

subroutine dtwopd	(		UMO,
			ECM1,
			ECM2,
			PCM1,
			PCM2,
			COD1,
			COF1,
			SIF1,
			COD2,
			COF2,
			SIF2,
			AM1,
			AM2
	)

Definition at line 3329 of file dpm25nuc7g4.f.

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

double precision function dxlamb	(		X,
			Y,
			Z
	)

Definition at line 3210 of file dpm25nuc7g4.f.

References HepGeom::Plane3D< T >::d(), dxlamb(), c2_factory< float_type >::sqrt(), test(), HepGeom::BasicVector3D< T >::y(), HepGeom::Transform3D::yz(), and z.

subroutine fluini

(

)

Definition at line 2079 of file dpm25nuc7g4.f.

References a, HepGeom::Transform3D::dx(), c2_factory< float_type >::exp(), n, and plot().

subroutine indexd	(		KA,
			KB,
			IND
	)

Definition at line 2640 of file dpm25nuc7g4.f.

subroutine lundin

(

)

Definition at line 62 of file dpm25nuc7g4.f.

References n, pycomp, pydat1, pydat3, and pyjets.

subroutine modb	(	dimension(0:1,n)	BSITE,
			N,
			BSTEP,
			B
	)

Definition at line 1869 of file dpm25nuc7g4.f.

References n, rndm(), c2_factory< float_type >::sqrt(), and HepGeom::BasicVector3D< T >::y().

double precision function phnsch	(		KP,
			KTARG,
			PLAB
	)

Definition at line 6173 of file dpm25nuc7g4.f.

References HepGeom::Plane3D< T >::d(), c2_factory< float_type >::log(), phnsch(), rndm(), c2_factory< float_type >::sqrt(), and G4Abla::tau().

subroutine previo	(		RA,
			RB,
			NSTB,
			BMAX,
			BSTEP,
			SIG,
			RO,
			G
	)

Definition at line 4473 of file dpm25nuc7g4.f.

subroutine profb	(		BSTEP,
			NSTAT,
			NA,
			RA,
			NB,
			RB,
		dimension(0:1,nsiteb)	BSITE,
			NSITEB
	)

Definition at line 4528 of file dpm25nuc7g4.f.

References conucl(), HepGeom::Plane3D< T >::d(), CLHEP::HepLorentzVector::e(), c2_factory< float_type >::exp(), intmd, intmx, ns, plot(), and HepGeom::Transform3D::xy().

subroutine selpts	(		PTXSQ1,
			PTYSQ1,
			PLQ1,
			EQ1,
			PTXSA2,
			PTYSA2,
			PLAQ2,
			EAQ2,
			AMCH1,
			IREJ,
			IKVALA,
			PTTQ1
	)

Definition at line 7327 of file dpm25nuc7g4.f.

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

subroutine shmak	(		ICASE,
			NN,
			NNA,
			NNB,
			NA,
			NB,
			UMO,
			BIMP
	)

Definition at line 4195 of file dpm25nuc7g4.f.

References a, HepGeom::Plane3D< T >::d(), CLHEP::HepLorentzVector::e(), testem0.App::init(), plot(), sihndi(), siinel(), and CLHEP::HepLorentzVector::t().

subroutine shmak1	(		ICASE,
			NN,
			NNA,
			NNB,
			NA,
			NB,
			UMO,
			BIMP
	)

Definition at line 4361 of file dpm25nuc7g4.f.

References a, HepGeom::Plane3D< T >::d(), CLHEP::HepLorentzVector::e(), testem0.App::init(), plot(), sihndi(), siinel(), and CLHEP::HepLorentzVector::t().

subroutine shmakf	(		NA,
			NCA,
			NB,
			NCB
	)

Definition at line 1515 of file dpm25nuc7g4.f.

References G4VITManager::iterator::end().

subroutine shmaki	(		NA,
			NCA,
			NB,
			NCB,
			RPROJ,
			RTARG,
			PPN
	)

Definition at line 1406 of file dpm25nuc7g4.f.

References dshpto(), c2_factory< float_type >::log(), previo(), profb(), sigsds(), c2_factory< float_type >::sqrt(), and title().

subroutine shmako	(		NA,
			NB,
			B,
			INTT,
			INTA,
			INTB,
		dimension(namx)	JS,
		dimension(namx)	JT,
			PPN,
			KKMAT
	)

Definition at line 1606 of file dpm25nuc7g4.f.

References diagr(), dshpto(), testem0.App::init(), intmd, intmx, c2_factory< float_type >::log(), sigsds(), and c2_factory< float_type >::sqrt().

double precision function sigsds

(

S

)

Definition at line 1505 of file dpm25nuc7g4.f.

References sigsds().

double precision function siinel	(		KPROJ,
			KTARG,
			UMO
	)

Definition at line 6159 of file dpm25nuc7g4.f.

References dshnel(), dshnto(), and siinel().

double precision function sippsd

(

ECM

)

Definition at line 6130 of file dpm25nuc7g4.f.

References sippsd().

subroutine sort	(	dimension(3,n)	A,
			N
	)

Definition at line 4673 of file dpm25nuc7g4.f.

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

subroutine sortin	(	dimension(3,n)	A,
			N
	)

Definition at line 4703 of file dpm25nuc7g4.f.

References a, HepGeom::Plane3D< T >::d(), n, and G4Abla::tau().

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

Definition at line 3247 of file dpm25nuc7g4.f.

References drtran(), CLHEP::HepLorentzVector::e(), and c2_factory< float_type >::sqrt().

subroutine tecalb

(

)

Definition at line 3638 of file dpm25nuc7g4.f.

References calbam(), ddecay(), G4IT::diff(), distcm(), and testem0.App::init().

subroutine title	(		NA,
			NB,
			NCA,
			NCB
	)

Definition at line 1744 of file dpm25nuc7g4.f.

References a.

subroutine xseapa	(		ECM,
			XXXX,
			IPSQ1,
			IPSAQ1,
			XPSQ1,
			XPSAQ1,
			IREJ
	)

Definition at line 1323 of file dpm25nuc7g4.f.

References rndm(), and sampex().

subroutine xsglau	(		NA,
			NB,
			IJPROJ,
			NTARG
	)

Definition at line 5702 of file dpm25nuc7g4.f.

References conuclx(), HepGeom::Plane3D< T >::d(), dshnel(), dshnto(), dshpto(), c2_factory< float_type >::exp(), c2_factory< float_type >::log(), neb, c2_transformation< float_type >::one(), sihndi(), siinel(), sippsd(), c2_factory< float_type >::sqrt(), G4Abla::tau(), and c2_transformation< float_type >::zero().