/* * DO NOT MANUALLY UPDATE THIS FILE. * If needed: make cpp_headers * * fortran2c.py - automatic conversion * mcshlp.inc -> mcshlp.h */ #ifndef __MCSHLP__ #define __MCSHLP__ #include "types.h" #ifdef __cplusplus extern "C" { #endif // //=== mcshlp ===========================================================* // //----------------------------------------------------------------------* // * // Copyright (C) 2003-2019: CERN & INFN * // All Rights Reserved. * // * // Include file Multiple Coulomb Scattering HeLP: * // * // Created on 26 October 1995 by Alfredo Ferrari & Paola Sala * // Infn - Milan * // * //----------------------------------------------------------------------* // extern struct { double uold; double vold; double wold; double sint02; double sinth0; double cosph0; double sinph0; double costhe; double sinthe; double cosphi; double sinphi; double coseta; double sineta; double uprime; double vprime; double uiprim; double viprim; logical lsmpan; logical lstmn; logical lplc; logical laclda; } mcshlp_; #ifdef __cplusplus } #endif #endif