leptonew.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	jettarun
subroutine	lepto
function	amas4 (PP)
function	amast (PP)
function	angfi (X, Y)
function	angxy (X, Y)
subroutine	bostd3 (EXE, PVEC, QVEC)
subroutine	bostr3 (EXE, PVEC, QVEC)
subroutine	btocho2 (VIN, PIN, PTX, PTY)
complex function	bwig (S, M, G)
complex function	bwigm (S, M, G, XM1, XM2)
complex function	bwigs (S, M, G)
subroutine	cats
subroutine	choice (MNUM, RR, ICHAN, PROB1, PROB2, PROB3, AMRX, GAMRX, AMRA, GAMRA, AMRB, GAMRB)
subroutine	claxi (HJ, PN, PIA)
subroutine	clnut (HJ, B, HV)
subroutine	clvec (HJ, PN, PIV)
subroutine	curr (MNUM, PIM1, PIM2, PIM3, PIM4, HADCUR)
subroutine	dadmaa (MODE, ISGN, HHV, PNU, PAA, PIM1, PIM2, PIPL, JAA)
subroutine	dadmel (MODE, ISGN, HHV, PNU, PWB, Q1, Q2, PHX)
subroutine	dadmkk (MODE, ISGN, HV, PKK, PNU)
subroutine	dadmks (MODE, ISGN, HHV, PNU, PKS, PKK, PPI, JKST)
subroutine	dadmmu (MODE, ISGN, HHV, PNU, PWB, Q1, Q2, PHX)
subroutine	dadmpi (MODE, ISGN, HV, PPI, PNU)
subroutine	dadmro (MODE, ISGN, HHV, PNU, PRO, PIC, PIZ)
subroutine	dadnew (MODE, ISGN, HV, PNU, PWB, PNPI, JNPI)
subroutine	dam4pi (MNUM, PT, PN, PIM1, PIM2, PIM3, PIM4, AMPLIT, HV)
subroutine	dampaa (PT, PN, PIM1, PIM2, PIPL, AMPLIT, HV)
subroutine	dampog (PT, PN, PIM1, PIM2, PIPL, AMPLIT, HV)
subroutine	damppk (MNUM, PT, PN, PIM1, PIM2, PIM3, AMPLIT, HV)
subroutine	dampry (ITDKRC, XK0DEC, XK, XA, QP, XN, AMPLIT, HV)
function	dcdmas (IDENT)
function	dcross (V1, V2)
subroutine	dectes (KTORY)
subroutine	dekay (KTO, HX)
subroutine	dekay1 (IMOD, HH, ISGN)
subroutine	dekay2 (IMOD, HH, ISGN)
subroutine	dexaa (MODE, ISGN, POL, PNU, PAA, PIM1, PIM2, PIPL, JAA)
subroutine	dexay (KTO, POL)
subroutine	dexay1 (KTO, JAKIN, JAK, POL, ISGN)
subroutine	dexel (MODE, ISGN, POL, PNU, PWB, Q1, Q2, PH)
subroutine	dexkk (MODE, ISGN, POL, PKK, PNU)
subroutine	dexks (MODE, ISGN, POL, PNU, PKS, PKK, PPI, JKST)
subroutine	dexmu (MODE, ISGN, POL, PNU, PWB, Q1, Q2, PH)
subroutine	dexnew (MODE, ISGN, POL, PNU, PAA, PNPI, JNPI)
subroutine	dexpi (MODE, ISGN, POL, PPI, PNU)
subroutine	dexro (MODE, ISGN, POL, PNU, PRO, PIC, PIZ)
double precision function	dfun (NDIM, X)
function	dilog (X)
real *4 function	distrr (DUMMY)
function	dlower (V1)
subroutine	dph4pi (DGAMT, HV, PN, PAA, PMULT, JNPI)
subroutine	dph5pi (DGAMT, HV, PN, PAA, PMULT, JNPI)
subroutine	dphnpi (DGAMT, HVX, PNX, PRX, PPIX, JNPI)
subroutine	dphsaa (DGAMT, HV, PN, PAA, PIM1, PIM2, PIPL, JAA)
subroutine	dphsel (DGAMX, HVX, XNX, PAAX, QPX, XAX, PHX)
subroutine	dphsks (DGAMT, HV, PN, PKS, PKK, PPI, JKST)
subroutine	dphsmu (DGAMX, HVX, XNX, PAAX, QPX, XAX, PHX)
subroutine	dphspk (DGAMT, HV, PN, PAA, PNPI, JAA)
subroutine	dphsrk (DGAMT, HV, PN, PR, PMULT, INUM)
subroutine	dphsro (DGAMT, HV, PN, PR, PIC, PIZ)
subroutine	dphtre (DGAMT, HV, PN, PAA, PIM1, AMPA, PIM2, AMPB, PIPL, AMP3, KEYT, MNUM)
function	dqcd (ICOSFI, IPART, IP, XP, ZP, Y)
function	dqcdi (IPART, IP, XP, ZPMIN, ZPMAX)
subroutine	drcmu (DGAMT, HV, PH, PAA, XA, QP, XN, IELMU)
function	dsigma (XP)
function	dupper (V1)
subroutine	dvnopt
subroutine	dwlnew (KTO, ISGN, PNU, PWB, PNPI, MODE)
subroutine	dwluaa (KTO, ISGN, PNU, PAA, PIM1, PIM2, PIPL, JAA)
subroutine	dwluel (KTO, ISGN, PNU, PWB, PEL, PNE)
subroutine	dwlukk (KTO, ISGN, PKK, PNU)
subroutine	dwluks (KTO, ISGN, PNU, PKS, PKK, PPI, JKST)
subroutine	dwlumu (KTO, ISGN, PNU, PWB, PMU, PNM)
subroutine	dwluph (KTO, PHOT)
subroutine	dwlupi (KTO, ISGN, PPI, PNU)
subroutine	dwluro (KTO, ISGN, PNU, PRHO, PIC, PIZ)
subroutine	dwrph (KTO, PHX)
subroutine	evtinfo
subroutine	fermii (F)
subroutine	filhep (N, IST, ID, JMO1, JMO2, JDA1, JDA2, P4, PINV, PHFLAG)
function	flgint (Z)
subroutine	flintg (CFLQ, CFLG, CFLM)
subroutine	flipol (FLQ, FLG, FLM)
function	flqint (Z)
subroutine	fltabl
function	fltint (Z)
subroutine	forced_decay (NUFORCE, ISTATUS)
complex function	form1 (MNUM, QQ, S1, SDWA)
complex function	form2 (MNUM, QQ, S1, SDWA)
complex function	form3 (MNUM, QQ, S1, SDWA)
complex function	form4 (MNUM, QQ, S1, S2, S3)
complex function	form5 (MNUM, QQ, S1, S2)
complex function	formom (XMAA, XMOM)
complex function	fpik (W)
complex function	fpikm (W, XM1, XM2)
complex function	fpikmd (W, XM1, XM2)
complex function	fpikmk (W, XM1, XM2)
function	fpirho (W)
function	fpirk (W)
subroutine	fzclos
subroutine	fzini
subroutine	fzopn (CHNAME)
subroutine	gadap (A0, B0, F, EPS, SUM)
subroutine	gadap2 (A0, B0, FL, FU, F, EPS, SUM)
function	gadapf (X, A0, B0, F, EPS)
subroutine	gbinit
subroutine	gbspec (BEAM, IFLAV, RADIUS, SPEC)
subroutine	gentable (LFILE, LEPIN, ENERGY_FIX, PPZ, INTERACTION)
subroutine	gethneu (IPNUM, NEUTYPE, VECT, GKIN, MESTYPE, G4MES, NEUFORCE, IMODE)
subroutine	getneu (IPNUM, NEUTYPE, VECT, GKIN, MESTYPE, G4MES, NEUFORCE, IMODE)
function	gfun (QKWA)
subroutine	inimas
subroutine	iniphy (XK00)
subroutine	initdk
subroutine	initdk_new
subroutine	jaker (JAK)
subroutine	jetmc
subroutine	jettout
subroutine	lazimu (XP, ZP)
subroutine	jetta
subroutine	leptox
subroutine	lflav (IFL, IFLR)
subroutine	lframe (IFR, IPH)
subroutine	linit (LFILE, LEPIN, PLZ, PPZ, INTER)
function	lkinem (L)
subroutine	lmcmnd
subroutine	lmeps
subroutine	lmidat
subroutine	lminew
subroutine	lminto (PINT)
real function	lmpint (PEXTI, I)
subroutine	lmprin (IKODE, FVAL)
subroutine	lmrazz (YNEW, PNEW)
subroutine	lmsimp
subroutine	lnstrf (X, Q2, XPQ)
subroutine	lprikt (S, PT, PHI)
subroutine	lprwts (NSTEP)
subroutine	lqcdpr (QG, QQB)
subroutine	lqgev
subroutine	lqev
function	lqmcut (XP, ZP, AM1, AM2, AM3)
subroutine	lqqbev
subroutine	lremh (IFLRO, IFLR, K2, Z)
subroutine	lscale (INFIN, QMAX)
subroutine	lshowr (ICALL)
subroutine	lsigmx (NPAR, DERIV, DIFSIG, XF, IFLAG)
subroutine	ltimex (TIME)
function	lunpik (ID, ISGN)
subroutine	lurobo (THE, PHI, BEX, BEY, BEZ)
subroutine	lustrf (IP)
function	lutoge (KF)
subroutine	lwbb (ENU)
subroutine	lweits (LFILE)
subroutine	lxp (XP, IFAIL)
subroutine	lxsect
subroutine	lzp (XP, ZP, IFAIL)
subroutine	mzini
subroutine	orth (PO, P, PB)
subroutine	parupd
real function	phint (IDUM)
subroutine	phlupa (IPOINT)
double precision function	phoan1 (X, Y)
double precision function	phoan2 (X, Y)
subroutine	phobo3 (ANGLE, PVEC)
subroutine	phobos (IP, PBOOS1, PBOOS2, FIRST, LAST)
real function	phocha (IDHEP)
subroutine	phochk (JFIRST)
subroutine	phocin
real function	phocor (MPASQR, MCHREN, ME)
subroutine	phodo (IP, NCHARB, NEUDAU)
subroutine	phoene (MPASQR, MCHREN, BETA, IDENT)
subroutine	phoerr (IMES, TEXT, DATA)
real function	phofac (MODE)
subroutine	phoin (IP, BOOST, NHEP0)
subroutine	phoinf
subroutine	phoini
subroutine	phomak (IPPAR, NHEP0)
subroutine	phooma (IFIRST, ILAST, POINTR)
subroutine	phoout (IP, BOOST, NHEP0)
subroutine	phopre (IPARR, WT, NEUDAU, NCHARB)
real *4 function	phoran (IDUMMY)
subroutine	phorep
subroutine	phorin
subroutine	phoro2 (ANGLE, PVEC)
subroutine	phoro3 (ANGLE, PVEC)
real function	phospi (IDHEP)
subroutine	photos (IPARR)
real function	photri (A, B, C)
subroutine	photwo (MODE)
subroutine	phtype (ID)
subroutine	prod5 (P1, P2, P3, PIA)
subroutine	pyremm (IPU1, IPU2)
subroutine	pyspla (KPART, KFLIN, KFLCH, KFLSP)
subroutine	pysspb (IPU1, IPU2)
subroutine	pystfu (KF, X, Q2, XPQ)
subroutine	pystpr (X, Q2, XPPR)
subroutine	ranmar (RVEC, ISEQ)
subroutine	readffky
subroutine	reslu
double precision function	riwfun (V)
subroutine	riwibd
real *4 function	rlu (IDUMMY)
subroutine	rotod1 (PH1, PVEC, QVEC)
real *4 function	rndmm (IDUMMY)
subroutine	rotod2 (PH1, PVEC, QVEC)
subroutine	rotod3 (PH1, PVEC, QVEC)
subroutine	rotor1 (PH1, PVEC, QVEC)
subroutine	rotor2 (PH1, PVEC, QVEC)
subroutine	rotor3 (PHI, PVEC, QVEC)
subroutine	rotpol (THET, PHI, PP)
subroutine	rotpox (THET, PHI, PP)
function	sigee (Q2, JNP)
function	sigold (Q2, JNPI)
subroutine	sphera (R, X)
subroutine	spherd (R, X)
function	sqm2 (ITDKRC, QP, XN, XA, XK, AK0, HV)
subroutine	taufil
subroutine	tauinit
subroutine	taurdf (KTO)
function	thb (ITDKRC, QP, XN, XA, AK0, HV)
subroutine	tralo4 (KTO, P, Q, AM)
complex function	wigfor (S, XM, XGAM)

