* *=== Alldlt ===========================================================* * *----------------------------------------------------------------------* * * * Copyright (C) 2003-2019: CERN & INFN * * All Rights Reserved. * * * * Include file: alldlt (ALL DeLTas) vv * * * * Created on 10 October 2005 by Alfredo Ferrari * * INFN - Milan * * * * Included in the following routines: * * * * blockmvax/bdtrns.f * * dedxmvax/dedxfl.f * * dedxmvax/enion.f * * dedxmvax/enionf.f * * emfmvax/ededxf.f * * emfmvax/emenio.f * * emfmvax/emfsco.f * * emfmvax/pdedxf.f * * kaskadmvax/kaskad.f * * * * Talldl (m) = kinetic energy of the m_th primary electron * * emitted during energy loss fluctuation pro- * * cesses * * X/Y/Zalldl (m) = position coord. of the m_th primary electron * * emitted during energy loss fluctuation pro- * * cesses * * Tallmn = minimum energy of the recorded primary * * electrons * * Nalldl = number of recorded primary electrons * * Lalldl = logical flag for primary electrons recording * * * *----------------------------------------------------------------------* * PARAMETER ( MXALLD = 5000 ) * LOGICAL LALLDL COMMON / ALLDLT / TALLDL (MXALLD), XALLDL (MXALLD), & YALLDL (MXALLD), ZALLDL (MXALLD), & TALLMN, NALLDL, LALLDL SAVE / ALLDLT /