Geant4.10: dpm25lap.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	jtdtu (IOPT)

subroutine	selhrd (MHARD, IJPVAL, IJTVAL, PTTHRE)

subroutine	harevt (MHARD, PT1IN)

subroutine	hamult

subroutine	recchk (LINMAX, X, IOPT)

subroutine	xcheck (X1S, X2S, LINMAX)

subroutine	hax1x2

subroutine	harkin

subroutine	hachek (IOPT)

subroutine	hafdis (PDS, PDA, PDB, FDISTR)

subroutine	harsca

subroutine	haoutp

subroutine	jtpdis (X, QQ, IHATYP, MSPR, PD)

subroutine	phkmrs (XQ, QQ, PD, MODE)

subroutine	laptab

subroutine	csj2m (PT, ETAC, ETAD, DSIGMM)

subroutine	csj1m (PT, ETAC, DSIGM)

subroutine	csj1mi (PT, DSIGM)

subroutine	csharm (DSIGM)

subroutine	hisout (IOUT)

subroutine	hisini

subroutine	hisfil2

subroutine	hatest (IOUT)

subroutine	harini

subroutine	habint (IND)

subroutine	hamaxi (IND)

subroutine	hafdi1 (NKON, Z, FDIS, IND)

subroutine	hastrt

subroutine	dor94lo (X, Q2, UV, DV, DEL, UDB, SB, GL)

subroutine	dor94ho (X, Q2, UV, DV, DEL, UDB, SB, GL)

subroutine	dor94di (X, Q2, UV, DV, DEL, UDB, SB, GL)

function	dor94fv (X, N, AK, BK, A, B, C, D)

function	dor94fw (X, S, AL, BE, AK, BK, A, B, C, D, E, ES)

function	dor94fs (X, S, AL, BE, AK, AG, B, D, E, ES)

Function/Subroutine Documentation

subroutine csharm ( dimension(0:maxpro) DSIGM )

Definition at line 1841 of file dpm25lap.f.

References csj1mi(), HepGeom::Plane3D< T >::d(), G4Abla::f(), gset(), c2_factory< float_type >::log(), maxpro, and HepGeom::BasicVector3D< T >::r().

Referenced by harini(), and hatest().

subroutine csj1m	(		PT,
			ETAC,
		dimension(0:maxpro)	DSIGM
	)

Definition at line 1773 of file dpm25lap.f.

References csj2m(), HepGeom::Plane3D< T >::d(), c2_factory< float_type >::exp(), gset(), c2_factory< float_type >::log(), and maxpro.

Referenced by csj1mi(), and hatest().

subroutine csj1mi	(		PT,
		dimension(0:maxpro)	DSIGM
	)

Definition at line 1812 of file dpm25lap.f.

References csj1m(), gset(), c2_factory< float_type >::log(), maxpro, and c2_factory< float_type >::sqrt().

Referenced by csharm().

subroutine csj2m	(		PT,
			ETAC,
			ETAD,
		dimension(0:maxpro)	DSIGMM
	)

Definition at line 1677 of file dpm25lap.f.

References HepGeom::Plane3D< T >::d(), c2_factory< float_type >::exp(), jtpdis(), c2_factory< float_type >::log(), maxpro, and CLHEP::HepBoost::tt().

Referenced by csj1m().

subroutine dor94di	(		X,
			Q2,
			UV,
			DV,
			DEL,
			UDB,
			SB,
			GL
	)

Definition at line 2908 of file dpm25lap.f.

References dor94fs(), dor94fv(), dor94fw(), HepGeom::Transform3D::dx(), c2_factory< float_type >::log(), and c2_factory< float_type >::sqrt().

function dor94fs	(		X,
			S,
			AL,
			BE,
			AK,
			AG,
			B,
			D,
			E,
			ES
	)

Definition at line 3000 of file dpm25lap.f.

References HepGeom::Plane3D< T >::d(), HepGeom::Transform3D::dx(), CLHEP::HepLorentzVector::e(), c2_factory< float_type >::log(), and c2_factory< float_type >::sqrt().

Referenced by dor94di(), dor94fs(), dor94ho(), and dor94lo().