Function/Subroutine Documentation

function amas4

(

real, dimension(4)

PP

)

Definition at line 1562 of file leptonew.f.

References c2_factory< float_type >::sqrt().

Referenced by tralo4().

function amast

(

real*8, dimension(4)

PP

)

Definition at line 1577 of file leptonew.f.

References c2_factory< float_type >::sqrt().

function angfi	(		X,
			Y
	)

Definition at line 1593 of file leptonew.f.

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

function angxy	(		X,
			Y
	)

Definition at line 1613 of file leptonew.f.

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

subroutine bostd3	(		EXE,
		dimension(4)	PVEC,
		dimension(4)	QVEC
	)

Definition at line 1632 of file leptonew.f.

Referenced by drcmu().

subroutine bostr3	(		EXE,
		real*4, dimension(4)	PVEC,
		real*4, dimension(4)	QVEC
	)

Definition at line 1655 of file leptonew.f.

Referenced by dph4pi(), dph5pi(), dphsks(), dphsrk(), dphsro(), dphtre(), and tralo4().

subroutine btocho2	(	real, dimension(3)	VIN,
		real, dimension(3)	PIN,
			PTX,
			PTY
	)

Definition at line 1679 of file leptonew.f.

References HepGeom::Transform3D::dz().

Referenced by jettarun().

complex function bwig	(	real	S,
		real	M,
		real	G
	)

Definition at line 1691 of file leptonew.f.

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

Referenced by fpik(), fpikm(), fpikmd(), and fpikmk().

complex function bwigm	(	real	S,
		real	M,
		real	G,
		real	XM1,
		real	XM2
	)

Definition at line 1719 of file leptonew.f.

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

Referenced by form1(), form2(), form5(), fpikm(), fpikmd(), and fpikmk().

complex function bwigs	(	real	S,
		real	M,
		real	G
	)

Definition at line 1746 of file leptonew.f.

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

Referenced by dphsks().

subroutine cats

(

)

Definition at line 1776 of file leptonew.f.

References HepGeom::BasicVector3D< T >::y().

Referenced by gentable(), and jettarun().

subroutine choice	(		MNUM,
			RR,
			ICHAN,
			PROB1,
			PROB2,
			PROB3,
			AMRX,
			GAMRX,
			AMRA,
			GAMRA,
			AMRB,
			GAMRB
	)

Definition at line 1817 of file leptonew.f.

References CLHEP::HepLorentzVector::px().

Referenced by dph4pi(), dphtre(), G4LivermorePolarizedGammaConversionModel::SampleSecondaries(), and G4VisCommandsViewerSet::SetNewValue().

subroutine claxi	(	complex, dimension(4)	HJ,
		real, dimension(4)	PN,
		real, dimension(4)	PIA
	)

Definition at line 1963 of file leptonew.f.

References print().

Referenced by clnut(), dam4pi(), dampaa(), dampog(), and damppk().

subroutine clnut	(	complex, dimension(4)	HJ,
			B,
		real, dimension(4)	HV
	)

Definition at line 2002 of file leptonew.f.

References claxi().

Referenced by dam4pi(), dampaa(), dampog(), and damppk().

subroutine clvec	(	complex, dimension(4)	HJ,
		real, dimension(4)	PN,
		real, dimension(4)	PIV
	)

Definition at line 2020 of file leptonew.f.

Referenced by dam4pi(), dampaa(), dampog(), and damppk().

subroutine curr	(		MNUM,
		real, dimension(4)	PIM1,
		real, dimension(4)	PIM2,
		real, dimension(4)	PIM3,
		real, dimension(4)	PIM4,
		complex, dimension(4)	HADCUR
	)

Definition at line 2041 of file leptonew.f.

References a, CLHEP::HepLorentzVector::e(), form1(), form2(), form3(), fpikm(), and c2_factory< float_type >::sqrt().

Referenced by UReduciblePolygon::Area(), G4ReduciblePolygon::Area(), UReduciblePolygon::BisectedBy(), G4ReduciblePolygon::BisectedBy(), UReduciblePolygon::CalculateMaxMin(), G4ReduciblePolygon::CalculateMaxMin(), UReduciblePolygon::CopyVertices(), G4ReduciblePolygon::CopyVertices(), dam4pi(), fill_window(), G4Absorber::FindAbsorbers(), inflate_table(), UReduciblePolygon::Print(), G4ReduciblePolygon::Print(), UReduciblePolygon::RemoveDuplicateVertices(), G4ReduciblePolygon::RemoveDuplicateVertices(), UReduciblePolygon::RemoveRedundantVertices(), G4ReduciblePolygon::RemoveRedundantVertices(), UReduciblePolygon::ReverseOrder(), G4ReduciblePolygon::ReverseOrder(), UReduciblePolygon::ScaleA(), G4ReduciblePolygon::ScaleA(), UReduciblePolygon::ScaleB(), G4ReduciblePolygon::ScaleB(), UReduciblePolygon::StartWithZMin(), G4ReduciblePolygon::StartWithZMin(), G4ReduciblePolygon::~G4ReduciblePolygon(), and UReduciblePolygon::~UReduciblePolygon().

subroutine dadmaa	(		MODE,
			ISGN,
		real, dimension(4)	HHV,
		real, dimension(4)	PNU,
		real, dimension(4)	PAA,
		real, dimension(4)	PIM1,
		real, dimension(4)	PIM2,
		real, dimension(4)	PIPL,
			JAA
	)

Definition at line 2233 of file leptonew.f.

References dphsaa(), CLHEP::HepLorentzVector::e(), HepGeom::BasicVector3D< T >::phi(), ranmar(), rotpol(), and c2_factory< float_type >::sqrt().

Referenced by dekay(), dekay1(), dekay2(), and dexaa().

subroutine dadmel	(		MODE,
			ISGN,
		real, dimension(4)	HHV,
		real, dimension(4)	PNU,
		real, dimension(4)	PWB,
		real, dimension(4)	Q1,
		real, dimension(4)	Q2,
		real*4, dimension(4)	PHX
	)

Definition at line 2335 of file leptonew.f.

References dphsel(), CLHEP::HepLorentzVector::e(), HepGeom::BasicVector3D< T >::phi(), ranmar(), rotor2(), rotor3(), and c2_factory< float_type >::sqrt().

Referenced by dekay(), dekay1(), dekay2(), and dexel().

subroutine dadmkk	(		MODE,
			ISGN,
		real, dimension(4)	HV,
		real, dimension(4)	PKK,
		real, dimension(4)	PNU
	)

Definition at line 2443 of file leptonew.f.

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

Referenced by dekay(), dekay1(), dekay2(), and dexkk().

subroutine dadmks	(		MODE,
			ISGN,
		real, dimension(4)	HHV,
		real, dimension(4)	PNU,
		real, dimension(4)	PKS,
		real, dimension(4)	PKK,
		real, dimension(4)	PPI,
			JKST
	)

Definition at line 2523 of file leptonew.f.

References dphsks(), CLHEP::HepLorentzVector::e(), HepGeom::BasicVector3D< T >::phi(), ranmar(), rotor2(), rotor3(), and c2_factory< float_type >::sqrt().

Referenced by dekay(), dekay1(), dekay2(), and dexks().

subroutine dadmmu	(		MODE,
			ISGN,
		real, dimension(4)	HHV,
		real, dimension(4)	PNU,
		real, dimension(4)	PWB,
		real, dimension(4)	Q1,
		real, dimension(4)	Q2,
		real*4, dimension(4)	PHX
	)

Definition at line 2642 of file leptonew.f.

References dphsmu(), CLHEP::HepLorentzVector::e(), HepGeom::BasicVector3D< T >::phi(), ranmar(), rotor2(), rotor3(), and c2_factory< float_type >::sqrt().

Referenced by dekay(), dekay1(), dekay2(), and dexmu().

