IAP GITLAB

Commit bddc3963 authored by Colin Baus's avatar Colin Baus

dt_init updated by Anatoli and Tanguy

git-svn-id: https://devel-ik.fzk.de/svn/mc/crmc/trunk@4136 c7a5e08c-de06-0410-9364-b41cf42a0b17
parent 04ad7fdb
......@@ -33,7 +33,7 @@
*===init===============================================================*
*
SUBROUTINE DT_INIT(NCASES,EPN,NPMASS,NPCHAR,NTMASS,NTCHAR,
& IDP,IGLAU)
& IDPDG,IGLAU)
************************************************************************
* Initialization of event generation *
......@@ -245,11 +245,24 @@ C DIMENSION XPARA(5)
* bypass reading input cards (e.g. for use with Fluka)
* in this case Epn is expected to carry the beam momentum
IF (NCASES.EQ.-1) THEN
IP = NPMASS
IPZ = NPCHAR
PPN = EPNSAV
EPN = ZERO
CMENER = ZERO
IF (IDPDG.EQ.0) THEN
IP = NPMASS
IPZ = NPCHAR
IJPROJ = 1
IBPROJ = 1
ELSE
IP = 1
IPZ = 1
IJPROJ = IDT_ICIHAD(IDPDG)
IBPROJ = IIBAR(IJPROJ)
ENDIF
IT = NTMASS
ITZ = NTCHAR
IJTARG = 1
IBTARG = 1
LEINP = .TRUE.
MKCRON = 0
WHAT(1) = 1
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment