/* * DO NOT MANUALLY UPDATE THIS FILE. * If needed: make cpp_headers * * fortran2c.py - automatic conversion * mults.inc -> mults.h */ #ifndef __MULTS__ #define __MULTS__ #include "types.h" #ifdef __cplusplus extern "C" { #endif // //=== Mults ============================================================* // //----------------------------------------------------------------------* // * // Copyright (C) 2003-2019: CERN & INFN * // All Rights Reserved. * // * // Common Mults for EMF * // Mxxmde = maximum number of media in Emf * // (Alpfsc = alpha, fine structure constant = 1/137) * // Ztldem = "effective" Zeta for the spin relativistic correc- * // tion * // Alztle = Alpfsc * Ztldem * // Alzt2e = Alztle **2 * // * //----------------------------------------------------------------------* // extern struct { double ztldem[MXXMDE]; double alztle[MXXMDE]; double alzt2e[MXXMDE]; double ae1o3e[MXXMDE]; double fudemf[MXXMDE]; logical lsrcre[MXXMDE]; logical lnscre[MXXMDE]; logical lmlrge[1+1+1]; } mults_; const int mults_lmlrge_base = -1; #ifdef __cplusplus } #endif #endif