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.

Here is the call graph for this function:

Here is the caller graph for this function:

function amast

(

real*8, dimension(4)

PP

)

Definition at line 1577 of file leptonew.f.

Here is the call graph for this function:

function angfi	(		X,
			Y
	)

Definition at line 1593 of file leptonew.f.

Here is the call graph for this function:

function angxy	(		X,
			Y
	)

Definition at line 1613 of file leptonew.f.

Here is the call graph for this function:

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

Definition at line 1632 of file leptonew.f.

Here is the caller graph for this function:

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

Definition at line 1655 of file leptonew.f.

Here is the caller graph for this function:

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

Definition at line 1679 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

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

Definition at line 1691 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

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

Definition at line 1719 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

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

Definition at line 1746 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine cats

(

)

Definition at line 1776 of file leptonew.f.

Here is the caller graph for this function:

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

Definition at line 1817 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

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

Definition at line 1963 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

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

Definition at line 2002 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

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

Definition at line 2020 of file leptonew.f.

Here is the caller graph for this function:

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.

Here is the call graph for this function:

Here is the caller graph for this function:

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.

Here is the call graph for this function:

Here is the caller graph for this function:

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.

Here is the call graph for this function:

Here is the caller graph for this function:

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

Definition at line 2443 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

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.

Here is the call graph for this function:

Here is the caller graph for this function:

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.

Here is the call graph for this function:

Here is the caller graph for this function:

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

Definition at line 2745 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

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.

Here is the call graph for this function:

Here is the caller graph for this function:

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.

Here is the call graph for this function:

Here is the caller graph for this function:

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.

Here is the call graph for this function:

Here is the caller graph for this function:

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.

Here is the call graph for this function:

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.

Here is the call graph for this function:

Here is the caller graph for this function:

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.

Here is the call graph for this function:

Here is the caller graph for this function:

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.

Here is the call graph for this function:

Here is the caller graph for this function:

function dcdmas

(

IDENT

)

Definition at line 3523 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

function dcross	(		V1,
			V2
	)

Definition at line 3567 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine dectes

(

KTORY

)

Definition at line 3632 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

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

Definition at line 3795 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

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

Definition at line 3965 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

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

Definition at line 4066 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

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.

Here is the call graph for this function:

Here is the caller graph for this function:

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

Definition at line 4212 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

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

Definition at line 4360 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

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.

Here is the call graph for this function:

Here is the caller graph for this function:

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

Definition at line 4461 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

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.

Here is the call graph for this function:

Here is the caller graph for this function:

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.

Here is the call graph for this function:

Here is the caller graph for this function:

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.

Here is the call graph for this function:

Here is the caller graph for this function:

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

Definition at line 4635 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

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.

Here is the call graph for this function:

Here is the caller graph for this function:

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

Definition at line 4718 of file leptonew.f.

Here is the call graph for this function:

function dilog

(

X

)

Definition at line 4727 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

REAL*4 function distrr

(

DUMMY

)

Definition at line 4796 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

function dlower

(

V1

)

Definition at line 4886 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

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.

Here is the call graph for this function:

Here is the caller graph for this function:

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.

Here is the call graph for this function:

Here is the caller graph for this function:

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.

Here is the call graph for this function:

Here is the caller graph for this function:

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.

Here is the call graph for this function:

Here is the caller graph for this function:

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.

Here is the call graph for this function:

Here is the caller graph for this function:

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.

Here is the call graph for this function:

Here is the caller graph for this function:

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.

Here is the call graph for this function:

Here is the caller graph for this function:

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.

Here is the call graph for this function:

Here is the caller graph for this function:

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.

Here is the call graph for this function:

Here is the caller graph for this function:

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.

Here is the call graph for this function:

Here is the caller graph for this function:

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.

Here is the call graph for this function:

Here is the caller graph for this function:

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

Definition at line 6408 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

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

Definition at line 6487 of file leptonew.f.

Here is the caller graph for this function:

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.

Here is the call graph for this function:

Here is the caller graph for this function:

function dsigma

(

XP

)

Definition at line 6713 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

function dupper

(

V1

)

Definition at line 6901 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine dvnopt

(

)

Definition at line 6927 of file leptonew.f.

Here is the call graph for this function:

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.

Here is the call graph for this function:

Here is the caller graph for this function:

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.

Here is the call graph for this function:

Here is the caller graph for this function:

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.

Here is the call graph for this function:

Here is the caller graph for this function:

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

Definition at line 7101 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

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.

Here is the call graph for this function:

Here is the caller graph for this function:

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.

Here is the call graph for this function:

Here is the caller graph for this function:

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

Definition at line 7239 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

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

Definition at line 7271 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

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.

Here is the call graph for this function:

Here is the caller graph for this function:

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

Definition at line 7343 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine evtinfo

(

)

Definition at line 7369 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine fermii

(

real*4, dimension(3)

F

)

Definition at line 7468 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

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.

Here is the caller graph for this function:

function flgint

(

Z

)

