GEANT321/gphys/gdrelp.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1995/10/24 10:21:24  cernlib
   6 * Geant
   7 *
   8 *
   9 #include "geant321/pilot.h"
  10 *CMZ :  3.21/02 29/03/94  15.41.21  by  S.Giani
  11 *-- Author :
  12       SUBROUTINE GDRELP(A,Z,DENS,T,DEDX)
  13 C.
  14 C.    ******************************************************************
  15 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).     *
  20 C.    *                                                                *
  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.    *   -----------------------------------------------------        *
  25 C.    *                                                                *
  26 C.    *    ==>Called by : GDRELA                                       *
  27 C.    *       Author    L.Urban    *********                           *
  28 C.    *                                                                *
  29 C.    ******************************************************************
  30 C.
  31 #include "geant321/gconsp.inc"
  32 *
  33       CALL GDRELX(A,Z,DENS,T,REAL(PMASS),DEDX)
  34 *
  35       END