subroutine dadmpi	(		MODE,
			ISGN,
		real, dimension(4)	HV,
		real, dimension(4)	PPI,
		real, dimension(4)	PNU
	)

Definition at line 2745 of file leptonew.f.

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

Referenced by dekay(), dekay1(), dekay2(), and dexpi().

subroutine dadmro	(		MODE,
			ISGN,
		real, dimension(4)	HHV,
		real, dimension(4)	PNU,
		real, dimension(4)	PRO,
		real, dimension(4)	PIC,
		real, dimension(4)	PIZ
	)

Definition at line 2820 of file leptonew.f.

References dphsro(), CLHEP::HepLorentzVector::e(), HepGeom::BasicVector3D< T >::phi(), ranmar(), rotor2(), rotor3(), and c2_factory< float_type >::sqrt().

Referenced by dekay(), dekay1(), dekay2(), and dexro().

subroutine dadnew	(		MODE,
			ISGN,
		real*4, dimension(4)	HV,
		real*4, dimension(4)	PNU,
		real*4, dimension(4)	PWB,
		real*4, dimension(4,9)	PNPI,
			JNPI
	)

Definition at line 2926 of file leptonew.f.

References dph4pi(), dph5pi(), dphnpi(), dphspk(), dphsrk(), HepGeom::BasicVector3D< T >::phi(), ranmar(), rotor2(), rotor3(), and c2_factory< float_type >::sqrt().

Referenced by dekay(), dekay1(), dekay2(), and dexnew().

subroutine dam4pi	(		MNUM,
		real, dimension(4)	PT,
		real, dimension(4)	PN,
		real, dimension(4)	PIM1,
		real, dimension(4)	PIM2,
		real, dimension(4)	PIM3,
		real, dimension(4)	PIM4,
			AMPLIT,
		real, dimension(4)	HV
	)

Definition at line 3089 of file leptonew.f.

References claxi(), clnut(), clvec(), curr(), form1(), form2(), form3(), form4(), and form5().

Referenced by dph4pi().

subroutine dampaa	(	real, dimension(4)	PT,
		real, dimension(4)	PN,
		real, dimension(4)	PIM1,
		real, dimension(4)	PIM2,
		real, dimension(4)	PIPL,
			AMPLIT,
		real, dimension(4)	HV
	)

Definition at line 3137 of file leptonew.f.

References claxi(), clnut(), clvec(), CLHEP::HepLorentzVector::e(), fpik(), CLHEP::HepBoost::gamma(), gfun(), and c2_factory< float_type >::sqrt().

subroutine dampog	(	real, dimension(4)	PT,
		real, dimension(4)	PN,
		real, dimension(4)	PIM1,
		real, dimension(4)	PIM2,
		real, dimension(4)	PIPL,
			AMPLIT,
		real, dimension(4)	HV
	)

Definition at line 3228 of file leptonew.f.

References claxi(), clnut(), clvec(), formom(), CLHEP::HepBoost::gamma(), and c2_factory< float_type >::sqrt().

Referenced by dphtre().

subroutine damppk	(		MNUM,
		real, dimension(4)	PT,
		real, dimension(4)	PN,
		real, dimension(4)	PIM1,
		real, dimension(4)	PIM2,
		real, dimension(4)	PIM3,
			AMPLIT,
		real, dimension(4)	HV
	)

Definition at line 3337 of file leptonew.f.

References claxi(), clnut(), clvec(), CLHEP::HepLorentzVector::e(), form1(), form2(), form3(), form4(), form5(), print(), prod5(), and c2_factory< float_type >::sqrt().

Referenced by dphtre().

subroutine dampry	(		ITDKRC,
			XK0DEC,
		real*8, dimension(4)	XK,
		real*8, dimension(4)	XA,
		real*8, dimension(4)	QP,
		real*8, dimension(4)	XN,
			AMPLIT,
		real*8, dimension(4)	HV
	)

Definition at line 3496 of file leptonew.f.

References sqm2(), and thb().

Referenced by drcmu().

function dcdmas

(

IDENT

)

Definition at line 3523 of file leptonew.f.

References c2_transformation< float_type >::ident(), and print().

Referenced by dph5pi(), dphnpi(), and dphspk().

function dcross	(		V1,
			V2
	)

Definition at line 3567 of file leptonew.f.

References iz, lepto(), n, c2_function< float_type >::xmax(), c2_function< float_type >::xmin(), and HepGeom::BasicVector3D< T >::y().

Referenced by G4MuBetheBlochModel::ComputeCrossSectionPerElectron(), lxsect(), and riwfun().

subroutine dectes

(

KTORY

)

Definition at line 3632 of file leptonew.f.

References dekay(), dexay(), inimas(), iniphy(), initdk(), and print().

Referenced by tauinit().

subroutine dekay	(		KTO,
		real*8, dimension(4)	HX
	)

Definition at line 3795 of file leptonew.f.

References dadmaa(), dadmel(), dadmkk(), dadmks(), dadmmu(), dadmpi(), dadmro(), dadnew(), dekay1(), dekay2(), and print().

Referenced by dectes().

subroutine dekay1	(		IMOD,
		real, dimension(4)	HH,
			ISGN
	)

Definition at line 3965 of file leptonew.f.

References dadmaa(), dadmel(), dadmkk(), dadmks(), dadmmu(), dadmpi(), dadmro(), dadnew(), dwlnew(), dwluaa(), dwluel(), dwlukk(), dwluks(), dwlumu(), dwlupi(), dwluro(), dwrph(), and jaker().

Referenced by dekay().

subroutine dekay2	(		IMOD,
		real, dimension(4)	HH,
			ISGN
	)

Definition at line 4066 of file leptonew.f.

References dadmaa(), dadmel(), dadmkk(), dadmks(), dadmmu(), dadmpi(), dadmro(), dadnew(), dwlnew(), dwluaa(), dwluel(), dwlukk(), dwluks(), dwlumu(), dwlupi(), dwluro(), dwrph(), and jaker().

Referenced by dekay().

subroutine dexaa	(		MODE,
			ISGN,
		real, dimension(4)	POL,
		real, dimension(4)	PNU,
		real, dimension(4)	PAA,
		real, dimension(4)	PIM1,
		real, dimension(4)	PIM2,
		real, dimension(4)	PIPL,
			JAA
	)

Definition at line 4165 of file leptonew.f.

References dadmaa(), and ranmar().

Referenced by dexay(), and dexay1().

subroutine dexay	(		KTO,
		real, dimension(4)	POL
	)

Definition at line 4212 of file leptonew.f.

References dexaa(), dexay1(), dexel(), dexkk(), dexks(), dexmu(), dexnew(), dexpi(), and dexro().

Referenced by dectes(), and jettarun().

subroutine dexay1	(		KTO,
			JAKIN,
			JAK,
		real, dimension(4)	POL,
			ISGN
	)

Definition at line 4360 of file leptonew.f.

References dexaa(), dexel(), dexkk(), dexks(), dexmu(), dexnew(), dexpi(), dexro(), dwlnew(), dwluaa(), dwluel(), dwlukk(), dwluks(), dwlumu(), dwlupi(), dwluro(), dwrph(), and jaker().

Referenced by dexay().

subroutine dexel	(		MODE,
			ISGN,
		real, dimension(4)	POL,
		real, dimension(4)	PNU,
		real, dimension(4)	PWB,
		real, dimension(4)	Q1,
		real, dimension(4)	Q2,
		real, dimension(4)	PH
	)

Definition at line 4421 of file leptonew.f.

References dadmel(), print(), and ranmar().

Referenced by dexay(), and dexay1().

subroutine dexkk	(		MODE,
			ISGN,
		real, dimension(4)	POL,
		real, dimension(4)	PKK,
		real, dimension(4)	PNU
	)

Definition at line 4461 of file leptonew.f.

References dadmkk(), and ranmar().

Referenced by dexay(), and dexay1().

subroutine dexks	(		MODE,
			ISGN,
		real, dimension(4)	POL,
		real, dimension(4)	PNU,
		real, dimension(4)	PKS,
		real, dimension(4)	PKK,
		real, dimension(4)	PPI,
			JKST
	)

Definition at line 4495 of file leptonew.f.

References dadmks(), and ranmar().

Referenced by dexay(), and dexay1().

subroutine dexmu	(		MODE,
			ISGN,
		real, dimension(4)	POL,
		real, dimension(4)	PNU,
		real, dimension(4)	PWB,
		real, dimension(4)	Q1,
		real, dimension(4)	Q2,
		real, dimension(4)	PH
	)

Definition at line 4546 of file leptonew.f.

References dadmmu(), and ranmar().

Referenced by dexay(), and dexay1().

subroutine dexnew	(		MODE,
			ISGN,
		real, dimension(4)	POL,
		real, dimension(4)	PNU,
		real, dimension(4)	PAA,
		real, dimension(4,9)	PNPI,
			JNPI
	)

Definition at line 4590 of file leptonew.f.

References dadnew(), and ranmar().

Referenced by dexay(), and dexay1().

subroutine dexpi	(		MODE,
			ISGN,
		real, dimension(4)	POL,
		real, dimension(4)	PPI,
		real, dimension(4)	PNU
	)

Definition at line 4635 of file leptonew.f.

References dadmpi(), and ranmar().

Referenced by dexay(), and dexay1().

subroutine dexro	(		MODE,
			ISGN,
		real, dimension(4)	POL,
		real, dimension(4)	PNU,
		real, dimension(4)	PRO,
		real, dimension(4)	PIC,
		real, dimension(4)	PIZ
	)

Definition at line 4669 of file leptonew.f.

References dadmro(), and ranmar().

Referenced by dexay(), and dexay1().

double precision function dfun	(	integer	NDIM,
		double precision, dimension(ndim)	X
	)

Definition at line 4718 of file leptonew.f.

References riwfun().

function dilog

(

X

)

Definition at line 4727 of file leptonew.f.

References a, c2_factory< float_type >::log(), CLHEP::HepLorentzVector::t(), HepGeom::BasicVector3D< T >::y(), and z.

Referenced by lux3jt(), pyx3jt(), and thb().

real*4 function distrr

(

DUMMY

)

Definition at line 4796 of file leptonew.f.

