5 * Revision 1.1.1.1 1995/10/24 10:21:24 cernlib
9 #include "geant321/pilot.h"
10 *CMZ : 3.21/02 29/03/94 15.41.21 by S.Giani
12 SUBROUTINE GDRELP(A,Z,DENS,T,DEDX)
14 C. ******************************************************************
16 C. * Calculates the mean 1/DENS*dE/dx of a MUON with kinetic *
17 C. * energy T in an element of atomic number Z, atomic weight A *
18 C. * and density DENS ( the density is just used for the *
19 C. * calculation of the density effect in the case of high T). *
21 C. * ------------------------------------------------------ *
22 C. * It calls GDRELP with the substitution EMMU -- > PMASS ! *
23 C. * ( and put back the right value of PMASS after) ! *
24 C. * ----------------------------------------------------- *
26 C. * ==>Called by : GDRELA *
27 C. * Author L.Urban ********* *
29 C. ******************************************************************
31 #include "geant321/gconsp.inc"
33 CALL GDRELX(A,Z,DENS,T,REAL(PMASS),DEDX)