/* * DO NOT MANUALLY UPDATE THIS FILE. * If needed: make cpp_headers * * fortran2c.py - automatic conversion * cmdpcm.inc -> cmdpcm.h */ #ifndef __CMDPCM__ #define __CMDPCM__ #include "types.h" #ifdef __cplusplus extern "C" { #endif // * //=== Cmdpcm ===========================================================* // * //----------------------------------------------------------------------* // * // Copyright (C) 2003-2019: CERN & INFN * // All Rights Reserved. * // * // CoMpton with DoPpler CoMmon: * // * // Created on 25 March 2004 by Vincenzo Patera * // University of Rome "La Sapienza" * // * // Lcmdpr = True if doppler data have been already read in * // Lcmfla = True if doppler data have been already associated * // with fluorescence/photoelectric data * // * //----------------------------------------------------------------------* // // const int MXZNUM = 102,MXNSHL=28,NCSTFT=9; const double HRTMEV = 0.0000272138E+00; const double EMVHRT = 36746.062659E+00; // const double Z2PMAX = 10.7E+00; extern struct { double cumel[MXZNUM][MXNSHL]; double cstfit[MXZNUM][MXNSHL][NCSTFT]; double dpfnct[MXZNUM][MXNSHL][3]; double dpnegi[MXZNUM][MXNSHL][2]; int numshl[MXZNUM]; int numrel[MXZNUM][MXNSHL]; int ksh2nu[MXZNUM][MXESHL]; logical lcmdpr; logical lcmfla; } cmdpcm_; #ifdef __cplusplus } #endif #endif