References distr(), G4DataVector::index(), iz, rndmm(), c2_function< float_type >::xmax(), c2_function< float_type >::xmin(), and HepGeom::BasicVector3D< T >::y().

Referenced by jettarun().

function dlower

(

V1

)

Definition at line 4886 of file leptonew.f.

References CLHEP::HepLorentzVector::e(), iz, c2_function< float_type >::xmax(), c2_function< float_type >::xmin(), and HepGeom::BasicVector3D< T >::y().

Referenced by lxsect().

subroutine dph4pi	(		DGAMT,
		real, dimension(4)	HV,
		real, dimension(4)	PN,
		real, dimension(4)	PAA,
		real, dimension(4,9)	PMULT,
			JNPI
	)

Definition at line 4911 of file leptonew.f.

References bostr3(), choice(), dam4pi(), HepGeom::BasicVector3D< T >::phi(), ranmar(), rotpol(), sphera(), c2_factory< float_type >::sqrt(), c2_factory< float_type >::tan(), HepGeom::BasicVector3D< T >::y(), and z.

Referenced by dadnew().

subroutine dph5pi	(		DGAMT,
		real, dimension(4)	HV,
		real, dimension(4)	PN,
		real, dimension(4)	PAA,
		real, dimension(4,9)	PMULT,
			JNPI
	)

Definition at line 5206 of file leptonew.f.

References bostr3(), dcdmas(), CLHEP::HepLorentzVector::e(), CLHEP::HepBoost::gamma(), HepGeom::BasicVector3D< T >::phi(), ranmar(), rotpol(), sphera(), c2_factory< float_type >::sqrt(), and c2_factory< float_type >::tan().

Referenced by dadnew().

subroutine dphnpi	(		DGAMT,
		real*4, dimension(4)	HVX,
		real*4, dimension(4)	PNX,
		real*4, dimension(4)	PRX,
		real*4, dimension(4,9)	PPIX,
			JNPI
	)

Definition at line 5479 of file leptonew.f.

References a, c2_factory< float_type >::cos(), HepGeom::Plane3D< T >::d(), dcdmas(), HepGeom::BasicVector3D< T >::phi(), ranmar(), sigee(), c2_factory< float_type >::sin(), and c2_factory< float_type >::sqrt().

Referenced by dadnew().

subroutine dphsaa	(		DGAMT,
		real, dimension(4)	HV,
		real, dimension(4)	PN,
		real, dimension(4)	PAA,
		real, dimension(4)	PIM1,
		real, dimension(4)	PIM2,
		real, dimension(4)	PIPL,
			JAA
	)

Definition at line 5688 of file leptonew.f.

References dphtre(), and ranmar().

Referenced by dadmaa().

subroutine dphsel	(		DGAMX,
		real*4, dimension(4)	HVX,
		real*4, dimension(4)	XNX,
		real*4, dimension(4)	PAAX,
		real*4, dimension(4)	QPX,
		real*4, dimension(4)	XAX,
		real*4, dimension(4)	PHX
	)

Definition at line 5730 of file leptonew.f.

References drcmu().

Referenced by dadmel().

subroutine dphsks	(		DGAMT,
		real, dimension(4)	HV,
		real, dimension(4)	PN,
		real, dimension(4)	PKS,
		real, dimension(4)	PKK,
		real, dimension(4)	PPI,
			JKST
	)

Definition at line 5754 of file leptonew.f.

References bostr3(), bwigs(), ranmar(), sphera(), c2_factory< float_type >::sqrt(), and c2_factory< float_type >::tan().

Referenced by dadmks().

subroutine dphsmu	(		DGAMX,
		real*4, dimension(4)	HVX,
		real*4, dimension(4)	XNX,
		real*4, dimension(4)	PAAX,
		real*4, dimension(4)	QPX,
		real*4, dimension(4)	XAX,
		real*4, dimension(4)	PHX
	)

Definition at line 5925 of file leptonew.f.

References drcmu().

Referenced by dadmmu().

subroutine dphspk	(		DGAMT,
		real, dimension(4)	HV,
		real, dimension(4)	PN,
		real, dimension(4)	PAA,
		real, dimension(4,9)	PNPI,
			JAA
	)

Definition at line 5950 of file leptonew.f.

References dcdmas(), and dphtre().

Referenced by dadnew().

subroutine dphsrk	(		DGAMT,
		real, dimension(4)	HV,
		real, dimension(4)	PN,
		real, dimension(4)	PR,
		real, dimension(4,9)	PMULT,
			INUM
	)

Definition at line 5982 of file leptonew.f.

References bostr3(), fpirk(), ranmar(), sphera(), and c2_factory< float_type >::sqrt().

Referenced by dadnew().

subroutine dphsro	(		DGAMT,
		real, dimension(4)	HV,
		real, dimension(4)	PN,
		real, dimension(4)	PR,
		real, dimension(4)	PIC,
		real, dimension(4)	PIZ
	)

Definition at line 6085 of file leptonew.f.

References bostr3(), fpirho(), ranmar(), sphera(), c2_factory< float_type >::sqrt(), and c2_factory< float_type >::tan().

Referenced by dadmro().

subroutine dphtre	(		DGAMT,
		real, dimension(4)	HV,
		real, dimension(4)	PN,
		real, dimension(4)	PAA,
		real, dimension(4)	PIM1,
			AMPA,
		real, dimension(4)	PIM2,
			AMPB,
		real, dimension(4)	PIPL,
			AMP3,
			KEYT,
			MNUM
	)

Definition at line 6178 of file leptonew.f.

References bostr3(), choice(), dampog(), damppk(), HepGeom::BasicVector3D< T >::phi(), ranmar(), rotpol(), sphera(), c2_factory< float_type >::sqrt(), c2_factory< float_type >::tan(), HepGeom::BasicVector3D< T >::y(), and z.

Referenced by dphsaa(), and dphspk().

function dqcd	(		ICOSFI,
			IPART,
			IP,
			XP,
			ZP,
			Y
	)

Definition at line 6408 of file leptonew.f.

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

Referenced by lazimu(), and lzp().

function dqcdi	(		IPART,
			IP,
			XP,
			ZPMIN,
			ZPMAX
	)

Definition at line 6487 of file leptonew.f.

Referenced by dsigma().

subroutine drcmu	(		DGAMT,
		real*8, dimension(4)	HV,
		real*8, dimension(4)	PH,
		real*8, dimension(4)	PAA,
		real*8, dimension(4)	XA,
		real*8, dimension(4)	QP,
		real*8, dimension(4)	XN,
			IELMU
	)

Definition at line 6534 of file leptonew.f.

References bostd3(), dampry(), HepGeom::BasicVector3D< T >::eta(), c2_factory< float_type >::exp(), c2_factory< float_type >::log(), HepGeom::BasicVector3D< T >::phi(), print(), ranmar(), rotpox(), spherd(), c2_factory< float_type >::sqrt(), HepGeom::BasicVector3D< T >::y(), and z.

Referenced by dphsel(), and dphsmu().

function dsigma

(

XP

)

Definition at line 6713 of file leptonew.f.

References dqcdi(), iz, lnstrf(), n, ulmass(), c2_function< float_type >::xmax(), c2_function< float_type >::xmin(), and HepGeom::BasicVector3D< T >::y().

Referenced by lweits(), and lxp().

function dupper

(

V1

)

Definition at line 6901 of file leptonew.f.

References CLHEP::HepLorentzVector::e(), iz, c2_function< float_type >::xmax(), c2_function< float_type >::xmin(), and HepGeom::BasicVector3D< T >::y().

Referenced by lxsect().

subroutine dvnopt

(

)

Definition at line 6927 of file leptonew.f.

References print().

subroutine dwlnew	(		KTO,
			ISGN,
		real, dimension(4)	PNU,
		real, dimension(4)	PWB,
		real, dimension(4,9)	PNPI,
			MODE
	)

Definition at line 6943 of file leptonew.f.

References filhep(), lunpik(), and tralo4().

Referenced by dekay1(), dekay2(), and dexay1().

subroutine dwluaa	(		KTO,
			ISGN,
		real, dimension(4)	PNU,
		real, dimension(4)	PAA,
		real, dimension(4)	PIM1,
		real, dimension(4)	PIM2,
		real, dimension(4)	PIPL,
			JAA
	)

Definition at line 6995 of file leptonew.f.

References filhep(), and tralo4().

Referenced by dekay1(), dekay2(), and dexay1().

subroutine dwluel	(		KTO,
			ISGN,
		real, dimension(4)	PNU,
		real, dimension(4)	PWB,
		real, dimension(4)	PEL,
		real, dimension(4)	PNE
	)

Definition at line 7062 of file leptonew.f.

References filhep(), and tralo4().

Referenced by dekay1(), dekay2(), and dexay1().

subroutine dwlukk	(		KTO,
			ISGN,
		real, dimension(4)	PKK,
		real, dimension(4)	PNU
	)

Definition at line 7101 of file leptonew.f.

References filhep(), and tralo4().

Referenced by dekay1(), dekay2(), and dexay1().

subroutine dwluks	(		KTO,
			ISGN,
		real, dimension(4)	PNU,
		real, dimension(4)	PKS,
		real, dimension(4)	PKK,
		real, dimension(4)	PPI,
			JKST
	)

Definition at line 7131 of file leptonew.f.

References filhep(), ranmar(), and tralo4().

Referenced by dekay1(), dekay2(), and dexay1().

subroutine dwlumu	(		KTO,
			ISGN,
		real, dimension(4)	PNU,
		real, dimension(4)	PWB,
		real, dimension(4)	PMU,
		real, dimension(4)	PNM
	)

Definition at line 7200 of file leptonew.f.

References filhep(), and tralo4().

Referenced by dekay1(), dekay2(), and dexay1().

subroutine dwluph	(		KTO,
		real, dimension(4)	PHOT
	)

Definition at line 7239 of file leptonew.f.

References filhep(), and tralo4().

Referenced by dwrph().

subroutine dwlupi	(		KTO,
			ISGN,
		real, dimension(4)	PPI,
		real, dimension(4)	PNU
	)

Definition at line 7271 of file leptonew.f.

References filhep(), and tralo4().

Referenced by dekay1(), dekay2(), and dexay1().