Definition at line 7604 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine flintg	(		CFLQ,
			CFLG,
			CFLM
	)

Definition at line 7625 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine flipol	(		FLQ,
			FLG,
			FLM
	)

Definition at line 7684 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

function flqint

(

Z

)

Definition at line 7757 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine fltabl

(

)

Definition at line 7784 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

function fltint

(

Z

)

Definition at line 7886 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine forced_decay	(		NUFORCE,
			ISTATUS
	)

Definition at line 7911 of file leptonew.f.

Here is the call graph for this function:

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

Definition at line 8066 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

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

Definition at line 8126 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

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

Definition at line 8188 of file leptonew.f.

Here is the caller graph for this function:

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

Definition at line 8216 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

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

Definition at line 8293 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

complex function formom	(		XMAA,
			XMOM
	)

Definition at line 8350 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

COMPLEX function fpik

(

real

W

)

Definition at line 8387 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

COMPLEX function fpikm	(	real	W,
			XM1,
			XM2
	)

Definition at line 8416 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

COMPLEX function fpikmd	(	real	W,
			XM1,
			XM2
	)

Definition at line 8445 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

COMPLEX function fpikmk	(	real	W,
			XM1,
			XM2
	)

Definition at line 8479 of file leptonew.f.

Here is the call graph for this function:

function fpirho

(

W

)

Definition at line 8508 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

function fpirk

(

W

)

Definition at line 8517 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine fzclos

(

)

Definition at line 8536 of file leptonew.f.

Here is the caller graph for this function:

subroutine fzini

(

)

Definition at line 8562 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine fzopn

(

character, dimension(*)

CHNAME

)

Definition at line 8608 of file leptonew.f.

Here is the caller graph for this function:

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

Definition at line 8665 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

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

Definition at line 8751 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

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

Definition at line 8869 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine gbinit

(

)

Definition at line 8942 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

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

Definition at line 9033 of file leptonew.f.

Here is the call graph for this function:

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

Definition at line 9103 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

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

Definition at line 9198 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

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

Definition at line 9358 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

function gfun

(

QKWA

)

Definition at line 9551 of file leptonew.f.

Here is the caller graph for this function:

subroutine inimas

(

)

Definition at line 9573 of file leptonew.f.

Here is the caller graph for this function:

subroutine iniphy

(

real*8

XK00

)

Definition at line 9613 of file leptonew.f.

Here is the caller graph for this function:

subroutine initdk

(

)

Definition at line 9635 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine initdk_new

(

)

Definition at line 9785 of file leptonew.f.

Here is the call graph for this function:

subroutine jaker

(

JAK

)

Definition at line 9930 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine jetmc

(

)

Definition at line 9995 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine jetta

(

)

Definition at line 10628 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine jettarun

(

)

Definition at line 54 of file leptonew.f.

Here is the call graph for this function:

subroutine jettout

(

)

Definition at line 10147 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine lazimu	(		XP,
			ZP
	)

Definition at line 10587 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine lepto

(

)

Definition at line 1201 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine leptox

(

)

Definition at line 10815 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine lflav	(		IFL,
			IFLR
	)

Definition at line 11354 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine lframe	(	integer	IFR,
		integer	IPH
	)

Definition at line 11476 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

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

Definition at line 11611 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

function lkinem

(

L

)

Definition at line 12147 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine lmcmnd

(

)

Definition at line 12254 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine lmeps

(

)

Definition at line 12343 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine lmidat

(

)

Definition at line 12702 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine lminew

(

)

Definition at line 12896 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine lminto

(

dimension(2)

PINT

)

Definition at line 12969 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

REAL function lmpint	(		PEXTI,
			I
	)

Definition at line 13013 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine lmprin	(		IKODE,
			FVAL
	)

Definition at line 13075 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine lmrazz	(		YNEW,
		dimension(15)	PNEW
	)

Definition at line 13171 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine lmsimp

(

)

Definition at line 13243 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

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

Definition at line 13443 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine lprikt	(		S,
			PT,
			PHI
	)

Definition at line 13469 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine lprwts

(

NSTEP

)

Definition at line 13484 of file leptonew.f.

Here is the call graph for this function:

subroutine lqcdpr	(		QG,
			QQB
	)

Definition at line 13584 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine lqev

(

)

Definition at line 13798 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine lqgev

(

)

Definition at line 13703 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

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

Definition at line 13886 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine lqqbev

(

)

Definition at line 13932 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine lremh	(		IFLRO,
			IFLR,
			K2,
			Z
	)

Definition at line 14054 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine lscale	(		INFIN,
			QMAX
	)

Definition at line 14130 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine lshowr

(

ICALL

)

Definition at line 14194 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

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

Definition at line 14588 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine ltimex

(

TIME

)

Definition at line 14697 of file leptonew.f.

Here is the caller graph for this function:

function lunpik	(		ID,
			ISGN
	)

