/*
 * DO NOT MANUALLY UPDATE THIS FILE.
 * If needed: make cpp_headers
 *
 * fortran2c.py - automatic conversion
 *       stnhcm.inc -> stnhcm.h
 */

#ifndef __STNHCM__
#define __STNHCM__

#include "types.h"

#ifdef __cplusplus
	extern "C" {
#endif

//
//=== 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               *
//                                                                      *
//----------------------------------------------------------------------*
//
const int    MXSTED = 104;
const int    MXSTEL = 100;
//
const int    NXKNWC = -MXKNWC;
extern struct {
	double	stionp[MXSTED-NXKNWC+1];
	double	sterho[MXSTED-NXKNWC+1];
	double	stcbar[MXSTED-NXKNWC+1];
	double	sterx0[MXSTED-NXKNWC+1];
	double	sterx1[MXSTED-NXKNWC+1];
	double	stafac[MXSTED-NXKNWC+1];
	double	stersk[MXSTED-NXKNWC+1];
	double	sterd0[MXSTED-NXKNWC+1];
	int	indste[MXSTEL+1];
} stnhcm_;
const int stnhcm_stionp_base = NXKNWC;
const int stnhcm_sterho_base = NXKNWC;
const int stnhcm_stcbar_base = NXKNWC;
const int stnhcm_sterx0_base = NXKNWC;
const int stnhcm_sterx1_base = NXKNWC;
const int stnhcm_stafac_base = NXKNWC;
const int stnhcm_stersk_base = NXKNWC;
const int stnhcm_sterd0_base = NXKNWC;
const int stnhcm_indste_base = 0;

extern struct {
	char	nmster[MXSTED-NXKNWC+1][8];
} stnhch_;
const int stnhch_nmster_base = NXKNWC;


#ifdef __cplusplus
}
#endif
#endif