subroutine dwluro	(		KTO,
			ISGN,
		real, dimension(4)	PNU,
		real, dimension(4)	PRHO,
		real, dimension(4)	PIC,
		real, dimension(4)	PIZ
	)

Definition at line 7302 of file leptonew.f.

References filhep(), and tralo4().

Referenced by dekay1(), dekay2(), and dexay1().

subroutine dwrph	(		KTO,
		real*4, dimension(4)	PHX
	)

Definition at line 7343 of file leptonew.f.

References dwluph(), and CLHEP::HepLorentzVector::e().

Referenced by dekay1(), dekay2(), and dexay1().

subroutine evtinfo

(

)

Definition at line 7369 of file leptonew.f.

References title().

Referenced by jettarun().

subroutine fermii

(

real*4, dimension(3)

F

)

Definition at line 7468 of file leptonew.f.

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

Referenced by jettarun().

subroutine filhep	(		N,
			IST,
			ID,
			JMO1,
			JMO2,
			JDA1,
			JDA2,
		real*4, dimension(4)	P4,
			PINV,
		logical	PHFLAG
	)

Definition at line 7517 of file leptonew.f.

References n.

Referenced by dwlnew(), dwluaa(), dwluel(), dwlukk(), dwluks(), dwlumu(), dwluph(), dwlupi(), dwluro(), and taufil().

function flgint

(

Z

)

Definition at line 7604 of file leptonew.f.

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

Referenced by flintg(), and fltabl().

subroutine flintg	(		CFLQ,
			CFLG,
			CFLM
	)

Definition at line 7625 of file leptonew.f.

References flgint(), flqint(), fltint(), gadap(), G4Abla::mod(), ulalps(), and HepGeom::BasicVector3D< T >::y().

Referenced by leptox().

subroutine flipol	(		FLQ,
			FLG,
			FLM
	)

Definition at line 7684 of file leptonew.f.

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

Referenced by leptox().

function flqint

(

Z

)

Definition at line 7757 of file leptonew.f.

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

Referenced by flintg(), and fltabl().

subroutine fltabl

(

)

Definition at line 7784 of file leptonew.f.

References flgint(), flqint(), fltint(), gadap(), iz, ltimex(), G4Abla::mod(), ulalps(), c2_function< float_type >::xmax(), c2_function< float_type >::xmin(), and HepGeom::BasicVector3D< T >::y().

Referenced by linit().

function fltint

(

Z

)

Definition at line 7886 of file leptonew.f.

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

Referenced by flintg(), and fltabl().

subroutine forced_decay	(		NUFORCE,
			ISTATUS
	)

Definition at line 7911 of file leptonew.f.

References ludecy(), lulist(), n, c2_factory< float_type >::sqrt(), and ulmass().

complex function form1	(		MNUM,
			QQ,
			S1,
			SDWA
	)

Definition at line 8066 of file leptonew.f.

References a, bwigm(), fpikm(), gfun(), c2_factory< float_type >::sqrt(), and wigfor().

Referenced by curr(), dam4pi(), and damppk().

complex function form2	(		MNUM,
			QQ,
			S1,
			SDWA
	)

Definition at line 8126 of file leptonew.f.

References a, bwigm(), fpikm(), gfun(), c2_factory< float_type >::sqrt(), and wigfor().

Referenced by curr(), dam4pi(), damppk(), and G4ScreeningMottCrossSection::FormFactor2ExpHof().

complex function form3	(		MNUM,
			QQ,
			S1,
			SDWA
	)

Definition at line 8188 of file leptonew.f.

Referenced by curr(), dam4pi(), and damppk().

complex function form4	(		MNUM,
			QQ,
			S1,
			S2,
			S3
	)

Definition at line 8216 of file leptonew.f.

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

Referenced by dam4pi(), and damppk().

complex function form5	(		MNUM,
			QQ,
			S1,
			S2
	)

Definition at line 8293 of file leptonew.f.

References a, bwigm(), fpikm(), fpikmd(), and c2_factory< float_type >::sqrt().

Referenced by dam4pi(), and damppk().

complex function formom	(		XMAA,
			XMOM
	)

Definition at line 8350 of file leptonew.f.

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

Referenced by dampog().

complex function fpik

(

real

W

)

Definition at line 8387 of file leptonew.f.

References bwig(), and testem0.App::init().

Referenced by dampaa(), and fpirho().

complex function fpikm	(	real	W,
			XM1,
			XM2
	)

Definition at line 8416 of file leptonew.f.

References bwig(), bwigm(), and testem0.App::init().

Referenced by curr(), form1(), form2(), form4(), form5(), and fpirk().

complex function fpikmd	(	real	W,
			XM1,
			XM2
	)

Definition at line 8445 of file leptonew.f.

References CLHEP::HepBoost::beta(), bwig(), bwigm(), CLHEP::HepAxisAngle::delta(), and testem0.App::init().

Referenced by form5().

complex function fpikmk	(	real	W,
			XM1,
			XM2
	)

Definition at line 8479 of file leptonew.f.

References bwig(), bwigm(), and testem0.App::init().

function fpirho

(

W

)

Definition at line 8508 of file leptonew.f.

References fpik().

Referenced by dphsro().

function fpirk

(

W

)

Definition at line 8517 of file leptonew.f.

References fpikm().

Referenced by dphsrk().

subroutine fzclos

(

)

Definition at line 8536 of file leptonew.f.

Referenced by jettarun().

subroutine fzini

(

)

Definition at line 8562 of file leptonew.f.

References fzopn().

Referenced by jettarun().

subroutine fzopn

(

character, dimension(*)

CHNAME

)

Definition at line 8608 of file leptonew.f.

Referenced by fzini().

subroutine gadap	(		A0,
			B0,
		external	F,
			EPS,
			SUM
	)

Definition at line 8665 of file leptonew.f.

References a, dsum(), CLHEP::HepLorentzVector::e(), G4Abla::f(), n, red, and c2_factory< float_type >::sqrt().

Referenced by flintg(), fltabl(), gadap2(), gadapf(), and lweits().

subroutine gadap2	(		A0,
			B0,
		external	FL,
		external	FU,
		external	F,
			EPS,
			SUM
	)

Definition at line 8751 of file leptonew.f.

References a, dsum(), CLHEP::HepLorentzVector::e(), G4Abla::f(), gadap(), gadapf(), n, red, and c2_factory< float_type >::sqrt().

Referenced by lxsect().

function gadapf	(		X,
			A0,
			B0,
		external	F,
			EPS
	)

Definition at line 8869 of file leptonew.f.

References a, dsum(), CLHEP::HepLorentzVector::e(), G4Abla::f(), gadap(), n, red, and c2_factory< float_type >::sqrt().

Referenced by gadap2().

subroutine gbinit

(

)

Definition at line 8942 of file leptonew.f.

References G4VITManager::iterator::end(), and HepGeom::BasicVector3D< T >::unit().

Referenced by gbspec().

subroutine gbspec	(	character*4	BEAM,
			IFLAV,
			RADIUS,
		dimension(100)	SPEC
	)

Definition at line 9033 of file leptonew.f.

References gbinit().

subroutine gentable	(		LFILE,
			LEPIN,
			ENERGY_FIX,
			PPZ,
			INTERACTION
	)

Definition at line 9103 of file leptonew.f.

References cats(), getneu(), G4DataVector::index(), iz, linit(), CLHEP::HepLorentzVector::vect(), c2_function< float_type >::xmax(), c2_function< float_type >::xmin(), and HepGeom::BasicVector3D< T >::y().

Referenced by jettarun().

subroutine gethneu	(		IPNUM,
			NEUTYPE,
		dimension(3)	VECT,
		dimension(3)	GKIN,
			MESTYPE,
		dimension(4)	G4MES,
			NEUFORCE,
			IMODE
	)

Definition at line 9198 of file leptonew.f.

References a, G4DataVector::index(), print(), and CLHEP::HepLorentzVector::vect().

Referenced by jettarun().

subroutine getneu	(		IPNUM,
			NEUTYPE,
		dimension(3)	VECT,
		dimension(3)	GKIN,
			MESTYPE,
		dimension(4)	G4MES,
			NEUFORCE,
			IMODE
	)

Definition at line 9358 of file leptonew.f.

References a, print(), and CLHEP::HepLorentzVector::vect().

Referenced by gentable(), and jettarun().

function gfun

(

QKWA

)

Definition at line 9551 of file leptonew.f.

Referenced by dampaa(), form1(), form2(), and G4Generator2BS::SampleDirection().

subroutine inimas

(

)

Definition at line 9573 of file leptonew.f.

Referenced by dectes().

subroutine iniphy

(

real*8

XK00

)

Definition at line 9613 of file leptonew.f.

Referenced by dectes().

subroutine initdk

(

)

Definition at line 9635 of file leptonew.f.

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

Referenced by dectes().

subroutine initdk_new

(

)

Definition at line 9785 of file leptonew.f.

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

subroutine jaker

(

JAK

)

Definition at line 9930 of file leptonew.f.

References print(), and ranmar().

Referenced by dekay1(), dekay2(), and dexay1().

subroutine jetmc

(

)

Definition at line 9995 of file leptonew.f.

References G4DataVector::index(), luchge(), and n.

Referenced by jettarun().

subroutine jetta

(

)

Definition at line 10628 of file leptonew.f.

References CLHEP::HepLorentzVector::e(), G4DataVector::index(), luchge(), n, HepGeom::Transform3D::xx(), and HepGeom::BasicVector3D< T >::y().

Referenced by jettarun().

subroutine jettarun

(

)

Definition at line 54 of file leptonew.f.

References btocho2(), cats(), dexay(), distrr(), evtinfo(), fermii(), fzclos(), fzini(), gentable(), gethneu(), getneu(), G4DataVector::index(), jetmc(), jetta(), jettout(), lepto(), c2_factory< float_type >::log(), lucomp(), luexec(), luhepc(), lulist(), lurobo(), G4Abla::mod(), mzini(), n, orth(), parupd(), readffky(), rlu(), c2_factory< float_type >::sqrt(), tauinit(), test(), CLHEP::HepLorentzVector::vect(), and HepGeom::BasicVector3D< T >::y().

subroutine jettout

(

)

Definition at line 10147 of file leptonew.f.

