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

#ifndef __CMABRS__
#define __CMABRS__

#include "types.h"

#ifdef __cplusplus
	extern "C" {
#endif

//
//=== cmabrs ===========================================================*
//
//----------------------------------------------------------------------*
//                                                                      *
//     Copyright (C) 2003-2019:  CERN & INFN                            *
//     All Rights Reserved.                                             *
//                                                                      *
//     CoMmon for ABsorption at ReSt:                                   *
//                                                                      *
//     Created on   08 July 1995    by    Alfredo Ferrari & Paola Sala  *
//                                                   Infn - Milan       *
//                                                                      *
//        Hufffc (i) = Huff factor for mu- decay rate after atomic      *
//                     capture for Z=i                                  *
//        Zeffmu (i) = Z_eff for mu- after atomic capture for Z=i       *
//                                                                      *
//       (Taken from Suzuki et al., PRC35, 2212, 1987)                  *
//                                                                      *
//----------------------------------------------------------------------*
//
//  Parameters entering the Goulard-Primakoff formula for muon- nuclear
//  capture rates (Suzuki et al. as above):
const double G1PRMK = 261.E+00;
const double G2PRMK = -0.040E+00;
const double G3PRMK = -0.26E+00;
const double G4PRMK = 3.24E+00;
extern struct {
	double	zeffmu[100];
	double	hufffc[100];
} cmabrs_;


#ifdef __cplusplus
}
#endif
#endif