*
*=== Stnhcm ===========================================================*
*
*----------------------------------------------------------------------*
*                                                                      *
*     Copyright (C) 2003-2019:  CERN & INFN                            *
*     All Rights Reserved.                                             *
*                                                                      *
*     STerNHeimer-peierls density effect parameters CoMmon:            *
*     (split out of dpdx on 21-May-2009)                               *
*                                                                      *
*     Created on  10 February 1991 by       Alfredo Ferrari            *
*                                            INFN - Milan              *
*                                                                      *
*       Mxsted = number of materials for which parameters for the      *
*                density effect are provided (for the others they are  *
*                computed using the general Sternheimer-Peierls        *
*                formula)                                              *
*       Mxstel = number of elements                                    *
*    Stionp(i) = default average ionization potential (eV) for the     *
*                i_th material                                         *
*    Sterho(i) = default density (g/cm**3) for the i_th material       *
*    Stcbar(i) = default "-c" parameter of the Sternheimer-Peierls     *
*                density effect parametrization for the i_th material  *
*    Sterx0(i) = default "x0" parameter of the Sternheimer-Peierls     *
*                density effect parametrization for the i_th material  *
*    Sterx1(i) = default "x1" parameter of the Sternheimer-Peierls     *
*                density effect parametrization for the i_th material  *
*    Stafac(i) = default "a"  parameter of the Sternheimer-Peierls     *
*                density effect parametrization for the i_th material  *
*    Stersk(i) = default "m"  parameter of the Sternheimer-Peierls     *
*                density effect parametrization for the i_th material  *
*    Sterd0(i) = default "d0" parameter of the Sternheimer-Peierls     *
*                density effect parametrization for the i_th material  *
*    Indste(j) = cumulative index in the previous arryas for materials *
*                corresponding to the j_th (Z=j) element               *
*                                                                      *
*----------------------------------------------------------------------*
*
      PARAMETER ( MXSTED =    104 )
      PARAMETER ( MXSTEL =    100 )
      PARAMETER ( NXKNWC =-MXKNWC )
*
      CHARACTER * 8 NMSTER
      COMMON / STNHCM / STIONP (NXKNWC:MXSTED), STERHO (NXKNWC:MXSTED),
     &                  STCBAR (NXKNWC:MXSTED), STERX0 (NXKNWC:MXSTED),
     &                  STERX1 (NXKNWC:MXSTED), STAFAC (NXKNWC:MXSTED),
     &                  STERSK (NXKNWC:MXSTED), STERD0 (NXKNWC:MXSTED),
     &                  INDSTE (0:MXSTEL)
      COMMON / STNHCH / NMSTER (NXKNWC:MXSTED)
      SAVE / STNHCM /
      SAVE / STNHCH /