function dor94fv	(		X,
			N,
			AK,
			BK,
			A,
			B,
			C,
			D
	)

Definition at line 2983 of file dpm25lap.f.

References a, bk(), HepGeom::Plane3D< T >::d(), HepGeom::Transform3D::dx(), n, and c2_factory< float_type >::sqrt().

Referenced by dor94di(), dor94fv(), dor94ho(), and dor94lo().

function dor94fw	(		X,
			S,
			AL,
			BE,
			AK,
			BK,
			A,
			B,
			C,
			D,
			E,
			ES
	)

Definition at line 2991 of file dpm25lap.f.

References a, bk(), HepGeom::Plane3D< T >::d(), CLHEP::HepLorentzVector::e(), c2_factory< float_type >::log(), and c2_factory< float_type >::sqrt().

Referenced by dor94di(), dor94fw(), dor94ho(), and dor94lo().

subroutine dor94ho	(		X,
			Q2,
			UV,
			DV,
			DEL,
			UDB,
			SB,
			GL
	)

Definition at line 2833 of file dpm25lap.f.

References dor94fs(), dor94fv(), dor94fw(), HepGeom::Transform3D::dx(), c2_factory< float_type >::log(), and c2_factory< float_type >::sqrt().

subroutine dor94lo	(		X,
			Q2,
			UV,
			DV,
			DEL,
			UDB,
			SB,
			GL
	)

Definition at line 2758 of file dpm25lap.f.

References dor94fs(), dor94fv(), dor94fw(), HepGeom::Transform3D::dx(), c2_factory< float_type >::log(), and c2_factory< float_type >::sqrt().

subroutine habint ( IND )

Definition at line 2372 of file dpm25lap.f.

References a, c2_factory< float_type >::exp(), gset(), c2_factory< float_type >::log(), maxpro, c2_transformation< float_type >::one(), c2_factory< float_type >::sqrt(), z, and c2_transformation< float_type >::zero().

Referenced by harini().

subroutine hachek ( IOPT )

Definition at line 766 of file dpm25lap.f.

References a.

Referenced by harsca().

subroutine hafdi1	(		NKON,
		dimension(3)	Z,
			FDIS,
			IND
	)

Definition at line 2524 of file dpm25lap.f.

References a, HepGeom::Plane3D< T >::d(), c2_factory< float_type >::exp(), G4Abla::f(), jtpdis(), c2_factory< float_type >::log(), maxpro, n, c2_transformation< float_type >::one(), c2_factory< float_type >::sqrt(), CLHEP::HepLorentzVector::t(), z, and c2_transformation< float_type >::zero().

Referenced by hamaxi().

subroutine hafdis	(		PDS,
		dimension(-6:6)	PDA,
		dimension(-6:6)	PDB,
			FDISTR
	)

Definition at line 780 of file dpm25lap.f.

References a, HepGeom::Plane3D< T >::d(), G4Abla::f(), jtpdis(), c2_factory< float_type >::log(), maxpro, and c2_transformation< float_type >::one().

Referenced by harsca().

subroutine hamaxi ( IND )

Definition at line 2463 of file dpm25lap.f.

References HepGeom::Plane3D< T >::d(), hafdi1(), maxpro, z, and HepGeom::Transform3D::zz().

Referenced by harini().

subroutine hamult ( )

Definition at line 344 of file dpm25lap.f.

References a, HepGeom::Plane3D< T >::d(), harsca(), maxpro, G4Abla::mod(), c2_transformation< float_type >::one(), rndm(), c2_factory< float_type >::sqrt(), and xcheck().

Referenced by harevt().

subroutine haoutp ( )

Definition at line 1043 of file dpm25lap.f.

References maxpro, n, and HepGeom::BasicVector3D< T >::phi().

Referenced by harevt().

subroutine harevt	(		MHARD,
			PT1IN
	)

Definition at line 312 of file dpm25lap.f.

References hamult(), haoutp(), hisfil2(), and maxpro.

Referenced by laptab(), and selhrd().

subroutine harini ( )

Definition at line 2248 of file dpm25lap.f.

References csharm(), HepGeom::Plane3D< T >::d(), habint(), hamaxi(), maxpro, c2_factory< float_type >::sqrt(), and timdat().

Referenced by jtdtu(), and laptab().

subroutine harkin ( )

Definition at line 666 of file dpm25lap.f.

References a, HepGeom::Plane3D< T >::d(), c2_factory< float_type >::exp(), hax1x2(), c2_factory< float_type >::log(), maxpro, c2_transformation< float_type >::one(), HepGeom::BasicVector3D< T >::r(), rndm(), and c2_factory< float_type >::sqrt().

Referenced by harsca().

subroutine harsca ( )

Definition at line 855 of file dpm25lap.f.

References a, HepGeom::Plane3D< T >::d(), G4Abla::f(), hachek(), hafdis(), harkin(), int(), maxpro, and rndm().

Referenced by hamult().

subroutine hastrt ( )

Definition at line 2590 of file dpm25lap.f.

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

Referenced by jtdtu().

subroutine hatest ( IOUT )

Definition at line 2146 of file dpm25lap.f.

References csharm(), csj1m(), HepGeom::Plane3D< T >::d(), HepGeom::Transform3D::dy(), CLHEP::HepLorentzVector::e(), G4StatDouble::fill(), jtpdis(), maxpro, plot(), and HepGeom::BasicVector3D< T >::y().

Referenced by laptab().

subroutine hax1x2 ( )

Definition at line 608 of file dpm25lap.f.

References a, HepGeom::Plane3D< T >::d(), c2_factory< float_type >::exp(), c2_factory< float_type >::log(), c2_transformation< float_type >::one(), rndm(), c2_factory< float_type >::sqrt(), HepGeom::BasicVector3D< T >::y(), and z.

Referenced by harkin().

subroutine hisfil2 ( )

Definition at line 2106 of file dpm25lap.f.

References G4StatDouble::fill(), int(), maxpro, and n.

Referenced by harevt().

subroutine hisini ( )

Definition at line 2073 of file dpm25lap.f.

References G4StatDouble::fill(), and maxpro.

Referenced by jtdtu(), and laptab().

subroutine hisout ( IOUT )

Definition at line 1905 of file dpm25lap.f.

References HepGeom::Plane3D< T >::d(), HepGeom::BasicVector3D< T >::eta(), G4StatDouble::fill(), maxpro, c2_transformation< float_type >::one(), plot(), c2_factory< float_type >::sqrt(), and c2_transformation< float_type >::zero().

Referenced by laptab().

subroutine jtdtu ( IOPT )

Definition at line 17 of file dpm25lap.f.

References harini(), hastrt(), hisini(), maxpro, and title().

Referenced by dminit(), dttest(), and laptab().

subroutine jtpdis	(		X,
			QQ,
			IHATYP,
			MSPR,
		dimension(-6:6)	PD
	)

Definition at line 1088 of file dpm25lap.f.

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

Referenced by csj2m(), hafdi1(), hafdis(), and hatest().

subroutine laptab ( )

Definition at line 1338 of file dpm25lap.f.

References harevt(), harini(), hatest(), hisini(), hisout(), int(), jtdtu(), maxpro, n, timdat(), and CexmcException::what().

Referenced by dttest().

subroutine phkmrs	(	real *8	XQ,
		real *8	QQ,
		real *8, dimension(-6:6)	PD,
			MODE
	)

Definition at line 1159 of file dpm25lap.f.

References po_grv98lo(), G4StatDouble::scale(), and structm().

Referenced by jtpdis().

subroutine recchk	(		LINMAX,
			X,
			IOPT
	)

Definition at line 478 of file dpm25lap.f.

References a, and maxpro.

Referenced by xcheck().

subroutine selhrd	(		MHARD,
			IJPVAL,
			IJTVAL,
			PTTHRE
	)

Definition at line 153 of file dpm25lap.f.

References harevt(), maxpro, n, and title().

Referenced by xptfl().

subroutine xcheck	(		X1S,
			X2S,
			LINMAX
	)

Definition at line 533 of file dpm25lap.f.

References a, HepGeom::Plane3D< T >::d(), maxpro, c2_transformation< float_type >::one(), recchk(), c2_factory< float_type >::sqrt(), and c2_function< float_type >::xmax().

Referenced by hamult().