Geant4.10
 All Data Structures Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Macros Groups Pages
Functions/Subroutines
dpm25hadri.f File Reference

Go to the source code of this file.

Functions/Subroutines

subroutine fhad (IPRMOD, IPRO, PLAB, ELAB, CX, CY, CZ, ITHKK, ITTA, IELINE, IREJFH)
 
subroutine elhain (IP, PLA, ELAB, CX, CY, CZ, IT, IREJ)
 
subroutine sihnel (IPROJ, ITAR, POO, SIEL)
 
subroutine dsige (IT, AA, POO, SEL, ZL)
 
subroutine dsihae (KPROJ, EKIN, PLAB, ANUC, SIGELA)
 
double precision function dshpto (IT, PO)
 
double precision function xshpto (IT, PO)
 
subroutine sihnin (IPROJ, ITAR, PO, SIIN)
 
subroutine dhadri (N, PLAB, ELAB, CX, CY, CZ, ITTA)
 
double precision function rexp (W)
 
double precision function damg (IT)
 
subroutine dcalum (N, ITTA)
 
subroutine dchanh
 
subroutine dhadde
 
function iefund (PL, IRE)
 
subroutine dsigin (IRE, PLAB, N, IE, AMT, AMN, ECM, SI, ITAR)
 
subroutine dtchoi (T, P, PP, E, EE, I, II, N, AM1, AM2)
 
subroutine dtwopa (E1, E2, P1, P2, COD1, COD2, COF1, COF2, SIF1, SIF2, IT1, IT2, UMOO, ECM, P, N, AM1, AM2)
 
subroutine dcosi (SFE, CFE)
 
subroutine dgauss (X, A, S)
 
subroutine drandm (X)
 
subroutine tsamcs (KPROJ, EKIN, CST)
 
subroutine sigtes
 

Function/Subroutine Documentation

double precision function damg (   IT)

Definition at line 2907 of file dpm25hadri.f.

References HepGeom::Plane3D< T >::d(), drandm(), CLHEP::HepLorentzVector::e(), and G4Abla::tau().

Referenced by dhadri().

subroutine dcalum (   N,
  ITTA 
)

Definition at line 2946 of file dpm25hadri.f.

References n, c2_factory< float_type >::sqrt(), and G4Abla::tau().

Referenced by dhadri().

subroutine dchanh ( )

Definition at line 2993 of file dpm25hadri.f.

References HepGeom::Plane3D< T >::d(), CLHEP::HepLorentzVector::e(), and G4Abla::tau().

Referenced by dminit().

subroutine dcosi (   SFE,
  CFE 
)
subroutine dgauss (   X,
  A,
  S 
)
subroutine dhadde ( )

Definition at line 3098 of file dpm25hadri.f.

References G4Abla::tau(), and z.

Referenced by dminit().

subroutine dhadri (   N,
  PLAB,
  ELAB,
  CX,
  CY,
  CZ,
  ITTA 
)
subroutine drandm (   X)

Definition at line 3381 of file dpm25hadri.f.

References HepGeom::Plane3D< T >::d(), CLHEP::HepLorentzVector::e(), G4Abla::f(), n, rndm(), and z.

Referenced by damg(), dgauss(), dhadri(), dtchoi(), and rexp().

double precision function dshpto (   IT,
  PO 
)

Definition at line 1824 of file dpm25hadri.f.

References dshnto(), c2_factory< float_type >::sqrt(), and G4Abla::tau().

Referenced by dsige(), dsihae(), shmaki(), shmako(), sigtes(), and xsglau().

subroutine dsige (   IT,
  AA,
  POO,
  SEL,
  ZL 
)
subroutine dsigin (   IRE,
  PLAB,
  N,
  IE,
  AMT,
  AMN,
  ECM,
  SI,
  ITAR 
)
subroutine dsihae (   KPROJ,
  EKIN,
  PLAB,
  ANUC,
  SIGELA 
)
subroutine dtchoi (   T,
  P,
  PP,
  E,
  EE,
  I,
  II,
  N,
  AM1,
  AM2 
)
subroutine dtwopa (   E1,
  E2,
  P1,
  P2,
  COD1,
  COD2,
  COF1,
  COF2,
  SIF1,
  SIF2,
  IT1,
  IT2,
  UMOO,
  ECM,
  P,
  N,
  AM1,
  AM2 
)
subroutine elhain (   IP,
  PLA,
  ELAB,
  CX,
  CY,
  CZ,
  IT,
  IREJ 
)
subroutine fhad (   IPRMOD,
  IPRO,
  PLAB,
  ELAB,
  CX,
  CY,
  CZ,
  ITHKK,
  ITTA,
  IELINE,
  IREJFH 
)
function iefund (   PL,
  IRE 
)

Definition at line 3168 of file dpm25hadri.f.

Referenced by dhadri(), and dsigin().

double precision function rexp (   W)

Definition at line 2849 of file dpm25hadri.f.

References a, drandm(), and n.

subroutine sigtes ( )

Definition at line 5083 of file dpm25hadri.f.

References dshpto(), plot(), sihnel(), sihnin(), c2_factory< float_type >::sqrt(), and G4Abla::tau().

Referenced by dminit().

subroutine sihnel (   IPROJ,
  ITAR,
  POO,
  SIEL 
)
subroutine sihnin (   IPROJ,
  ITAR,
  PO,
  SIIN 
)

Definition at line 2176 of file dpm25hadri.f.

References HepGeom::Plane3D< T >::d(), testem0.App::init(), and rndm().

Referenced by dshnto(), dsige(), hadhad(), inucas(), sigtes(), and xshpto().

subroutine tsamcs (   KPROJ,
  EKIN,
  CST 
)

Definition at line 4712 of file dpm25hadri.f.

References HepGeom::Plane3D< T >::d(), G4CascadeCheckBalance::ekin(), and rndm().

Referenced by elhain().

double precision function xshpto (   IT,
  PO 
)