dpm25qelpo.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	qel_pol (ENU, LTYP, P21, P22, P23, P24, P25)
subroutine	gen_qel (ENU, LTYP, P21, P22, P23, P24, P25)
subroutine	mass_ini
function	dsqel_q2 (JTYP, ENU, Q2)
subroutine	prepola (Q2, JTYP, ENU)
subroutine	testrot1 (PI, PO, PHI)
subroutine	testrot2 (PI, PO, PHI)
subroutine	testrot3 (PI, PO, PHI)
subroutine	testrot4 (PI, PO, PHI)
subroutine	lepdcyp (AMA, AML, POL, ETL, PXL, PYL, PZL, ETB, PXB, PYB, PZB, ETN, PXN, PYN, PZN)
subroutine	gen_delta (ENU, LLEP, LTARG, JINT, P21, P22, P23, P24, P25)
function	dsigma_delta (LNU, QQ, S, AML, MD)
subroutine	qgaus (A, B, SS, ENU, LTYP)

Function/Subroutine Documentation

function dsigma_delta	(		LNU,
			QQ,
			S,
			AML,
		real*8	MD
	)

Definition at line 1245 of file dpm25qelpo.f.

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

Referenced by gen_delta().

function dsqel_q2	(		JTYP,
			ENU,
			Q2
	)

Definition at line 477 of file dpm25qelpo.f.

Referenced by gen_qel(), and qgaus().

subroutine gen_delta	(		ENU,
			LLEP,
			LTARG,
			JINT,
			P21,
			P22,
			P23,
			P24,
			P25
	)

Definition at line 998 of file dpm25qelpo.f.

References c2_factory< float_type >::cos(), HepGeom::Plane3D< T >::d(), dsigma_delta(), CLHEP::HepLorentzVector::e(), CLHEP::HepLorentzVector::et(), n, HepGeom::BasicVector3D< T >::phi(), pyexec(), pyjets, pyr(), pyrobo(), HepGeom::BasicVector3D< T >::r(), c2_factory< float_type >::sin(), c2_factory< float_type >::sqrt(), c2_factory< float_type >::tan(), testrot1(), testrot2(), testrot3(), and testrot4().

subroutine gen_qel	(		ENU,
			LTYP,
			P21,
			P22,
			P23,
			P24,
			P25
	)

Definition at line 51 of file dpm25qelpo.f.

References c2_factory< float_type >::cos(), HepGeom::Plane3D< T >::d(), dbeta(), dsqel_q2(), CLHEP::HepLorentzVector::e(), ebind(), n, HepGeom::BasicVector3D< T >::phi(), prepola(), pyjets, pyr(), pyrobo(), qgaus(), c2_factory< float_type >::sin(), c2_factory< float_type >::sqrt(), testrot1(), testrot2(), testrot3(), and testrot4().

subroutine lepdcyp	(		AMA,
			AML,
			POL,
			ETL,
			PXL,
			PYL,
			PZL,
			ETB,
			PXB,
			PYB,
			PZB,
			ETN,
			PXN,
			PYN,
			PZN
	)

Definition at line 821 of file dpm25qelpo.f.

References HepGeom::Plane3D< T >::d(), rndm(), c2_factory< float_type >::sqrt(), and test().

Referenced by prepola().

subroutine mass_ini

(

)

Definition at line 446 of file dpm25qelpo.f.

References HepGeom::Plane3D< T >::d().

subroutine prepola	(		Q2,
			JTYP,
			ENU
	)

Definition at line 521 of file dpm25qelpo.f.

References HepGeom::Plane3D< T >::d(), lepdcyp(), n, pyjets, and pyrobo().

Referenced by gen_qel().

subroutine qel_pol	(		ENU,
			LTYP,
			P21,
			P22,
			P23,
			P24,
			P25
	)

Definition at line 1 of file dpm25qelpo.f.

References ebind(), gen_qel(), mass_ini(), n, nmxhkk, and pyjets.

subroutine qgaus	(		A,
			B,
			SS,
			ENU,
			LTYP
	)

Definition at line 1337 of file dpm25qelpo.f.

References a, dsqel_q2(), and HepGeom::Transform3D::dx().

Referenced by gen_qel().

subroutine testrot1	(	dimension(3)	PI,
		dimension(3)	PO,
			PHI
	)

Definition at line 748 of file dpm25qelpo.f.

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

Referenced by gen_delta(), and gen_qel().

subroutine testrot2	(	dimension(3)	PI,
		dimension(3)	PO,
			PHI
	)

Definition at line 767 of file dpm25qelpo.f.

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

Referenced by gen_delta(), and gen_qel().

subroutine testrot3	(	dimension(3)	PI,
		dimension(3)	PO,
			PHI
	)

Definition at line 785 of file dpm25qelpo.f.

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

Referenced by gen_delta(), and gen_qel().

subroutine testrot4	(	dimension(3)	PI,
		dimension(3)	PO,
			PHI
	)

Definition at line 803 of file dpm25qelpo.f.

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

Referenced by gen_delta(), and gen_qel().