Definition at line 14709 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

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

Definition at line 14763 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine lustrf

(

IP

)

Definition at line 14883 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

function lutoge

(

KF

)

Definition at line 16009 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine lwbb

(

ENU

)

Definition at line 16138 of file leptonew.f.

Here is the call graph for this function:

subroutine lweits

(

LFILE

)

Definition at line 16163 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine lxp	(		XP,
			IFAIL
	)

Definition at line 16381 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine lxsect

(

)

Definition at line 16423 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine lzp	(		XP,
			ZP,
			IFAIL
	)

Definition at line 16562 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine mzini

(

)

Definition at line 16643 of file leptonew.f.

Here is the caller graph for this function:

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

Definition at line 16676 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine parupd

(

)

Definition at line 16746 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

real function phint

(

integer

IDUM

)

Definition at line 16786 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine phlupa

(

IPOINT

)

Definition at line 16856 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

double precision function phoan1	(	real	X,
		real	Y
	)

Definition at line 16917 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

double precision function phoan2	(	real	X,
		real	Y
	)

Definition at line 16948 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

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

Definition at line 16978 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

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

Definition at line 17007 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

real function phocha

(

integer

IDHEP

)

Definition at line 17088 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine phochk

(

integer

JFIRST

)

Definition at line 17151 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine phocin

(

)

Definition at line 17258 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

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

Definition at line 17350 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

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

Definition at line 17419 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

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

Definition at line 17603 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

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

Definition at line 17691 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

real function phofac

(

integer

MODE

)

Definition at line 17809 of file leptonew.f.

Here is the caller graph for this function:

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

Definition at line 17866 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine phoinf

(

)

Definition at line 17991 of file leptonew.f.

Here is the caller graph for this function:

subroutine phoini

(

)

Definition at line 18146 of file leptonew.f.

Here is the call graph for this function:

subroutine phomak	(	integer	IPPAR,
		integer	NHEP0
	)

Definition at line 18186 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

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

Definition at line 18246 of file leptonew.f.

Here is the caller graph for this function:

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

Definition at line 18300 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

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

Definition at line 18383 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

REAL*4 function phoran

(

IDUMMY

)

Definition at line 18557 of file leptonew.f.

Here is the caller graph for this function:

subroutine phorep

(

)

Definition at line 18565 of file leptonew.f.

subroutine phorin

(

)

Definition at line 18623 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

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

Definition at line 18684 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

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

Definition at line 18711 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

real function phospi

(

integer

IDHEP

)

Definition at line 18738 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine photos

(

integer

IPARR

)

Definition at line 18785 of file leptonew.f.

Here is the call graph for this function:

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

Definition at line 18953 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine photwo

(

integer

MODE

)

Definition at line 18984 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine phtype

(

integer

ID

)

Definition at line 19045 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

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.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine pyremm	(		IPU1,
			IPU2
	)

Definition at line 19141 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine pyspla	(		KPART,
			KFLIN,
			KFLCH,
			KFLSP
	)

Definition at line 19421 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine pysspb	(		IPU1,
			IPU2
	)

Definition at line 19588 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

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

Definition at line 20190 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

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

Definition at line 20311 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine ranmar	(	dimension(*)	RVEC,
			ISEQ
	)

Definition at line 20998 of file leptonew.f.

Here is the caller graph for this function:

subroutine readffky

(

)

Definition at line 21020 of file leptonew.f.

Here is the caller graph for this function:

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.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine riwibd

(

)

Definition at line 21133 of file leptonew.f.

Here is the call graph for this function:

REAL*4 function rlu

(

IDUMMY

)

Definition at line 21166 of file leptonew.f.

REAL*4 function rndmm

(

IDUMMY

)

Definition at line 21195 of file leptonew.f.

Here is the caller graph for this function:

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

Definition at line 21174 of file leptonew.f.

Here is the call graph for this function:

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

Definition at line 21202 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

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

Definition at line 21223 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

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

Definition at line 21243 of file leptonew.f.

Here is the call graph for this function:

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

Definition at line 21262 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

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

Definition at line 21282 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

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

Definition at line 21300 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

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

Definition at line 21313 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

function sigee	(		Q2,
			JNP
	)

Definition at line 21328 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

function sigold	(		Q2,
			JNPI
	)

Definition at line 21426 of file leptonew.f.

Here is the call graph for this function:

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

Definition at line 21515 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

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

Definition at line 21535 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

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.

Here is the caller graph for this function:

subroutine taufil

(

)

Definition at line 21638 of file leptonew.f.

Here is the call graph for this function:

subroutine tauinit

(

)

Definition at line 21690 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

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.

Here is the call graph for this function:

Here is the caller graph for this function:

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

Definition at line 21922 of file leptonew.f.

Here is the call graph for this function:

Here is the caller graph for this function:

complex function wigfor	(		S,
			XM,
			XGAM
	)

Definition at line 21946 of file leptonew.f.

Here is the caller graph for this function: