/* * DO NOT MANUALLY UPDATE THIS FILE. * If needed: make cpp_headers * * fortran2c.py - automatic conversion * evapix.inc -> evapix.h */ #ifndef __EVAPIX__ #define __EVAPIX__ #include "types.h" #ifdef __cplusplus extern "C" { #endif // * //=== evainv ===========================================================* // * //----------------------------------------------------------------------* // * // Copyright (C) 2003-2019: CERN & INFN * // All Rights Reserved. * // * // EVAporation Parameters for Inverse X-secs (formerly EVAPAR): * // * // Created on 05 July 1990 by Alfredo Ferrari & Paola Sala * // Infn - Milan * // * // Originally based on common EVA0 of EVAP-XX, has been now deeply * // changed and progressively emptied * // * // A21o3 (ia) = A^1/3 for A=ia * // * // Alpdst(ia) = Alpha parameter in the Dostrowsky inverse cross * // section formula for mass number ia * // * // Betdst(ia) = Beta parameter in the Dostrowsky inverse cross * // section formula for mass number ia * // * //----------------------------------------------------------------------* // const int IAEVPA = 400; extern struct { double a21o3[IAEVPA]; double alpdst[IAEVPA]; double betdst[IAEVPA]; } evapix_; #ifdef __cplusplus } #endif #endif