References c2_factory< float_type >::cos(), G4DataVector::index(), luchge(), lulist(), lutoge(), n, rndmm(), c2_factory< float_type >::sin(), c2_factory< float_type >::sqrt(), CLHEP::HepLorentzVector::vect(), and HepGeom::BasicVector3D< T >::y().

Referenced by jettarun().

subroutine lazimu	(		XP,
			ZP
	)

Definition at line 10587 of file leptonew.f.

References a, c2_factory< float_type >::cos(), dqcd(), lurobo(), HepGeom::BasicVector3D< T >::phi(), rlu(), and HepGeom::BasicVector3D< T >::y().

Referenced by lqgev(), and lqqbev().

subroutine lepto

(

)

Definition at line 1201 of file leptonew.f.

References dbeta(), CLHEP::HepLorentzVector::e(), energy(), G4DataVector::index(), iz, leptox(), lframe(), lmeps(), lprikt(), lqcdpr(), lqev(), lqgev(), lqqbev(), lshowr(), luexec(), lulist(), luprep(), G4Abla::mod(), n, ns, G4StokesVector::p2(), HepGeom::BasicVector3D< T >::phi(), plu(), rlu(), c2_factory< float_type >::sqrt(), ulalps(), ulangl(), ulmass(), c2_function< float_type >::xmax(), c2_function< float_type >::xmin(), and HepGeom::BasicVector3D< T >::y().

Referenced by dcross(), jettarun(), kkevle(), lsigmx(), and lweits().

subroutine leptox

(

)

Definition at line 10815 of file leptonew.f.

References a, CLHEP::HepLorentzVector::e(), flintg(), flipol(), G4DataVector::index(), int(), iz, lkinem(), lnstrf(), G4Abla::mod(), n, rlu(), c2_factory< float_type >::sqrt(), ulalem(), c2_function< float_type >::xmax(), c2_function< float_type >::xmin(), and HepGeom::BasicVector3D< T >::y().

Referenced by lepto().

subroutine lflav	(		IFL,
			IFLR
	)

Definition at line 11354 of file leptonew.f.

References lucomp(), G4Abla::mod(), HepGeom::BasicVector3D< T >::r(), rlu(), rndmm(), and HepGeom::BasicVector3D< T >::y().

Referenced by lqev(), lqgev(), and lqqbev().

subroutine lframe	(	integer	IFR,
		integer	IPH
	)

Definition at line 11476 of file leptonew.f.

References dbeta(), iz, n, plu(), c2_function< float_type >::xmax(), c2_function< float_type >::xmin(), and HepGeom::BasicVector3D< T >::y().

Referenced by kkevle(), and lepto().

subroutine linit	(		LFILE,
			LEPIN,
			PLZ,
			PPZ,
			INTER
	)

Definition at line 11611 of file leptonew.f.

References dbeta(), CLHEP::HepLorentzVector::e(), fltabl(), iz, lminew(), ltimex(), lugive(), lweits(), lxsect(), G4Abla::mod(), n, c2_factory< float_type >::sqrt(), ulangl(), ulmass(), c2_function< float_type >::xmax(), c2_function< float_type >::xmin(), HepGeom::Transform3D::xx(), and HepGeom::BasicVector3D< T >::y().

Referenced by gentable(), and kkevle().

function lkinem

(

L

)

Definition at line 12147 of file leptonew.f.

References dbeta(), iz, n, plu(), c2_factory< float_type >::sqrt(), ulmass(), c2_function< float_type >::xmax(), c2_function< float_type >::xmin(), and HepGeom::BasicVector3D< T >::y().

Referenced by leptox().

subroutine lmcmnd

(

)

Definition at line 12254 of file leptonew.f.

References a, G4Abla::f(), lmprin(), lmsimp(), lsigmx(), title(), CLHEP::HepBoost::xt(), and HepGeom::BasicVector3D< T >::y().

Referenced by lminew().

subroutine lmeps

(

)

Definition at line 12343 of file leptonew.f.

References dbeta(), lscale(), ltimex(), luedit(), luprep(), lushow(), G4Abla::mod(), n, ns, pyremm(), pysspb(), pystfu(), c2_factory< float_type >::sqrt(), ulangl(), and HepGeom::BasicVector3D< T >::y().

Referenced by lepto().

subroutine lmidat

(

)

Definition at line 12702 of file leptonew.f.

References a, lmpint(), ltimex(), G4Abla::nint(), no, title(), CLHEP::HepBoost::xt(), and HepGeom::BasicVector3D< T >::y().

Referenced by lminew().

subroutine lminew

(

)

Definition at line 12896 of file leptonew.f.

References CLHEP::HepLorentzVector::e(), G4Abla::f(), lmcmnd(), lmidat(), lminto(), lmprin(), lsigmx(), title(), CLHEP::HepBoost::xt(), and HepGeom::BasicVector3D< T >::y().

Referenced by linit().

subroutine lminto

(

dimension(2)

PINT

)

Definition at line 12969 of file leptonew.f.

References c2_factory< float_type >::sin(), title(), CLHEP::HepBoost::xt(), and HepGeom::BasicVector3D< T >::y().

Referenced by lminew(), lmrazz(), and lmsimp().

real function lmpint	(		PEXTI,
			I
	)

Definition at line 13013 of file leptonew.f.

References a, G4Abla::f(), c2_factory< float_type >::sin(), c2_factory< float_type >::sqrt(), title(), CLHEP::HepBoost::xt(), HepGeom::BasicVector3D< T >::y(), and HepGeom::Transform3D::yy().

Referenced by lmidat().

subroutine lmprin	(		IKODE,
			FVAL
	)

Definition at line 13075 of file leptonew.f.

References c2_factory< float_type >::cos(), HepGeom::Transform3D::dx(), CLHEP::HepLorentzVector::e(), ltimex(), c2_factory< float_type >::sin(), c2_factory< float_type >::sqrt(), title(), CLHEP::HepBoost::xt(), and HepGeom::BasicVector3D< T >::y().

Referenced by lmcmnd(), lminew(), and lmsimp().

subroutine lmrazz	(		YNEW,
		dimension(15)	PNEW
	)

Definition at line 13171 of file leptonew.f.

References lminto(), G4Abla::mod(), title(), CLHEP::HepBoost::xt(), and HepGeom::BasicVector3D< T >::y().

Referenced by lmsimp().

subroutine lmsimp

(

)

Definition at line 13243 of file leptonew.f.

References CLHEP::HepBoost::beta(), CLHEP::HepLorentzVector::e(), G4Abla::f(), CLHEP::HepBoost::gamma(), lminto(), lmprin(), lmrazz(), lsigmx(), G4Abla::mod(), ns, HepGeom::BasicVector3D< T >::rho(), c2_factory< float_type >::sqrt(), title(), CLHEP::HepBoost::xt(), and HepGeom::BasicVector3D< T >::y().

Referenced by lmcmnd().

subroutine lnstrf	(		X,
			Q2,
		dimension(-6:6)	XPQ
	)

Definition at line 13443 of file leptonew.f.

References CLHEP::HepLorentzVector::e(), and pystfu().

Referenced by dsigma(), flgint(), flqint(), fltint(), and leptox().

subroutine lprikt	(		S,
			PT,
			PHI
	)

Definition at line 13469 of file leptonew.f.

References HepGeom::BasicVector3D< T >::phi(), rlu(), and c2_factory< float_type >::sqrt().

Referenced by lepto(), lqev(), lqgev(), lqqbev(), and pyremm().

subroutine lprwts

(

NSTEP

)

Definition at line 13484 of file leptonew.f.

References iz, c2_factory< float_type >::sqrt(), ulalps(), c2_function< float_type >::xmax(), c2_function< float_type >::xmin(), HepGeom::Transform3D::xx(), and HepGeom::BasicVector3D< T >::y().

subroutine lqcdpr	(		QG,
			QQB
	)

Definition at line 13584 of file leptonew.f.

References int(), c2_factory< float_type >::sqrt(), HepGeom::Transform3D::xx(), and HepGeom::BasicVector3D< T >::y().

Referenced by lepto().

subroutine lqev

(

)

Definition at line 13798 of file leptonew.f.

References lflav(), lprikt(), lremh(), lu1ent(), lu2ent(), G4Abla::mod(), n, HepGeom::BasicVector3D< T >::phi(), c2_factory< float_type >::sqrt(), ulangl(), ulmass(), CLHEP::HepBoost::xt(), and HepGeom::BasicVector3D< T >::y().

Referenced by lepto().

subroutine lqgev

(

)

Definition at line 13703 of file leptonew.f.

References c2_factory< float_type >::cos(), lazimu(), lflav(), lprikt(), lqmcut(), lremh(), lu3ent(), lurobo(), lxp(), lzp(), G4Abla::mod(), n, HepGeom::BasicVector3D< T >::phi(), c2_factory< float_type >::sin(), c2_factory< float_type >::sqrt(), ulmass(), CLHEP::HepBoost::xt(), and HepGeom::BasicVector3D< T >::y().

Referenced by lepto().

function lqmcut	(		XP,
			ZP,
			AM1,
			AM2,
			AM3
	)

Definition at line 13886 of file leptonew.f.

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

Referenced by lqgev(), and lqqbev().

subroutine lqqbev

(

)

Definition at line 13932 of file leptonew.f.

References c2_factory< float_type >::cos(), int(), lazimu(), lflav(), lprikt(), lqmcut(), lremh(), lu3ent(), lurobo(), lxp(), lzp(), G4Abla::mod(), n, HepGeom::BasicVector3D< T >::phi(), rlu(), c2_factory< float_type >::sin(), c2_factory< float_type >::sqrt(), ulmass(), CLHEP::HepBoost::xt(), and HepGeom::BasicVector3D< T >::y().

Referenced by lepto().

subroutine lremh	(		IFLRO,
			IFLR,
			K2,
			Z
	)

Definition at line 14054 of file leptonew.f.

References a, int(), lucomp(), lukfdi(), rlu(), c2_factory< float_type >::sqrt(), ulmass(), HepGeom::BasicVector3D< T >::y(), and z.

Referenced by lqev(), lqgev(), lqqbev(), and pyremm().

subroutine lscale	(		INFIN,
			QMAX
	)

Definition at line 14130 of file leptonew.f.

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

Referenced by lmeps(), lshowr(), and pysspb().

subroutine lshowr

(

ICALL

)

Definition at line 14194 of file leptonew.f.

References dbeta(), lscale(), ltimex(), luedit(), luprep(), lushow(), G4Abla::mod(), n, ns, pyremm(), pysspb(), pystfu(), c2_factory< float_type >::sqrt(), ulangl(), ulmass(), and HepGeom::BasicVector3D< T >::y().

Referenced by lepto().

subroutine lsigmx	(		NPAR,
		dimension(30)	DERIV,
			DIFSIG,
		dimension(30)	XF,
			IFLAG
	)

Definition at line 14588 of file leptonew.f.

References CLHEP::HepLorentzVector::e(), iz, lepto(), n, c2_function< float_type >::xmax(), c2_function< float_type >::xmin(), and HepGeom::BasicVector3D< T >::y().

Referenced by lmcmnd(), lminew(), and lmsimp().

subroutine ltimex

(

TIME

)

Definition at line 14697 of file leptonew.f.

Referenced by fltabl(), linit(), lmeps(), lmidat(), lmprin(), lshowr(), and lxsect().

function lunpik	(		ID,
			ISGN
	)

Definition at line 14709 of file leptonew.f.

References c2_transformation< float_type >::ident(), print(), and ranmar().

Referenced by dwlnew().

subroutine lurobo	(		THE,
			PHI,
			BEX,
			BEY,
			BEZ
	)

Definition at line 14763 of file leptonew.f.

References c2_factory< float_type >::cos(), CLHEP::HepLorentzVector::e(), luerrm(), n, HepGeom::BasicVector3D< T >::phi(), c2_factory< float_type >::sin(), and c2_factory< float_type >::sqrt().

Referenced by jettarun(), lazimu(), lqgev(), lqqbev(), pyfram(), and pyinki().

subroutine lustrf

(

IP

)

Definition at line 14883 of file leptonew.f.

References HepGeom::Plane3D< T >::d(), CLHEP::HepLorentzVector::e(), c2_factory< float_type >::exp(), G4Abla::fd(), int(), iz, c2_factory< float_type >::log(), lucomp(), luerrm(), lukfdi(), luptdi(), luzdis(), G4Abla::mod(), n, ns, CLHEP::HepLorentzVector::px(), CLHEP::HepLorentzVector::py(), pyp(), rlu(), c2_factory< float_type >::sqrt(), ulmass(), and z.

Referenced by luexec().

function lutoge

(

KF

)

Definition at line 16009 of file leptonew.f.

References lulist().

Referenced by jettout().

subroutine lwbb

(

ENU

)

Definition at line 16138 of file leptonew.f.

References CLHEP::HepLorentzVector::e(), c2_factory< float_type >::exp(), and rlu().

subroutine lweits

(

LFILE

)

Definition at line 16163 of file leptonew.f.

References dsigma(), gadap(), lepto(), c2_factory< float_type >::sqrt(), ulalps(), HepGeom::Transform3D::xx(), and HepGeom::BasicVector3D< T >::y().

Referenced by linit().

subroutine lxp	(		XP,
			IFAIL
	)

Definition at line 16381 of file leptonew.f.

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

Referenced by lqgev(), and lqqbev().

subroutine lxsect

(

)

Definition at line 16423 of file leptonew.f.

References HepGeom::Plane3D< T >::d(), dcross(), dlower(), dupper(), CLHEP::HepLorentzVector::e(), gadap2(), iz, ltimex(), riwfun(), c2_function< float_type >::xmax(), c2_function< float_type >::xmin(), and HepGeom::BasicVector3D< T >::y().

Referenced by linit().

subroutine lzp	(		XP,
			ZP,
			IFAIL
	)

Definition at line 16562 of file leptonew.f.

References a, HepGeom::Plane3D< T >::d(), dqcd(), HepGeom::Transform3D::dx(), HepGeom::Transform3D::dz(), CLHEP::HepLorentzVector::e(), rlu(), and HepGeom::BasicVector3D< T >::y().

Referenced by lqgev(), and lqqbev().

subroutine mzini

(

)

Definition at line 16643 of file leptonew.f.

Referenced by jettarun().

subroutine orth	(		PO,
		real*4, dimension(3)	P,
		real*4, dimension(3)	PB
	)

Definition at line 16676 of file leptonew.f.

References c2_factory< float_type >::sqrt().

Referenced by jettarun().

subroutine parupd

(

)

Definition at line 16746 of file leptonew.f.

References G4DataVector::index(), iz, c2_function< float_type >::xmax(), c2_function< float_type >::xmin(), and HepGeom::BasicVector3D< T >::y().

Referenced by jettarun().

real function phint

(

integer

IDUM

)

Definition at line 16786 of file leptonew.f.

References CLHEP::HepBoost::beta(), c2_transformation< float_type >::ident(), phocha(), c2_factory< float_type >::sqrt(), and HepGeom::Transform3D::xx().

Referenced by phomak().

subroutine phlupa

(

IPOINT

)

Definition at line 16856 of file leptonew.f.

References c2_factory< float_type >::sqrt().

Referenced by phoin(), and phoout().

double precision function phoan1	(	real	X,
		real	Y
	)

Definition at line 16917 of file leptonew.f.

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

Referenced by phodo().

double precision function phoan2	(	real	X,
		real	Y
	)

Definition at line 16948 of file leptonew.f.

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

Referenced by phodo().

subroutine phobo3	(	double precision	ANGLE,
		real, dimension(4)	PVEC
	)

Definition at line 16978 of file leptonew.f.

References HepGeom::BasicVector3D< T >::angle().

Referenced by phodo().

subroutine phobos	(	integer	IP,
		real, dimension(5)	PBOOS1,
		real, dimension(5)	PBOOS2,
		integer	FIRST,
		integer	LAST
	)

Definition at line 17007 of file leptonew.f.

References G4String::first(), G4String::last(), and phoerr().

Referenced by photos().

real function phocha

(

integer

IDHEP

)

Definition at line 17088 of file leptonew.f.

References G4Abla::mod().

Referenced by phint(), phoene(), and phopre().

subroutine phochk

(

integer

JFIRST

)

Definition at line 17151 of file leptonew.f.

References G4Abla::f(), and c2_transformation< float_type >::ident().

Referenced by phomak().

subroutine phocin

(

)

Definition at line 17258 of file leptonew.f.

References testem0.App::init(), and status.

Referenced by phoini().

real function phocor	(	double precision	MPASQR,
		double precision	MCHREN,
		integer	ME
	)

Definition at line 17350 of file leptonew.f.

References CLHEP::HepBoost::beta(), phoerr(), phofac(), c2_factory< float_type >::sqrt(), HepGeom::Transform3D::xx(), and HepGeom::Transform3D::yy().

Referenced by phopre().

subroutine phodo	(	integer	IP,
		integer	NCHARB,
		integer	NEUDAU
	)

Definition at line 17419 of file leptonew.f.

References HepGeom::BasicVector3D< T >::angle(), c2_factory< float_type >::cos(), G4String::first(), G4String::last(), phoan1(), phoan2(), phobo3(), phoerr(), phoran(), phoro2(), phoro3(), photri(), c2_factory< float_type >::sin(), and c2_factory< float_type >::sqrt().

Referenced by phomak().

subroutine phoene	(	double precision	MPASQR,
		double precision	MCHREN,
		double precision	BETA,
		integer	IDENT
	)

Definition at line 17603 of file leptonew.f.

References CLHEP::HepBoost::beta(), c2_factory< float_type >::exp(), c2_transformation< float_type >::ident(), c2_factory< float_type >::log(), phocha(), phoerr(), phofac(), phoran(), and c2_factory< float_type >::sqrt().

Referenced by phopre().

subroutine phoerr	(	integer	IMES,
		character, dimension(*)	TEXT,
		double precision	DATA
	)

Definition at line 17691 of file leptonew.f.

References a, int(), and status.

Referenced by phobos(), phocor(), phodo(), phoene(), phomak(), phopre(), phorin(), and photos().

real function phofac

(

integer

MODE

)

Definition at line 17809 of file leptonew.f.

Referenced by phocor(), and phoene().

subroutine phoin	(	integer	IP,
		logical	BOOST,
		integer	NHEP0
	)

Definition at line 17866 of file leptonew.f.

References CLHEP::HepLorentzRotation::boost(), CLHEP::HepLorentzVector::e(), G4String::first(), G4String::last(), phlupa(), and photwo().

Referenced by phomak().

subroutine phoinf

(

)

Definition at line 17991 of file leptonew.f.

Referenced by phoini().

subroutine phoini

(

)

Definition at line 18146 of file leptonew.f.

References testem0.App::init(), phocin(), phoinf(), and phorin().

subroutine phomak	(	integer	IPPAR,
		integer	NHEP0
	)

Definition at line 18186 of file leptonew.f.

References CLHEP::HepLorentzRotation::boost(), phint(), phochk(), phodo(), phoerr(), phoin(), phoout(), phopre(), and phoran().

Referenced by phtype().

subroutine phooma	(	integer	IFIRST,
		integer	ILAST,
		integer, dimension(nmxpho)	POINTR
	)

Definition at line 18246 of file leptonew.f.

Referenced by phopre().

subroutine phoout	(	integer	IP,
		logical	BOOST,
		integer	NHEP0
	)

Definition at line 18300 of file leptonew.f.

References CLHEP::HepLorentzRotation::boost(), G4String::first(), G4String::last(), and phlupa().

Referenced by phomak().

subroutine phopre	(	integer	IPARR,
		real	WT,
		integer	NEUDAU,
		integer	NCHARB
	)

Definition at line 18383 of file leptonew.f.

References CLHEP::HepBoost::beta(), phocha(), phocor(), phoene(), phoerr(), phooma(), phoran(), phospi(), and c2_factory< float_type >::sqrt().

Referenced by phomak().

real*4 function phoran

(

IDUMMY

)

Definition at line 18557 of file leptonew.f.

Referenced by phodo(), phoene(), phomak(), phopre(), and phtype().

subroutine phorep

(

)

Definition at line 18565 of file leptonew.f.

References status.

subroutine phorin

(

)

Definition at line 18623 of file leptonew.f.

References G4Abla::mod(), phoerr(), and CLHEP::HepLorentzVector::t().

Referenced by phoini().

subroutine phoro2	(	double precision	ANGLE,
		real, dimension(4)	PVEC
	)

Definition at line 18684 of file leptonew.f.

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

Referenced by phodo().

subroutine phoro3	(	double precision	ANGLE,
		real, dimension(4)	PVEC
	)

Definition at line 18711 of file leptonew.f.

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

Referenced by phodo().

real function phospi

(

integer

IDHEP

)

Definition at line 18738 of file leptonew.f.

References G4Abla::mod().

Referenced by phopre().

subroutine photos

(

integer

IPARR

)

Definition at line 18785 of file leptonew.f.

References G4String::first(), G4String::last(), phobos(), phoerr(), photon, and phtype().

real function photri	(	real	A,
		real	B,
		real	C
	)

Definition at line 18953 of file leptonew.f.

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

Referenced by phodo().

subroutine photwo

(

integer

MODE

)

Definition at line 18984 of file leptonew.f.

References c2_factory< float_type >::sqrt().

Referenced by phoin().

subroutine phtype

(

integer

ID

)

Definition at line 19045 of file leptonew.f.

References phomak(), and phoran().

Referenced by photos().

subroutine prod5	(	real, dimension(4)	P1,
		real, dimension(4)	P2,
		real, dimension(4)	P3,
		real, dimension(4)	PIA
	)

Definition at line 19104 of file leptonew.f.

References G4StokesVector::p1(), G4StokesVector::p2(), G4StokesVector::p3(), and print().

Referenced by damppk().

subroutine pyremm	(		IPU1,
			IPU2
	)

Definition at line 19141 of file leptonew.f.

References c2_factory< float_type >::cos(), lprikt(), lremh(), lucomp(), G4Abla::mod(), n, ns, pyspla(), CLHEP::HepLorentzVector::pz(), c2_factory< float_type >::sin(), c2_factory< float_type >::sqrt(), ulangl(), and ulmass().

Referenced by lmeps(), and lshowr().

subroutine pyspla	(		KPART,
			KFLIN,
			KFLCH,
			KFLSP
	)

Definition at line 19421 of file leptonew.f.

References lukfdi(), HepGeom::BasicVector3D< T >::r(), and rlu().

Referenced by pyremm().

subroutine pysspb	(		IPU1,
			IPU2
	)

Definition at line 19588 of file leptonew.f.

References HepGeom::Plane3D< T >::d(), CLHEP::HepLorentzVector::e(), c2_factory< float_type >::exp(), lscale(), lushow(), G4Abla::mod(), n, ns, pystfu(), rlu(), c2_factory< float_type >::sqrt(), ulangl(), ulmass(), and z.

Referenced by lmeps(), and lshowr().

subroutine pystfu	(		KF,
			X,
			Q2,
		dimension(-6:6)	XPQ
	)

Definition at line 20190 of file leptonew.f.

References pystpr(), c2_factory< float_type >::sqrt(), and HepGeom::Transform3D::xx().

Referenced by lmeps(), lnstrf(), lshowr(), pysigh(), pysspa(), and pysspb().

subroutine pystpr	(		X,
			Q2,
		dimension(-6:6)	XPPR
	)

Definition at line 20311 of file leptonew.f.

References CLHEP::HepLorentzVector::e(), c2_factory< float_type >::exp(), CLHEP::HepBoost::gamma(), c2_factory< float_type >::log(), c2_factory< float_type >::sqrt(), CLHEP::HepLorentzVector::t(), CLHEP::HepBoost::tt(), CLHEP::HepBoost::tx(), and HepGeom::BasicVector3D< T >::y().

Referenced by pystfu().

subroutine ranmar	(	dimension(*)	RVEC,
			ISEQ
	)

Definition at line 20998 of file leptonew.f.

Referenced by dadmaa(), dadmel(), dadmks(), dadmmu(), dadmro(), dadnew(), dexaa(), dexel(), dexkk(), dexks(), dexmu(), dexnew(), dexpi(), dexro(), dph4pi(), dph5pi(), dphnpi(), dphsaa(), dphsks(), dphsrk(), dphsro(), dphtre(), drcmu(), dwluks(), jaker(), lunpik(), sphera(), and spherd().

subroutine readffky

(

)

Definition at line 21020 of file leptonew.f.

References status.

Referenced by jettarun().

subroutine reslu

(

)

Definition at line 21085 of file leptonew.f.

double precision function riwfun

(

double precision, dimension(2)

V

)

Definition at line 21102 of file leptonew.f.

References dcross(), iz, c2_function< float_type >::xmax(), c2_function< float_type >::xmin(), and HepGeom::BasicVector3D< T >::y().

Referenced by dfun(), and lxsect().

subroutine riwibd

(

)

Definition at line 21133 of file leptonew.f.

References CLHEP::HepBoost::beta(), CLHEP::HepAxisAngle::delta(), CLHEP::HepBoost::gamma(), testem0.App::init(), and HepGeom::BasicVector3D< T >::r().

real*4 function rlu

(

IDUMMY

)

Definition at line 21166 of file leptonew.f.

Referenced by ar3jet(), aran9(), arorie(), attflv(), attrad(), hijcsc(), hijels(), hijflv(), hijfrg(), hijhrd(), hijing(), hijini(), hijsft(), hiptdi(), hirnd(), hirnd2(), jettarun(), lazimu(), lepto(), leptox(), lflav(), lprikt(), lqqbev(), lremh(), lu4ent(), lucell(), ludecy(), luindf(), lujoin(), lukfdi(), luonia(), luprep(), luptdi(), luradk(), lushow(), lusphe(), lustrf(), lutaud(), lutest(), luthru(), lux3jt(), lux4jt(), luxdif(), luxjet(), luxkfl(), luzdis(), lwbb(), lxp(), lzp(), pydiff(), pymult(), pyovly(), pyrand(), pyremn(), pyresd(), pyscat(), pyspla(), pyspli(), pysspa(), pysspb(), quench(), rlu(), and ulmass().

real*4 function rndmm

(

IDUMMY

)

Definition at line 21195 of file leptonew.f.

Referenced by distrr(), fermii(), jettout(), and lflav().

subroutine rotod1	(		PH1,
		dimension(4)	PVEC,
		dimension(4)	QVEC
	)

Definition at line 21174 of file leptonew.f.

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

subroutine rotod2	(		PH1,
		dimension(4)	PVEC,
		dimension(4)	QVEC
	)

Definition at line 21202 of file leptonew.f.

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

Referenced by rotpox().

subroutine rotod3	(		PH1,
		dimension(4)	PVEC,
		dimension(4)	QVEC
	)

Definition at line 21223 of file leptonew.f.

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

Referenced by rotpox().

subroutine rotor1	(		PH1,
		real*4, dimension(4)	PVEC,
		real*4, dimension(4)	QVEC
	)

Definition at line 21243 of file leptonew.f.

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

subroutine rotor2	(		PH1,
		real*4, dimension(4)	PVEC,
		real*4, dimension(4)	QVEC
	)

Definition at line 21262 of file leptonew.f.

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

Referenced by dadmel(), dadmks(), dadmmu(), dadmro(), dadnew(), and rotpol().

subroutine rotor3	(		PHI,
		real*4, dimension(4)	PVEC,
		real*4, dimension(4)	QVEC
	)

Definition at line 21282 of file leptonew.f.

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

Referenced by dadmel(), dadmks(), dadmmu(), dadmro(), dadnew(), and rotpol().

subroutine rotpol	(		THET,
			PHI,
		real, dimension(4)	PP
	)

Definition at line 21300 of file leptonew.f.

References HepGeom::BasicVector3D< T >::phi(), rotor2(), and rotor3().

Referenced by dadmaa(), dph4pi(), dph5pi(), and dphtre().

subroutine rotpox	(		THET,
			PHI,
		dimension(4)	PP
	)

Definition at line 21313 of file leptonew.f.

References HepGeom::BasicVector3D< T >::phi(), rotod2(), and rotod3().

Referenced by drcmu().

function sigee	(		Q2,
			JNP
	)

Definition at line 21328 of file leptonew.f.

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

Referenced by dphnpi().

function sigold	(		Q2,
			JNPI
	)

Definition at line 21426 of file leptonew.f.

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

subroutine sphera	(		R,
		real, dimension(4)	X
	)

Definition at line 21515 of file leptonew.f.

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

Referenced by dadmkk(), dadmpi(), dph4pi(), dph5pi(), dphsks(), dphsrk(), dphsro(), and dphtre().

subroutine spherd	(	real*8	R,
		real*8, dimension(4)	X
	)

Definition at line 21535 of file leptonew.f.

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

Referenced by drcmu().

function sqm2	(		ITDKRC,
		real*8, dimension(4)	QP,
		real*8, dimension(4)	XN,
		real*8, dimension(4)	XA,
		real*8, dimension(4)	XK,
			AK0,
		real*8, dimension(4)	HV
	)

Definition at line 21556 of file leptonew.f.

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

Referenced by dampry(), and pyrand().

subroutine taufil

(

)

Definition at line 21638 of file leptonew.f.

References filhep(), and tralo4().

subroutine tauinit

(

)

Definition at line 21690 of file leptonew.f.

References dectes().

Referenced by jettarun().

subroutine taurdf

(

KTO

)

Definition at line 21711 of file leptonew.f.

function thb	(		ITDKRC,
		dimension(4)	QP,
		dimension(4)	XN,
		dimension(4)	XA,
			AK0,
		real*8, dimension(4)	HV
	)

Definition at line 21811 of file leptonew.f.

References dilog(), c2_factory< float_type >::log(), print(), HepGeom::BasicVector3D< T >::r(), c2_factory< float_type >::sqrt(), and HepGeom::BasicVector3D< T >::y().

Referenced by dampry(), and pyrand().

subroutine tralo4	(		KTO,
		real, dimension(4)	P,
		real, dimension(4)	Q,
			AM
	)

Definition at line 21922 of file leptonew.f.

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

Referenced by dwlnew(), dwluaa(), dwluel(), dwlukk(), dwluks(), dwlumu(), dwluph(), dwlupi(), dwluro(), and taufil().

complex function wigfor	(		S,
			XM,
			XGAM
	)

Definition at line 21946 of file leptonew.f.

Referenced by form1(), and form2().